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

Saludos.
Posted 16 January 2010 - 01:21 PM
procedure TFConfig.IconTrackChange(Sender: TObject); begin I := IconTrack.Position; Image1.Picture.Bitmap.Assign(Imagelist1.Items[I]); end;
Posted 16 January 2010 - 02:17 PM
ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
Posted 16 January 2010 - 02:17 PM
TImage.Picture.Bitmap := nil; TImageList.GetBitmap(3, TImage.Picture.Bitmap);// En donde 3 es el índice del TImageList
Posted 16 January 2010 - 02:19 PM
Posted 16 January 2010 - 02:24 PM
Posted 16 January 2010 - 02:41 PM