In OnDrawCellWindows.DrawText(Canvas.Handle, PChar(Str), -1, Rect, DT_RIGHT or DT_SINGLELINE or DT_VCENTER);
上面是右对齐的
上面是右对齐的
解决方案 »
- delphi 摄像头控制的问题
- 初学delphi,简单问题求解
- DELPHI的UCS2编码问题
- midas服务端使用ADO的问题
- 用ReportBuilder制作多个报表如何实现统一的页眉与页脚?
- 写了一段压缩数据库的代码,在开发机上没问题,但发布到另外的机上有问题?
- 怎么把一个计算字段寸入数据库里呢?
- 帮忙up也送分:MIDAS中,采用SocketConnection连接,如何将scktsrvr.exe绑定到服务器中呢?
- 如何用ie打开一个.url文件
- 如何去掉Dbgrid所联数据表记录为空时显示的那一讨厌的空白行?
- qunta(旺财1860) 。还是关于Drawgrid的问题。
- 用ado连接excel数据库的问题,解决马上给分。
我已经在dbgrid已经指定好了对齐方式,但是还是不行。, 1: In OnDrawCell这种方法的时候,defaultdrawing得属性为false还是true,Windows.DrawText(Canvas.Handle, PChar(Str), -1, Rect, DT_RIGHT or DT_SINGLELINE or DT_VCENTER);
上面是右对齐的
因为在OnDrawCell里就是要自己画的。我在窗体上放一个TDrawGrid,然后响应OnDrawCell事件
DefaultDrawing:=False
我想让第一列左对齐,第二列居中,其它列右对齐
procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
var
style: DWORD;
begin
if ACol=0 then
style:=DT_LEFT
else if ACol=1 then
style:=DT_CENTER
else style := DT_RIGHT;
Windows.DrawText(DrawGrid1.Canvas.Handle, 'test', -1, Rect,
style or DT_SINGLELINE or DT_VCENTER);
end;