Timage

Question

görüntü birleştirme listesi görüntüler Ben açılan listeyi seçtiğimde 20 bit eşlem ve 1 ile 20 arasındaki bir açılır liste değeriyle bir liste oluşturdum, bu, açılan liste dizinine karşılık gelen bitmapi göstermelidir. Açılır listeyi seçtiğimde ve görüntü çok küçük olduğunda aynı resmi göstermeye devam etme sorunuyla karşılaşıyorum. Bu problemi çözmek için bir fikrin var mı? ve görüntüyü büyütmek mi?

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

Bu kodu deneyebilirsiniz:

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