gpt4 book ai didi

delphi - 在 Timage 中显示图像列表项

转载 作者:行者123 更新时间:2023-12-03 14:39:59 27 4
gpt4 key购买 nike

我创建了一个图像列表,其中包含 20 个位图,下拉列表值从 1 到 20。当我选择下拉列表时,它应该显示与下拉列表索引相对应的位图。我面临的问题是,当我选择下拉列表且图像太小时,它一直显示相同的图像。有办法解决这个问题吗?并将图像放大?

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;

最佳答案

您可以尝试以下代码:

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

关于delphi - 在 Timage 中显示图像列表项,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/3385088/

27 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com