Permalink
Browse files

GUI is ready to be programmed

  • Loading branch information...
1 parent 20d3120 commit 8e15680646abb69149d1899473a5015c480d2d77 @BHYCHIK committed Oct 9, 2012
View
Binary file not shown.
View
Binary file not shown.
View
Binary file not shown.
View
Binary file not shown.
View
@@ -2,13 +2,15 @@ program MapEditor;
uses
Forms,
- form in 'form.pas' {Form1};
+ form in 'form.pas' {MainForm},
+ newfile in 'newfile.pas' {NewMapForm};
{$R *.res}
begin
Application.Initialize;
Application.MainFormOnTaskbar := True;
- Application.CreateForm(TForm1, Form1);
+ Application.CreateForm(TMainForm, MainForm);
+ Application.CreateForm(TNewMapForm, NewMapForm);
Application.Run;
end.
View
@@ -50,7 +50,10 @@
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="form.pas">
- <Form>Form1</Form>
+ <Form>MainForm</Form>
+ </DCCReference>
+ <DCCReference Include="newfile.pas">
+ <Form>NewMapForm</Form>
</DCCReference>
<BuildConfiguration Include="Release">
<Key>Cfg_2</Key>
View
@@ -1,9 +1,8 @@
<?xml version="1.0" encoding="utf-8"?>
<BorlandProject>
<Transactions>
- <Transaction>2012.10.08 16:47:37.869,=C:\Users\BHYCHIK\Documents\RAD Studio\Projects\Unit1.pas</Transaction>
- <Transaction>2012.10.08 16:49:13.427,C:\botva\mashgraph\form.dfm=C:\Users\BHYCHIK\Documents\RAD Studio\Projects\Unit1.dfm</Transaction>
- <Transaction>2012.10.08 16:49:13.427,C:\botva\mashgraph\form.pas=C:\Users\BHYCHIK\Documents\RAD Studio\Projects\Unit1.pas</Transaction>
- <Transaction>2012.10.08 16:49:42.739,C:\botva\mashgraph\MapEditor.dproj=C:\Users\BHYCHIK\Documents\RAD Studio\Projects\Project1.dproj</Transaction>
+ <Transaction>2012.10.09 12:15:21.956,=C:\botva\mashgraph\Unit1.pas</Transaction>
+ <Transaction>2012.10.09 12:29:40.262,C:\botva\mashgraph\newfile.dfm=C:\botva\mashgraph\Unit1.dfm</Transaction>
+ <Transaction>2012.10.09 12:29:40.262,C:\botva\mashgraph\newfile.pas=C:\botva\mashgraph\Unit1.pas</Transaction>
</Transactions>
</BorlandProject>
View
Binary file not shown.
@@ -0,0 +1,14 @@
+program MapEditor;
+
+uses
+ Forms,
+ form in 'form.pas' {Form1};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.CreateForm(TForm1, Form1);
+ Application.Run;
+end.
@@ -0,0 +1,14 @@
+program MapEditor;
+
+uses
+ Forms,
+ form in 'form.pas' {MainForm};
+
+{$R *.res}
+
+begin
+ Application.Initialize;
+ Application.MainFormOnTaskbar := True;
+ Application.CreateForm(TMainForm, MainForm);
+ Application.Run;
+end.
View
@@ -0,0 +1,16 @@
+object Form1: TForm1
+ Left = 0
+ Top = 0
+ Caption = 'Form1'
+ ClientHeight = 212
+ 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
View
@@ -0,0 +1,26 @@
+object MainForm: TMainForm
+ Left = 0
+ Top = 0
+ Caption = 'LandscapeEditor'
+ ClientHeight = 554
+ ClientWidth = 726
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poDesktopCenter
+ PixelsPerInch = 96
+ TextHeight = 13
+ object SettingsPanel: TGroupBox
+ Left = 0
+ Top = 0
+ Width = 153
+ Height = 554
+ Align = alLeft
+ Caption = #1059#1087#1088#1072#1074#1083#1077#1085#1080#1077
+ TabOrder = 0
+ end
+end
View
@@ -0,0 +1,36 @@
+object MainForm: TMainForm
+ Left = 0
+ Top = 0
+ Caption = 'LandscapeEditor'
+ ClientHeight = 554
+ ClientWidth = 726
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ OldCreateOrder = False
+ Position = poDesktopCenter
+ PixelsPerInch = 96
+ TextHeight = 13
+ object SettingsPanel: TGroupBox
+ Left = 0
+ Top = 0
+ Width = 153
+ Height = 554
+ Align = alLeft
+ Caption = #1059#1087#1088#1072#1074#1083#1077#1085#1080#1077
+ TabOrder = 0
+ object seRadius: TSpinEdit
+ Left = 3
+ Top = 40
+ Width = 121
+ Height = 22
+ MaxValue = 100
+ MinValue = 1
+ TabOrder = 0
+ Value = 10
+ end
+ end
+end
View
@@ -0,0 +1,77 @@
+object MainForm: TMainForm
+ Left = 0
+ Top = 0
+ Caption = 'LandscapeEditor'
+ ClientHeight = 554
+ ClientWidth = 726
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ Menu = MainMenu1
+ OldCreateOrder = False
+ Position = poDesktopCenter
+ PixelsPerInch = 96
+ TextHeight = 13
+ object SettingsPanel: TGroupBox
+ Left = 0
+ Top = 0
+ Width = 145
+ Height = 554
+ Align = alLeft
+ Caption = #1059#1087#1088#1072#1074#1083#1077#1085#1080#1077
+ TabOrder = 0
+ object lblRadius: TLabel
+ Left = 32
+ Top = 21
+ Width = 68
+ Height = 13
+ Caption = #1056#1072#1076#1080#1091#1089' '#1082#1080#1089#1090#1080
+ end
+ object lblPower: TLabel
+ Left = 32
+ Top = 69
+ Width = 57
+ Height = 13
+ Caption = #1057#1080#1083#1072' '#1082#1080#1089#1090#1080
+ end
+ object seRadius: TSpinEdit
+ Left = 11
+ Top = 40
+ Width = 121
+ Height = 22
+ MaxValue = 100
+ MinValue = 1
+ TabOrder = 0
+ Value = 10
+ end
+ object sePower: TSpinEdit
+ Left = 11
+ Top = 88
+ Width = 121
+ Height = 22
+ MaxValue = 255
+ MinValue = -255
+ TabOrder = 1
+ Value = 0
+ end
+ end
+ object MainMenu1: TMainMenu
+ Left = 672
+ Top = 320
+ object mmFile: TMenuItem
+ Caption = '&'#1060#1072#1081#1083
+ object mmSave: TMenuItem
+ Caption = '&'#1057#1086#1093#1088#1072#1085#1080#1090#1100
+ end
+ object mmOpen: TMenuItem
+ Caption = '&'#1054#1090#1082#1088#1099#1090#1100
+ end
+ object mmExit: TMenuItem
+ Caption = #1042'&'#1099#1093#1086#1076
+ end
+ end
+ end
+end
View
@@ -0,0 +1,100 @@
+object MainForm: TMainForm
+ Left = 0
+ Top = 0
+ Caption = 'LandscapeEditor'
+ ClientHeight = 554
+ ClientWidth = 726
+ Color = clBtnFace
+ Font.Charset = DEFAULT_CHARSET
+ Font.Color = clWindowText
+ Font.Height = -11
+ Font.Name = 'Tahoma'
+ Font.Style = []
+ Menu = MainMenu1
+ OldCreateOrder = False
+ Position = poDesktopCenter
+ PixelsPerInch = 96
+ TextHeight = 13
+ object SettingsPanel: TGroupBox
+ Left = 0
+ Top = 0
+ Width = 145
+ Height = 554
+ Align = alLeft
+ Caption = #1059#1087#1088#1072#1074#1083#1077#1085#1080#1077
+ TabOrder = 0
+ object lblRadius: TLabel
+ Left = 32
+ Top = 21
+ Width = 68
+ Height = 13
+ Caption = #1056#1072#1076#1080#1091#1089' '#1082#1080#1089#1090#1080
+ end
+ object lblPower: TLabel
+ Left = 32
+ Top = 69
+ Width = 57
+ Height = 13
+ Caption = #1057#1080#1083#1072' '#1082#1080#1089#1090#1080
+ end
+ object seRadius: TSpinEdit
+ Left = 11
+ Top = 40
+ Width = 121
+ Height = 22
+ MaxValue = 100
+ MinValue = 1
+ TabOrder = 0
+ Value = 10
+ end
+ object sePower: TSpinEdit
+ Left = 11
+ Top = 88
+ Width = 121
+ Height = 22
+ MaxValue = 255
+ MinValue = -255
+ TabOrder = 1
+ Value = 0
+ end
+ end
+ object ScrollBox1: TScrollBox
+ Left = 145
+ Top = 0
+ Width = 581
+ Height = 554
+ Align = alClient
+ TabOrder = 1
+ ExplicitLeft = 512
+ ExplicitTop = 264
+ ExplicitWidth = 185
+ ExplicitHeight = 41
+ object pbMap: TPaintBox
+ Left = 0
+ Top = 0
+ Width = 577
+ Height = 550
+ Align = alClient
+ ExplicitLeft = 528
+ ExplicitTop = 264
+ ExplicitWidth = 105
+ ExplicitHeight = 105
+ end
+ end
+ object MainMenu1: TMainMenu
+ Left = 672
+ Top = 320
+ object mmFile: TMenuItem
+ Caption = '&'#1060#1072#1081#1083
+ object mmSave: TMenuItem
+ Caption = '&'#1057#1086#1093#1088#1072#1085#1080#1090#1100
+ end
+ object mmOpen: TMenuItem
+ Caption = '&'#1054#1090#1082#1088#1099#1090#1100
+ end
+ object mmExit: TMenuItem
+ Caption = #1042'&'#1099#1093#1086#1076
+ end
+ end
+ end
+end
Oops, something went wrong.

0 comments on commit 8e15680

Please sign in to comment.