我在线恭候!
-
等级
本版专家分：399结帖率 98.88% -
如何画StringGrid的网格线及如何使StringGrid的固定列以居中显示!？
我在线恭候!展开阅读全文
-
等级
本版专家分：399
-
怎么没人回答呢？
高手都上哪去了？
-
等级
本版专家分：10587 -
为了能够设置对齐方式我用 TStringAlignGrid，网上下有源码。
为了能够作表格合并我用 TAdvStringGrid，网上下无源码。
-
等级
本版专家分：1712 -
既然是自己画，不是可以得到Rect吗？ 用canvas.lineto canvas.move 设置点画线。。。固定列居中显示？可能要自己判断把它画在中间了。
-
等级
本版专家分：25731勋章
-
-
红花
2008年5月 Delphi大版内专家分月排行榜第一
2002年9月 Delphi大版内专家分月排行榜第一
-
- 蓝花 2002年10月 Delphi大版内专家分月排行榜第三
-
-
我来给你回答，首先你去看下一个API函数：DrawText(...)，要StringGrid1的第一列居中显示可以在OnDrawCell事件中写这样代码:
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
value:String;
begin
if ACol=0 then
begin
StringGrid1.Canvas.Brush.Color:=clWhite;
StringGrid1.Canvas.Pen.Color :=clWhite;
StringGrid1.Canvas.Rectangle(Rect);
StringGrid1.Canvas.Font.Color:=clBlue;
value:=StringGrid1.Cells[ACol,ARow];
DrawText(StringGrid1.Canvas.Handle,
Pchar(value),
Length(value),
Rect,
DT_Center or DT_VCenter);//DT_Center为横着居中显示
//DT_VCenter为坚着居中显示
end;
end;
-
等级
本版专家分：2907 -
procedure TForm2.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
Txt:String;
begin
Txt:=StringGrid1.Cells[ACol,ARow];
StringGrid1.Canvas.Rectangle(Rect);
DrawText(StringGrid1.Canvas.Handle,
Pchar(Txt),
Length(Txt),
Rect,
DT_CENTER or DT_VCENTER );
//在StringGrid单元格画内画字符串
end;
- 我用的是stringgrid连接数据库！关于提高性能的问题
我用的是stringgrid连接数据库！关于提高性能的问题 Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiDB/html/delphi_20061219110009225.html 我有上万条的记录由于实际需要需要用到stringgrid控件！然而...
- bcb之StringGrid控件使用
bcb新手，还有很多地方需要学习提升的，有不对的地方请提出来。 StringGird控件的基本设置 stringgrid1->ColCount = 6;//设置stringgrid1总列数 stringgrid1->RowCount = 4;//设置stringgrid1总行数 ...
- delphi连接mysql速度慢_我用的是stringgrid连接数据库！关于提高性能的问题
我有上万条的记录由于实际需要需要用到stringgrid控件！然而每次往里面添加纪录的时候都非常慢！...请高人指点！分页来做吧~~~否则真的太辛苦了让记录在StringGrid中分页显示在Uses中加入： ADOInt//首先设...
- delphi stringgrid显示数据库记录
1、stringgrid控件默认的第一列和第一行是用来给你做备注的，所以会有不同的颜色显示，要去除这个显示需要改动属性fixedrows和fixedcols，分别是锁定的函数和列数，改为0就没有锁定的了。 2、stringgrid要实现选定了...
- Delphi / XE10 StringGrid 实现合并单元格效果显示
在StringGrid控件中实现显示Excel形式的合并单元格效果，也可以用AdvStringGrid，XLGRID等第三方控件，不过要破解比较麻烦。 原理是通过重载 OnDrawCell 事件procedure TForm1.SGDrawCell(Sender: TObject; ACol, ...
- StringGrid
1、右键选择行 procedure TFZu.SG_dataMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var MousePos: TSmallPoint;... if Button = mbRight then...
- Delphi StringGrid单元格背景色填充颜色
转载备忘： 其实也很简单： Canvas.Brush.Color:=$00078CAD; Canvas.FillRect(CellRect(ACol,ARow)); CellRect(ACol,ARow)就是满格填充的关键。 那么 Canvas.Brush.Color:=$003AD9FF;...Canvas.FrameRect...
- stringgrid如何清空
stringgrid如何清空 with StringGrid1 do for I := 0 to ColCount - 1 do Cols[I].Clear; //或 with StringGrid1 do for I := 0 to RowCount - 1 do Rows[I].Clear; //或 for i := 0 to vGrid.rowcount-1 do ...
- StringGrid导出到EXcel
使用C++ builder6，StringGrid导出到EXcel，导出新的excel文件或者模板。两个程序的代码在文档中
- delphi的FMX中stringgrid背景色的问题
在OnDrawColumnCell添加StringGrid1DrawColumnCell方法，，源码如下： unit Unit3; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls,...
- StringGrid使用全书
StringGrid使用全书，详细介绍如何操作stringgrid表格。
- Delphi使StringGrid中的每一格的颜色各不相同
Delphi使StringGrid中的每一格的颜色各不相同
- delphi中的StringGrid单元格光标走向
![图片说明]...delphi中的StringGrid单元格中我要选择如图所示，光标切换方向，选择横向的时候，则光标是横着走，选择纵向的时候这是竖着走请问各位大神要如何实现，我只要实现光标横向纵向走即可
- 请问如何清空StringGrid里面的数据???急!
请问如何清空StringGrid里面的数据???急! Delphi / Windows SDK/API... 请高手指点,我在StringGrid里面录入数据完后,保存后,想重新录入新的数据,可原先那些数据还在,怎么清空啊? var ...
- Delphi7StringGrid内动态添加ComBoBox的值
在StringGrid内指定列调出Combobox并给Grid赋值
- C++ builder6 删除选中的StringGrid行
软件使用C++ builder6。删除选中的StringGrid行。序号不随删除而变化。如果需要变化，则将第一列的字符转化为数字后-1。
- delphi stringgrid导出为excel
procedure TLiYQBYJL.btnBYJLTJDCClick(Sender: TObject); var ExcelApp, workbook, sheet: Variant; col, row, j, i: Integer; str: string; begin ... dlgSave1.Filter := 'Excel2007格式...
- 计算机设计大赛作品开发文档
参加的是2020年的计算机设计大赛，软件应用与开发赛道。我们的开发文档仅供参考。（20页）