Download as
Browse Code »

Commit 6e32949973f10c807ac62386a63021f5497cae0e

Authored by Carlos Picanco
1 parent 3f833e58
Exists in master

add hidden xml as a todo and fix question checkbox

Showing 2 changed files with 194 additions and 197 deletions   Show diff stats
experiment_designer/form_main.lfm
  Diff comments   View file @6e32949
1 object FormDesigner: TFormDesigner 1 object FormDesigner: TFormDesigner
2 - Left = 0  
3 - Height = 712  
4 - Top = 29  
5 - Width = 674  
6 - HorzScrollBar.Page = 346  
7 - VertScrollBar.Page = 693 2 + Left = 348
  3 + Height = 656
  4 + Top = 27
  5 + Width = 653
  6 + HorzScrollBar.Page = 315
  7 + VertScrollBar.Page = 636
8 AutoScroll = True 8 AutoScroll = True
9 Caption = 'Planejar Experimento' 9 Caption = 'Planejar Experimento'
10 - ClientHeight = 693  
11 - ClientWidth = 664 10 + ClientHeight = 636
  11 + ClientWidth = 636
12 Menu = MainMenu1 12 Menu = MainMenu1
13 OnActivate = FormActivate 13 OnActivate = FormActivate
14 OnCreate = FormCreate 14 OnCreate = FormCreate
@@ -18,9 +18,9 @@ object FormDesigner: TFormDesigner @@ -18,9 +18,9 @@ object FormDesigner: TFormDesigner
18 LCLVersion = '1.6.2.0' 18 LCLVersion = '1.6.2.0'
19 object PageControl: TPageControl 19 object PageControl: TPageControl
20 Left = 0 20 Left = 0
21 - Height = 744 21 + Height = 726
22 Top = 0 22 Top = 0
23 - Width = 664 23 + Width = 636
24 ActivePage = TabSheetExperiment 24 ActivePage = TabSheetExperiment
25 Align = alClient 25 Align = alClient
26 TabIndex = 0 26 TabIndex = 0
@@ -32,77 +32,76 @@ object FormDesigner: TFormDesigner @@ -32,77 +32,76 @@ object FormDesigner: TFormDesigner
32 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 32 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
33 ChildSizing.Layout = cclLeftToRightThenTopToBottom 33 ChildSizing.Layout = cclLeftToRightThenTopToBottom
34 ChildSizing.ControlsPerLine = 1 34 ChildSizing.ControlsPerLine = 1
35 - ClientHeight = 711  
36 - ClientWidth = 658 35 + ClientHeight = 698
  36 + ClientWidth = 628
37 object GBConditions: TGroupBox 37 object GBConditions: TGroupBox
38 Left = 0 38 Left = 0
39 - Height = 97 39 + Height = 100
40 Top = 10 40 Top = 10
41 - Width = 658 41 + Width = 628
42 Caption = 'Condições' 42 Caption = 'Condições'
43 ClientHeight = 80 43 ClientHeight = 80
44 - ClientWidth = 654 44 + ClientWidth = 624
45 TabOrder = 5 45 TabOrder = 5
46 object ListBoxConditions: TListBox 46 object ListBoxConditions: TListBox
47 Left = 0 47 Left = 0
48 Height = 80 48 Height = 80
49 Top = 0 49 Top = 0
50 - Width = 654 50 + Width = 624
51 Anchors = [akTop, akLeft, akRight] 51 Anchors = [akTop, akLeft, akRight]
52 ItemHeight = 0 52 ItemHeight = 0
53 ScrollWidth = 652 53 ScrollWidth = 652
54 TabOrder = 0 54 TabOrder = 0
55 - TopIndex = -1  
56 end 55 end
57 end 56 end
58 object LabelResearcherName: TLabel 57 object LabelResearcherName: TLabel
59 Left = 0 58 Left = 0
60 Height = 15 59 Height = 15
61 - Top = 112  
62 - Width = 658 60 + Top = 115
  61 + Width = 628
63 Caption = 'Nome do Pesquisador' 62 Caption = 'Nome do Pesquisador'
64 ParentColor = False 63 ParentColor = False
65 end 64 end
66 object EditResearcherName: TEdit 65 object EditResearcherName: TEdit
67 Left = 0 66 Left = 0
68 - Height = 25 67 + Height = 23
69 Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.' 68 Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.'
70 - Top = 132  
71 - Width = 658 69 + Top = 135
  70 + Width = 628
72 OnEditingDone = EditExperimentEditingDone 71 OnEditingDone = EditExperimentEditingDone
73 TabOrder = 0 72 TabOrder = 0
74 end 73 end
75 object LabelExperimentName: TLabel 74 object LabelExperimentName: TLabel
76 Left = 0 75 Left = 0
77 Height = 15 76 Height = 15
78 - Top = 162  
79 - Width = 658 77 + Top = 163
  78 + Width = 628
80 Caption = 'Nome do Experimento' 79 Caption = 'Nome do Experimento'
81 ParentColor = False 80 ParentColor = False
82 end 81 end
83 object EditExperimentName: TEdit 82 object EditExperimentName: TEdit
84 Left = 0 83 Left = 0
85 - Height = 25 84 + Height = 23
86 Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.' 85 Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.'
87 - Top = 182  
88 - Width = 658 86 + Top = 183
  87 + Width = 628
89 OnEditingDone = EditExperimentEditingDone 88 OnEditingDone = EditExperimentEditingDone
90 TabOrder = 1 89 TabOrder = 1
91 end 90 end
92 object GBExperimentAim: TGroupBox 91 object GBExperimentAim: TGroupBox
93 Left = 0 92 Left = 0
94 - Height = 159  
95 - Top = 212  
96 - Width = 658 93 + Height = 162
  94 + Top = 211
  95 + Width = 628
97 Caption = 'Objetivo do Experimento' 96 Caption = 'Objetivo do Experimento'
98 ClientHeight = 142 97 ClientHeight = 142
99 - ClientWidth = 654 98 + ClientWidth = 624
100 TabOrder = 2 99 TabOrder = 2
101 object MemoExperimentAim: TMemo 100 object MemoExperimentAim: TMemo
102 Left = 0 101 Left = 0
103 Height = 142 102 Height = 142
104 Top = 0 103 Top = 0
105 - Width = 654 104 + Width = 624
106 Align = alCustom 105 Align = alCustom
107 Anchors = [akTop, akLeft, akRight] 106 Anchors = [akTop, akLeft, akRight]
108 OnEditingDone = EditExperimentEditingDone 107 OnEditingDone = EditExperimentEditingDone
@@ -111,10 +110,10 @@ object FormDesigner: TFormDesigner @@ -111,10 +110,10 @@ object FormDesigner: TFormDesigner
111 end 110 end
112 object CGGlobal: TCheckGroup 111 object CGGlobal: TCheckGroup
113 Left = 0 112 Left = 0
114 - Height = 113 113 + Height = 108
115 Hint = 'Aplicáveis ao longo de todo o experimento' 114 Hint = 'Aplicáveis ao longo de todo o experimento'
116 - Top = 376  
117 - Width = 658 115 + Top = 378
  116 + Width = 628
118 AutoFill = True 117 AutoFill = True
119 Caption = 'Configurações globais' 118 Caption = 'Configurações globais'
120 ChildSizing.LeftRightSpacing = 6 119 ChildSizing.LeftRightSpacing = 6
@@ -125,8 +124,8 @@ object FormDesigner: TFormDesigner @@ -125,8 +124,8 @@ object FormDesigner: TFormDesigner
125 ChildSizing.ShrinkVertical = crsScaleChilds 124 ChildSizing.ShrinkVertical = crsScaleChilds
126 ChildSizing.Layout = cclLeftToRightThenTopToBottom 125 ChildSizing.Layout = cclLeftToRightThenTopToBottom
127 ChildSizing.ControlsPerLine = 1 126 ChildSizing.ControlsPerLine = 1
128 - ClientHeight = 96  
129 - ClientWidth = 654 127 + ClientHeight = 88
  128 + ClientWidth = 624
130 Items.Strings = ( 129 Items.Strings = (
131 'Enviar histórico do bate-papo a novos participantes' 130 'Enviar histórico do bate-papo a novos participantes'
132 'Gerar participantes automaticamente' 131 'Gerar participantes automaticamente'
@@ -141,9 +140,9 @@ object FormDesigner: TFormDesigner @@ -141,9 +140,9 @@ object FormDesigner: TFormDesigner
141 end 140 end
142 object RGPoints: TRadioGroup 141 object RGPoints: TRadioGroup
143 Left = 0 142 Left = 0
144 - Height = 59  
145 - Top = 494  
146 - Width = 658 143 + Height = 58
  144 + Top = 491
  145 + Width = 628
147 AutoFill = True 146 AutoFill = True
148 Caption = 'Tipo de pontuação Individual' 147 Caption = 'Tipo de pontuação Individual'
149 ChildSizing.LeftRightSpacing = 6 148 ChildSizing.LeftRightSpacing = 6
@@ -153,8 +152,8 @@ object FormDesigner: TFormDesigner @@ -153,8 +152,8 @@ object FormDesigner: TFormDesigner
153 ChildSizing.ShrinkVertical = crsScaleChilds 152 ChildSizing.ShrinkVertical = crsScaleChilds
154 ChildSizing.Layout = cclLeftToRightThenTopToBottom 153 ChildSizing.Layout = cclLeftToRightThenTopToBottom
155 ChildSizing.ControlsPerLine = 1 154 ChildSizing.ControlsPerLine = 1
156 - ClientHeight = 42  
157 - ClientWidth = 654 155 + ClientHeight = 38
  156 + ClientWidth = 624
158 ItemIndex = 0 157 ItemIndex = 0
159 Items.Strings = ( 158 Items.Strings = (
160 'A e B' 159 'A e B'
@@ -165,21 +164,21 @@ object FormDesigner: TFormDesigner @@ -165,21 +164,21 @@ object FormDesigner: TFormDesigner
165 end 164 end
166 object GBMatrix: TGroupBox 165 object GBMatrix: TGroupBox
167 Left = 0 166 Left = 0
168 - Height = 143  
169 - Top = 558  
170 - Width = 658 167 + Height = 134
  168 + Top = 554
  169 + Width = 628
171 Caption = 'Tipo da Matrix' 170 Caption = 'Tipo da Matrix'
172 ChildSizing.LeftRightSpacing = 5 171 ChildSizing.LeftRightSpacing = 5
173 ChildSizing.Layout = cclLeftToRightThenTopToBottom 172 ChildSizing.Layout = cclLeftToRightThenTopToBottom
174 ChildSizing.ControlsPerLine = 1 173 ChildSizing.ControlsPerLine = 1
175 - ClientHeight = 126  
176 - ClientWidth = 654 174 + ClientHeight = 114
  175 + ClientWidth = 624
177 TabOrder = 6 176 TabOrder = 6
178 object ChkColors: TCheckBox 177 object ChkColors: TCheckBox
179 Left = 5 178 Left = 5
180 - Height = 21 179 + Height = 19
181 Top = 0 180 Top = 0
182 - Width = 239 181 + Width = 215
183 Caption = '5 cores' 182 Caption = '5 cores'
184 Checked = True 183 Checked = True
185 Enabled = False 184 Enabled = False
@@ -189,9 +188,9 @@ object FormDesigner: TFormDesigner @@ -189,9 +188,9 @@ object FormDesigner: TFormDesigner
189 end 188 end
190 object ChkRows: TCheckBox 189 object ChkRows: TCheckBox
191 Left = 5 190 Left = 5
192 - Height = 21  
193 - Top = 21  
194 - Width = 239 191 + Height = 19
  192 + Top = 19
  193 + Width = 215
195 Caption = '10 linhas' 194 Caption = '10 linhas'
196 Checked = True 195 Checked = True
197 Enabled = False 196 Enabled = False
@@ -201,18 +200,18 @@ object FormDesigner: TFormDesigner @@ -201,18 +200,18 @@ object FormDesigner: TFormDesigner
201 end 200 end
202 object ChkCols: TCheckBox 201 object ChkCols: TCheckBox
203 Left = 5 202 Left = 5
204 - Height = 21  
205 - Top = 42  
206 - Width = 239 203 + Height = 19
  204 + Top = 38
  205 + Width = 215
207 Caption = '10 colunas' 206 Caption = '10 colunas'
208 OnClick = ChkMatrixTypeClick 207 OnClick = ChkMatrixTypeClick
209 TabOrder = 2 208 TabOrder = 2
210 end 209 end
211 object ChkDots: TCheckBox 210 object ChkDots: TCheckBox
212 Left = 5 211 Left = 5
213 - Height = 21  
214 - Top = 63  
215 - Width = 239 212 + Height = 19
  213 + Top = 57
  214 + Width = 215
216 Caption = 'Com Círculos Preechidos' 215 Caption = 'Com Círculos Preechidos'
217 OnChange = ChkDotsChange 216 OnChange = ChkDotsChange
218 OnClick = ChkMatrixTypeClick 217 OnClick = ChkMatrixTypeClick
@@ -220,9 +219,9 @@ object FormDesigner: TFormDesigner @@ -220,9 +219,9 @@ object FormDesigner: TFormDesigner
220 end 219 end
221 object ChkCleanDots: TCheckBox 220 object ChkCleanDots: TCheckBox
222 Left = 5 221 Left = 5
223 - Height = 21  
224 - Top = 84  
225 - Width = 239 222 + Height = 19
  223 + Top = 76
  224 + Width = 215
226 Caption = 'Com Círculos Vazados' 225 Caption = 'Com Círculos Vazados'
227 OnChange = ChkCleanDotsChange 226 OnChange = ChkCleanDotsChange
228 OnClick = ChkMatrixTypeClick 227 OnClick = ChkMatrixTypeClick
@@ -230,9 +229,9 @@ object FormDesigner: TFormDesigner @@ -230,9 +229,9 @@ object FormDesigner: TFormDesigner
230 end 229 end
231 object ChkDotsCleanDots: TCheckBox 230 object ChkDotsCleanDots: TCheckBox
232 Left = 5 231 Left = 5
233 - Height = 21  
234 - Top = 105  
235 - Width = 239 232 + Height = 19
  233 + Top = 95
  234 + Width = 215
236 Caption = 'Com Círculos Vazados e Preenchidos' 235 Caption = 'Com Círculos Vazados e Preenchidos'
237 OnChange = ChkDotsCleanDotsChange 236 OnChange = ChkDotsCleanDotsChange
238 OnClick = ChkMatrixTypeClick 237 OnClick = ChkMatrixTypeClick
@@ -247,14 +246,14 @@ object FormDesigner: TFormDesigner @@ -247,14 +246,14 @@ object FormDesigner: TFormDesigner
247 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 246 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
248 ChildSizing.Layout = cclLeftToRightThenTopToBottom 247 ChildSizing.Layout = cclLeftToRightThenTopToBottom
249 ChildSizing.ControlsPerLine = 1 248 ChildSizing.ControlsPerLine = 1
250 - ClientHeight = 711  
251 - ClientWidth = 658 249 + ClientHeight = 751
  250 + ClientWidth = 649
252 object ComboCurrentCondition: TComboBox 251 object ComboCurrentCondition: TComboBox
253 Left = 0 252 Left = 0
254 - Height = 27 253 + Height = 23
255 Top = 10 254 Top = 10
256 - Width = 658  
257 - ItemHeight = 0 255 + Width = 649
  256 + ItemHeight = 15
258 OnChange = ComboCurrentConditionChange 257 OnChange = ComboCurrentConditionChange
259 Style = csDropDownList 258 Style = csDropDownList
260 TabOrder = 0 259 TabOrder = 0
@@ -262,40 +261,40 @@ object FormDesigner: TFormDesigner @@ -262,40 +261,40 @@ object FormDesigner: TFormDesigner
262 object PanelConditionButtons: TPanel 261 object PanelConditionButtons: TPanel
263 Left = 0 262 Left = 0
264 Height = 26 263 Height = 26
265 - Top = 42  
266 - Width = 658 264 + Top = 38
  265 + Width = 649
267 ChildSizing.LeftRightSpacing = 25 266 ChildSizing.LeftRightSpacing = 25
268 ChildSizing.HorizontalSpacing = 50 267 ChildSizing.HorizontalSpacing = 50
269 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 268 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
270 ChildSizing.Layout = cclLeftToRightThenTopToBottom 269 ChildSizing.Layout = cclLeftToRightThenTopToBottom
271 ChildSizing.ControlsPerLine = 3 270 ChildSizing.ControlsPerLine = 3
272 ClientHeight = 26 271 ClientHeight = 26
273 - ClientWidth = 658 272 + ClientWidth = 649
274 TabOrder = 1 273 TabOrder = 1
275 object BtnAppendCond: TButton 274 object BtnAppendCond: TButton
276 Left = 25 275 Left = 25
277 Height = 25 276 Height = 25
278 Hint = 'Selecione contingências na lista abaixo se deseja inclui-las na condição a ser adicionada.' 277 Hint = 'Selecione contingências na lista abaixo se deseja inclui-las na condição a ser adicionada.'
279 Top = 0 278 Top = 0
280 - Width = 168 279 + Width = 167
281 Caption = 'Adicionar' 280 Caption = 'Adicionar'
282 OnClick = BtnAppendCondClick 281 OnClick = BtnAppendCondClick
283 TabOrder = 0 282 TabOrder = 0
284 end 283 end
285 object BtnRemoveCond: TButton 284 object BtnRemoveCond: TButton
286 - Left = 243 285 + Left = 242
287 Height = 25 286 Height = 25
288 Top = 0 287 Top = 0
289 - Width = 165 288 + Width = 163
290 Caption = 'Remover' 289 Caption = 'Remover'
291 OnClick = BtnRemoveCondClick 290 OnClick = BtnRemoveCondClick
292 TabOrder = 1 291 TabOrder = 1
293 end 292 end
294 object BtnReorderCond: TButton 293 object BtnReorderCond: TButton
295 - Left = 458 294 + Left = 455
296 Height = 25 295 Height = 25
297 Top = 0 296 Top = 0
298 - Width = 175 297 + Width = 169
299 Caption = 'Reordenar' 298 Caption = 'Reordenar'
300 OnClick = BtnReorderCondClick 299 OnClick = BtnReorderCondClick
301 TabOrder = 2 300 TabOrder = 2
@@ -304,57 +303,56 @@ object FormDesigner: TFormDesigner @@ -304,57 +303,56 @@ object FormDesigner: TFormDesigner
304 end 303 end
305 object GBContingencies: TGroupBox 304 object GBContingencies: TGroupBox
306 Left = 0 305 Left = 0
307 - Height = 97  
308 - Top = 73  
309 - Width = 658 306 + Height = 100
  307 + Top = 69
  308 + Width = 649
310 Caption = 'Contingências e Metacontingências da Condição Selecionada' 309 Caption = 'Contingências e Metacontingências da Condição Selecionada'
311 ClientHeight = 80 310 ClientHeight = 80
312 - ClientWidth = 654 311 + ClientWidth = 645
313 TabOrder = 8 312 TabOrder = 8
314 object ListBoxContingencies: TListBox 313 object ListBoxContingencies: TListBox
315 Left = 0 314 Left = 0
316 Height = 80 315 Height = 80
317 Hint = 'CTRL+Clique para selecionar múltiplas contingências.' 316 Hint = 'CTRL+Clique para selecionar múltiplas contingências.'
318 Top = 0 317 Top = 0
319 - Width = 654 318 + Width = 645
320 Anchors = [akTop, akLeft, akRight] 319 Anchors = [akTop, akLeft, akRight]
321 ItemHeight = 0 320 ItemHeight = 0
322 MultiSelect = True 321 MultiSelect = True
323 ScrollWidth = 652 322 ScrollWidth = 652
324 TabOrder = 0 323 TabOrder = 0
325 - TopIndex = -1  
326 end 324 end
327 end 325 end
328 object LabelConditionName: TLabel 326 object LabelConditionName: TLabel
329 Left = 0 327 Left = 0
330 Height = 15 328 Height = 15
331 Hint = 'Nome da condição no relatório.' 329 Hint = 'Nome da condição no relatório.'
332 - Top = 175  
333 - Width = 658 330 + Top = 174
  331 + Width = 649
334 Caption = 'Nome da Condição' 332 Caption = 'Nome da Condição'
335 ParentColor = False 333 ParentColor = False
336 end 334 end
337 object EditConditionName: TEdit 335 object EditConditionName: TEdit
338 Left = 0 336 Left = 0
339 - Height = 25  
340 - Top = 195  
341 - Width = 658 337 + Height = 23
  338 + Top = 194
  339 + Width = 649
342 OnEditingDone = EditConditionNameEditingDone 340 OnEditingDone = EditConditionNameEditingDone
343 TabOrder = 2 341 TabOrder = 2
344 end 342 end
345 object LabelTurnValue: TLabel 343 object LabelTurnValue: TLabel
346 Left = 0 344 Left = 0
347 Height = 15 345 Height = 15
348 - Top = 225  
349 - Width = 658 346 + Top = 222
  347 + Width = 649
350 Caption = 'Número de Jogadores / Turnos' 348 Caption = 'Número de Jogadores / Turnos'
351 ParentColor = False 349 ParentColor = False
352 end 350 end
353 object SpinEditTurnValue: TSpinEdit 351 object SpinEditTurnValue: TSpinEdit
354 Left = 0 352 Left = 0
355 - Height = 25  
356 - Top = 245  
357 - Width = 658 353 + Height = 23
  354 + Top = 242
  355 + Width = 649
358 MaxValue = 5 356 MaxValue = 5
359 MinValue = 2 357 MinValue = 2
360 OnEditingDone = SpinEditTurnValueEditingDone 358 OnEditingDone = SpinEditTurnValueEditingDone
@@ -363,70 +361,70 @@ object FormDesigner: TFormDesigner @@ -363,70 +361,70 @@ object FormDesigner: TFormDesigner
363 end 361 end
364 object GroupBox1: TGroupBox 362 object GroupBox1: TGroupBox
365 Left = 0 363 Left = 0
366 - Height = 57  
367 - Top = 275  
368 - Width = 658 364 + Height = 58
  365 + Top = 270
  366 + Width = 649
369 Caption = 'Somar pontos ao iniciar condição' 367 Caption = 'Somar pontos ao iniciar condição'
370 ChildSizing.LeftRightSpacing = 50 368 ChildSizing.LeftRightSpacing = 50
371 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 369 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
372 ChildSizing.Layout = cclTopToBottomThenLeftToRight 370 ChildSizing.Layout = cclTopToBottomThenLeftToRight
373 ChildSizing.ControlsPerLine = 2 371 ChildSizing.ControlsPerLine = 2
374 - ClientHeight = 40  
375 - ClientWidth = 654 372 + ClientHeight = 38
  373 + ClientWidth = 645
376 TabOrder = 9 374 TabOrder = 9
377 object LabelPA: TLabel 375 object LabelPA: TLabel
378 Left = 50 376 Left = 50
379 Height = 15 377 Height = 15
380 Top = 0 378 Top = 0
381 - Width = 137 379 + Width = 136
382 Caption = 'A' 380 Caption = 'A'
383 ParentColor = False 381 ParentColor = False
384 end 382 end
385 object SpinEditOnConditionBeginA: TSpinEdit 383 object SpinEditOnConditionBeginA: TSpinEdit
386 Left = 50 384 Left = 50
387 - Height = 25 385 + Height = 23
388 Top = 15 386 Top = 15
389 - Width = 137 387 + Width = 136
390 MaxValue = 0 388 MaxValue = 0
391 OnEditingDone = SpinEditOnConditionBeginAEditingDone 389 OnEditingDone = SpinEditOnConditionBeginAEditingDone
392 TabOrder = 0 390 TabOrder = 0
393 end 391 end
394 object LabelPB: TLabel 392 object LabelPB: TLabel
395 - Left = 187 393 + Left = 186
396 Height = 15 394 Height = 15
397 Top = 0 395 Top = 0
398 - Width = 137 396 + Width = 136
399 Caption = 'B' 397 Caption = 'B'
400 ParentColor = False 398 ParentColor = False
401 end 399 end
402 object SpinEditOnConditionBeginB: TSpinEdit 400 object SpinEditOnConditionBeginB: TSpinEdit
403 - Left = 187  
404 - Height = 25 401 + Left = 186
  402 + Height = 23
405 Top = 15 403 Top = 15
406 - Width = 137 404 + Width = 136
407 MaxValue = 0 405 MaxValue = 0
408 OnEditingDone = SpinEditOnConditionBeginAEditingDone 406 OnEditingDone = SpinEditOnConditionBeginAEditingDone
409 TabOrder = 1 407 TabOrder = 1
410 end 408 end
411 object LabelPI: TLabel 409 object LabelPI: TLabel
412 - Left = 324 410 + Left = 322
413 Height = 15 411 Height = 15
414 Top = 0 412 Top = 0
415 - Width = 145 413 + Width = 138
416 Caption = 'Individual' 414 Caption = 'Individual'
417 ParentColor = False 415 ParentColor = False
418 end 416 end
419 object SpinEditOnConditionBeginI: TSpinEdit 417 object SpinEditOnConditionBeginI: TSpinEdit
420 - Left = 324  
421 - Height = 25 418 + Left = 322
  419 + Height = 23
422 Top = 15 420 Top = 15
423 - Width = 145 421 + Width = 138
424 MaxValue = 0 422 MaxValue = 0
425 OnEditingDone = SpinEditOnConditionBeginAEditingDone 423 OnEditingDone = SpinEditOnConditionBeginAEditingDone
426 TabOrder = 2 424 TabOrder = 2
427 end 425 end
428 object LabelPG: TLabel 426 object LabelPG: TLabel
429 - Left = 469 427 + Left = 460
430 Height = 15 428 Height = 15
431 Top = 0 429 Top = 0
432 Width = 135 430 Width = 135
@@ -434,8 +432,8 @@ object FormDesigner: TFormDesigner @@ -434,8 +432,8 @@ object FormDesigner: TFormDesigner
434 ParentColor = False 432 ParentColor = False
435 end 433 end
436 object SpinEditOnConditionBeginG: TSpinEdit 434 object SpinEditOnConditionBeginG: TSpinEdit
437 - Left = 469  
438 - Height = 25 435 + Left = 460
  436 + Height = 23
439 Top = 15 437 Top = 15
440 Width = 135 438 Width = 135
441 MaxValue = 0 439 MaxValue = 0
@@ -446,16 +444,16 @@ object FormDesigner: TFormDesigner @@ -446,16 +444,16 @@ object FormDesigner: TFormDesigner
446 object LabelCyclesValue: TLabel 444 object LabelCyclesValue: TLabel
447 Left = 0 445 Left = 0
448 Height = 15 446 Height = 15
449 - Top = 337  
450 - Width = 658 447 + Top = 333
  448 + Width = 649
451 Caption = 'Ciclos para mudança de geração / linhagem' 449 Caption = 'Ciclos para mudança de geração / linhagem'
452 ParentColor = False 450 ParentColor = False
453 end 451 end
454 object SpinEditCyclesValue: TSpinEdit 452 object SpinEditCyclesValue: TSpinEdit
455 Left = 0 453 Left = 0
456 - Height = 25  
457 - Top = 357  
458 - Width = 658 454 + Height = 23
  455 + Top = 353
  456 + Width = 649
459 MaxValue = 1000 457 MaxValue = 1000
460 MinValue = 1 458 MinValue = 1
461 OnEditingDone = SpinEditCyclesValueEditingDone 459 OnEditingDone = SpinEditCyclesValueEditingDone
@@ -464,23 +462,23 @@ object FormDesigner: TFormDesigner @@ -464,23 +462,23 @@ object FormDesigner: TFormDesigner
464 end 462 end
465 object GBQuestion: TGroupBox 463 object GBQuestion: TGroupBox
466 Left = 0 464 Left = 0
467 - Height = 164  
468 - Top = 387  
469 - Width = 658 465 + Height = 162
  466 + Top = 381
  467 + Width = 649
470 Caption = 'Apresentar pergunta ao final do ciclo' 468 Caption = 'Apresentar pergunta ao final do ciclo'
471 ChildSizing.LeftRightSpacing = 50 469 ChildSizing.LeftRightSpacing = 50
472 ChildSizing.VerticalSpacing = 5 470 ChildSizing.VerticalSpacing = 5
473 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 471 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
474 ChildSizing.Layout = cclLeftToRightThenTopToBottom 472 ChildSizing.Layout = cclLeftToRightThenTopToBottom
475 ChildSizing.ControlsPerLine = 1 473 ChildSizing.ControlsPerLine = 1
476 - ClientHeight = 147  
477 - ClientWidth = 654 474 + ClientHeight = 142
  475 + ClientWidth = 645
478 TabOrder = 5 476 TabOrder = 5
479 object CheckBoxShouldAskQuestion: TCheckBox 477 object CheckBoxShouldAskQuestion: TCheckBox
480 Left = 50 478 Left = 50
481 - Height = 21 479 + Height = 19
482 Top = 0 480 Top = 0
483 - Width = 554 481 + Width = 545
484 Caption = 'Não' 482 Caption = 'Não'
485 OnChange = CheckBoxShouldAskQuestionChange 483 OnChange = CheckBoxShouldAskQuestionChange
486 TabOrder = 0 484 TabOrder = 0
@@ -488,16 +486,17 @@ object FormDesigner: TFormDesigner @@ -488,16 +486,17 @@ object FormDesigner: TFormDesigner
488 object LabelQuestion: TLabel 486 object LabelQuestion: TLabel
489 Left = 50 487 Left = 50
490 Height = 15 488 Height = 15
491 - Top = 26  
492 - Width = 554 489 + Top = 24
  490 + Width = 545
493 Caption = 'Texto da Pergunta' 491 Caption = 'Texto da Pergunta'
494 ParentColor = False 492 ParentColor = False
  493 + Visible = False
495 end 494 end
496 object EditQuestion: TEdit 495 object EditQuestion: TEdit
497 Left = 50 496 Left = 50
498 - Height = 25  
499 - Top = 46  
500 - Width = 554 497 + Height = 23
  498 + Top = 44
  499 + Width = 545
501 OnEditingDone = EditQuestionEditingDone 500 OnEditingDone = EditQuestionEditingDone
502 TabOrder = 1 501 TabOrder = 1
503 Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?' 502 Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?'
@@ -505,9 +504,9 @@ object FormDesigner: TFormDesigner @@ -505,9 +504,9 @@ object FormDesigner: TFormDesigner
505 end 504 end
506 object CGQuestion: TCheckGroup 505 object CGQuestion: TCheckGroup
507 Left = 50 506 Left = 50
508 - Height = 71  
509 - Top = 76  
510 - Width = 554 507 + Height = 70
  508 + Top = 72
  509 + Width = 545
511 AutoFill = True 510 AutoFill = True
512 Caption = 'O que deve acontecer quando todos responderem sim?' 511 Caption = 'O que deve acontecer quando todos responderem sim?'
513 ChildSizing.LeftRightSpacing = 6 512 ChildSizing.LeftRightSpacing = 6
@@ -518,8 +517,8 @@ object FormDesigner: TFormDesigner @@ -518,8 +517,8 @@ object FormDesigner: TFormDesigner
518 ChildSizing.ShrinkVertical = crsScaleChilds 517 ChildSizing.ShrinkVertical = crsScaleChilds
519 ChildSizing.Layout = cclLeftToRightThenTopToBottom 518 ChildSizing.Layout = cclLeftToRightThenTopToBottom
520 ChildSizing.ControlsPerLine = 1 519 ChildSizing.ControlsPerLine = 1
521 - ClientHeight = 54  
522 - ClientWidth = 550 520 + ClientHeight = 50
  521 + ClientWidth = 541
523 Items.Strings = ( 522 Items.Strings = (
524 'Reverter consequências das metacontingências e contingências' 523 'Reverter consequências das metacontingências e contingências'
525 'Inverter pontos A e B quando pontos B forem consequências' 524 'Inverter pontos A e B quando pontos B forem consequências'
@@ -534,9 +533,9 @@ object FormDesigner: TFormDesigner @@ -534,9 +533,9 @@ object FormDesigner: TFormDesigner
534 end 533 end
535 object RGEndCriteriaStyle: TRadioGroup 534 object RGEndCriteriaStyle: TRadioGroup
536 Left = 0 535 Left = 0
537 - Height = 80  
538 - Top = 556  
539 - Width = 658 536 + Height = 77
  537 + Top = 548
  538 + Width = 649
540 AutoFill = True 539 AutoFill = True
541 Caption = 'Estilo do critério de finalização da condição' 540 Caption = 'Estilo do critério de finalização da condição'
542 ChildSizing.LeftRightSpacing = 6 541 ChildSizing.LeftRightSpacing = 6
@@ -546,8 +545,8 @@ object FormDesigner: TFormDesigner @@ -546,8 +545,8 @@ object FormDesigner: TFormDesigner
546 ChildSizing.ShrinkVertical = crsScaleChilds 545 ChildSizing.ShrinkVertical = crsScaleChilds
547 ChildSizing.Layout = cclLeftToRightThenTopToBottom 546 ChildSizing.Layout = cclLeftToRightThenTopToBottom
548 ChildSizing.ControlsPerLine = 1 547 ChildSizing.ControlsPerLine = 1
549 - ClientHeight = 63  
550 - ClientWidth = 654 548 + ClientHeight = 57
  549 + ClientWidth = 645
551 ItemIndex = 2 550 ItemIndex = 2
552 Items.Strings = ( 551 Items.Strings = (
553 'Finalizar após um número de ciclos' 552 'Finalizar após um número de ciclos'
@@ -559,31 +558,31 @@ object FormDesigner: TFormDesigner @@ -559,31 +558,31 @@ object FormDesigner: TFormDesigner
559 end 558 end
560 object GBEndCriteria: TGroupBox 559 object GBEndCriteria: TGroupBox
561 Left = 0 560 Left = 0
562 - Height = 109  
563 - Top = 641  
564 - Width = 658 561 + Height = 111
  562 + Top = 630
  563 + Width = 649
565 Caption = 'Valores do critério de finalização da condição' 564 Caption = 'Valores do critério de finalização da condição'
566 ChildSizing.LeftRightSpacing = 50 565 ChildSizing.LeftRightSpacing = 50
567 ChildSizing.VerticalSpacing = 5 566 ChildSizing.VerticalSpacing = 5
568 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 567 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
569 ChildSizing.Layout = cclLeftToRightThenTopToBottom 568 ChildSizing.Layout = cclLeftToRightThenTopToBottom
570 ChildSizing.ControlsPerLine = 1 569 ChildSizing.ControlsPerLine = 1
571 - ClientHeight = 92  
572 - ClientWidth = 654 570 + ClientHeight = 91
  571 + ClientWidth = 645
573 TabOrder = 7 572 TabOrder = 7
574 object LabelEndCriteriaAbsCycles: TLabel 573 object LabelEndCriteriaAbsCycles: TLabel
575 Left = 50 574 Left = 50
576 Height = 15 575 Height = 15
577 Top = 0 576 Top = 0
578 - Width = 554 577 + Width = 545
579 Caption = 'Número de ciclos' 578 Caption = 'Número de ciclos'
580 ParentColor = False 579 ParentColor = False
581 end 580 end
582 object SpinEditEndCriteriaAbsCycles: TSpinEdit 581 object SpinEditEndCriteriaAbsCycles: TSpinEdit
583 Left = 50 582 Left = 50
584 - Height = 25 583 + Height = 23
585 Top = 20 584 Top = 20
586 - Width = 554 585 + Width = 545
587 MaxValue = 1000 586 MaxValue = 1000
588 OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone 587 OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone
589 TabOrder = 0 588 TabOrder = 0
@@ -591,19 +590,19 @@ object FormDesigner: TFormDesigner @@ -591,19 +590,19 @@ object FormDesigner: TFormDesigner
591 end 590 end
592 object GBEndCriteriaLastCycles: TGroupBox 591 object GBEndCriteriaLastCycles: TGroupBox
593 Left = 50 592 Left = 50
594 - Height = 42  
595 - Top = 50  
596 - Width = 554 593 + Height = 43
  594 + Top = 48
  595 + Width = 545
597 Caption = 'Porcentagem de entrelaçamentos' 596 Caption = 'Porcentagem de entrelaçamentos'
598 ChildSizing.HorizontalSpacing = 5 597 ChildSizing.HorizontalSpacing = 5
599 ChildSizing.Layout = cclLeftToRightThenTopToBottom 598 ChildSizing.Layout = cclLeftToRightThenTopToBottom
600 ChildSizing.ControlsPerLine = 4 599 ChildSizing.ControlsPerLine = 4
601 - ClientHeight = 25  
602 - ClientWidth = 550 600 + ClientHeight = 23
  601 + ClientWidth = 541
603 TabOrder = 1 602 TabOrder = 1
604 object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit 603 object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit
605 Left = 0 604 Left = 0
606 - Height = 25 605 + Height = 23
607 Top = 0 606 Top = 0
608 Width = 50 607 Width = 50
609 OnEditingDone = SpinEditEndCriteriaInterlockingEditingDone 608 OnEditingDone = SpinEditEndCriteriaInterlockingEditingDone
@@ -612,17 +611,17 @@ object FormDesigner: TFormDesigner @@ -612,17 +611,17 @@ object FormDesigner: TFormDesigner
612 end 611 end
613 object LabelEndCriteriaInt: TLabel 612 object LabelEndCriteriaInt: TLabel
614 Left = 55 613 Left = 55
615 - Height = 25 614 + Height = 23
616 Top = 0 615 Top = 0
617 - Width = 206 616 + Width = 185
618 Alignment = taCenter 617 Alignment = taCenter
619 Caption = '% de entrelaçamentos nos últimos ' 618 Caption = '% de entrelaçamentos nos últimos '
620 Layout = tlCenter 619 Layout = tlCenter
621 ParentColor = False 620 ParentColor = False
622 end 621 end
623 object SpinEditEndCriteriaLastCycles: TSpinEdit 622 object SpinEditEndCriteriaLastCycles: TSpinEdit
624 - Left = 266  
625 - Height = 25 623 + Left = 245
  624 + Height = 23
626 Top = 0 625 Top = 0
627 Width = 50 626 Width = 50
628 MaxValue = 1000 627 MaxValue = 1000
@@ -632,10 +631,10 @@ object FormDesigner: TFormDesigner @@ -632,10 +631,10 @@ object FormDesigner: TFormDesigner
632 Value = 10 631 Value = 10
633 end 632 end
634 object LabelEndCriteriaLastCycles: TLabel 633 object LabelEndCriteriaLastCycles: TLabel
635 - Left = 321  
636 - Height = 25 634 + Left = 300
  635 + Height = 23
637 Top = 0 636 Top = 0
638 - Width = 35 637 + Width = 33
639 Alignment = taCenter 638 Alignment = taCenter
640 Caption = 'ciclos.' 639 Caption = 'ciclos.'
641 Layout = tlCenter 640 Layout = tlCenter
@@ -668,7 +667,7 @@ object FormDesigner: TFormDesigner @@ -668,7 +667,7 @@ object FormDesigner: TFormDesigner
668 ChildSizing.ShrinkVertical = crsScaleChilds 667 ChildSizing.ShrinkVertical = crsScaleChilds
669 ChildSizing.Layout = cclLeftToRightThenTopToBottom 668 ChildSizing.Layout = cclLeftToRightThenTopToBottom
670 ChildSizing.ControlsPerLine = 1 669 ChildSizing.ControlsPerLine = 1
671 - ClientHeight = 42 670 + ClientHeight = 39
672 ClientWidth = 654 671 ClientWidth = 654
673 Items.Strings = ( 672 Items.Strings = (
674 'Contingências Operantes' 673 'Contingências Operantes'
@@ -679,10 +678,10 @@ object FormDesigner: TFormDesigner @@ -679,10 +678,10 @@ object FormDesigner: TFormDesigner
679 end 678 end
680 object ComboCurrentContingency: TComboBox 679 object ComboCurrentContingency: TComboBox
681 Left = 0 680 Left = 0
682 - Height = 27 681 + Height = 23
683 Top = 74 682 Top = 74
684 Width = 658 683 Width = 658
685 - ItemHeight = 0 684 + ItemHeight = 15
686 OnChange = ComboCurrentContingencyChange 685 OnChange = ComboCurrentContingencyChange
687 Style = csDropDownList 686 Style = csDropDownList
688 TabOrder = 0 687 TabOrder = 0
@@ -759,7 +758,7 @@ object FormDesigner: TFormDesigner @@ -759,7 +758,7 @@ object FormDesigner: TFormDesigner
759 ChildSizing.ShrinkVertical = crsScaleChilds 758 ChildSizing.ShrinkVertical = crsScaleChilds
760 ChildSizing.Layout = cclLeftToRightThenTopToBottom 759 ChildSizing.Layout = cclLeftToRightThenTopToBottom
761 ChildSizing.ControlsPerLine = 1 760 ChildSizing.ControlsPerLine = 1
762 - ClientHeight = 105 761 + ClientHeight = 102
763 ClientWidth = 654 762 ClientWidth = 654
764 ItemIndex = 0 763 ItemIndex = 0
765 Items.Strings = ( 764 Items.Strings = (
@@ -838,7 +837,7 @@ object FormDesigner: TFormDesigner @@ -838,7 +837,7 @@ object FormDesigner: TFormDesigner
838 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 837 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
839 ChildSizing.Layout = cclLeftToRightThenTopToBottom 838 ChildSizing.Layout = cclLeftToRightThenTopToBottom
840 ChildSizing.ControlsPerLine = 2 839 ChildSizing.ControlsPerLine = 2
841 - ClientHeight = 347 840 + ClientHeight = 344
842 ClientWidth = 654 841 ClientWidth = 654
843 TabOrder = 6 842 TabOrder = 6
844 Visible = False 843 Visible = False
@@ -869,10 +868,10 @@ object FormDesigner: TFormDesigner @@ -869,10 +868,10 @@ object FormDesigner: TFormDesigner
869 end 868 end
870 object CBPointsType: TComboBox 869 object CBPointsType: TComboBox
871 Left = 420 870 Left = 420
872 - Height = 27 871 + Height = 23
873 Top = 15 872 Top = 15
874 Width = 234 873 Width = 234
875 - ItemHeight = 0 874 + ItemHeight = 15
876 OnChange = ConsequenceStyleChange 875 OnChange = ConsequenceStyleChange
877 Style = csDropDownList 876 Style = csDropDownList
878 TabOrder = 1 877 TabOrder = 1
@@ -891,7 +890,7 @@ object FormDesigner: TFormDesigner @@ -891,7 +890,7 @@ object FormDesigner: TFormDesigner
891 ChildSizing.ShrinkVertical = crsScaleChilds 890 ChildSizing.ShrinkVertical = crsScaleChilds
892 ChildSizing.Layout = cclLeftToRightThenTopToBottom 891 ChildSizing.Layout = cclLeftToRightThenTopToBottom
893 ChildSizing.ControlsPerLine = 1 892 ChildSizing.ControlsPerLine = 1
894 - ClientHeight = 63 893 + ClientHeight = 60
895 ClientWidth = 416 894 ClientWidth = 416
896 ItemIndex = 0 895 ItemIndex = 0
897 Items.Strings = ( 896 Items.Strings = (
experiment_designer/form_main.pas
  Diff comments   View file @6e32949
@@ -11,8 +11,6 @@ unit form_main; @@ -11,8 +11,6 @@ unit form_main;
11 11
12 {$mode objfpc}{$H+} 12 {$mode objfpc}{$H+}
13 13
14 -{$DEFINE DEBUG}  
15 -  
16 interface 14 interface
17 15
18 uses 16 uses
@@ -176,9 +174,6 @@ type @@ -176,9 +174,6 @@ type
176 procedure SpinEditOnConditionBeginAEditingDone(Sender: TObject); 174 procedure SpinEditOnConditionBeginAEditingDone(Sender: TObject);
177 procedure SpinEditTurnValueEditingDone(Sender: TObject); 175 procedure SpinEditTurnValueEditingDone(Sender: TObject);
178 procedure XMLPropStorageRestoreProperties(Sender: TObject); 176 procedure XMLPropStorageRestoreProperties(Sender: TObject);
179 - {$IFDEF WINDOWS}  
180 - procedure XMLPropStorageSaveProperties(Sender: TObject);  
181 - {$ENDIF}  
182 procedure XMLPropStorageSavingProperties(Sender: TObject); 177 procedure XMLPropStorageSavingProperties(Sender: TObject);
183 procedure XMLPropStorageStoredValuesFileNameRestore(Sender: TStoredValue; 178 procedure XMLPropStorageStoredValuesFileNameRestore(Sender: TStoredValue;
184 var Value: TStoredType); 179 var Value: TStoredType);
@@ -227,9 +222,9 @@ var @@ -227,9 +222,9 @@ var
227 implementation 222 implementation
228 223
229 uses game_resources, game_actors, game_actors_point, string_methods, strutils 224 uses game_resources, game_actors, game_actors_point, string_methods, strutils
230 - {$IFDEF WINDOWS}  
231 - , Dos  
232 - {$ENDIF} 225 + //{$IFDEF WINDOWS}
  226 + //, Dos
  227 + //{$ENDIF}
233 ; 228 ;
234 229
235 const SV_FILENAME : string = 'Filename'; 230 const SV_FILENAME : string = 'Filename';
@@ -609,20 +604,6 @@ begin @@ -609,20 +604,6 @@ begin
609 TabSheetContingencies.Enabled := ComboCurrentCondition.Items.Count > 0; 604 TabSheetContingencies.Enabled := ComboCurrentCondition.Items.Count > 0;
610 end; 605 end;
611 606
612 -{$IFDEF WINDOWS}  
613 -procedure TFormDesigner.XMLPropStorageSaveProperties(Sender: TObject);  
614 -var  
615 - F : TextFile;  
616 -begin  
617 - if FileExists(XMLPropStorage.FileName) then  
618 - begin  
619 - AssignFile(F, XMLPropStorage.FileName);  
620 - SetFAttr(F,Hidden);  
621 - CloseFile(F);  
622 - end;  
623 -end;  
624 -{$ENDIF}  
625 -  
626 procedure TFormDesigner.XMLPropStorageSavingProperties(Sender: TObject); 607 procedure TFormDesigner.XMLPropStorageSavingProperties(Sender: TObject);
627 procedure SavePropStorageFilename; 608 procedure SavePropStorageFilename;
628 var 609 var
@@ -1373,10 +1354,6 @@ var @@ -1373,10 +1354,6 @@ var
1373 end 1354 end
1374 end; 1355 end;
1375 begin 1356 begin
1376 - {$IFDEF WINDOWS}  
1377 - XMLPropStorage.OnSaveProperties := @XMLPropStorageSaveProperties;  
1378 - {$ENDIF}  
1379 -  
1380 // TRadioGroup OnClick events are triggered programmatically by LCL code, not by us 1357 // TRadioGroup OnClick events are triggered programmatically by LCL code, not by us
1381 // FLoading is a temporary workaround to avoid 1358 // FLoading is a temporary workaround to avoid
1382 // calls for SaveProcedures while loading FExperiment 1359 // calls for SaveProcedures while loading FExperiment
@@ -1408,7 +1385,11 @@ var @@ -1408,7 +1385,11 @@ var
1408 LS: String; 1385 LS: String;
1409 begin 1386 begin
1410 if TCheckBox(Sender).Checked then 1387 if TCheckBox(Sender).Checked then
1411 - TCheckBox(Sender).Caption := 'Sim' 1388 + begin
  1389 + TCheckBox(Sender).Caption := 'Sim';
  1390 + CGQuestion.Checked[0] := True;
  1391 + CGQuestion.Checked[1] := True;
  1392 + end
1412 else 1393 else
1413 begin 1394 begin
1414 TCheckBox(Sender).Caption := 'Não'; 1395 TCheckBox(Sender).Caption := 'Não';
@@ -1420,6 +1401,8 @@ begin @@ -1420,6 +1401,8 @@ begin
1420 WriteString(LS, KEY_PROMPT_MESSAGE, ''); 1401 WriteString(LS, KEY_PROMPT_MESSAGE, '');
1421 WriteString(LS, KEY_PROMPT_STYLE, ''); 1402 WriteString(LS, KEY_PROMPT_STYLE, '');
1422 end; 1403 end;
  1404 + CGQuestion.Checked[0] := False;
  1405 + CGQuestion.Checked[1] := False;
1423 end; 1406 end;
1424 LabelQuestion.Visible:= CheckBoxShouldAskQuestion.Checked; 1407 LabelQuestion.Visible:= CheckBoxShouldAskQuestion.Checked;
1425 EditQuestion.Visible := CheckBoxShouldAskQuestion.Checked; 1408 EditQuestion.Visible := CheckBoxShouldAskQuestion.Checked;
@@ -2004,4 +1987,19 @@ begin @@ -2004,4 +1987,19 @@ begin
2004 1987
2005 end; 1988 end;
2006 1989
  1990 +// TODO: hidden persistence.xml on windows
  1991 +//var
  1992 +// F : TextFile;
  1993 +//
  1994 +//finalization
  1995 +//begin
  1996 +// if FileExists(FormDesigner.XMLPropStorage.FileName) then
  1997 +// begin
  1998 +// AssignFile(F, FormDesigner.XMLPropStorage.FileName);
  1999 +// Reset(F);
  2000 +// SetFAttr(F,Hidden);
  2001 +// CloseFile(F);
  2002 +// end;
  2003 +//end;
  2004 +
2007 end. 2005 end.