Форум: "Начинающим";
Текущий архив: 2010.10.10;
Скачать: [xml.tar.bz2];
Вниз
Цвет шрифта 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;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.003 c
