Архив форумов ЦИТФорума

[Y]

Я изменяю цвет строк в DBGridе в зависимости от значения конкретного поля. Проблема в том, что когда я подсвечиваю определенную запись, меня не устраивает цвет подсветки (верней, полное ее отсутствие). Скажите, как поменять цвет подсветки записей в DBGridе?

[Anatoliy]

>>Я изменяю цвет строк в DBGridе в зависимости от значения конкретного поля. Проблема в том, что когда я подсвечиваю определенную запись, меня не устраивает цвет подсветки (верней, полное ее отсутствие). Скажите, как поменять цвет подсветки записей в DBGridе?

[Anatoliy]

http://www.citforum.ru/programming/advice/advice04.shtml

[Y]

...Там ничего не сказано о том как изменить цвет подсветки, т.е. выделенной записи в DBGridе...

[Valera]

-

[Y]

!

[f110]

Для компонентов DX (dxDBGrid):

procedure TZakazFindFrm.FindGridCustomDrawCell(Sender: TObject;
ACanvas: TCanvas; ARect: TRect; ANode: TdxTreeListNode;
AColumn: TdxTreeListColumn; ASelected, AFocused, ANewItemRow: Boolean;
var AText: String; var AColor: TColor; AFont: TFont;
var AAlignment: TAlignment; var ADone: Boolean);
var i:integer;
begin
for i:=0 to FindGrid.Count-1 do begin
if (string(ANode.Values[FindGrid.ColumnByFieldName('status').Index])='0').. then begin
AColor:=$001171FF;
AFont.Color:=clBlack;
if (AFocused) or (ASelected) then begin
AColor:=clWindow;
AFont.Color:=clRed;
end;
end else begin
AColor:=$0091FF71;
AFont.Color:=clBlack;
if (AFocused) or (ASelected) then begin
AColor:=clWindow;
AFont.Color:=clGreen;
end;
end;
end;
end;