UnitCreatePrefix: Make the new prefix useable straight away.
[WineLauncher.git] / UnitMain.lfm
bloba57a75febd4d7013e19e2113bfc5e0d91e361405
1 object Form1: TForm1\r
2   Left = 0\r
3   Height = 951\r
4   Top = 25\r
5   Width = 1280\r
6   ActiveControl = PageControl1\r
7   Caption = 'WineLauncher'\r
8   ClientHeight = 951\r
9   ClientWidth = 1280\r
10   Constraints.MinHeight = 600\r
11   Constraints.MinWidth = 600\r
12   OnClose = FormClose\r
13   OnCreate = FormCreate\r
14   OnResize = FormResize\r
15   Position = poDefault\r
16   LCLVersion = '0.9.26.3'\r
17   WindowState = wsMaximized\r
18   object Label_WinePreFix: TLabel\r
19     AnchorSideTop.Control = Owner\r
20     Left = 241\r
21     Height = 16\r
22     Top = 5\r
23     Width = 79\r
24     BorderSpacing.Top = 5\r
25     Caption = 'Wine Prefix''s'\r
26     ParentColor = False\r
27   end\r
28   object Label_ProgramsList: TLabel\r
29     AnchorSideTop.Control = ComboBox_PreFix\r
30     AnchorSideTop.Side = asrBottom\r
31     Left = 241\r
32     Height = 16\r
33     Top = 53\r
34     Width = 95\r
35     BorderSpacing.Top = 3\r
36     Caption = 'Pick a Program'\r
37     ParentColor = False\r
38   end\r
39   object Label_ProgramPath: TLabel\r
40     AnchorSideTop.Control = ComboBox_ProgramsList\r
41     AnchorSideTop.Side = asrBottom\r
42     Left = 241\r
43     Height = 16\r
44     Top = 101\r
45     Width = 87\r
46     BorderSpacing.Top = 3\r
47     Caption = 'Program Path'\r
48     ParentColor = False\r
49   end\r
50   object Label_Flags: TLabel\r
51     AnchorSideTop.Control = EditBox_ProgramPath\r
52     AnchorSideTop.Side = asrBottom\r
53     Left = 241\r
54     Height = 16\r
55     Top = 145\r
56     Width = 127\r
57     BorderSpacing.Top = 5\r
58     Caption = 'Set Programs Flags:'\r
59     ParentColor = False\r
60   end\r
61   object Label_WineVersion: TLabel\r
62     Left = 9\r
63     Height = 16\r
64     Top = 8\r
65     Width = 80\r
66     Caption = 'Wine version'\r
67     ParentColor = False\r
68   end\r
69   object Btn_Run: TButton\r
70     AnchorSideTop.Control = Btn_Settings\r
71     AnchorSideTop.Side = asrBottom\r
72     Left = 7\r
73     Height = 25\r
74     Top = 328\r
75     Width = 75\r
76     BorderSpacing.Top = 3\r
77     Caption = 'Run'\r
78     OnClick = Btn_RunClick\r
79     TabOrder = 0\r
80   end\r
81   object Check_Terminal: TCheckBox\r
82     AnchorSideTop.Side = asrBottom\r
83     Left = 9\r
84     Height = 22\r
85     Top = 192\r
86     Width = 119\r
87     BorderSpacing.Top = 14\r
88     Caption = 'Run in Terminal'\r
89     TabOrder = 1\r
90   end\r
91   object Btn_DebugChannelsConfig: TButton\r
92     AnchorSideLeft.Control = Btn_Run\r
93     AnchorSideLeft.Side = asrCenter\r
94     AnchorSideRight.Control = Owner\r
95     Left = 44\r
96     Height = 22\r
97     Top = 519\r
98     Width = 1\r
99     Anchors = [akLeft]\r
100     Caption = 'Config'\r
101     OnClick = Btn_DebugChannelsConfigClick\r
102     TabOrder = 2\r
103     Visible = False\r
104   end\r
105   object CheckBox_DebugChannelUse: TCheckBox\r
106     Left = 868\r
107     Height = 22\r
108     Top = 351\r
109     Width = 147\r
110     Caption = 'Use Debug channel'\r
111     TabOrder = 3\r
112     TabStop = False\r
113     Visible = False\r
114   end\r
115   object Btn_About: TButton\r
116     AnchorSideRight.Control = Owner\r
117     AnchorSideRight.Side = asrBottom\r
118     Left = 1186\r
119     Height = 25\r
120     Top = 326\r
121     Width = 91\r
122     Anchors = [akTop, akRight]\r
123     BorderSpacing.Right = 3\r
124     Caption = 'About'\r
125     OnClick = Btn_AboutClick\r
126     TabOrder = 4\r
127   end\r
128   object ComboBox_SoundWrapper: TComboBox\r
129     AnchorSideLeft.Control = ComboBox_TerminalName\r
130     AnchorSideTop.Control = CheckBox_UseSoundWrapper\r
131     AnchorSideTop.Side = asrBottom\r
132     Left = 27\r
133     Height = 27\r
134     Top = 268\r
135     Width = 131\r
136     AutoComplete = False\r
137     Ctl3D = False\r
138     ItemHeight = 0\r
139     Items.Strings = (\r
140       '/usr/bin/aoss'\r
141     )\r
142     ItemWidth = 0\r
143     MaxLength = 65535\r
144     TabOrder = 5\r
145     Text = 'ComboBox_SoundWrapper'\r
146   end\r
147   object CheckBox_UseSoundWrapper: TCheckBox\r
148     AnchorSideTop.Control = ComboBox_TerminalName\r
149     AnchorSideTop.Side = asrBottom\r
150     Left = 9\r
151     Height = 22\r
152     Top = 246\r
153     Width = 149\r
154     BorderSpacing.Top = 3\r
155     Caption = 'Use Sound Wrapper'\r
156     TabOrder = 6\r
157   end\r
158   object Btn_Settings: TButton\r
159     AnchorSideLeft.Control = Owner\r
160     AnchorSideTop.Control = ComboBox_SoundWrapper\r
161     AnchorSideTop.Side = asrBottom\r
162     Left = 9\r
163     Height = 25\r
164     Top = 300\r
165     Width = 75\r
166     BorderSpacing.Left = 9\r
167     BorderSpacing.Top = 5\r
168     Caption = 'Settings'\r
169     OnClick = Btn_SettingsClick\r
170     TabOrder = 7\r
171   end\r
172   object ComboBox_TerminalName: TComboBox\r
173     AnchorSideLeft.Control = Check_Terminal\r
174     AnchorSideTop.Control = Check_Terminal\r
175     AnchorSideTop.Side = asrBottom\r
176     Left = 27\r
177     Height = 29\r
178     Top = 214\r
179     Width = 201\r
180     AutoComplete = False\r
181     BorderSpacing.Left = 18\r
182     Ctl3D = False\r
183     ItemHeight = 0\r
184     ItemIndex = 0\r
185     Items.Strings = (\r
186       '/usr/bin/gnome-terminal'\r
187       '/usr/bin/konsole'\r
188     )\r
189     ItemWidth = 0\r
190     MaxLength = 65535\r
191     Style = csDropDownList\r
192     TabOrder = 8\r
193     Text = '/usr/bin/gnome-terminal'\r
194   end\r
195   object ComboBox_PreFix: TComboBox\r
196     AnchorSideTop.Control = Label_WinePreFix\r
197     AnchorSideTop.Side = asrBottom\r
198     AnchorSideRight.Control = TogBtn_Listdrive\r
199     Left = 241\r
200     Height = 29\r
201     Top = 21\r
202     Width = 843\r
203     Anchors = [akTop, akLeft, akRight]\r
204     AutoComplete = False\r
205     Ctl3D = False\r
206     DropDownCount = 30\r
207     ItemHeight = 0\r
208     ItemWidth = 0\r
209     MaxLength = 65535\r
210     OnChange = ComboBox_PreFixChange\r
211     Style = csDropDownList\r
212     TabOrder = 9\r
213   end\r
214   object ComboBox_ProgramsList: TComboBox\r
215     AnchorSideTop.Control = Label_ProgramsList\r
216     AnchorSideTop.Side = asrBottom\r
217     AnchorSideRight.Control = Owner\r
218     AnchorSideRight.Side = asrBottom\r
219     Left = 241\r
220     Height = 29\r
221     Top = 69\r
222     Width = 1036\r
223     Anchors = [akTop, akLeft, akRight]\r
224     AutoComplete = False\r
225     BorderSpacing.Right = 3\r
226     Ctl3D = False\r
227     ItemHeight = 0\r
228     ItemWidth = 0\r
229     MaxLength = 65535\r
230     OnChange = ComboBox_ProgramsListChange\r
231     Style = csDropDownList\r
232     TabOrder = 10\r
233   end\r
234   object CheckListBox_Flags: TCheckListBox\r
235     AnchorSideLeft.Control = ComboBox_TerminalName\r
236     AnchorSideLeft.Side = asrBottom\r
237     AnchorSideTop.Control = Label_Flags\r
238     AnchorSideTop.Side = asrBottom\r
239     AnchorSideRight.Control = Button_Winecfg\r
240     Left = 241\r
241     Height = 147\r
242     Top = 161\r
243     Width = 958\r
244     Anchors = [akTop, akLeft, akRight]\r
245     BorderSpacing.Left = 13\r
246     ItemHeight = 0\r
247     TabOrder = 11\r
248     TopIndex = -1\r
249   end\r
250   object EditBox_ProgramPath: TEdit\r
251     AnchorSideTop.Control = Label_ProgramPath\r
252     AnchorSideTop.Side = asrBottom\r
253     AnchorSideRight.Control = Owner\r
254     AnchorSideRight.Side = asrBottom\r
255     Left = 241\r
256     Height = 23\r
257     Top = 117\r
258     Width = 1036\r
259     Anchors = [akTop, akLeft, akRight]\r
260     BorderSpacing.Right = 3\r
261     OnChange = EditBox_ProgramPathChange\r
262     ReadOnly = True\r
263     TabOrder = 12\r
264     Text = 'EditBox_ProgramPath'\r
265   end\r
266   object Button_Winecfg: TButton\r
267     AnchorSideLeft.Control = CheckListBox_Flags\r
268     AnchorSideLeft.Side = asrBottom\r
269     AnchorSideTop.Control = CheckListBox_Flags\r
270     AnchorSideRight.Control = Owner\r
271     AnchorSideRight.Side = asrBottom\r
272     Left = 1202\r
273     Height = 25\r
274     Top = 161\r
275     Width = 75\r
276     Anchors = [akTop, akRight]\r
277     BorderSpacing.Left = 3\r
278     BorderSpacing.Right = 3\r
279     Caption = 'Winecfg'\r
280     OnClick = Button_WinecfgClick\r
281     TabOrder = 13\r
282   end\r
283   object Button_Regedit: TButton\r
284     AnchorSideLeft.Control = Button_Winecfg\r
285     AnchorSideTop.Control = Button_Winecfg\r
286     AnchorSideTop.Side = asrBottom\r
287     Left = 1202\r
288     Height = 25\r
289     Top = 189\r
290     Width = 75\r
291     BorderSpacing.Top = 3\r
292     Caption = 'Regedit'\r
293     OnClick = Button_RegeditClick\r
294     TabOrder = 14\r
295   end\r
296   object TogBtn_Listdrive: TToggleBox\r
297     AnchorSideTop.Control = Label_WinePreFix\r
298     AnchorSideTop.Side = asrBottom\r
299     AnchorSideRight.Control = Owner\r
300     AnchorSideRight.Side = asrBottom\r
301     Left = 1087\r
302     Height = 23\r
303     Top = 21\r
304     Width = 190\r
305     Anchors = [akTop, akRight]\r
306     BorderSpacing.Left = 3\r
307     BorderSpacing.Right = 3\r
308     Caption = 'List programs on drive D'\r
309     OnChange = TogBtn_ListdriveChange\r
310     TabOrder = 15\r
311   end\r
312   object Btn_StopScan: TButton\r
313     Left = 464\r
314     Height = 41\r
315     Top = 312\r
316     Width = 120\r
317     Align = alCustom\r
318     Anchors = [akTop, akLeft, akBottom]\r
319     Caption = 'Stop Scan'\r
320     Font.Height = -18\r
321     Font.Name = 'Sans'\r
322     OnClick = Btn_StopScanClick\r
323     ParentFont = False\r
324     TabOrder = 16\r
325     Visible = False\r
326   end\r
327   object ComboBox_WineVersion: TComboBox\r
328     Left = 9\r
329     Height = 29\r
330     Top = 24\r
331     Width = 188\r
332     AutoComplete = False\r
333     Ctl3D = False\r
334     ItemHeight = 0\r
335     ItemWidth = 0\r
336     Style = csDropDownList\r
337     TabOrder = 17\r
338   end\r
339   object PageControl1: TPageControl\r
340     AnchorSideLeft.Control = Owner\r
341     AnchorSideTop.Control = Btn_Run\r
342     AnchorSideTop.Side = asrBottom\r
343     AnchorSideRight.Control = Owner\r
344     AnchorSideRight.Side = asrBottom\r
345     AnchorSideBottom.Control = Owner\r
346     AnchorSideBottom.Side = asrBottom\r
347     Left = 0\r
348     Height = 593\r
349     Top = 358\r
350     Width = 1280\r
351     ActivePage = Tab_Log\r
352     Anchors = [akTop, akLeft, akRight, akBottom]\r
353     BorderSpacing.Top = 5\r
354     TabIndex = 0\r
355     TabOrder = 18\r
356     object Tab_Log: TTabSheet\r
357       Caption = 'Log'\r
358       ClientHeight = 560\r
359       ClientWidth = 1274\r
360       object Memo_LogOutPut: TMemo\r
361         AnchorSideTop.Side = asrBottom\r
362         Left = 0\r
363         Height = 555\r
364         Top = 5\r
365         Width = 1274\r
366         Align = alClient\r
367         Anchors = []\r
368         BorderSpacing.Top = 5\r
369         TabOrder = 0\r
370       end\r
371     end\r
372   end\r
373 end\r