• 测试技术
  • 博客
  • 视频
  • 开源
  • 论坛
  • 沙龙
  • 下载
  • 杂志
  • 招聘

字号: 小 中 大 | 推荐给好友 上一篇 | 下一篇

Delphi StringGrid使用全书3

发布: 2008-5-19 10:25 | 作者: 不详 | 来源: Blog - 风之谷 | 查看: 160次 | 进入领测软件测试网论坛讨论

领测软件测试网

K{ fi8@,Hi软件测试技术第一门户0qA/c#c6I p_)N{(T
Sg:=TStringGrid.Create(self);
+r-pGBb!GE_1M软件测试技术第一门户z7P N_*e%g
with SG do 软件测试技术第一门户&tk0tJ1^,jv
begin
?&L3A1a7d7E-P%|rYparent:=self;
UK ~rBmRRIalign:=alclient; 软件测试技术第一门户T5f;UI!P
DefaultDrawing:=false;
;u uBs9_J4Z#rFixedColor:=clYellow;
3H'JxUFRowCount:=30; 软件测试技术第一门户9? qk_0RP
ColCount:=20; 软件测试技术第一门户nf*MJ?t
FixedCols:=1;
*Eh]'V[WG4J vyFixedRows:=1;
%N4m3x3N%|qi.]%NGridLineWidth:=0;
Wr M;DfF$`Options:=Options+[goEditing]-[goVertLine,goHorzLine,goRangeSelect]; 软件测试技术第一门户3u,zO\D'p
OnDrawCell:=SGDrawCell;
"P6H$j5pA\eOnTopLeftChanged:=SGTopLeftChanged;
w1[ie#Wb@[{~5UCanvas.Font.name:=’宋体’;
+w;t#?| w.{GCanvas.Font.Size:=10; 软件测试技术第一门户l Cz9~ }4v mx
软件测试技术第一门户Hp1`3^dw%o7n;o
for i:=0 to colCount-1 do 软件测试技术第一门户/DR7C)|_