Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Вниз

Раскрашивание DBGridEh   Найти похожие ветки 

 
Ega23 ©   (2006-01-18 11:15) [0]

есть вот такой простенький код:

procedure TFMain.dbgAgeCategoriesGetCellParams(Sender: TObject;
 Column: TColumnEh; AFont: TFont; var Background: TColor;
 State: TGridDrawState);
var
ds:TDataSet;
begin
 ds:=DMClient.aqAgeCategories;

 AFont.Name:=ds.FieldByName("FontNam").AsString;
 AFont.Size:=ds.FieldByName("FontSize").AsInteger;
 AFont.Style:=SetFontStyle(ds.FieldByName("FontStyle").AsInteger);

 if (gdSelected in State) or (gdFocused in State) then
  begin // Âûäåëåíèå
   Background:=ds.FieldByName("SelectColor").AsInteger;
   AFont.Color:=ds.FieldByName("SelectFontColor").AsInteger;
  end
 else
  begin // Íåò âûäåëåíèÿ
   Background:=ds.FieldByName("BackgrndColor").AsInteger;
   AFont.Color:=ds.FieldByName("FontColor").AsInteger;
  end;
end;



Всё отлично и правильно отрисовывается, пока ячейка не становится выделенной (а точнее - не получает фокус). После получения фокуса Background один хрен становится цвета clHighlight, а цвет фонта - clHighlightText.
Неужели их надо менять на момент рисования???


 
Aleksandr.   (2006-01-18 11:29) [1]

Для выделенного у него зашит цвет. В общем-то, логично, так что лезь в исходник.


 
Ega23 ©   (2006-01-18 11:31) [2]


> В общем-то, логично,


совсем не логично.



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

Форум: "Основная";
Текущий архив: 2006.02.19;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.034 c
1-1137758963
jiurasdad
2006-01-20 15:09
2006.02.19
Как послать нажатие клавишь в другое приложение


4-1133724406
Костя
2005-12-04 22:26
2006.02.19
Как выкключить компьютер


15-1138438980
ArtemESC
2006-01-28 12:03
2006.02.19
Файлы chm


1-1137507030
belenkov
2006-01-17 17:10
2006.02.19
Циклический опрос COM порта


15-1138240384
vidiv
2006-01-26 04:53
2006.02.19
Что это за песенка?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский