Tabs e Imagelist

[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