|
30.11.2018, 18:31
#39741217
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Сообщения: 490
Рейтинг:
0
/ 0
|
|
|
|
Написал код, который масштабирует координаты и размеры контролов. Шрифт не трогаю, он уже увеличен. Получилось почти как на первой форме, разница в пиксель терпима.
код 1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
type
TForm1 = class(TForm)
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure CreateComp(AOwner: TForm; Scale: Boolean);
var
N: Double;
procedure CreateLb(ALeft, ATop: Integer; ACapt: string);
var
lb: TLabel;
begin
lb := TLabel.Create(AOwner);
lb.Left := Round(ALeft * N);
lb.Top := Round(ATop * N);
lb.Caption := ACapt;
lb.Parent := AOwner;
end;
procedure CreateEd(ALeft, ATop, AWidth: Integer; AText: string);
var
ed: TEdit;
begin
ed := TEdit.Create(AOwner);
ed.Left := Round(ALeft * N);
ed.Top := Round(ATop * N);
ed.Width := Round(AWidth * N);
ed.Text := AText;
ed.Parent := AOwner;
end;
begin
if Scale then
N := Screen.PixelsPerInch / 96
else
N := 1;
CreateLb(8, 11, 'Label1');
CreateLb(8, 33, 'Label2');
CreateEd(45, 8, 100, 'Edit1');
CreateEd(45, 30, 100, 'Edit2');
end;
procedure TForm1.FormShow(Sender: TObject);
var
fm: TForm;
begin
Caption := 'Form1';
CreateComp(Self, False);
fm := TForm.Create(Self);
// fm.Scaled := False; не работает
fm.Caption := 'Form2';
CreateComp(fm, True);
// fm.ScaleForPPI(Screen.PixelsPerInch);
fm.Show;
end;
end.
|
|
|
