Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.15;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.01 c
1-48120
Proton
2002-07-30 19:30
2002.08.15
RoterPro


1-48154
shubin
2002-08-01 14:18
2002.08.15
Нужен компонентик


3-48013
pum5a
2002-07-27 16:52
2002.08.15
SELECT TOP 25


1-48043
Poirot
2002-08-03 06:50
2002.08.15
Как сообщить компоненту из свойства-объекта - надо перерисов


1-48193
Hellman
2002-08-02 19:18
2002.08.15
TListView