Рамка в DBGrid е.....

← →
garry © (2002-07-25 09:34) [0]

Господа! Наверное этот вопрос не совсем по базам данных, но компонент от туда, так что заброшу ка я его сюда. Итак, проблема в следующем. Нужно выделенную строку в dbgrid подсветить рамкой какого-нибудь яркого цвета. Именно рамкой. Это реально? Если да, то как?

← →
vads © (2002-07-25 09:59) [1]

На http://www.delphikingdom.com
Есть статья "Разноцветный DBGRID" там есть решения DBGrid по на все (почти на все) случаи жизни

← →
garry © (2002-07-25 10:10) [2]

То-то и оно, что на мой случай там решения нет. Покрасить ячейку дело не хитрое, а вот как рамку во круг этой ячейки сделать...

← →
Black Cat © (2002-07-25 11:07) [3]

DBGrid>Options>dgRowSelect:=true

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
with dbgrid1.Canvas do
If gdSelected in state then
begin
Pen.Color:=clRed;
MoveTo(rect.Left,rect.Top);
LineTo(rect.Right,rect.Top);
MoveTo(rect.Left,rect.Bottom);
LineTo(rect.Right,rect.Bottom);
if Column.Index=0 then
begin
MoveTo(rect.Left,rect.Bottom);
LineTo(rect.Left,rect.Top);
end;
if Column.Index=DBGrid1.Columns.Count-1 then
begin
MoveTo(rect.Right,rect.Bottom);
LineTo(rect.Right,rect.Top);
end;
end;
end;

Остальное сам допишешь. Удачи!

← →
jessis © (2002-07-25 11:13) [4]

Вокруг одной ячейки?

← →
Black Cat © (2002-07-25 11:17) [5]

Вокруг одной ячейки как-бы ректангла хватит :)

← →
garry © (2002-07-25 11:23) [6]

Класс!!! А тоже самое, только с dgRowLines=false?

← →
garry © (2002-07-25 11:25) [7]

Нет, нет... Именно выделенную строку подсветить нужно. Причём, желательно, чтобы остальная сетка скрыта была.

dgRowLines=False;dgColLines=False;
а чем собственно, dgRowLines не устраивает?

Не устраивает, вот. Ха, но если dgRowLines=False и dgColLines=False то собственно никакие линии и не показываются да же те что выделены!

Ссорри.... Всё работает, просто я эту линию потом областью закрашивал...

Рамка в DBGrid е..... Найти похожие ветки