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

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

← →
Wolferio ©   (2006-01-25 09:50) [0]

Добрый день!

Подскажите пожалуйста:
1. Как в DBGrid указаные строки сделать перечеркнутыми
2. Как в DBGrid указаную ячейку сделать перечеркнутой

Спасибо!

---

← →
Ega23 ©   (2006-01-25 09:54) [1]

TDBGrid.OnDrawDataCell

---

← →
Wolferio ©   (2006-01-25 11:03) [2]

> TDBGrid.OnDrawDataCell


ну а параметры которые должны стоять, какие?

Спасибо!

---

← →
Ega23 ©   (2006-01-25 11:21) [3]

> ну а параметры которые должны стоять, какие?


Посмотри в демках Delphi

---

← →
nstur   (2006-01-25 11:51) [4]

Даю пример из своего кода.
Тебе нужно изменить свойство Font по своему усмотрению или условию

DrawColumnCell(Sender: TObject;
 const Rect: TRect; DataCol: Integer; Column: TColumn;
 State: TGridDrawState);
var
 k: integer;  
begin
 with (Sender as TDBGrid).Canvas do begin
   if (NOT(gdFocused in State)) then begin //если нужно сфокусированную строку, то это нужно убрать
     k:= Column.Field.DataSet.FieldByName(flnISFOLDER).AsInteger;
     if k = 1 then Brush.Color:= colorFolder;
     if (Column.FieldName = "MONEY") then
       if (Column.Field.AsCurrency < 0) then
         Font.Color:= clRed;

     FillRect(Rect);
     if Column.Alignment = taRightJustify then
       TextOut(Rect.Right-TextWidth(Column.Field.Text)-3, Rect.Top+2, Column.Field.Text)
     else
       TextOut(Rect.Left+2, Rect.Top+2, Column.Field.Text);

---

← →
Wolferio ©   (2006-01-27 14:32) [5]

<<nstur>>  СПАСИБО!!!!! ПОМОГЛО!!!

---

← →
Wolferio ©   (2006-01-27 15:01) [6]

Вопрос в догонку! :-)

Это код для выделения столбцов !?   << nstur >>

Можна ли выделить отдельные строки за условием?

Заранее Благодарен!

---

← →
Ю.Ю.   (2006-01-28 09:58) [7]

> Можна ли выделить отдельные строки за условием?

Можешь, причем не оьязательно, чтобы нужные для условия поля набора данных отображались в гриде. При вызове обработчика "текущей запистью" набора данных является рисуемая запись, поэтому независимо от того, какой столбец (поле) рисуется в данном вызове обработчика всегда можно написать:

if (Sender as TDBGrid).DataSource.DataSet.Fields[0].asInteger = 1 then ...

---

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

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



Память: 0.46 MB
Время: 0.087 c