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

Вниз

Добавление TDBGrid.OnDrawColumnCell   Найти похожие ветки 

 
pasha_golub ©   (2003-08-20 14:18) [0]

Мне в зависимости от значения, содержащегося в нулевой колонке TDBGrid необходимо произвести некоторые действия по отрисовке строки, а именно, если значение ячейки нулевой колонки содержится в TSTringList, нарисовать красную каемку по краям ячейки. Как мне узнать значение этой самой ячейки?

Я делаю примерно так

procedure TfrmMain.DBgridDrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if StringList.IndexOf(DBGrid.Columns[0].Field.AsString)>-1 then
with DBGrid, Rect do
begin
Canvas.MoveTo(Left,Top);
Canvas.Pen.Color := clRed;
Canvas.Pen.Width := 2;
Canvas.LineTo(Right,Top);
Canvas.Pen.Color := clBlack;
end;
end;


Я не уверен в выделенном выражении, ведь свойство Field указывает не на отрисовываемую область, а на текущую. Запутался, помогите


 
pasha_golub ©   (2003-08-20 14:23) [1]

Вообщем, прошу прощения, я привел полностью рабочий код. Нда, сплю я сегодня :-)
Прошу модераторов удалить ветку



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

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

Наверх




Память: 0.46 MB
Время: 0.027 c
6-33702
odyssey
2003-07-10 09:56
2003.09.11
TWebBrowser


3-33430
Andrushk
2003-08-14 10:52
2003.09.11
Права в Oracle


3-33516
eds
2003-08-19 17:28
2003.09.11
Как сделать зебру в гриде в Firebird?


14-33745
Vlad Oshin
2003-08-25 15:41
2003.09.11
Поможите, опять ВинXP... Первый раз я с ней. Не копирует по сети


11-33532
microlab
2003-01-04 08:23
2003.09.11
TKOLTreeView c переклучателями