Имиджы и imagelist

[Marsik]

Здравствуйте!Как можно картинку из imagelist'а вставлять в имидж?

[Alex21]

procedure Draw(Canvas: TCanvas; X, Y, Index: Integer; AImageType: TImageType = itImage; Enabled: Boolean=True); overload;

imagelist1.Draw(image1.Canvas,0,0,0);

[_Dmitry]

Или так

ImageList1.GetBitmap(0,Image1.Picture.Bitmap);

[Marsik]

Ребята,выходит ошибка uknown directive и показывает на imagelist1.В чем ошибка?

[Stilet]

В чем ошибка?

Код приведи полностью

[mihali4]

Код
ImageList1.GetBitmap(0,Image1.Pictu re.Bitmap);
никакой ошибки давать не может.

[Marsik]

А куда и после чего вводить на эти коды?

[mihali4]

Сообщение от Marsik

А куда и после чего вводить на эти коды?

М-да-а... Ну и вопросец!

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture:=nil;
ImageList1.GetBitmap(ind,Image1.Picture.Bitmap); 
//ind - индекс картинки из ImageList1
end;

[Marsik]

Михалыч мне ведь не нужно,чтобы после нажатия кнопки,мне надо чтобы в имидже рисунок до запуска проги уже был!Блин как-то не по-русский обьяснил

[_Dmitry]

Тогда используй событие OnCreate, оно выполняется при создании формы

procedure TForm1.FormCreate(Sender: TObject);
begin
  ImageList1.GetBitmap(0,Image1.Picture.Bitmap);
end;