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

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

Resize [D6, WinXP]

dellam ©   (2006-08-14 08:34:00) 

Привет! Нужно, чтоб при изменении размера окна, изменялись размеры компонентов. Код:

procedure TfrmMain.FormResize(Sender: TObject);
begin
ListBox1.Height := frmMain.Height-100;
ListBox1.Width  := frmMain.Width-8;
Btn1.Top   := frmMain.Height-64;
Btn2.Width := frmMain.Width-15;
end;

ListBox прорисовываю отдельной процедурой ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState). Компилятор ошибок не выдает, а при исполнении ошибка EAccessViolation.
Если без LB все нормально.

---

Loginov Dmitry   (2006-08-14 11:01:00) [1]

> dellam   (14.08.06 08:34) [0]
>
> ListBox прорисовываю отдельной процедурой ListBox1DrawItem(Control:
> TWinControl; Index: Integer;
> Rect: TRect; State: TOwnerDrawState). Компилятор ошибок
> не выдает, а при исполнении ошибка EAccessViolation.
> Если без LB все нормально.


Ошибка возникает в другом месте, либо код ListBox1DrawItem написан криво.

Следующий код работает и в D6 и в D7:


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
 Rect: TRect; State: TOwnerDrawState);
begin
 with ListBox1.Canvas do
 begin
   Brush.Color := clWhite;
   Pen.Color := clWhite;
   Pen.Style := psSolid;
   if odSelected in State then
   begin
     Pen.Style := psDot;
     Pen.Color := clBlack;
   end;
   Rectangle(Rect);
   Brush.Style := bsClear;
   Font.Color := clBlack;
   TextOut(Rect.Left + 3, Rect.Top + 1, ListBox1.Items[Index]);
   Brush.Style := bsSolid;
 end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
 ListBox1.Width := Width - 200;
end;


---

dellam   (2006-08-14 09:14:00) [2]

Спосибо! все отлично

---

DprYg   (2006-08-14 08:56:00) [3]

> Нужно, чтоб при изменении размера окна, изменялись размеры
> компонентов.

Для проектирования окон с изменяемыми размерами, по-моему, используются св-ва Align(выравнивание), Anchors(привязка), Constraints(ограничение на размер) и ScaleBy. Или я неправ?

---

MBo   (2006-08-14 08:53:00) [4]

У меня в BDS2006 такого нет, но попробуй следующее -
Заведи логический флаг с начальным значение false, выставляй его в True в OnShow формы, и проверяй флаг при работе с ListBox

---

Наверх