diff --git a/experiment_designer/form_main.lfm b/experiment_designer/form_main.lfm index edd9590..5c46a71 100644 --- a/experiment_designer/form_main.lfm +++ b/experiment_designer/form_main.lfm @@ -1,14 +1,14 @@ object FormDesigner: TFormDesigner - Left = 0 - Height = 712 - Top = 29 - Width = 674 - HorzScrollBar.Page = 346 - VertScrollBar.Page = 693 + Left = 348 + Height = 656 + Top = 27 + Width = 653 + HorzScrollBar.Page = 315 + VertScrollBar.Page = 636 AutoScroll = True Caption = 'Planejar Experimento' - ClientHeight = 693 - ClientWidth = 664 + ClientHeight = 636 + ClientWidth = 636 Menu = MainMenu1 OnActivate = FormActivate OnCreate = FormCreate @@ -18,9 +18,9 @@ object FormDesigner: TFormDesigner LCLVersion = '1.6.2.0' object PageControl: TPageControl Left = 0 - Height = 744 + Height = 726 Top = 0 - Width = 664 + Width = 636 ActivePage = TabSheetExperiment Align = alClient TabIndex = 0 @@ -32,77 +32,76 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 711 - ClientWidth = 658 + ClientHeight = 698 + ClientWidth = 628 object GBConditions: TGroupBox Left = 0 - Height = 97 + Height = 100 Top = 10 - Width = 658 + Width = 628 Caption = 'Condições' ClientHeight = 80 - ClientWidth = 654 + ClientWidth = 624 TabOrder = 5 object ListBoxConditions: TListBox Left = 0 Height = 80 Top = 0 - Width = 654 + Width = 624 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 ScrollWidth = 652 TabOrder = 0 - TopIndex = -1 end end object LabelResearcherName: TLabel Left = 0 Height = 15 - Top = 112 - Width = 658 + Top = 115 + Width = 628 Caption = 'Nome do Pesquisador' ParentColor = False end object EditResearcherName: TEdit Left = 0 - Height = 25 + Height = 23 Hint = 'Uma pasta será criada com o seu nome. Os seus experimentos serão salvos dentro dela.' - Top = 132 - Width = 658 + Top = 135 + Width = 628 OnEditingDone = EditExperimentEditingDone TabOrder = 0 end object LabelExperimentName: TLabel Left = 0 Height = 15 - Top = 162 - Width = 658 + Top = 163 + Width = 628 Caption = 'Nome do Experimento' ParentColor = False end object EditExperimentName: TEdit Left = 0 - Height = 25 + Height = 23 Hint = 'Uma pasta será criada com o nome do experimento. Os dados desse experimento serão salvos dentro dela.' - Top = 182 - Width = 658 + Top = 183 + Width = 628 OnEditingDone = EditExperimentEditingDone TabOrder = 1 end object GBExperimentAim: TGroupBox Left = 0 - Height = 159 - Top = 212 - Width = 658 + Height = 162 + Top = 211 + Width = 628 Caption = 'Objetivo do Experimento' ClientHeight = 142 - ClientWidth = 654 + ClientWidth = 624 TabOrder = 2 object MemoExperimentAim: TMemo Left = 0 Height = 142 Top = 0 - Width = 654 + Width = 624 Align = alCustom Anchors = [akTop, akLeft, akRight] OnEditingDone = EditExperimentEditingDone @@ -111,10 +110,10 @@ object FormDesigner: TFormDesigner end object CGGlobal: TCheckGroup Left = 0 - Height = 113 + Height = 108 Hint = 'Aplicáveis ao longo de todo o experimento' - Top = 376 - Width = 658 + Top = 378 + Width = 628 AutoFill = True Caption = 'Configurações globais' ChildSizing.LeftRightSpacing = 6 @@ -125,8 +124,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 96 - ClientWidth = 654 + ClientHeight = 88 + ClientWidth = 624 Items.Strings = ( 'Enviar histórico do bate-papo a novos participantes' 'Gerar participantes automaticamente' @@ -141,9 +140,9 @@ object FormDesigner: TFormDesigner end object RGPoints: TRadioGroup Left = 0 - Height = 59 - Top = 494 - Width = 658 + Height = 58 + Top = 491 + Width = 628 AutoFill = True Caption = 'Tipo de pontuação Individual' ChildSizing.LeftRightSpacing = 6 @@ -153,8 +152,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 42 - ClientWidth = 654 + ClientHeight = 38 + ClientWidth = 624 ItemIndex = 0 Items.Strings = ( 'A e B' @@ -165,21 +164,21 @@ object FormDesigner: TFormDesigner end object GBMatrix: TGroupBox Left = 0 - Height = 143 - Top = 558 - Width = 658 + Height = 134 + Top = 554 + Width = 628 Caption = 'Tipo da Matrix' ChildSizing.LeftRightSpacing = 5 ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 126 - ClientWidth = 654 + ClientHeight = 114 + ClientWidth = 624 TabOrder = 6 object ChkColors: TCheckBox Left = 5 - Height = 21 + Height = 19 Top = 0 - Width = 239 + Width = 215 Caption = '5 cores' Checked = True Enabled = False @@ -189,9 +188,9 @@ object FormDesigner: TFormDesigner end object ChkRows: TCheckBox Left = 5 - Height = 21 - Top = 21 - Width = 239 + Height = 19 + Top = 19 + Width = 215 Caption = '10 linhas' Checked = True Enabled = False @@ -201,18 +200,18 @@ object FormDesigner: TFormDesigner end object ChkCols: TCheckBox Left = 5 - Height = 21 - Top = 42 - Width = 239 + Height = 19 + Top = 38 + Width = 215 Caption = '10 colunas' OnClick = ChkMatrixTypeClick TabOrder = 2 end object ChkDots: TCheckBox Left = 5 - Height = 21 - Top = 63 - Width = 239 + Height = 19 + Top = 57 + Width = 215 Caption = 'Com Círculos Preechidos' OnChange = ChkDotsChange OnClick = ChkMatrixTypeClick @@ -220,9 +219,9 @@ object FormDesigner: TFormDesigner end object ChkCleanDots: TCheckBox Left = 5 - Height = 21 - Top = 84 - Width = 239 + Height = 19 + Top = 76 + Width = 215 Caption = 'Com Círculos Vazados' OnChange = ChkCleanDotsChange OnClick = ChkMatrixTypeClick @@ -230,9 +229,9 @@ object FormDesigner: TFormDesigner end object ChkDotsCleanDots: TCheckBox Left = 5 - Height = 21 - Top = 105 - Width = 239 + Height = 19 + Top = 95 + Width = 215 Caption = 'Com Círculos Vazados e Preenchidos' OnChange = ChkDotsCleanDotsChange OnClick = ChkMatrixTypeClick @@ -247,14 +246,14 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 711 - ClientWidth = 658 + ClientHeight = 751 + ClientWidth = 649 object ComboCurrentCondition: TComboBox Left = 0 - Height = 27 + Height = 23 Top = 10 - Width = 658 - ItemHeight = 0 + Width = 649 + ItemHeight = 15 OnChange = ComboCurrentConditionChange Style = csDropDownList TabOrder = 0 @@ -262,40 +261,40 @@ object FormDesigner: TFormDesigner object PanelConditionButtons: TPanel Left = 0 Height = 26 - Top = 42 - Width = 658 + Top = 38 + Width = 649 ChildSizing.LeftRightSpacing = 25 ChildSizing.HorizontalSpacing = 50 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 3 ClientHeight = 26 - ClientWidth = 658 + ClientWidth = 649 TabOrder = 1 object BtnAppendCond: TButton Left = 25 Height = 25 Hint = 'Selecione contingências na lista abaixo se deseja inclui-las na condição a ser adicionada.' Top = 0 - Width = 168 + Width = 167 Caption = 'Adicionar' OnClick = BtnAppendCondClick TabOrder = 0 end object BtnRemoveCond: TButton - Left = 243 + Left = 242 Height = 25 Top = 0 - Width = 165 + Width = 163 Caption = 'Remover' OnClick = BtnRemoveCondClick TabOrder = 1 end object BtnReorderCond: TButton - Left = 458 + Left = 455 Height = 25 Top = 0 - Width = 175 + Width = 169 Caption = 'Reordenar' OnClick = BtnReorderCondClick TabOrder = 2 @@ -304,57 +303,56 @@ object FormDesigner: TFormDesigner end object GBContingencies: TGroupBox Left = 0 - Height = 97 - Top = 73 - Width = 658 + Height = 100 + Top = 69 + Width = 649 Caption = 'Contingências e Metacontingências da Condição Selecionada' ClientHeight = 80 - ClientWidth = 654 + ClientWidth = 645 TabOrder = 8 object ListBoxContingencies: TListBox Left = 0 Height = 80 Hint = 'CTRL+Clique para selecionar múltiplas contingências.' Top = 0 - Width = 654 + Width = 645 Anchors = [akTop, akLeft, akRight] ItemHeight = 0 MultiSelect = True ScrollWidth = 652 TabOrder = 0 - TopIndex = -1 end end object LabelConditionName: TLabel Left = 0 Height = 15 Hint = 'Nome da condição no relatório.' - Top = 175 - Width = 658 + Top = 174 + Width = 649 Caption = 'Nome da Condição' ParentColor = False end object EditConditionName: TEdit Left = 0 - Height = 25 - Top = 195 - Width = 658 + Height = 23 + Top = 194 + Width = 649 OnEditingDone = EditConditionNameEditingDone TabOrder = 2 end object LabelTurnValue: TLabel Left = 0 Height = 15 - Top = 225 - Width = 658 + Top = 222 + Width = 649 Caption = 'Número de Jogadores / Turnos' ParentColor = False end object SpinEditTurnValue: TSpinEdit Left = 0 - Height = 25 - Top = 245 - Width = 658 + Height = 23 + Top = 242 + Width = 649 MaxValue = 5 MinValue = 2 OnEditingDone = SpinEditTurnValueEditingDone @@ -363,70 +361,70 @@ object FormDesigner: TFormDesigner end object GroupBox1: TGroupBox Left = 0 - Height = 57 - Top = 275 - Width = 658 + Height = 58 + Top = 270 + Width = 649 Caption = 'Somar pontos ao iniciar condição' ChildSizing.LeftRightSpacing = 50 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclTopToBottomThenLeftToRight ChildSizing.ControlsPerLine = 2 - ClientHeight = 40 - ClientWidth = 654 + ClientHeight = 38 + ClientWidth = 645 TabOrder = 9 object LabelPA: TLabel Left = 50 Height = 15 Top = 0 - Width = 137 + Width = 136 Caption = 'A' ParentColor = False end object SpinEditOnConditionBeginA: TSpinEdit Left = 50 - Height = 25 + Height = 23 Top = 15 - Width = 137 + Width = 136 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 0 end object LabelPB: TLabel - Left = 187 + Left = 186 Height = 15 Top = 0 - Width = 137 + Width = 136 Caption = 'B' ParentColor = False end object SpinEditOnConditionBeginB: TSpinEdit - Left = 187 - Height = 25 + Left = 186 + Height = 23 Top = 15 - Width = 137 + Width = 136 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 1 end object LabelPI: TLabel - Left = 324 + Left = 322 Height = 15 Top = 0 - Width = 145 + Width = 138 Caption = 'Individual' ParentColor = False end object SpinEditOnConditionBeginI: TSpinEdit - Left = 324 - Height = 25 + Left = 322 + Height = 23 Top = 15 - Width = 145 + Width = 138 MaxValue = 0 OnEditingDone = SpinEditOnConditionBeginAEditingDone TabOrder = 2 end object LabelPG: TLabel - Left = 469 + Left = 460 Height = 15 Top = 0 Width = 135 @@ -434,8 +432,8 @@ object FormDesigner: TFormDesigner ParentColor = False end object SpinEditOnConditionBeginG: TSpinEdit - Left = 469 - Height = 25 + Left = 460 + Height = 23 Top = 15 Width = 135 MaxValue = 0 @@ -446,16 +444,16 @@ object FormDesigner: TFormDesigner object LabelCyclesValue: TLabel Left = 0 Height = 15 - Top = 337 - Width = 658 + Top = 333 + Width = 649 Caption = 'Ciclos para mudança de geração / linhagem' ParentColor = False end object SpinEditCyclesValue: TSpinEdit Left = 0 - Height = 25 - Top = 357 - Width = 658 + Height = 23 + Top = 353 + Width = 649 MaxValue = 1000 MinValue = 1 OnEditingDone = SpinEditCyclesValueEditingDone @@ -464,23 +462,23 @@ object FormDesigner: TFormDesigner end object GBQuestion: TGroupBox Left = 0 - Height = 164 - Top = 387 - Width = 658 + Height = 162 + Top = 381 + Width = 649 Caption = 'Apresentar pergunta ao final do ciclo' ChildSizing.LeftRightSpacing = 50 ChildSizing.VerticalSpacing = 5 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 147 - ClientWidth = 654 + ClientHeight = 142 + ClientWidth = 645 TabOrder = 5 object CheckBoxShouldAskQuestion: TCheckBox Left = 50 - Height = 21 + Height = 19 Top = 0 - Width = 554 + Width = 545 Caption = 'Não' OnChange = CheckBoxShouldAskQuestionChange TabOrder = 0 @@ -488,16 +486,17 @@ object FormDesigner: TFormDesigner object LabelQuestion: TLabel Left = 50 Height = 15 - Top = 26 - Width = 554 + Top = 24 + Width = 545 Caption = 'Texto da Pergunta' ParentColor = False + Visible = False end object EditQuestion: TEdit Left = 50 - Height = 25 - Top = 46 - Width = 554 + Height = 23 + Top = 44 + Width = 545 OnEditingDone = EditQuestionEditingDone TabOrder = 1 Text = 'Um item escolar foi perdido, desejam recuperá-lo gastando pontos do Tipo A?' @@ -505,9 +504,9 @@ object FormDesigner: TFormDesigner end object CGQuestion: TCheckGroup Left = 50 - Height = 71 - Top = 76 - Width = 554 + Height = 70 + Top = 72 + Width = 545 AutoFill = True Caption = 'O que deve acontecer quando todos responderem sim?' ChildSizing.LeftRightSpacing = 6 @@ -518,8 +517,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 54 - ClientWidth = 550 + ClientHeight = 50 + ClientWidth = 541 Items.Strings = ( 'Reverter consequências das metacontingências e contingências' 'Inverter pontos A e B quando pontos B forem consequências' @@ -534,9 +533,9 @@ object FormDesigner: TFormDesigner end object RGEndCriteriaStyle: TRadioGroup Left = 0 - Height = 80 - Top = 556 - Width = 658 + Height = 77 + Top = 548 + Width = 649 AutoFill = True Caption = 'Estilo do critério de finalização da condição' ChildSizing.LeftRightSpacing = 6 @@ -546,8 +545,8 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 63 - ClientWidth = 654 + ClientHeight = 57 + ClientWidth = 645 ItemIndex = 2 Items.Strings = ( 'Finalizar após um número de ciclos' @@ -559,31 +558,31 @@ object FormDesigner: TFormDesigner end object GBEndCriteria: TGroupBox Left = 0 - Height = 109 - Top = 641 - Width = 658 + Height = 111 + Top = 630 + Width = 649 Caption = 'Valores do critério de finalização da condição' ChildSizing.LeftRightSpacing = 50 ChildSizing.VerticalSpacing = 5 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 92 - ClientWidth = 654 + ClientHeight = 91 + ClientWidth = 645 TabOrder = 7 object LabelEndCriteriaAbsCycles: TLabel Left = 50 Height = 15 Top = 0 - Width = 554 + Width = 545 Caption = 'Número de ciclos' ParentColor = False end object SpinEditEndCriteriaAbsCycles: TSpinEdit Left = 50 - Height = 25 + Height = 23 Top = 20 - Width = 554 + Width = 545 MaxValue = 1000 OnEditingDone = SpinEditEndCriteriaAbsCyclesEditingDone TabOrder = 0 @@ -591,19 +590,19 @@ object FormDesigner: TFormDesigner end object GBEndCriteriaLastCycles: TGroupBox Left = 50 - Height = 42 - Top = 50 - Width = 554 + Height = 43 + Top = 48 + Width = 545 Caption = 'Porcentagem de entrelaçamentos' ChildSizing.HorizontalSpacing = 5 ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 4 - ClientHeight = 25 - ClientWidth = 550 + ClientHeight = 23 + ClientWidth = 541 TabOrder = 1 object SpinEditEndCriteriaInterlockingPorcentage: TSpinEdit Left = 0 - Height = 25 + Height = 23 Top = 0 Width = 50 OnEditingDone = SpinEditEndCriteriaInterlockingEditingDone @@ -612,17 +611,17 @@ object FormDesigner: TFormDesigner end object LabelEndCriteriaInt: TLabel Left = 55 - Height = 25 + Height = 23 Top = 0 - Width = 206 + Width = 185 Alignment = taCenter Caption = '% de entrelaçamentos nos últimos ' Layout = tlCenter ParentColor = False end object SpinEditEndCriteriaLastCycles: TSpinEdit - Left = 266 - Height = 25 + Left = 245 + Height = 23 Top = 0 Width = 50 MaxValue = 1000 @@ -632,10 +631,10 @@ object FormDesigner: TFormDesigner Value = 10 end object LabelEndCriteriaLastCycles: TLabel - Left = 321 - Height = 25 + Left = 300 + Height = 23 Top = 0 - Width = 35 + Width = 33 Alignment = taCenter Caption = 'ciclos.' Layout = tlCenter @@ -668,7 +667,7 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 42 + ClientHeight = 39 ClientWidth = 654 Items.Strings = ( 'Contingências Operantes' @@ -679,10 +678,10 @@ object FormDesigner: TFormDesigner end object ComboCurrentContingency: TComboBox Left = 0 - Height = 27 + Height = 23 Top = 74 Width = 658 - ItemHeight = 0 + ItemHeight = 15 OnChange = ComboCurrentContingencyChange Style = csDropDownList TabOrder = 0 @@ -759,7 +758,7 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 105 + ClientHeight = 102 ClientWidth = 654 ItemIndex = 0 Items.Strings = ( @@ -838,7 +837,7 @@ object FormDesigner: TFormDesigner ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 - ClientHeight = 347 + ClientHeight = 344 ClientWidth = 654 TabOrder = 6 Visible = False @@ -869,10 +868,10 @@ object FormDesigner: TFormDesigner end object CBPointsType: TComboBox Left = 420 - Height = 27 + Height = 23 Top = 15 Width = 234 - ItemHeight = 0 + ItemHeight = 15 OnChange = ConsequenceStyleChange Style = csDropDownList TabOrder = 1 @@ -891,7 +890,7 @@ object FormDesigner: TFormDesigner ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 1 - ClientHeight = 63 + ClientHeight = 60 ClientWidth = 416 ItemIndex = 0 Items.Strings = ( diff --git a/experiment_designer/form_main.pas b/experiment_designer/form_main.pas index 9e7cd7f..c35fd76 100644 --- a/experiment_designer/form_main.pas +++ b/experiment_designer/form_main.pas @@ -11,8 +11,6 @@ unit form_main; {$mode objfpc}{$H+} -{$DEFINE DEBUG} - interface uses @@ -176,9 +174,6 @@ type procedure SpinEditOnConditionBeginAEditingDone(Sender: TObject); procedure SpinEditTurnValueEditingDone(Sender: TObject); procedure XMLPropStorageRestoreProperties(Sender: TObject); - {$IFDEF WINDOWS} - procedure XMLPropStorageSaveProperties(Sender: TObject); - {$ENDIF} procedure XMLPropStorageSavingProperties(Sender: TObject); procedure XMLPropStorageStoredValuesFileNameRestore(Sender: TStoredValue; var Value: TStoredType); @@ -227,9 +222,9 @@ var implementation uses game_resources, game_actors, game_actors_point, string_methods, strutils - {$IFDEF WINDOWS} - , Dos - {$ENDIF} + //{$IFDEF WINDOWS} + //, Dos + //{$ENDIF} ; const SV_FILENAME : string = 'Filename'; @@ -609,20 +604,6 @@ begin TabSheetContingencies.Enabled := ComboCurrentCondition.Items.Count > 0; end; -{$IFDEF WINDOWS} -procedure TFormDesigner.XMLPropStorageSaveProperties(Sender: TObject); -var - F : TextFile; -begin - if FileExists(XMLPropStorage.FileName) then - begin - AssignFile(F, XMLPropStorage.FileName); - SetFAttr(F,Hidden); - CloseFile(F); - end; -end; -{$ENDIF} - procedure TFormDesigner.XMLPropStorageSavingProperties(Sender: TObject); procedure SavePropStorageFilename; var @@ -1373,10 +1354,6 @@ var end end; begin - {$IFDEF WINDOWS} - XMLPropStorage.OnSaveProperties := @XMLPropStorageSaveProperties; - {$ENDIF} - // TRadioGroup OnClick events are triggered programmatically by LCL code, not by us // FLoading is a temporary workaround to avoid // calls for SaveProcedures while loading FExperiment @@ -1408,7 +1385,11 @@ var LS: String; begin if TCheckBox(Sender).Checked then - TCheckBox(Sender).Caption := 'Sim' + begin + TCheckBox(Sender).Caption := 'Sim'; + CGQuestion.Checked[0] := True; + CGQuestion.Checked[1] := True; + end else begin TCheckBox(Sender).Caption := 'Não'; @@ -1420,6 +1401,8 @@ begin WriteString(LS, KEY_PROMPT_MESSAGE, ''); WriteString(LS, KEY_PROMPT_STYLE, ''); end; + CGQuestion.Checked[0] := False; + CGQuestion.Checked[1] := False; end; LabelQuestion.Visible:= CheckBoxShouldAskQuestion.Checked; EditQuestion.Visible := CheckBoxShouldAskQuestion.Checked; @@ -2004,4 +1987,19 @@ begin end; +// TODO: hidden persistence.xml on windows +//var +// F : TextFile; +// +//finalization +//begin +// if FileExists(FormDesigner.XMLPropStorage.FileName) then +// begin +// AssignFile(F, FormDesigner.XMLPropStorage.FileName); +// Reset(F); +// SetFAttr(F,Hidden); +// CloseFile(F); +// end; +//end; + end. -- libgit2 0.21.2