-
Notifications
You must be signed in to change notification settings - Fork 0
/
main.lfm
executable file
·144 lines (144 loc) · 3.74 KB
/
main.lfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
inherited MainForm: TMainForm
Left = 251
Height = 450
Top = 161
Width = 750
Caption = 'Task Organizer'
ClientHeight = 430
ClientWidth = 750
Constraints.MinHeight = 450
Constraints.MinWidth = 750
Menu = MainMenu
OnClose = FormClose
OnCloseQuery = FormCloseQuery
OnCreate = FormCreate
OnShow = FormShow
Position = poScreenCenter
object PageControl1: TPageControl[0]
Left = 0
Height = 430
Top = 0
Width = 750
ActivePage = TasksTabSheet
Align = alClient
TabIndex = 0
TabOrder = 0
object TasksTabSheet: TTabSheet
Caption = 'Tasks'
ClientHeight = 402
ClientWidth = 742
OnShow = TasksTabSheetShow
inline TasksFrame1: TTasksFrame
Height = 402
Width = 742
Align = alClient
ClientHeight = 402
ClientWidth = 742
end
end
object PeriodsTabSheet: TTabSheet
Caption = 'Periods'
ClientHeight = 402
ClientWidth = 742
inline PeriodsFrame1: TPeriodsFrame
Height = 402
Width = 742
Align = alClient
ClientHeight = 402
ClientWidth = 742
end
end
object ReportTabSheet: TTabSheet
Caption = 'Reports'
ClientHeight = 402
ClientWidth = 742
OnShow = ReportTabSheetShow
inline ReportFrame1: TReportFrame
Height = 402
Width = 742
Align = alClient
ClientHeight = 402
ClientWidth = 742
inherited SettingsPanel: TPanel
Width = 730
ClientWidth = 730
inherited TasksGroupBox: TGroupBox
Width = 402
ClientWidth = 398
inherited TaskListFilterEdit: TListFilterEdit
Width = 386
end
inherited TasksCheckListBox: TCheckListBox
Width = 386
end
inherited ButtonPanel: TPanel
Width = 386
ClientWidth = 386
end
end
end
inherited ReportTreeListView: TTreeListView
Height = 158
Width = 742
end
inherited ReportChart: TChart
Height = 158
Width = 742
end
end
end
object LogsTabSheet: TTabSheet
Caption = 'SQL log'
ClientHeight = 402
ClientWidth = 742
object LogsMemo: TMemo
Left = 0
Height = 402
Top = 0
Width = 742
Align = alClient
Font.CharSet = RUSSIAN_CHARSET
Font.Color = clBlack
Font.Height = -12
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqDraft
ParentFont = False
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0
WordWrap = False
end
end
end
object MainMenu: TMainMenu[1]
Left = 656
Top = 352
object ViewMenuItem: TMenuItem
Caption = 'View'
object ShowDoneTasksMenuItem: TMenuItem
Action = NonVisualCtrlsDataModule.ShowDoneTasksAction
end
object GoToTaskMenuItem: TMenuItem
Caption = 'Select last active task'
OnClick = GoToTaskMenuItemClick
object MenuItem1: TMenuItem
Caption = 'MenuItem1'
end
end
end
object ServiceMenuItem: TMenuItem
Caption = 'Service'
object ExportMenuItem: TMenuItem
Action = NonVisualCtrlsDataModule.ExportDatabaseAction
end
object BackupDBMenuItem: TMenuItem
Action = NonVisualCtrlsDataModule.BackupDatabaseAction
end
end
object LanguageMenuItem: TMenuItem
Caption = 'Language'
SubMenuImages = NonVisualCtrlsDataModule.LanguageIcons
end
end
end