Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.13;
Скачать: 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 вся ветка

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

Наверх




Память: 0.46 MB
Время: 0.038 c
3-36938
race1
2002-12-18 07:49
2003.01.13
sql round


1-37155
NewGuest
2002-12-29 17:20
2003.01.13
Как добавить один символ в конец строки RichEdit


1-37094
simka
2003-01-03 21:39
2003.01.13
Как написать инсталяшку


3-36987
Vanya
2002-12-18 12:51
2003.01.13
глюки dbExpress + MySQL, как фиксить?


14-37362
Aristarh
2002-12-24 21:20
2003.01.13
Help, please! Как повторно вызвать окно авторизации