Скачать: CL | DM;

Картинка изменяла свой размер вместе с формой программы   Найти похожие ветки 

← →
Kamilos ©   (2011-12-07 16:48) [0]

Как програмно сделать чтобы картинка изменяла свой размер вместе с формой самой программы?

---

← →
Омлет ©   (2011-12-07 16:53) [1]

В событии отрисовки картинки надо учитывать размеры формы. Событие это срабатывает при каждом изменении размеров формы.

---

← →
MBo ©   (2011-12-07 16:56) [2]

Корнет, Вы - женщина?! ©

Какая картинка?

На всякий случай - см. событие OnResize

---

← →
Kamilos ©   (2011-12-07 16:56) [3]

> В событии отрисовки картинки надо учитывать размеры формы.
>  Событие это срабатывает при каждом изменении размеров формы.
>

А как это?

---

← →
Kamilos ©   (2011-12-07 16:58) [4]

> Корнет, Вы - женщина?!

Я нет, а вот подруга да ей красивости хочеться.

---

← →
Ega23 ©   (2011-12-07 17:10) [5]

1. http://docwiki.embarcadero.com/VCL/XE2/en/Controls.TControl.Align
2. http://docwiki.embarcadero.com/VCL/XE2/en/Controls.TControl.Anchors

---

← →
Омлет ©   (2011-12-07 17:12) [6]

На форму положить PaintBox, присвоить обработчики OnCreate для формы и OnPaint для PaintBox"а. В папку с программой положить картинку 1.bmp:

 TForm1 = class(TForm)
   PaintBox1: TPaintBox;
   procedure FormCreate(Sender: TObject);
   procedure PaintBox1Paint(Sender: TObject);
 private
   fBmp: TBitmap;
 end;

...

procedure TForm1.FormCreate(Sender: TObject);
begin
 fBmp := TBitmap.Create;
 fBmp.LoadFromFile("1.bmp");
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
 PaintBox1.Canvas.StretchDraw(ClientRect, fBmp);
end;


---

← →
Омлет ©   (2011-12-07 17:14) [7]

Но если рисуешь прямо на форме - см. [2] (OnResize).

---

← →
MBo ©   (2011-12-07 17:19) [8]

>Я нет, а вот подруга да ей красивости хочеться.
Да я насчет т.н. "женской логики" - когда наружу выдаются только обрывки мыслей. Вот отвечающим телепатам и приходится додумывать, о чём же конкретно идёт речь.

---

← →
Dennis I. Komarov ©   (2011-12-08 01:24) [9]

"Зачем нам кузнец? Нам кузнец не нужен." ©

---

← →
Kamilos ©   (2011-12-08 08:09) [10]

Всем спасибо за помощь. Убедил подругу что эта функция нафиг ненужна.

---

← →
Ega23 ©   (2011-12-08 08:37) [11]

бгггг

---

← →
MBo ©   (2011-12-08 09:21) [12]

>что эта функция нафиг ненужна.
А из чего это следует? ;)

---

← →
Dennis I. Komarov ©   (2011-12-08 09:43) [13]

> А из чего это следует? ;)

Лучшее - враг хорошего. :)

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.005 c