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

Помогите не пойму   Найти похожие ветки 

← →
DelphiM ©   (2003-09-08 13:44) [0]

Помогите
Вот обработчик события dbgrid-a

procedure TForm1.dbgrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if Column.Field.DataType = ftBoolean then begin
with TDBGrid(Sender).Canvas do begin
TDBGrid(Sender).Canvas.FillRect(Rect);
if Column.Field.Text = "True" then
ImageList.Draw(TDBGrid(Sender).Canvas,Rect.Left,Rect.Top,0 );
End;

Но проблема когда ячейка в режиме редактирования то текст всеравно виден как ‘True’ или ‘False’ а не как кортинка
как избавится от этого ????

---

← →
stud ©   (2003-09-08 13:46) [1]

тогда надо еще и state обрабатывать

---

← →
stud ©   (2003-09-08 13:48) [2]

к тому же нет дефолтной прорисовки при невыполнении условия

> if Column.Field.Text = "True" then

---

← →
Vlad ©   (2003-09-08 13:56) [3]

на OnColEnter написать следующее:

if DBGrid.SelectedField=Нужное_Поле then
DBGrid.Options:=DBGrid.Options-[dgEditing];
else
DBGrid.Options:=DBGrid.Options+[dgEditing];

---

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

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



Память: 0.45 MB
Время: 0.016 c