Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c