Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Выделение цветом строк в TDBGrid. [D7, Win2k]

vigo_ © (2006-07-14 11:59:00)
Возможно ли выделить цветом одну или несколько из строк в TDBGrid?

vigo_ (2006-07-14 15:47:00) [1]
Хочу сделать кнопку, по которой осуществляется некая проверка. После чего определенные строки на гриде выделяются. При этом пользуюсь событием DBGrid.Refresh, так как пользователь может, например, удалить выделенную запись, после чего, естественно, строка этого номера не должна быть отмечена.

DVM (2006-07-14 15:46:00) [2]

> А если строки уже прорисованы?

InvalidateRect()

vigo_ (2006-07-14 15:42:00) [3]
А если строки уже прорисованы?

DVM (2006-07-14 15:35:00) [4]

> Как можно пометить бОльшее количество определенных строк?

procedure TfrmMain.dbgrdListZoneDrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var
CheckIt: boolean;
begin
if (Условие) then
TDBGrid(Sender).Canvas.Brush.Color := clRed;
if gdSelected in State then
begin
TDBGrid(Sender).Canvas.Brush.Color:= clHighLight;
TDBGrid(Sender).Canvas.Font.Color := clHighLightText;
end;
TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
end;

Условие - очевидно проверка значения какого либо поля в рисуемой строке

vigo_ (2006-07-14 15:28:00) [5]
Еще один вопрос по этой теме. Мне, например, нужно отметить определенные строки, причем их количество может меняться, а не через одну, как в примере. Тогда я должен указать диапазон, но в "set of " больше 256 эелементов не поместится. Как можно пометить бОльшее количество определенных строк?

DVM (2006-07-14 13:00:00) [6]
procedure TfrmMain.dbgrdListZoneDrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState); var CheckIt: boolean; begin if TDBGrid(Sender).DataSource.DataSet.RecNo mod 2 = 1 then TDBGrid(Sender).Canvas.Brush.Color := cl3DLight; if gdSelected in State then begin TDBGrid(Sender).Canvas.Brush.Color:= clHighLight; TDBGrid(Sender).Canvas.Font.Color := clHighLightText; end; TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State); end;

vigo_ (2006-07-14 12:59:00) [7]
Народ, не могу загрузить с delphikingdom раздел "Свитки", где должна быть описана статья "Разноцветный DBGrid". Выложете, плиз, статью.
Спасибо

vigo_ (2006-07-14 12:08:00) [8]
спасибо

Плохиш (2006-07-14 12:06:00) [9]

> vigo_ (14.07.06 12:03) [2]
> Если можно код...

А поиском по форуму воспользоваться "Слабо"?

Amoeba (2006-07-14 12:06:00) [10]
На http:\\www.delphikingdom.com найдешь большую статью "Разноцветный DBGrid".

vigo_ (2006-07-14 12:03:00) [11]
Если можно код...

DVM (2006-07-14 12:01:00) [12]
Возможно

Наверх

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