Прорисовка CheckBox в DbGrid

← →
vitv © (2007-04-12 10:12) [0]

Есть функция прорисовки:
procedure DrawGridCheckBox1(Canvas: TCanvas; Rect: TRect; Checked: boolean);
var
DrawFlags: Integer;
begin
Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, " ");
DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DFCS_BUTTONPUSH or DFCS_ADJUSTRECT);
DrawFlags := DFCS_BUTTONCHECK or DFCS_ADJUSTRECT;// DFCS_BUTTONCHECK
if Checked then
DrawFlags := DrawFlags or DFCS_CHECKED;
DrawFrameControl(Canvas.Handle, Rect, DFC_BUTTON, DrawFlags);
end;
Проблема в том, что если изменяешь высоту ячейки, то чекбокс растягивается на всю её длинну/ширину? Не подскажите как сделать так, чтобы сохранялись исходный размеры бокса?

← →
ЮЮ © (2007-04-12 10:20) [1]

Установить Rect таким, каким считаешь нужным, а не использовать именно то значения, что передано в качестве параметра, например:
begin Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, " "); // нафиг это вообще? Rect.Right := Rect.Left + Canvas.TextWidth("Щ"); Rect.Bottom := Rect.Top + CHECK_BOX_HEIGHT; // заданное(рассчитанное один раз) значение ...

> Canvas.TextRect(Rect, Rect.Left + 1, Rect.Top + 1, " ");
> // нафиг это вообще?

Без этого строка текста отрисовывается во всех ячейках грида.
Большое СПАСИБО за помощь.

Прорисовка CheckBox в DbGrid Найти похожие ветки