Скачать: CL | DM;

Проблема с DBGrid. Прописываю в DBGridDrawColumnCell   Найти похожие ветки 

← →
NorthMan   (2003-01-03 19:18) [0]

procedure TMainForm.WorkUsersDBGridDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
with (Sender as TDBGrid) do
begin
CASE ViewBlWorkT.FieldByName("STATUS").AsInteger of
1: Canvas.Font.Color := clGreen;
4: Canvas.Font.Color := clBlack;
5: Canvas.Font.Color := clRed;
8: Canvas.Font.Color := clBackground;
end;
DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;
END;
Все нормально, вот только когда на ячейку мышкой жмешь, получается, что цвет шрифта под курсором так и остается черным,хотя должен инвертироваться на белый по закону. Странно, но в другом DBGRID"е подобные действия производятся, но все работает правильно... Может какое свойство есть, которое я не замечаю?

---

← →
TTCustomDelphiMaster ©   (2003-01-03 20:01) [1]

А с какого перепугу он должен стать белым, если вы явно указываете черный цвет.
PS: Проверяйте State и меняйте цвет на белый.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c