Wyświetlanie elementów imageli w Timage

Question

Mam utworzony obraz z 20 bitmapy w środku i wartością dropdownlist od 1 do 20. Kiedy wybiorę listę rozwijaną, powinna ona pokazać bitmapę odpowiadającą indeksowi listy rozwijanej. Mam problem z wyświetlaniem tego samego obrazu po wybraniu listy rozwijanej i zbyt małego obrazu. Masz pomysł na rozwiązanie tego problemu? i czy obraz jest większy?

procedure TForm1.FormShow(Sender: TObject); 
var 
    i : integer; 
begin 
    for i:=0 to 20 do begin 
    cboIcon.Items.Add(inttostr(i)); 
    end; 
end; 

procedure TForm1.cboIconChange(Sender: TObject); 
begin 
    ImageList1.Draw (Image1.Canvas, 0,0, cboIcon.ItemIndex); 
end; 

Answer 1

Można spróbować tego kodu:

Image1.Stretch := true; // to make it as large as Image1 
Image1.Proportional := true; // to keep width/height ratio 
Image1.Picture.Bitmap:= nil; // clear previous image 
ImageList1.GetBitmap(cboIcon.ItemIndex, Image1.Picture.Bitmap);