with stringgrid1,stringgrid1.Canvas do
begin
FillRect(Rect);
Area := Rect;
InflateRect(Area, -2, -2);
// if (ACol<2) or (ARow=0) then
DrawText(Handle, PChar(Cells[ACol, ARow]),Length(Cells[ACol, ARow]), Area, DT_CENTER);//设为居中,
end;
begin
FillRect(Rect);
Area := Rect;
InflateRect(Area, -2, -2);
// if (ACol<2) or (ARow=0) then
DrawText(Handle, PChar(Cells[ACol, ARow]),Length(Cells[ACol, ARow]), Area, DT_CENTER);//设为居中,
end;
解决方案 »
- raize中trzgroupbar设置问题
- 局域网内怎么用程序判断,一台电脑是接在哪台交换机上的?
- 请问:如何输入身份证号码(位数不一定相同) 就可以得出 出生年月日 和年龄 ?
- 关于TreeView显示图标的问题(up有分!)
- 怎样为按钮设置颜色?
- 用Delphi在SQL Server2000中存放文件与图片的问题
- 如何一次执行两句SQL语句 如 insert into
- 一个输出文字的问题!!急!!
- 如何在webbrowser中显示DBgrid的数据内容?
- delphi程序员好难招啊
- 想做一个企业进销存数据库软件,用pb,VB,delphi,JAVA那个最好!!
- Delphi开发多层碰到运行时Delphi6和Delphi5.0不同的错误和共同的错,请各位高手帮帮忙呀!(在线等待)
写了満足某些条件的Cell现示情况,其它的情况没有写,那么TStringGrid的这
些不满足条件的Cell就不会被正常的显示出来的。
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var Area: TRect;
begin
with stringgrid1,stringgrid1.Canvas do
begin
FillRect(Rect);
Area := Rect;
InflateRect(Area, -2, -2);
if (ACol<2) or (ARow=0) then
DrawText(Handle,
PChar(Cells[ACol, ARow]),
Length(Cells[ACol, ARow]),
Area,
DT_CENTER)//设为居中
else
DrawText(Handle,
PChar(Cells[ACol, ARow]),
Length(Cells[ACol, ARow]),
Area,
DT_LEFT);//其它的居左显示 end;
end;
不就行了。