아래 내용을 참고 하셔서 조금만 수정하면 원하시는 기능을 구현 하실수

있을 겁니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

Db, DBTables, ExtCtrls, Grids, DBGrids;



type

TForm1 = class(TForm)

DBGrid1: TDBGrid;

Panel1: TPanel;

DataSource1: TDataSource;

Table1: TTable;

procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

DataCol: Integer; Column: TColumn; State: TGridDrawState);

private

{ Private declarations }

public

{ Public declarations }

procedure DrawField(const Value : String;

const Rect : TRect;

vCanvas : TCanvas;

vFont: TFont;

vAlignment: TAlignment;

FontStyle : TFontStyles;

FontColor : TColor;

BGColor : TColor);

end;



var

Form1: TForm1;



implementation



{$R *.DFM}







{This is the workhorse routine that does the drawing.}

procedure TForm1.DrawField(const Value : String;

const Rect : TRect;

vCanvas : TCanvas;

vFont: TFont;

vAlignment: TAlignment;

FontStyle : TFontStyles;

FontColor : TColor;

BGColor : TColor);

var

I : Integer;

begin

I := 0;



//First, fill in the background color of the cell

vCanvas.Brush.Color := BGColor;

vCanvas.FillRect(Rect);

//SetBkMode ensures that the background is transparent

SetBkMode(Canvas.Handle, TRANSPARENT);



//Set the passed font properties

vCanvas.Font := vFont;

vCanvas.Font.Color := FontColor;

vCanvas.Font.Style := vCanvas.Font.Style + FontStyle;



//Set Text Alignment

case vAlignment of

taRightJustify :

begin

SetTextAlign(vCanvas.Handle, TA_RIGHT);

I := Rect.Right - 2;

end;