Главная страница
    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.009 c
1-40489
Sectey
2003-10-01 17:01
2003.10.13
Система автоматического обнавления программы.


6-40537
BorH
2003-08-16 00:55
2003.10.13
Скачивание файла по HTTP


1-40344
PsoFT
2003-10-02 01:07
2003.10.13
код кнопки


14-40622
sancho
2003-09-22 18:30
2003.10.13
Как на человека в инете инфу накопать?


3-40232
Abrams
2003-09-24 09:30
2003.10.13
TClientDataSet





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