Tabs e Imagelist

[yusnerqui]

Mira la propiedad Imageindex de cada Tab, la puedes cmbiar en tiempo de ejecución a tu gusto y tendrás la imagen deseada.


Saludos

[lucasarts_18]

Empezado por yusnerqui

Mira la propiedad Imageindex de cada Tab, la puedes cmbiar en tiempo de ejecución a tu gusto y tendrás la imagen deseada.

Pues esa propiedad no existe, por lo menos yo no la encuentro en el TabControl de delphi 7.

Hasta Luego -

[yusnerqui]

Un pequeño ejemplo:

Código Delphi [-]
Const
   ImageActiv = 5;
procedure TForm1.PageControl1Change(Sender: TObject);
begin
 with PageControl1.Pages[PageControl1.ActivePageIndex] do
 begin
    Tag := ImageIndex;
    ImageIndex := ImageActiv;
 end;
end;
procedure TForm1.PageControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  with PageControl1.Pages[PageControl1.ActivePageIndex] do
    if ImageIndex = ImageActiv then
      ImageIndex := Tag
end;

Esto lo prové con un PageControl con 5 Tab, y un imagelist que contiene 6 imágenes, siendo la última la imágen que va a mostrarse cuando se activa el Tab.

Espero te sirva.

Saludos Yusnerqui

[lucasarts_18]

Hola:

En el pageControl tienes esa propiedad, pero no en el tabcontrol, y se está preguntando por este último, creo que no hay manera de implementarlo en el tabcontrol.
Hay que cambiarse al PageControl !!!!

[yusnerqui]

Lo siento, me refería al TPageControl.

Saludos

[yusnerqui]

Se que esto se puede depurar, pero es hora de almuerzo, y ya no pienso muy bien

Código Delphi [-]
 Const
    ImgActiv = 4;
procedure TForm1.TabControl1Change(Sender: TObject);
begin
  ImageList1.Move(ImgActiv,TabControl1.TabIndex);
  ImageList1.Move(TabControl1.TabIndex+1,ImgActiv);
end;
procedure TForm1.TabControl1Changing(Sender: TObject;
  var AllowChange: Boolean);
begin
  ImageList1.Move(TabControl1.TabIndex,ImgActiv);
  ImageList1.Move(ImgActiv-1, TabControl1.TabIndex);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageList1.Move(ImgActiv,TabControl1.TabIndex);
  ImageList1.Move(TabControl1.TabIndex+1,ImgActiv);
end;

Saludos

[piccolo2101]

Hola, mi pregunta era por si había alguna forma directa con la propiedad imageindex. Por ahora lo tengo hecho con una solución casera que es tener un TImagen del tamaño del icono y cuando quiero activarlo saco el rect del tab activo. pongo la imagen en la posición del rect con left y top y luego uso Imagelist.Draw para pintar el icono dentro del TImage.
De todas formas, ahora que habláis de TPageControl, ¿que diferencia existe? porque yo estoy partiendo de código que no es mio y si, en esencia es igual, podría cambiarlo y evitarme tonterías.

Un saludo y gracias.

[yusnerqui]

Pues si vas a pintar no te hace falta un TImage, lo puedes hacer en el Canvas del propio TabControl, te recomiendo que uses el evento onDrawTab para estos fines.

Saludos