Anzeige Bildliste Elemente in Timage

Question

Ich habe eine Bildliste mit 20 Bitmap innerhalb und eine Dropdown-Liste Wert von 1 bis 20. Wenn ich die Dropdown-Liste wählen, sollte es die Bitmap, die dem Dropdown-Liste-Index entsprechen. Ich habe das Problem, dass das gleiche Bild angezeigt wird, wenn ich die Dropdownliste und das Bild zu klein auswähle. Irgendeine Idee, dieses Problem zu lösen? und das Bild größer machen?

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

Sie diesen Code versuchen:

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);