2009年3月28日
自绘XP风格菜单
摘要： 这是以前写的代码，自绘XP风格的菜单，硬盘坏了后以为没了，最后写的一个软件要自定义风格，“翻箱倒柜”的终于在我可爱的古董机^_^上找到了一个应用的例子。还是把它放到Blog上来，即可共享又可作为备用 :) 把主菜单的OnMeasureItem指向MeasureMainItem、OnAdvancedDrawItem指向DrawMainItem，子菜单的OnMeasureItem指向Meas... 阅读全文
posted @ 2009-03-28 15:55 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(255) 评论(0) 推荐(0) 编辑
TOOLBAR 渐变效果
摘要： procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect; var DefaultDraw: Boolean); var i,j : Integer; Dct : TRect; begin j := ToolBar1.Height; for i:=0 to (ToolBar1.Width - 1) ... 阅读全文
posted @ 2009-03-28 00:36 DELPHI&.NET初学者[TECSOON WENDAY] 阅读(240) 评论(0) 推荐(0) 编辑