Structura/ProjectDialogUnit.lfm at main · DKFuH/Structura · GitHub

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
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
object ProjectDialogForm: TProjectDialogForm
  Left = 440
  Height = 520
  Top = 220
  Width = 640
  BorderStyle = bsDialog
  Caption = 'Neues Projekt'
  ClientHeight = 520
  ClientWidth = 640
  Position = poScreenCenter
  LCLVersion = '4.99.0.0'
  object MainPanel: TPanel
    Left = 0
    Height = 520
    Top = 0
    Width = 640
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object HeaderLabel: TLabel
      Left = 16
      Height = 32
      Top = 16
      Width = 600
      AutoSize = False
      Caption = 'Gib Titel und Unterordner-Namen an. Der Unterordner wird automatisch aus dem Titel abgeleitet.'
      Font.Color = clGrayText
      ParentColor = False
      ParentFont = False
      WordWrap = True
    end
    object TitleLabel: TLabel
      Left = 16
      Height = 15
      Top = 60
      Width = 63
      Caption = 'Projekttitel'
    end
    object TitleEdit: TEdit
      Left = 16
      Height = 23
      Top = 80
      Width = 600
      TabOrder = 0
      OnChange = TitleEditChange
    end
    object SubtitleLabel: TLabel
      Left = 16
      Height = 15
      Top = 116
      Width = 47
      Caption = 'Untertitel'
    end
    object SubtitleEdit: TEdit
      Left = 16
      Height = 23
      Top = 136
      Width = 600
      TabOrder = 1
    end
    object AuthorLabel: TLabel
      Left = 16
      Height = 15
      Top = 172
      Width = 30
      Caption = 'Autor'
    end
    object AuthorEdit: TEdit
      Left = 16
      Height = 23
      Top = 192
      Width = 600
      TabOrder = 2
    end
    object RootFolderHeaderLabel: TLabel
      Left = 16
      Height = 15
      Top = 228
      Width = 75
      Caption = 'Hauptordner'
    end
    object RootFolderLabel: TLabel
      Left = 16
      Height = 23
      Top = 248
      Width = 500
      AutoSize = False
      Caption = ''
      Font.Color = clGrayText
      ParentColor = False
      ParentFont = False
      Layout = tlCenter
    end
    object RootChangeBrowseButton: TButton
      Left = 526
      Height = 25
      Top = 248
      Width = 90
      Caption = 'Ändern...'
      OnClick = BrowseRootFolderClick
      TabOrder = 3
    end
    object SubfolderLabel: TLabel
      Left = 16
      Height = 15
      Top = 284
      Width = 90
      Caption = 'Unterordner-Name'
    end
    object SubfolderEdit: TEdit
      Left = 16
      Height = 23
      Top = 304
      Width = 600
      TabOrder = 4
      OnChange = SubfolderEditChange
    end
    object PathPreviewLabel: TLabel
      Left = 16
      Height = 18
      Top = 334
      Width = 600
      AutoSize = False
      Caption = ''
      Font.Color = clGrayText
      Font.Height = -11
      ParentColor = False
      ParentFont = False
      WordWrap = True
    end
    object CoverLabel: TLabel
      Left = 16
      Height = 15
      Top = 364
      Width = 106
      Caption = 'Coverbild (optional)'
    end
    object CoverEdit: TEdit
      Left = 16
      Height = 23
      Top = 384
      Width = 500
      TabOrder = 5
    end
    object CoverBrowseButton: TButton
      Left = 526
      Height = 25
      Top = 384
      Width = 90
      Caption = 'Bild...'
      OnClick = BrowseCoverClick
      TabOrder = 6
    end
    object ErrorLabel: TLabel
      Left = 16
      Height = 40
      Top = 424
      Width = 600
      AutoSize = False
      Font.Color = clMaroon
      ParentColor = False
      ParentFont = False
      WordWrap = True
    end
    object OkButton: TButton
      Left = 430
      Height = 25
      Top = 482
      Width = 90
      Caption = 'Anlegen'
      ModalResult = 1
      TabOrder = 7
    end
    object CancelButton: TButton
      Left = 530
      Height = 25
      Top = 482
      Width = 90
      Caption = 'Abbrechen'
      ModalResult = 2
      TabOrder = 8
    end
  end
end