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

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

Картинка изменяла свой размер вместе с формой программы [D7, XP]


Kamilos ©   (2011-12-07 16:48:00) 

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


Dennis I. Komarov   (2011-12-08 09:43:00) [1]


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

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


MBo   (2011-12-08 09:21:00) [2]

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


Ega23   (2011-12-08 08:37:00) [3]

бгггг


Kamilos   (2011-12-08 08:09:00) [4]

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


Dennis I. Komarov   (2011-12-08 01:24:00) [5]

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


MBo   (2011-12-07 17:19:00) [6]

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


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

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


Омлет   (2011-12-07 17:12:00) [8]

На форму положить 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;


Ega23   (2011-12-07 17:10:00) [9]

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


Kamilos   (2011-12-07 16:58:00) [10]


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

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


MBo   (2011-12-07 16:56:00) [11]

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

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

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


Kamilos   (2011-12-07 16:56:00) [12]


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

А как это?


Омлет   (2011-12-07 16:53:00) [13]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо