Textimport und export

[bennySB]

Ach es geht schon halbwegs^^ Compalieren und die *.exe starten geht noch. Ich kann nur mein installiertes Programm nicht starten aber das ist momentan auch gar nicht so wichtig^^

Aber wo ich gerade mal dabei bin hier zu schreiben, vielleicht könnte ihr mir nen gedanklichen Anstoß geben.
Ich habe auf einer WizardPage nun eine zusätzliche Verzeichnisauswahl eingefügt und eine CheckBox, nun will ich beides miteinander Verbinden.
Soll heißen: CheckBox aktiviert: 2.Verzeichnisauswahl einblenden, Checkbox nicht aktiviert: 2. Verzeichnisauwahl ausblenden.

Die erste Verzeichnisauswahl bleibt unangetastet. Anbei mein momentaner Code dafür:

Delphi-Quellcode:

var

    UserDirPageCAE : TInputDirWizardPage;    
    UserFolderCAE, UserFolderGPS : string;
    GPSVerzeichnisVisible : boolean;
    DOSBoxConf : TStringList;
    GPSDirCheckBox: TNewCheckBox;



    function InitializeSetup: boolean;

      begin
        UserFolderCAE := '';
        Result := true;
      end;

    function InstallCae(Param:String):String;

      begin
        Result := UserDirPageCAE.Values[0];
      end;

    function GPSDir(Param:String):String;

      begin
        Result := UserDirPageCAE.Values[1];
      end;

    procedure InitializeWizard;

      begin
      UserDirPageCAE := CreateInputDirPage(wpSelectDir,
      ExpandConstant('{cm:CAEVerzeichnis}'),
      ExpandConstant('{cm:SpeicherortPRTDEF}'),
      ExpandConstant('{cm:SpeicherzielPRTDEF}'),
      false,
      'Neuer Ordner');


      //CAE-Verzeichnisauswahlfenster
      UserDirPageCAE.Add('CAE2000.EXE Verzeichnis');
      //GPS-Verzeichnisauswahlfenster
      UserDirPageCAE.Add('GPS-Ordner Verzeichnis');


      //CAE-Standardpfad in der Verzeichnisauswahl
      UserDirPageCAE.Values[0] := ExpandConstant(
      'C:\CAE2000\');
      
      //GPS-Standardpfad in der Verzeichnisauswahl
      UserDirPageCAE.Values[1] := ExpandConstant(
      'C:\'); 
      
      GPSDirCheckBox := TNewCheckBox.Create(UserDirPageCAE);
      
      with GPSDirCheckBox do      //Parameter für die GPS-CheckBox
        begin
       
          GPSDirCheckBox.Parent := UserDirPageCAE.Surface;
          Caption := ExpandConstant('{cm:GPSVerzeichnis}');
          Left := ScaleX(0);
          Top := ScaleY(120);
          Width := ScaleX(400);
          Height := ScaleY(40);
          Checked := GPSVerzeichnisVisible;
          Visible := true;
        end;
      end;