delphi
procedure TFConfig.IconTrackChange(Sender: TObject); begin I := IconTrack.Position; Image1.Picture.Bitmap.Assign(Imagelist1.Items[I]); end;
Pero como verán no existe la propiedad Items , ¿una mano?.
Saludos.
Escrito 16 enero 2010 - 01:21
procedure TFConfig.IconTrackChange(Sender: TObject); begin I := IconTrack.Position; Image1.Picture.Bitmap.Assign(Imagelist1.Items[I]); end;
Escrito 16 enero 2010 - 02:17
ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
Escrito 16 enero 2010 - 02:17
TImage.Picture.Bitmap := nil; TImageList.GetBitmap(3, TImage.Picture.Bitmap);// En donde 3 es el índice del TImageList
Escrito 16 enero 2010 - 02:19
Escrito 16 enero 2010 - 02:24
Escrito 16 enero 2010 - 02:41