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

Вниз

Выделение цветом определенной строки в DBGrid   Найти похожие ветки 

 
Ryser   (2002-11-04 11:26) [0]

Знатоки! Подскажите!


 
alexr ©   (2002-11-04 11:50) [1]

Это очень просто нужно в свойстве компонента DBGrid OnDrawColumnCells прописать следующую процедуру:
(в примере в качестве источника данных используется компонент TTable с именем Oborud) процедура изменяет цет строки (заливку, а также цвет и другие параметры шрифта) в DBGrid в зависимости от значения поля.

procedure DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
IF (Oborud.FieldByName("Tip").Value="КОМПЬЮТЕР") Then
Begin
with DBGrid1.Canvas do
Begin
Brush.Color:= clFuchsia;
Font.Color:=clBlack;
Font.Style:=[fsBold];
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
End;
End
Else
IF (Oborud.FieldByName("Tip").Value="Монитор") Then
Begin
with DBGrid1.Canvas do
Begin
Brush.Color:= clMoneyGreen;
Font.Color:=clBlack;
Font.Style:=[fsBold];
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
End;
End
Else
IF (Oborud.FieldByName("Tip").Value="Принтер") Then
Begin
with DBGrid1.Canvas do
Begin
Brush.Color:= clGradientActiveCaption;
Font.Color:=clBlack;
Font.Style:=[fsBold];
FillRect(Rect);
TextOut(Rect.Left+2,Rect.Top+2,Column.Field.Text);
End;
End
end;


 
Kudatsky   (2002-11-04 11:52) [2]

Посмотри сюда:
http://www.infocity.kiev.ua/prog/delphi/content/delphi030.phtml?id=1014


 
Ryser   (2002-11-04 11:57) [3]

Огромное спасибо всем! Очень хорошая инф-ция!



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

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

Наверх




Память: 0.47 MB
Время: 0.016 c
1-69362
[NEW]Splinter
2002-11-10 10:40
2002.11.21
Как записать в exe-шник?


7-69600
OxOTHuK
2002-09-22 23:23
2002.11.21
ХУКи


4-69650
SergeBSL
2002-10-09 23:35
2002.11.21
Как переместить курсор в Edit-е чтобы выделенная часть не пропала


3-69192
S.E.M.
2002-10-30 22:09
2002.11.21
Проблемы с получением ID только что созданой записи


1-69333
mazepa
2002-11-11 21:54
2002.11.21
нехватка мозга