Форум: "Начинающим";
Текущий архив: 2012.03.25;
Скачать: [xml.tar.bz2];
Вниз
Картинка изменяла свой размер вместе с формой программы Найти похожие ветки
← →
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 вся ветка
Форум: "Начинающим";
Текущий архив: 2012.03.25;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.003 c
