| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

RxDBGrid1DrawColumnCell [D6]

Sheva ©   (2002-09-10 12:35:00) 

Есть такой код:

procedure TOpenForm.RxDBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
ARect: TRect;
begin
if gdselected in state then
with RxDBGrid1 do
begin
//if TempContractQuery.FieldByName("SellOrBuy").AsInteger=1
//then
//begin
CopyRect(ARect, Rect);
Canvas.Brush.Color:= clred;
Canvas.Font.Color:= clBlack;
Canvas.FillRect(Rect);
//end;
end;
end;

При этом нужная строка закрашивается в красный цвет.

Вопрос: как вывести текст поверх Rect-а, а то вижу только красную строку.
Спасибо.

---

Sheva   (2002-09-10 13:15:00) [1]

Огромное спасибо. Все заработало.

---

Игорь Шевченко   (2002-09-10 13:10:00) [2]

Вставить строку
DefaultDrawColumnCell(Rect,DataCol,Column,State);
после FillRect

---

Наверх