| | | | | |

2024年2月2日

摘要： var AddCollctMenus: Array Of TMenuItem; //动态菜单 procedure TForm1.Button5Click(Sender: TObject); Var i, AddCollctMenuCount: Integer; Begin AddCollctMenu 阅读全文

posted @ 2024-02-02 18:29 涂磊阅读(202) 评论(0) 推荐(0)

2024年1月28日

(11)lazarus带历史记忆，并模糊带出功能的Edit

摘要： (20) Lazarus学习之ListFilterEdit1过滤ListBox1数据CheckListBox1，ColorListBox1，FileListBox1 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift 阅读全文

posted @ 2024-01-28 20:53 涂磊阅读(58) 评论(0) 推荐(0)

(10)Lazarus下ListBox自画

摘要：参考：VCL下ListBox自画,Lazarus也一样 uses LCLType; ListBox的两个设置：自画事件：ListBox1DrawItem procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer; 阅读全文

posted @ 2024-01-28 18:45 涂磊阅读(120) 评论(0) 推荐(0)

2024年1月21日

DBGrid显示图片(13)

摘要：对应的编辑控件为ComboBoxEx1 procedure TForm13.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawSta 阅读全文

posted @ 2024-01-21 14:02 涂磊阅读(106) 评论(0) 推荐(0)

StringGrid1单元格内绘图

摘要： var Rect: Trect; begin Rect:= bg.CellRect(4,3); bg.Canvas.Brush.Color:= clwhite; bg.Canvas.FillRect(rect); bg.Canvas.Draw( rect.Left +trunc(( rect.Rig 阅读全文

posted @ 2024-01-21 09:18 涂磊阅读(79) 评论(0) 推荐(0)