조금만 찾아보심 답을 찾을 수 있었을텐데....

김영대님의 답변을 올려드립니다.



DBGrid1DrawColumnCell이벤트에 아래와 같이 코딩하심 됩니다.



두가지 조건을 주는 이유는 셀렉트되었을때 처리를 위해서입니다.



소스는 쉬워서 함 해보시면 알겁니다.



begin

with TDBGrid(Sender).Canvas do begin

if Column.FieldName = '필드명' then begin

Brush.Color := clYellow;

Font.Color := clBlack;

end

else begin

Brush.Color := clWindow;

Font.Color := clWindowText;

end;

if (gdFocused in State) or (gdSelected in State) then begin

Brush.Color := clHighlight;

Font.Color := clHighlightText;

end;

FillRect(Rect);

TextOut(Rect.Left+2,Rect.Top+2,Column.Field.AsString);

Brush.Style := bsSolid;

Brush.Color := clWindow;

end;

end;



김지현 wrote:

> dbgrid에서 첫번째 row의 글자 색 또는 셀의 색을 넣고 싶습니다.

> 어떻게 해야하나요~?

> 고수님들의 조언 부탁드립니다..

강인규님.. 답변감사합니다..

제가 초보라서요..

근데.. 저는 특정 열(column)이 아닌 특정 행(row)의 폰트색을 바꾸고 싶고든요.. ^^

나름대로 찾아본다고 하긴했는데.. 눈에 띄는것이 없네요~

고수님들.. 다시 한번 답변주시면 감사하겠습니다.

row와 column의 개념을 제가 이해하지 못하는 건가요?



프로그램을 짜보시면 될텐데, 헐...



조건에 따라 색을 달리하는 (가로로)프로그램 같이 올리니 입맛에 맞게 골라쓰세요. 쩝.



똑같은 이벤트에 코딩하세요.



with TDBGrid(Sender).Canvas do begin

if table1필드명.Value > 원하는 조건 then begin

Brush.Color := clred;

Font.Color := clBlack;

end

else begin

Brush.Color := $00D6D6CD;

Font.Color := clWindowText;

end;

if (gdFocused in State) or (gdSelected in State) then begin

if table1필드명.Value > 원하는 조건 then begin

Brush.Color := clPurple;

Font.Color := clHighlightText;

end

else begin

Brush.Color := $00A00000;

Font.Color := clHighlightText;

end;

end;

FillRect(Rect);

TextOut(Rect.Left+1,Rect.Top+1,Column.Field.AsString);

Brush.Style := bsSolid;

Brush.Color := clWindow;

end;

end;





김지현 wrote:

> 강인규님.. 답변감사합니다..

> 제가 초보라서요..

> 근데.. 저는 특정 열(column)이 아닌 특정 행(row)의 폰트색을 바꾸고 싶고든요.. ^^

> 나름대로 찾아본다고 하긴했는데.. 눈에 띄는것이 없네요~

> 고수님들.. 다시 한번 답변주시면 감사하겠습니다.

>

아래와 같이 코딩하시면 쉽게 작업하실수 있습니다..

Cell정렬방식도 함께 해결할수 있고요...



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}





{이 부분의 함수를 추가 시키시고요...}

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;



taLeftJustify :

begin

SetTextAlign(vCanvas.Handle, TA_LEFT);

I := Rect.Left + 2;

end;



taCenter :

begin

SetTextAlign(vCanvas.Handle, TA_CENTER);

I := (Rect.Right + Rect.Left) DIV 2;

end;

end; { case }



//Draw the text

vCanvas.TextRect(Rect, I, Rect.Top + 2, Value);

SetTextAlign(vCanvas.Handle, TA_LEFT);

end;





// DBGrid1DrawColumnCell 의 이벤트에서 코딩하시구요..



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

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

begin

with Sender as TDBGrid, DataSource.DataSet do

// 아래와 같이 조건식을 넣으시면 됨니다.

if (FieldByName('Salary').AsFloat < 30000) then

DrawField(Column.Field.DisplayText, Rect, Canvas,

Column.Font, Column.Alignment, [fsBold],

clYellow, clRed);

// clYellow는 글자 색상

// clRed는 바탕색상



end;



end.