Цвет шрифта DBGrid

← →
Андрей_1 © (2010-07-20 08:47) [0]

При наведении фокуса на какую-либо ячейку меняется цвет шрифта с чёрного на белый. Как сделать чтобы при выделении ячейки цвет шрифта оставался чёрным.

← →
{RASkov} © (2010-07-20 10:05) [1]

> [0] Андрей_1 © (20.07.10 08:47)

Всё что хочешь можно рисовать в OnCellDraw....

← →
{RASkov} © (2010-07-20 10:13) [2]

OnDrawDataCell

← →
Андрей_1 © (2010-07-20 11:06) [3]

Спасибо буду пробовать.

← →
Андрей_1 © (2010-07-20 11:14) [4]

В OnDrawDataCell пишу:
DBGrid1.Font.Color:=ClBlack;

Всё равно меняется цвет на фокусе.

← →
Anatoly Podgoretsky © (2010-07-20 11:24) [5]

> Андрей_1 (20.07.2010 11:14:04) [4]

State not in [gdFocused]

← →
Плохиш © (2010-07-20 11:24) [6]

TDBGrid(Sender).Canvas.Font.Color
и
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);

← →
Плохиш © (2010-07-20 11:25) [7]

TDBGrid(Sender).Canvas.Font.Color
и
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);

← →
Андрей_1 © (2010-07-20 11:53) [8]

Вот так прописано и всё равно цвет шрифта меняется на на белый при фокусе:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
ColumnAction : TColumnAction;

begin
ColumnAction := GetColumnAction(Column.FieldName);
IF DBGrid1.Columns[2].Field.asstring ="ÊØ" Then
TDBGrid(Sender).Canvas.Brush.Color:=RGB($,$FF,$22);
IF DBGrid1.Columns[2].Field.asstring ="ØÝ" Then
TDBGrid(Sender).Canvas.Brush.Color:=RGB($FF,$FF,$33);

TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
//DBGrid1.Font.Color:=ClBlack;
TDBGrid(Sender).Canvas.Font.Color:=clBlack;

end;

> IF DBGrid1.Columns[2].Field.asstring ="ÊØ" Then
> TDBGrid(Sender).Canvas.Brush.Color:=RGB($,$FF,$22);
> IF DBGrid1.Columns[2].Field.asstring ="ØÝ" Then
> TDBGrid(Sender).Canvas.Brush.Color:=RGB($FF,$FF,$33);
>
> TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,
> State);
>

И где здесь "чёрный"?

> procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const
> Rect: TRect;
> Field: TField; State: TGridDrawState);
> begin
> //DBGrid1.Font.Color:=ClBlack;
> TDBGrid(Sender).Canvas.Font.Color:=clBlack;
>
> end;

И где здесь рисование?

PS. Скучно-то как...

Всё!!! Спасибо врубился! Работает вот так:

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
Var
ColumnAction : TColumnAction;

begin
ColumnAction := GetColumnAction(Column.FieldName);
IF DBGrid1.Columns[2].Field.asstring ="ÊØ" Then
TDBGrid(Sender).Canvas.Brush.Color:=RGB($00,$FF,$22);
IF DBGrid1.Columns[2].Field.asstring ="ØÝ" Then
TDBGrid(Sender).Canvas.Brush.Color:=RGB($FF,$FF,$33);

TDBGrid(Sender).Canvas.Font.Color:=clBlack;

TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
Field: TField; State: TGridDrawState);
begin
DBGrid1.Font.Color:=ClBlack;
TDBGrid(Sender).Canvas.Font.Color:=clBlack;

end;

Но про рисование не понял.

> procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const
> Rect: TRect;
> Field: TField; State: TGridDrawState);
> begin
> DBGrid1.Font.Color:=ClBlack;
> TDBGrid(Sender).Canvas.Font.Color:=clBlack;
>
> end;

Вот это, что за испражнение?

Пытался здесь присвоить чёрный цвет шрифту.

Цвет шрифта DBGrid Найти похожие ветки