source: trunk/FormMain.lfm

Last change on this file was 3, checked in by chronos, 12 months ago
  • Modified: Removed U prefix from unit names.
  • Modified: Improved summary calculation.
  • Added: Parsing rent car initial odometer.
File size: 1.6 KB
Line 
1object FormMain: TFormMain
2 Left = 484
3 Height = 869
4 Top = 253
5 Width = 1128
6 Caption = 'Car rental summary'
7 ClientHeight = 869
8 ClientWidth = 1128
9 DesignTimePPI = 144
10 OnCreate = FormCreate
11 OnDestroy = FormDestroy
12 OnShow = FormShow
13 LCLVersion = '2.2.6.0'
14 WindowState = wsMaximized
15 object LabelSummary: TLabel
16 Left = 16
17 Height = 26
18 Top = 64
19 Width = 86
20 Caption = 'Summary:'
21 ParentColor = False
22 end
23 object LabelSource: TLabel
24 Left = 16
25 Height = 26
26 Top = 24
27 Width = 63
28 Caption = 'Source:'
29 ParentColor = False
30 end
31 object EditSource: TEdit
32 Left = 144
33 Height = 43
34 Top = 12
35 Width = 968
36 Anchors = [akTop, akLeft, akRight]
37 TabOrder = 0
38 Text = 'Source.txt'
39 end
40 object PageControlSummary: TPageControl
41 Left = 21
42 Height = 764
43 Top = 104
44 Width = 1099
45 ActivePage = TabSheet1
46 Anchors = [akTop, akLeft, akRight, akBottom]
47 TabIndex = 0
48 TabOrder = 1
49 object TabSheet1: TTabSheet
50 Caption = 'Summary'
51 ClientHeight = 724
52 ClientWidth = 1089
53 object MemoSummary: TMemo
54 Left = 8
55 Height = 708
56 Top = 8
57 Width = 1073
58 Align = alClient
59 BorderSpacing.Around = 8
60 ScrollBars = ssAutoBoth
61 TabOrder = 0
62 end
63 end
64 object TabSheetLog: TTabSheet
65 Caption = 'Log'
66 ClientHeight = 724
67 ClientWidth = 1089
68 object MemoLog: TMemo
69 Left = 8
70 Height = 708
71 Top = 8
72 Width = 1073
73 Align = alClient
74 BorderSpacing.Around = 8
75 ScrollBars = ssAutoBoth
76 TabOrder = 0
77 end
78 end
79 end
80end
Note: See TracBrowser for help on using the repository browser.