le9ent
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кнопки масштабируются:
with WizardForm.NextButton do begin
Left:=ScaleX(10);
Top:=ScaleY(565);
Width:=ScaleX(90);
Height:=ScaleY(25);
Parent:=WizardForm;
end;
Фоновое изображение не масштабируется:
var
Logo, Fon:TBitmapimage;
ExtractTemporaryFile('Fon.bmp');
WizardForm.Width:=ScaleX(600);
WizardForm.Height:=ScaleY(600);
Fon:=TBitmapImage.Create(WizardForm);
with Fon do begin
Left:=ScaleX(0);
Top:=ScaleY(0);
Width:=ScaleX(600);
Height:=ScaleY(600);
Parent:=WizardForm;
Bitmap.LoadFromFile(ExpandConstant('{tmp}\Fon.bmp'));
end;
|
Всего записей: 2 | Зарегистр. 04-08-2014 | Отправлено: 17:47 07-08-2014 | Исправлено: le9ent, 18:11 07-08-2014 |
|
