source: branches/easy compiler/UFormMain.lfm

Last change on this file was 150, checked in by chronos, 7 years ago
  • Added: Load/Save example source code from/to file instead of hardcoded text in application source code.
File size: 2.8 KB
Line 
1object Form1: TForm1
2 Left = 326
3 Height = 572
4 Top = 267
5 Width = 909
6 Caption = 'Little compiler'
7 ClientHeight = 572
8 ClientWidth = 909
9 DesignTimePPI = 120
10 OnClose = FormClose
11 OnCreate = FormCreate
12 OnDestroy = FormDestroy
13 OnShow = FormShow
14 LCLVersion = '1.8.0.6'
15 object MemoSource: TMemo
16 Left = 9
17 Height = 488
18 Top = 32
19 Width = 416
20 Anchors = [akTop, akLeft, akBottom]
21 ScrollBars = ssAutoBoth
22 TabOrder = 0
23 end
24 object ButtonBuild: TButton
25 Left = 9
26 Height = 31
27 Top = 528
28 Width = 166
29 Anchors = [akLeft, akBottom]
30 Caption = 'Compile && Execute'
31 OnClick = ButtonBuildClick
32 TabOrder = 1
33 end
34 object Label1: TLabel
35 Left = 9
36 Height = 20
37 Top = 8
38 Width = 78
39 Caption = 'Text source:'
40 ParentColor = False
41 end
42 object PageControl1: TPageControl
43 Left = 432
44 Height = 552
45 Top = 8
46 Width = 470
47 ActivePage = TabSheetExecutor
48 Anchors = [akTop, akLeft, akRight, akBottom]
49 TabIndex = 0
50 TabOrder = 2
51 object TabSheetExecutor: TTabSheet
52 Caption = 'Executor'
53 ClientHeight = 519
54 ClientWidth = 462
55 object Label2: TLabel
56 Left = 8
57 Height = 20
58 Top = 8
59 Width = 108
60 Caption = 'Executor output:'
61 ParentColor = False
62 end
63 object MemoOutput: TMemo
64 Left = 8
65 Height = 416
66 Top = 32
67 Width = 448
68 Anchors = [akTop, akLeft, akRight, akBottom]
69 ReadOnly = True
70 ScrollBars = ssAutoBoth
71 TabOrder = 0
72 end
73 object Label3: TLabel
74 Left = 8
75 Height = 20
76 Top = 452
77 Width = 98
78 Anchors = [akLeft, akBottom]
79 Caption = 'Executor input:'
80 ParentColor = False
81 end
82 object Edit1: TEdit
83 Left = 8
84 Height = 28
85 Top = 480
86 Width = 336
87 Anchors = [akLeft, akRight, akBottom]
88 OnKeyPress = Edit1KeyPress
89 TabOrder = 1
90 end
91 object ButtonSend: TButton
92 Left = 360
93 Height = 31
94 Top = 477
95 Width = 94
96 Anchors = [akRight, akBottom]
97 Caption = 'Send'
98 OnClick = ButtonSendClick
99 TabOrder = 2
100 end
101 end
102 object TabSheetGenerator: TTabSheet
103 Caption = 'Generator'
104 ClientHeight = 519
105 ClientWidth = 462
106 object Label4: TLabel
107 Left = 8
108 Height = 20
109 Top = 8
110 Width = 117
111 Caption = 'Generator output:'
112 ParentColor = False
113 end
114 object MemoGenerator: TMemo
115 Left = 8
116 Height = 480
117 Top = 32
118 Width = 448
119 Anchors = [akTop, akLeft, akRight, akBottom]
120 ScrollBars = ssAutoBoth
121 TabOrder = 0
122 end
123 end
124 end
125end
Note: See TracBrowser for help on using the repository browser.