This commit is contained in:
softland 2018-10-19 00:32:20 +03:00
Родитель 46561efddd
Коммит 7603172bac
12 изменённых файлов: 235 добавлений и 6 удалений

Двоичные данные
Win32/Debug/main.dcu Normal file

Двоичный файл не отображается.

16
__history/main.dfm.~1~ Normal file
Просмотреть файл

@ -0,0 +1,16 @@
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 281
ClientWidth = 418
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
end

25
__history/main.dfm.~2~ Normal file
Просмотреть файл

@ -0,0 +1,25 @@
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 281
ClientWidth = 418
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object ComboBox1: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
TabOrder = 0
Text = 'cbSelector'
end
end

34
__history/main.dfm.~3~ Normal file
Просмотреть файл

@ -0,0 +1,34 @@
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 360
ClientWidth = 645
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object typeSelect: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
TabOrder = 0
Text = 'typeSelect'
end
object StringGrid1: TStringGrid
Left = 8
Top = 40
Width = 629
Height = 312
ColCount = 11
RowCount = 11
TabOrder = 1
end
end

35
__history/main.dfm.~4~ Normal file
Просмотреть файл

@ -0,0 +1,35 @@
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 360
ClientWidth = 645
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object typeSelect: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
TabOrder = 0
Text = 'typeSelect'
OnChange = typeSelectChange
end
object StringGrid1: TStringGrid
Left = 8
Top = 40
Width = 629
Height = 312
ColCount = 11
RowCount = 11
TabOrder = 1
end
end

35
__history/main.dfm.~5~ Normal file
Просмотреть файл

@ -0,0 +1,35 @@
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Form1'
ClientHeight = 360
ClientWidth = 645
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object typeSelect: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
TabOrder = 0
Text = 'typeSelect'
OnChange = typeSelectChange
end
object grid: TStringGrid
Left = 8
Top = 40
Width = 629
Height = 312
ColCount = 11
RowCount = 11
TabOrder = 1
end
end

35
__history/main.dfm.~6~ Normal file
Просмотреть файл

@ -0,0 +1,35 @@
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'frmMain'
ClientHeight = 360
ClientWidth = 645
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object typeSelect: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
TabOrder = 0
Text = 'typeSelect'
OnChange = typeSelectChange
end
object grid: TStringGrid
Left = 8
Top = 40
Width = 629
Height = 312
ColCount = 11
RowCount = 11
TabOrder = 1
end
end

35
__history/main.dfm.~7~ Normal file
Просмотреть файл

@ -0,0 +1,35 @@
object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'frmMain'
ClientHeight = 360
ClientWidth = 645
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object typeSelect: TComboBox
Left = 8
Top = 8
Width = 145
Height = 21
TabOrder = 0
Text = 'typeSelect'
OnChange = typeSelectChange
end
object grid: TStringGrid
Left = 8
Top = 40
Width = 629
Height = 312
ColCount = 11
RowCount = 2
TabOrder = 1
end
end

Просмотреть файл

@ -0,0 +1,14 @@
program metaclass;
uses
Vcl.Forms,
main in 'main.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

Просмотреть файл

@ -2,7 +2,7 @@ object frmMain: TfrmMain
Left = 0
Top = 0
Caption = 'frmMain'
ClientHeight = 360
ClientHeight = 144
ClientWidth = 645
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
@ -27,9 +27,9 @@ object frmMain: TfrmMain
Left = 8
Top = 40
Width = 629
Height = 312
Height = 97
ColCount = 11
RowCount = 11
RowCount = 2
TabOrder = 1
end
end

Просмотреть файл

@ -2,13 +2,13 @@ program metaclass;
uses
Vcl.Forms,
main in 'main.pas' {Form1};
main in 'main.pas' {frmMain};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TfrmMain, frmMain);
Application.Run;
end.

Просмотреть файл

@ -92,7 +92,7 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="main.pas">
<Form>Form1</Form>
<Form>frmMain</Form>
<FormType>dfm</FormType>
</DCCReference>
<BuildConfiguration Include="Release">