Grid

← →
DelphiM © (2003-09-06 23:23) [0]

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

← →
Vlad © (2003-09-07 02:17) [1]

OnDrawColumnCell
DrawFrameControl см. Хелп.

← →
zeus (2003-09-08 12:08) [2]

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;

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