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

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

Grid [D7, Paradox]

DelphiM ©   (2003-09-06 23:23:00) 

Подскажите пожалусто как вставить в стандартный грид чекбокс вмето поля BOOL

---

zeus   (2003-09-08 12:08:00) [1]

procedure TF_Main.DocListDrawColumnCell(Sender: TObject;
const GRect: TRect; DataCol: Integer; Column: TColumnEh;
State: TGridDrawState);
var
MyRect : TRect;
h: Integer;
Image : TBitmap;
begin
DocList.Canvas.FillRect(GRect);
MyRect := GRect;
MyRect.Right := MyRect.Right + 14;
MyRect.Left := GRect.Left;
Image := TBitmap.Create;
ImageList1.GetBitmap(DM.QDocListDOC_TYPE.AsInteger - 1, Image);
h := (MyRect.Bottom - MyRect.Top - DocList.Canvas.TextHeight("Y")) div 2;
Image.Transparent := True;
DocList.Canvas.Draw(MyRect.Left, MyRect.Top + h, Image);
Image.Free;
if DM.QDocListBLACK.AsString = "T" then
begin
Image := TBitmap.Create;
ImageList1.GetBitmap(4, Image);
h := (MyRect.Bottom - MyRect.Top - DocList.Canvas.TextHeight("Y")) div 2;
Image.Transparent := True;
DocList.Canvas.Draw(MyRect.Left+14, MyRect.Top + h, Image);
Image.Free;
end;
DocList.Canvas.TextOut(MyRect.Left + 29, MyRect.Top + h, DM.QDocListNAME.AsString);
end
else DocList.DefaultDrawColumnCell(GRect, DataCol, Column, State);
end;

---

Vlad   (2003-09-07 02:17:00) [2]

OnDrawColumnCell
DrawFrameControl см. Хелп.

---

Наверх