Вниз
Скачать: CL | DM;

Рамка в 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]

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


← →
Black Cat ©   (2002-07-25 12:08) [8]

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


← →
garry ©   (2002-07-25 13:18) [9]

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


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

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



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

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.01 c
3-48013
pum5a
2002-07-27 16:52
2002.08.15
SELECT TOP 25


1-48207
Vovaka
2002-08-02 09:02
2002.08.15
Помогите. Нужен Delphi 6 Enterprise Update Pack 2 +


14-48280
Vicos1
2002-07-21 17:12
2002.08.15
Вопрос по матери на i810


1-48070
^SANYA
2002-08-04 17:47
2002.08.15
TMemoryStatus - объясните, пожалуйста


14-48315
Dr. W
2002-07-21 14:26
2002.08.15
Не совсем по теме... Проблема с TP7




   Наверх