0.0.3
This commit is contained in:
Родитель
46561efddd
Коммит
7603172bac
Двоичный файл не отображается.
|
@ -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
|
|
@ -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
|
|
@ -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
|
|
@ -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
|
|
@ -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
|
|
@ -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
|
|
@ -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.
|
6
main.dfm
6
main.dfm
|
@ -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">
|
||||
|
|
Загрузка…
Ссылка в новой задаче