ComboBox1.Items := Screen.Fonts;
解决方案 »
- dbgrid如何实现鼠标单击能选中一行?
- 屏蔽程序对分辨率的修改
- 我用ExcelApplication...ExcelWorkbook...ExcelWorkSheet等打开Excel文件怎么非常慢?
- 关于导出问题
- grid的打印问题?
- 请问怎么对虚拟目录编程?我按“虚拟目录”来搜索,结果是网页没找到!
- outlook新建账号和邮件在本地的记录?(用程序访问)(高手请帮忙)
- 帮我看看这段自编函数吧
- adodataset动态查询问题在线等待
- 如何获得比如:http://www.download.com/sp.exe文件得大小?(不下载它)
- 表的查询问题.多多指教
- 走到这,不进来瞧一下,真的逛为人生!不信,瞧瞧!
begin
ComboBox1.Items.Assign(Screen.Fonts);
end;procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
with ComboBox1 do
begin
Canvas.FillRect(Rect);
Canvas.Font.Name := Items[Index];
Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Items[Index]);
end;
end;
FontType: Integer; Data: Pointer): Integer; stdcall;
begin
TStrings(Data).Add(LogFont.lfFaceName);
Result := 1;
end;