通过网盘分享的文件:DrawGrid.rar
链接: https://pan.baidu.com/s/1ihZ1wFkPEVxr4v02dgMFVA 提取码: 81e
t
procedure TForm8.FormCreate(Sender: TObject); begin DrawGrid1.FixedRows := 0; DrawGrid1.FixedCols := 0; //去掉固定列 DrawGrid1.RowCount := 3; //3行 DrawGrid1.ColCount := 6; //六列 DrawGrid1.DefaultRowHeight := 64; //行高 DrawGrid1.DefaultColWidth := 130 ; //列宽 end;
procedure TForm8.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var LRect: TRect; aString: string; begin Randomize; ImageList1.Draw(DrawGrid1.Canvas,Rect.Left,Rect.Top,Random(6),true); //先画标 aString:=inttostr(Arow)+'行,'+ inttostr(Acol)+' 列'; LRect := Rect; LRect.Left := LRect.Left + ImageList1.Width; LRect.Top:= LRect.Top+ LRect.Height div 2 -DrawGrid1.Canvas.TextHeight('值') div 2; //文本 垂直居中 DrawGrid1.Canvas.Font.Color := clRed; DrawGrid1.Canvas.TextRect(LRect, aString, [TTextFormats.tfCenter, TTextFormats.tfVerticalCenter]); //再画 文本 end;
分类:
Delphi2010
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· 阿里巴巴 QwQ-32B真的超越了 DeepSeek R-1吗?
· 【译】Visual Studio 中新的强大生产力特性
· 【设计模式】告别冗长if-else语句:使用策略模式优化代码结构
· 10年+ .NET Coder 心语 ── 封装的思维:从隐藏、稳定开始理解其本质意义
2008-08-30 因为效率的问题,写Delphi下的求子串的KMP&BM算法,为我的程序提速不少