DBGrid單元格畫圓圈

2019-11-18 18:01:13

字體：大中小

供稿：網(wǎng)友

PRocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
var
s:String;
begin
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
s:=Column.Field.DisplayText;
if (Column.FieldName='FAX') and (Length(s)<10) then
begin
with TDBGrid(Sender).Canvas do
begin
Pen.Color :=clRed;
Arc(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,Rect.Left,Rect.Top,Rect.Left,Rect.Top);
end;
end;
end;
直接畫圓弧就可以了，后面的這種方法只是提供一種參考：
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
const
Flags:array [TAlignment] of DWord=(DT_LEFT,DT_RIGHT,DT_CENTER);
var
s:String;
R:TRect;
begin
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
s:=Column.Field.DisplayText;
r:=Rect;
if (Column.FieldName='FAX') and (Length(s)<10) then
begin
with TDBGrid(Sender).Canvas do
begin
Pen.Color :=clRed;
RoundRect(Rect.Left,Rect.Top,Rect.Right,Rect.Bottom,Rect.Left,Rect.Top);
DrawText(Handle,pchar(s),length(s),R,Flags[Column.Alignment] or DT_VCENTER);
end;
end;
end;

bytetype,用于判斷某個 Char 是單個字母，還是雙字節(jié)的前一位或后一位。
mbSingleByte 單字母
mbLeadByte 雙字節(jié)第一位
mbTrailByte 雙字節(jié)第二位

ExtractStrings,分割字符串

上一篇：解決無法按y軸顯示的問題！

下一篇：讓窗體在執(zhí)行了“顯示桌面”以后仍舊顯示在桌面上