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

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

Прорисовка CheckBox в DbGrid [D7, XP]

vitv ©   (2007-04-12 10:12:00) 

Есть функция прорисовки:
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;
Проблема в том, что если изменяешь высоту ячейки, то чекбокс растягивается на всю её длинну/ширину? Не подскажите как сделать так, чтобы сохранялись исходный размеры бокса?

---

vitv   (2007-04-12 11:11:00) [1]

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

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

---

ЮЮ   (2007-04-12 10:20:00) [2]

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

---

Наверх