Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.10.13;
Скачать: CL | DM;

Вниз

Как в 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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.034 c
3-40243
Дмитрий К.
2003-09-23 15:03
2003.10.13
Удаление строк из таблицы


14-40658
Милицейские протоколы
2003-09-23 22:39
2003.10.13
Вот так и работаем...


3-40283
NorthMan
2003-09-22 17:56
2003.10.13
Подскажите, плз, как SQL-запросом выбрать данные


1-40483
serg_
2003-10-02 13:09
2003.10.13
Как избавиться от мигания TScrollBar`a?


7-40690
Nicky
2003-07-25 13:47
2003.10.13
русская ли винда?