TImageList/zh CN: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		TImageList ![](/wiki-images/c/cc/Timagelist.png) 为我们提供了 [[TImage\|images]] 的一个图片列表，我们可以在 [[TActionList]] 的 [[TToolBar]] 以及其他控件中调用显示图片信息。
2	2
3	3		## ComboBox例子
4	4
5	5		添加TImageList到窗口上，即可使用此控件。此示例中使用了6张图片。
6	6
7	7		所有的图片尺寸必须相同，如果需要不同尺寸的图片需要重新添加一个TImageList。
8	8
9	9		可以在对象检查器中修改图片尺寸，本示例中使用的尺寸 50px * 18px。
10	10
11	11		设置 Style 为 csOwnerDrawFixed.
12	12
13	13		双击TImageList图标，打开TImageList编辑器。然后选择图标，确保选择的图标正确显示。如果图片较小，请在队形查看器\<F11\>中确定设置的大小。然后重新加载图片。
14	14
15		-	~~<figure>~~
16		-	~~<img src="ImageListEd.png" title="ImageListEd.png" />~~
17		-	~~<figcaption>ImageListEd.png</figcaption>~~
18		-	~~</figure>~~
	15	+	![](/wiki-images/1/13/ImageListEd.png)
19	16
20	17		在窗体上放置一个 ComboBox，然后修改Name为：cbSymbols。
21	18
22	19		在FormCreate时间中写入如下代码：
23	20
24	21		``` pascal
25	22		cbSymbols.Items.Clear;
26	23		for I := 0 to 5 do
27	24		cbSymbols.Items.Add('');
28	25		cbSymbols.ItemIndex := 0;
29	26		```
30	27
31	28		将创建6个空条目，然后默认选择第一个。
32	29
33	30		在cbSymbols的OnDrawItem实践中，写入如下代码：
34	31
35	32		``` pascal
36	33		procedure TMyForm.cbSymbolsDrawItem(
37	34		aControl: TWinControl;
38	35		iIndex: Integer;
39	36		aRect: TRect;
40	37		aState: TOwnerDrawState );
41	38		var
42	39		cnv: TCanvas;
43	40		begin
44	41		if not (aControl is TComboBox) then exit;
45	42		cnv := TComboBox( aControl ).Canvas;
46	43		Imagelist1.Draw( cnv, aRect.Left+2, aRect.Top+2, iIndex );
47	44		end;
48	45		```
49	46
50	47		有必要可以调整(+2)，将图片居中
51	48
52		-	~~<figure>~~
53		-	~~<img src="combo.png" title="combo.png" />~~
54		-	~~<figcaption>combo.png</figcaption>~~
55		-	~~</figure>~~
	49	+	![](/wiki-images/1/1a/Combo.png)
56	50
57	51		## SpeedButton例子
58	52
59	53		和前面的例子一样，将图片添加到ImageList1中并使用：
60	54
61	55		``` pascal
62	56		ImageList1.GetBitmap(iIndex,SpeedButton1.Glyph);
63	57		```
64	58
65	59		## Lazarus 1.9以及最新版本的高分辨率设置
66	60
67	61		在Lazarus 1.9版本中，重写了TImageList，支持一个图像的多重分辨率。
68	62
69		-	~~<figure>~~
70		-	~~<img src="ImageListEd-1.9.png" title="ImageListEd-1.9.png" />~~
71		-	~~<figcaption>ImageListEd-1.9.png</figcaption>~~
72		-	~~</figure>~~
	63	+	![](/wiki-images/5/5b/ImageListEd-1.9.png)
73	64
74	65		现在所有支持ImageList的控件都包含一个 \[Image\]Width属性决定是否支持 96 PPI (100% 分辨率)。例如： TToolBar.Images/ImageWidth, TListView.LargeImages/LargeImagesWidth.
75	66
76	67		把Scaled属性设置为True，ImageList将自动调整LCL控件的DPI比例。
77	68
78	69		### 程序演示
79	70
80	71		Lazarus中有2个样例:
81	72
82	73		- examples/imagelist_highdpi_designtime
83	74		- examples/imagelist_highdpi_runtime
84	75
85	76		### 影响兼容的修改
86	77
87	78		#### 添加方法
88	79
89	80		- 旧特性: 如果图片太大，自动切片；如果图片太小，则自动放大。
90	81		- 新特性: 图像将自动缩放到设置的分辨率。
91	82		- 原因: ImageList现在支持多种分辨率。
92	83		- 补救/校正: 使用AddSliced (假如Image要添加多种图片) 或者 AddSlice (如果要添加自定义尺寸的图像-超出区域也支持).
93	84
94	85		## Lazarus 1.8以及更以前版本的DPI替代方案: 调整TImageList中图片大小
95	86
96	87		此方法对于 [[High DPI]] 缩放来获得 TActionList TMainMenu 和 TToolBar的高分辨率图片很有效。注意: 此方法可能不适用于所有控件. 注意2: 此代码不支持 Lazrus 1.9+.
97	88
98	89		``` pascal
99	90		procedure ScaleImageList(ImgList: TImageList; NewWidth, NewHeight: Integer);
100	91		var
101	92		TempImgList: TImageList;
102	93		TempBmp1: TBitmap;
103	94		TempBmp2: TBitmap;
104	95		I: Integer;
105	96		begin
106	97		TempImgList := TImageList.Create(nil);
107	98		TempBmp1 := TBitmap.Create;
108	99		TempBmp1.PixelFormat := pf32bit;
109	100		TempBmp2 := TBitmap.Create;
110	101		TempBmp2.PixelFormat := pf32bit;
111	102		TempBmp2.SetSize(NewWidth, NewHeight);
112	103		try
113	104		TempImgList.Width := NewWidth;
114	105		TempImgList.Height := NewHeight;
115	106
116	107		for I := 0 to ImgList.Count - 1 do begin
117	108		// Load image for given index to temporary bitmap
118	109		ImgList.GetBitmap(I, TempBmp1);
119	110
120	111		// Clear transparent image background
121	112		TempBmp2.Canvas.Brush.Style := bsSolid;
122	113		TempBmp2.Canvas.Brush.Color := TempBmp2.TransparentColor;
123	114		TempBmp2.Canvas.FillRect(0, 0, TempBmp2.Width, TempBmp2.Height);
124	115
125	116		// Stretch image to new size
126	117		TempBmp2.Canvas.StretchDraw(Rect(0, 0, TempBmp2.Width, TempBmp2.Height), TempBmp1);
127	118		TempImgList.Add(TempBmp2, nil);
128	119		end;
129	120
130	121		ImgList.Assign(TempImgList);
131	122		finally
132	123		TempImgList.Free;
133	124		TempBmp1.Free;
134	125		TempBmp2.Free;
135	126		end;
136	127		end;
137	128		```
138	129
139	130		## 参考资料
140	131
141	132		- [[doc:lcl//controls/timagelist.html\|TImageList doc]]
142	133		- [[TImage]]
143	134
144	135		---
145	136		From the Free Pascal wiki, page "TImageList/zh CN", as it stood on 2020-04-26 after a change by TyphonFinger, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history