Главная страница
    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.44 MB
Время: 0.043 c
2-1138605317
Дмитрий_К
2006-01-30 10:15
2006.02.19
DBGrid - MultiSelect -3


3-1135332668
Andry
2005-12-23 13:11
2006.02.19
Поле memo и поиск без учета регистра


2-1138632049
gidd
2006-01-30 17:40
2006.02.19
трех позиционный CheckBox


15-1138292129
XsID
2006-01-26 19:15
2006.02.19
386 и 64Тб виртуальной памяти


3-1134988300
vopros
2005-12-19 13:31
2006.02.19
EhGrid сортировка данных





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский