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

Вниз

RxDBGrid1DrawColumnCell   Найти похожие ветки 

 
Sheva ©   (2002-09-10 12:35) [0]

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

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-а, а то вижу только красную строку.
Спасибо.


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

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



 
Sheva ©   (2002-09-10 13:15) [2]

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



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

Текущий архив: 2002.09.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
1-73622
carmen
2002-09-11 23:19
2002.09.23
Как имея DFM файл построить по нему форму программно


14-73811
KPY
2002-08-26 14:05
2002.09.23
Программа говорилка


1-73649
Shrek
2002-09-12 16:49
2002.09.23
WinAPI


1-73730
Explorer
2002-09-11 14:14
2002.09.23
В одном событие обработать другое


6-73791
OlegG
2002-07-12 23:17
2002.09.23
Как мне узнать имя файла отправл. с СlientSocket в ServerSocket