在开一贴，怎么使按扭上显示的TImageList的图标背景色和ToolBar颜色一致，非常急！！

Sumel 2005-08-30 12:53:13

各位，有知道的，请帮帮小弟！！！

...全文

113 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

Sumel 2005-08-31

打赏
举报

问题解决了，谢谢各位gs的指点，现在揭贴！

FengSC 2005-08-30

打赏
举报

这样写：dsTransparent

Sumel 2005-08-30

打赏
举报

系统提示dsTransParent没有定义。。。

BlueCapricorn 2005-08-30

打赏
举报

ImageList->DrawingStyle = dsTransParent;

FengSC 2005-08-30

打赏
举报

TImageList中的图标使用ICO格式，背景为透明色，这样就自动保持一致了。

constantine 2005-08-30

打赏
举报

照说是这个,你试试看

constantine 2005-08-30

打赏
举报

ImageList->DrawingStyle = dsTransParent

Sumel 2005-08-30

打赏
举报

自己顶一下！！

软件开发16x16小图标素材，很不错的。

Delphi 在ListView中拖动图标，本实例演示如何在程序运行过程中动态拖动TListView组件中的图标。在窗体中添加一个TImageList组件，并且为它添加3个图像文件。然后添加一个TListView组件，设置它的LargeImages和SmallImages属性为TImageList组件，为TListView组件添加3个列表项，并且设置列表项的ImageIndex属性分别对应TImageList组件中的图像索引编号。当用户在TListView组件中用鼠标左键选中一个列表项后，就通过调用BeginDrag函数进行拖动操作，在鼠标拖动过程中，要不停改变选中列表项的位置，代码如下：　　procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer); 　　var 　　 PosPoint:TPoint; 　　begin 　　 PosPoint.x:=X; 　　 PosPoint.y:=Y; 　　 (Source As TListView).Selected.SetPosition(PosPoint); 　　end; 　　释放鼠标后，通过设置OnDragOver事件中的Accept参数来决定是否接受拖动操作。在本实例中如果拖动源为TListView组件，那么就设置Accept参数为True，即接受操作，响应代码如下：　　procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; 　　 State: TDragState; var Accept: Boolean); 　　begin 　　 Accept:=Source Is TListView; 　　end;

矩阵按钮控件，可以设置行列数，和按钮的HEIGHT和WIDTH属性，按钮可以显示图片，可以设置按钮的FLAT风格。可以增加，删除按钮，也可以修改按钮标题。主要属性 property Enabled;; property Visible;; property ShowHint;; property Font;; property ButtonCount ;; property DownIndex ;; property FlatStyle ;; property Column;; property Images: property ButtonWidth;; property ButtonHeight ;; property ButtonsCaption;; property BevelOutStyle property BevelINStyle property OnButtonsClick: TOnButtonsClick read FOnButtonsClick write FOnButtonsClick ;; 添加按钮，删除按钮通过修改ButtonCount属性修改按钮标题和装载图片通过Buttons[Index: Integer]属性(注意不要修改Tag属性) 设计时赋值图片给按钮通过IMAGE属性，该属性连接一个TImageList类型的控件创建日期 2002-06-20 作者：李国智主页：http://stgzs.myetang.com EMAIL :stgzs@163.com 如果有BUG，请来信。

Delphi制作自动滚动的工具栏，实例演示了一个可以自动滚动的工具栏。在窗体中添加一个TImageList组件，并且为它添加几个图像文件。然后添加一个TToolBar组件，设置TToolBar组件的Images属性为TImageList组件，在TToolBar组件上右击，在弹出的快捷菜单中选择New Button项，为TToolBar组件添加几个按钮，并设置按钮的ImageIndex属性分别对应TImageList组件中的图像索引编号。最后向窗体上添加一个TPageScroller组件，设置它的AutoScroll属性值为True，设置Control属性为TToolBar组件，如果TToolBar组件的尺寸大于TPageScroller组件的尺寸，就会显示一个按钮。　　保存文件，然后按F9键运行程序，在程序运行的过程中，鼠标移动到或按钮上时工具栏就会自动滚动以显示工具栏的其他部分。如果设置TPageScroller组件的AutoScroll属性值为False，那么在程序运行的过程中，只有单击或按钮时，工具栏才会自动滚动以显示工具栏的其他部分。

使用Delphi的OnChange事件，Timagelist组件..rar

C++ Builder

13,825

社区成员

102,678

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章