| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите не пойму [D7, Paradox]

DelphiM ©   (2003-09-08 13:44:00) 

Помогите
Вот обработчик события 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’ а не как кортинка
как избавится от этого ????

---

Vlad   (2003-09-08 13:56:00) [1]

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

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

---

stud   (2003-09-08 13:48:00) [2]

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

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

---

stud   (2003-09-08 13:46:00) [3]

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

---

Наверх