1

我找到了这个很棒的组件并安装了它，它运行得很好，但我有一个小问题。不幸的是，我自己不知道该怎么做。

有人可以帮我为这个组件添加一个新功能吗？那将允许它从 ImageList 获取图像吗？我会在执行期间动态填充 ImageList。

现在我正在执行以下操作以显示 TILE 的预览：

procedure TTools.Preview_ImageExecute(Sender: TObject);
var image_temp : TBitmap;
begin
  image_temp := TBitmap.Create;
  LoadBitMap(ComboBox1.Text,image_temp,Main.ASDb1);
  Image1.Picture.Bitmap:=image_temp;
  image_temp.Free;
end;

想以某种方式将其与图像网格一起使用...它应该以某种方式允许我加载所有图块..我会使用 For 循环来填充它...

与此同时，我正在玩 ListBox，并设法做到了这一点：

procedure TTools.Lst1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var CenterText : integer;
begin
Lst1.Canvas.FillRect(Rect);
Il1.Draw(lst1.Canvas,rect.Left +4, rect.Top +4, Index);
Centertext := (rect.Bottom - rect.Top -lst1.Canvas.TextHeight(text)) div 2;
Lst1.Canvas.TextOut(rect.left + il1.width + 8, rect.Top + CenterText, lst1.Items.Strings[index]);
end;

procedure TTools.Lst1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
begin
Height := IL1.Height+4;
end;

procedure TTools.Button4Click(Sender: TObject);
var i : integer;
image_temp : TBitmap;
begin
image_temp := TBitmap.Create;


for i:=0 to Main.Images.Count-1 do
  begin
  Lst1.Items.Add(Main.Images.Item[i].Name);
  LoadBitMap(Main.Images.Item[i].Name,image_temp,Main.ASDb1);
  IL1.AddMasked(image_temp, clNone);
end;

Image_temp.Free;
end;

这可行，如果我有 0 列，但我不能让它与 4 列一起工作，有人可以帮忙吗？

问候罗伯特

4

1 回答 1

0

没关系......我这样解决了：

procedure TTools.Button4Click(Sender: TObject);
var i : integer;
image_temp : TBitmap;
begin
image_temp := TBitmap.Create;



for i:=0 to Main.Images.Count-1 do
begin
  LoadBitMap(Main.Images.Item[i].Name,image_temp,Main.ASDb1);
  ListView1.Items.Add.Caption:=Main.Images.Item[i].Name;
  ListView1.Items.Item[i].ImageIndex:=i;
  IL1.AddMasked(image_temp, clNone);
end;

Image_temp.Free;
end;

此负载是图像名称以及我的 Asphyre 图像列表中的图像......

于 2012-12-30T11:20:15.090 回答