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

Вниз

Как в DBGrid изменить цвет выделения (select)   Найти похожие ветки 

 
bobtubob   (2003-09-22 17:03) [0]

Как в DBGrid изменить цвет выделения (select)


 
MsGuns   (2003-09-22 17:10) [1]

procedure TfrmOut.grOutProdDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
BkgColor: TColor;
begin
if gdSelected in State then OutRect := Rect;
if not (gdSelected in State) then
BkgColor := TDBGrid(Sender).Color
else
if TDBGrid(Sender).Focused then // Грид активен
BkgColor := clActiveCaption // Синий для текущей строки
else
BkgColor := clMedGray; // Серый для текущей строки
TDBGrid(Sender).Canvas.Brush.Color:=BkgColor;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;


 
bobtubob   (2003-09-23 10:04) [2]

Отрабатывают события только в двух случаях
-State =[gdSelected..Focused]
-State =[]
надо чтобы в трёх ато и в четырёх
-State =[gdSelected]
-State =[Focused]


 
MsGuns   (2003-09-23 12:41) [3]

Во-первых, если внимательно просмотреть код, то там анализируются 3 ситуации:
- грид не активен и строка текущая
- грид не активен и строка нетекущая
- грид активен и строка текущая
- грид активен и строка нетекущая

Во-вторых, тебе что, надо готовый код для твоей проги или подсказку где копать ? Если первое, то нет проблем - посылай на мыло условия задачи с указанием суммы, которую готов за это заплатить


 
bobtubob   (2003-09-24 12:53) [4]

чё ты кипешуеш
Спасибо за код!!!
Я конечно же в нём разобраля и всё зделал но я вёл разговор про то что вовремя выполнения программы у меня state принимал лиш два значения
-State =[gdSelected..Focused]
-State =[]
значения
-State =[gdSelected]
-State =[Focused]
state никогда не принимал
А за мысль спасибо - я чуть иначе переделал и всё заработало


 
Alex_Raider   (2003-09-24 12:58) [5]

Большими буквами нужно написать во всех конференциях по БД:

Прежде чем постить вопрос по гриду, следует учесть доступность бесплатного для русских разработчиков DBGridEH.


 
MsGuns   (2003-09-24 13:07) [6]

>Alex_Raider © (24.09.03 12:58) [5]
>Большими буквами нужно написать во всех конференциях по БД:
>Прежде чем постить вопрос по гриду, следует учесть доступность бесплатного для русских разработчиков DBGridEH.

А очень большими :
ПРЕЖДЕ ЧЕМ ИСКАТЬ И ВНЕДРЯТЬ НОВУЮ КОМПОНЕНТУ УБЕДИТЕСЬ В НЕОБХОДИМОСТИ И ЭФФЕКТИВНОСТИ !

ЗЫ.Я уж молчу о попытках открытой рекламы.



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

Форум: "Базы";
Текущий архив: 2003.10.13;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
14-40574
Сатир
2003-09-23 13:14
2003.10.13
Востановление 98-й винды


1-40509
Ban
2003-10-02 07:56
2003.10.13
Как определить есть ли подключение к Интернету?


1-40470
GreySerg
2003-09-30 20:44
2003.10.13
Как в ListView при редактировании запретить действие ShortCutов ?


7-40704
qwerty2
2003-07-27 11:55
2003.10.13
Установить программно сетевой принтер


3-40289
ViJen
2003-09-22 14:36
2003.10.13
DBF





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