Текущий архив: 2010.10.10;
Скачать: CL | DM;

Вниз

Цвет шрифта 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;

---

← →
Плохиш ©   (2010-07-20 12:06) [9]

> 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. Скучно-то как...

---

← →
Андрей_1 ©   (2010-07-20 12:12) [10]

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

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;

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

---

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

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

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

---

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

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

---

Страницы: 1 вся ветка

Текущий архив: 2010.10.10;
Скачать: CL | DM;

Наверх

Память: 0.49 MB
Время: 0.007 c