Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   TImage vs TControl... ... ImageIndex (https://www.clubdelphi.com/foros/showthread.php?t=49130)

Roll06lm 13-10-2007 19:53:05

TImage vs TControl... ... ImageIndex
 
Necesito ayuda sobre cómo puedo mostrar en un TImage, el icono asociado a un Items.
He tratado de mil formas pero no he podido.

Los Items, muestran los iconos desde un TImageList mediante su propiedad ImageIndex, pero necesito mostrar ese Icon, además en el TImage.

Si alguien pudiera ayudarme, le estaría muy agradecido.

Un Saludo:o

xEsk 13-10-2007 22:54:50

Código Delphi [-]
ImageList.GetIcon(IconIndex, Image.Picture.Icon); // IconIndex es el indicie de la imagen a mostrar

Saludos.

Roll06lm 15-10-2007 15:14:26

Gracias xEsk, me distes un buen norte
 
Gracias a todos los foristas que vieron mi tema y en especial a xEsk por darme la ruta por donde investigar mi problemática:

El código a continuación era la problematica de un proyecto parado hacia tres dias:

procedure TMainForm.ActClickLefBandExecute(Sender: TObject);
begin
PanelTop.Caption := (Sender as TCategoryButtons).SelectedItem.Caption;
PageControl1.ActivePageIndex := (Sender as TCategoryButtons).SelectedItem.ImageIndex;
//PageControl1.ActivePage.Caption := (Sender as TCategoryButtons).SelectedItem.Caption;
ImageList1.GetIcon((Sender as TCategoryButtons).SelectedItem.ImageIndex, Image1.Picture.Icon);
end;


Cualquier sugerencia, crítica constructiva, ayuda, lo agradecería. Dicen que el mundo de Delphi se está desplomando, sería triste perder una herramienta tan poderosa como esta.

Tengo pocas horas de vuelo en este lenguaje pero comparado con otros, hay que quitarse el sombrero.

VIVA DELPHI


La franja horaria es GMT +2. Ahora son las 15:25:34.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi