procedure TForm.dbg_1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
tw : integer;
setValue : String;
begin
if rs.fieldbyname('컬럼').asString = '비교값' then
begin
with DBG_1.Canvas do
begin
setValue := Column.Field.AsString;
Font.Color := clWhite;
Brush.Color := clBlue;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
tw : integer;
setValue : String;
begin
if rs.fieldbyname('컬럼').asString = '비교값' then
begin
with DBG_1.Canvas do
begin
setValue := Column.Field.AsString;
Font.Color := clWhite;
Brush.Color := clBlue;
FillRect(Rect);
TW := TextWidth(setValue);
TextOut((Rect.Left + Rect.Right - TW) div 2, Rect.Top+2, setValue);
end;
end;
end;