Главная страница
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.018 c
1-37031
delta
2003-01-02 14:15
2003.01.13
Конвертация типов


6-37240
IDKFA
2002-11-13 15:29
2003.01.13
Народ, помогите, плиз! Сокет глючит!


4-37456
Ich Hasse
2002-11-22 14:59
2003.01.13
Мультимедиа таймер как установить?


4-37438
serd_hhc
2002-10-27 09:42
2003.01.13
Как узнать адресс строки в чужом приложении?


14-37332
Mark_kms
2002-12-24 07:44
2003.01.13
Помогите найти компонент