Проблема с DBGrid. Прописываю в DBGridDrawColumnCell [D6, Win2k]
NorthMan © (2003-01-03 19:18:00)
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:00) [1]
А с какого перепугу он должен стать белым, если вы явно
указываете черный цвет.
PS: Проверяйте State и меняйте цвет на белый.
Наверх 
ЧАТ |
Орешник |
|
