开发学院软件开发Delphi DBGrid单元格画圆圈 阅读

DBGrid单元格画圆圈

 2006-02-04 14:12:31 来源:WEB开发网   
核心提示:PRocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);var s:String;begin TDBGr
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 是单个字母,还是双字节的前一位或后一位。
mbSingleByte 单字母
mbLeadByte 双字节第一位
mbTrailByte 双字节第二位

ExtractStrings,分割字符串

Tags:DBGrid 单元 圆圈

编辑录入:爽爽 [复制链接] [打 印]
[]
  • 好
  • 好的评价 如果觉得好,就请您
      0%(0)
  • 差
  • 差的评价 如果觉得差,就请您
      0%(0)
赞助商链接