gui-22-experiment

pieckenst · Dec 21, 2020 · a1ecf0e · a1ecf0e
1 parent 30bfd26
commit a1ecf0e
Show file tree

Hide file tree

Showing 10 changed files with 1,358 additions and 0 deletions.
diff --git a/experiments/22/Project2.dpr b/experiments/22/Project2.dpr
@@ -0,0 +1,16 @@
+program Project2;
+
+uses
+  Vcl.Forms,
+  Unit1 in 'Unit1.pas' {Form1},
+  Unit2 in 'Unit2.pas' {Form2};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.MainFormOnTaskbar := True;
+  Application.CreateForm(TForm1, Form1);
+  Application.CreateForm(TForm2, Form2);
+  Application.Run;
+end.
diff --git a/experiments/22/Project2.dproj b/experiments/22/Project2.dproj
diff --git a/experiments/22/Project2.dproj.local b/experiments/22/Project2.dproj.local
@@ -0,0 +1,14 @@
+<?xml version="1.0" encoding="utf-8"?>
+<BorlandProject>
+	<Transactions>
+    <Transaction>1899.12.30 00:00:00.000.732,C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Project2.dproj=C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Project2.dproj</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.438,=C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Unit2.pas</Transaction>
+    <Transaction>1899.12.30 00:00:00.000.699,=C:\Users\Andrey Savich\Documents\Embarcadero\Studio\Projects\Unit1.pas</Transaction>
+  </Transactions>
+	<ProjectSortOrder AutoSort="0" SortType="0">
+    <File Path="Unit1.pas"/>
+    <File Path="Unit1.dfm"/>
+    <File Path="Unit2.pas"/>
+    <File Path="Unit2.dfm"/>
+  </ProjectSortOrder>
+</BorlandProject>
diff --git a/experiments/22/Project2.identcache b/experiments/22/Project2.identcache
diff --git a/experiments/22/Project2.res b/experiments/22/Project2.res
diff --git a/experiments/22/ProjectGroup1_prjgroup.tvsconfig b/experiments/22/ProjectGroup1_prjgroup.tvsconfig
@@ -0,0 +1,2 @@
+<?xml version="1.0"?>
+<TgConfig Version="3" SubLevelDisabled="False" />
diff --git a/experiments/22/Unit1.dfm b/experiments/22/Unit1.dfm
@@ -0,0 +1,57 @@
+object Form1: TForm1
+  Left = 0
+  Top = 0
+  BorderIcons = [biMinimize, biMaximize]
+  BorderStyle = bsToolWindow
+  Caption = 'Test form App'
+  ClientHeight = 156
+  ClientWidth = 481
+  Color = 3487029
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 24
+    Top = 32
+    Width = 417
+    Height = 26
+    Caption = 'Welcome to delphi forms how may we help ya'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -20
+    Font.Name = 'Trebuchet MS'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Button1: TButton
+    Left = 24
+    Top = 72
+    Width = 177
+    Height = 49
+    BiDiMode = bdRightToLeft
+    Caption = 'Tell to fuck off'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentBiDiMode = False
+    ParentFont = False
+    TabOrder = 0
+    OnClick = Button1Click
+  end
+  object Button2: TButton
+    Left = 336
+    Top = 128
+    Width = 137
+    Height = 20
+    Caption = 'Calculate math for me'
+    TabOrder = 1
+    OnClick = Button2Click
+  end
+end
diff --git a/experiments/22/Unit1.pas b/experiments/22/Unit1.pas
@@ -0,0 +1,41 @@
+unit Unit1;
+
+interface
+
+uses
+  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
+  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Menus;
+
+type
+  TForm1 = class(TForm)
+    Label1: TLabel;
+    Button1: TButton;
+    Button2: TButton;
+    procedure Button1Click(Sender: TObject);
+    procedure Button2Click(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+  end;
+
+var
+  Form1: TForm1;
+
+implementation
+
+{$R *.dfm}
+
+uses Unit2;
+
+procedure TForm1.Button1Click(Sender: TObject);
+begin
+ Close();
+end;
+
+procedure TForm1.Button2Click(Sender: TObject);
+begin
+ Form2.Show;
+end;
+
+end.
diff --git a/experiments/22/Unit2.dfm b/experiments/22/Unit2.dfm
@@ -0,0 +1,229 @@
+object Form2: TForm2
+  Left = 0
+  Top = 0
+  Caption = 
+    #1057#1095#1080#1090#1072#1077#1084' '#1082#1086#1083#1080#1095#1077#1089#1090#1074#1086' '#1080#1076#1091#1097#1080#1093' '#1087#1086#1076#1088#1103#1076' '#1087#1086#1083#1086#1078#1080#1090#1077#1083#1100#1085#1099#1093'('#1086#1090#1088#1080#1094#1072#1090#1077#1083#1100#1085#1099#1093') '#1101#1083 +
+    #1077#1084#1077#1085#1090#1086#1074
+  ClientHeight = 471
+  ClientWidth = 695
+  Color = 3487029
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  PixelsPerInch = 96
+  TextHeight = 13
+  object Label1: TLabel
+    Left = 40
+    Top = 16
+    Width = 15
+    Height = 33
+    Caption = 'n'
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -27
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Label2: TLabel
+    Left = 40
+    Top = 125
+    Width = 58
+    Height = 13
+    Caption = #1042#1074#1086#1076' '#1063#1080#1089#1077#1083
+    Font.Charset = DEFAULT_CHARSET
+    Font.Color = clWhite
+    Font.Height = -11
+    Font.Name = 'Tahoma'
+    Font.Style = []
+    ParentFont = False
+  end
+  object Edit1: TEdit
+    Left = 40
+    Top = 55
+    Width = 33
+    Height = 21
+    TabOrder = 0
+    Text = 'Edit1'
+  end
+  object Edit2: TEdit
+    Left = 40
+    Top = 144
+    Width = 121
+    Height = 21
+    TabOrder = 1
+    Text = 'Edit2'
+  end
+  object Button1: TButton
+    Left = 612
+    Top = 8
+    Width = 75
+    Height = 25
+    Caption = #1057#1095#1080#1090#1072#1081
+    TabOrder = 2
+    OnClick = Button1Click
+  end
+  object Edit3: TEdit
+    Left = 566
+    Top = 39
+    Width = 121
+    Height = 21
+    TabOrder = 3
+    Text = 'Edit3'
+  end
+  object Edit4: TEdit
+    Left = 40
+    Top = 280
+    Width = 121
+    Height = 21
+    TabOrder = 4
+    Text = 'Edit4'
+  end
+  object Edit5: TEdit
+    Left = 40
+    Top = 307
+    Width = 121
+    Height = 21
+    TabOrder = 5
+    Text = 'Edit5'
+  end
+  object Edit6: TEdit
+    Left = 40
+    Top = 334
+    Width = 121
+    Height = 21
+    TabOrder = 6
+    Text = 'Edit6'
+  end
+  object Edit7: TEdit
+    Left = 40
+    Top = 361
+    Width = 121
+    Height = 21
+    TabOrder = 7
+    Text = 'Edit7'
+  end
+  object Edit8: TEdit
+    Left = 40
+    Top = 388
+    Width = 121
+    Height = 21
+    TabOrder = 8
+    Text = 'Edit8'
+  end
+  object Edit9: TEdit
+    Left = 40
+    Top = 415
+    Width = 121
+    Height = 21
+    TabOrder = 9
+    Text = 'Edit9'
+  end
+  object Edit10: TEdit
+    Left = 40
+    Top = 442
+    Width = 121
+    Height = 21
+    TabOrder = 10
+    Text = 'Edit10'
+  end
+  object Edit11: TEdit
+    Left = 40
+    Top = 171
+    Width = 121
+    Height = 21
+    TabOrder = 11
+    Text = 'Edit11'
+  end
+  object Edit12: TEdit
+    Left = 40
+    Top = 198
+    Width = 121
+    Height = 21
+    TabOrder = 12
+    Text = 'Edit12'
+  end
+  object Edit13: TEdit
+    Left = 40
+    Top = 225
+    Width = 121
+    Height = 21
+    TabOrder = 13
+    Text = 'Edit13'
+  end
+  object Edit14: TEdit
+    Left = 40
+    Top = 252
+    Width = 121
+    Height = 21
+    TabOrder = 14
+    Text = 'Edit14'
+  end
+  object Edit15: TEdit
+    Left = 167
+    Top = 144
+    Width = 121
+    Height = 21
+    TabOrder = 15
+    Text = 'Edit15'
+  end
+  object Edit16: TEdit
+    Left = 167
+    Top = 171
+    Width = 121
+    Height = 21
+    TabOrder = 16
+    Text = 'Edit16'
+  end
+  object Edit17: TEdit
+    Left = 167
+    Top = 198
+    Width = 121
+    Height = 21
+    TabOrder = 17
+    Text = 'Edit17'
+  end
+  object Edit18: TEdit
+    Left = 167
+    Top = 225
+    Width = 121
+    Height = 21
+    TabOrder = 18
+    Text = 'Edit18'
+  end
+  object Edit19: TEdit
+    Left = 167
+    Top = 252
+    Width = 121
+    Height = 21
+    TabOrder = 19
+    Text = 'Edit19'
+  end
+  object Edit20: TEdit
+    Left = 167
+    Top = 279
+    Width = 121
+    Height = 21
+    TabOrder = 20
+    Text = 'Edit20'
+  end
+  object Edit21: TEdit
+    Left = 167
+    Top = 306
+    Width = 121
+    Height = 21
+    TabOrder = 21
+    Text = 'Edit21'
+  end
+  object Edit22: TEdit
+    Left = 167
+    Top = 334
+    Width = 121
+    Height = 21
+    TabOrder = 22
+    Text = 'Edit22'
+  end
+end
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,2 @@
		<?xml version="1.0"?>
		<TgConfig Version="3" SubLevelDisabled="False" />