From fe070b42d2ddea9ec14bb186b6cc0b6d11b490c3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juha=20Vehvil=C3=A4inen?= <jusu@users.sourceforge.net>
Date: Tue, 3 Jun 2003 20:46:51 +0000
Subject: *** empty log message ***

svn path=/trunk/Framestein/; revision=675
---
 Source/configureunit.pas | 320 +++++++++++++++++++++++------------------------
 1 file changed, 160 insertions(+), 160 deletions(-)

(limited to 'Source/configureunit.pas')

diff --git a/Source/configureunit.pas b/Source/configureunit.pas
index 321efc5..f030c73 100644
--- a/Source/configureunit.pas
+++ b/Source/configureunit.pas
@@ -1,160 +1,160 @@
-unit configureunit;
-
-interface
-
-uses
-  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
-  StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;
-
-type
-  Tconfigure = class(TForm)
-    PageControl1: TPageControl;
-    TSConnections: TTabSheet;
-    Panel1: TPanel;
-    ButtonOk: TButton;
-    ButtonCancel: TButton;
-    Label1: TLabel;
-    EditPdHost: TEdit;
-    Label2: TLabel;
-    EditPdReceivePort: TEdit;
-    Label3: TLabel;
-    EditPdSendPort: TEdit;
-    Label4: TLabel;
-    Label5: TLabel;
-    EditFsPort: TEdit;
-    CBEnableFSConns: TCheckBox;
-    TSGeneral: TTabSheet;
-    CBDockMain: TCheckBox;
-    TSFolders: TTabSheet;
-    Label6: TLabel;
-    EditFSFolder: TEdit;
-    Memo1: TMemo;
-    DirectoryListBox1: TDirectoryListBox;
-    DriveComboBox1: TDriveComboBox;
-    procedure ButtonCancelClick(Sender: TObject);
-    procedure ButtonOkClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-    procedure DriveComboBox1Change(Sender: TObject);
-    procedure DirectoryListBox1Change(Sender: TObject);
-  private
-    { Private declarations }
-  public
-    { Public declarations }
-    procedure Execute;
-  end;
-
-var
-  configure: Tconfigure;
-
-implementation
-
-uses
-  Registry,
-  mainunit;
-
-{$R *.DFM}
-
-procedure Tconfigure.ButtonOkClick(Sender: TObject);
-var
-  Reg: TRegistry;
-begin
-  Reg := TRegistry.Create;
-  Reg.RootKey := HKEY_CURRENT_USER;
-
-  main.PdHost := EditPdHost.Text;
-  main.PdReceivePort := StrToInt(EditPdReceivePort.Text);
-  main.PdSendPort := StrToInt(EditPdSendPort.Text);
-  main.FSPort := StrToInt(EditFsPort.Text);
-  main.EnableFSConns := CBEnableFSConns.Checked;
-  main.DockMain := CBDockMain.Checked;
-{$IFDEF FSDLL}
-  if main.FSFolder <> EditFSFolder.Text then begin
-    main.FSFolder := EditFSFolder.Text;
-    main.Plugins.Clear;
-    main.Plugins.ReLoad;
-    main.SearchPath.Add(main.FSFolder);
-  end;
-{$ENDIF}
-
-  try
-    if Reg.OpenKey('\Software\Framestein', True) then begin
-      Reg.WriteString('PdHost', main.PdHost);
-      Reg.WriteInteger('PDReceivePort', main.PDReceivePort);
-      Reg.WriteInteger('PDSendPort', main.PDSendPort);
-      Reg.WriteInteger('FSPort', main.FSPort);
-      Reg.WriteBool('EnableFSConns', main.EnableFSConns);
-      Reg.WriteBool('DockMain', main.DockMain);
-{$IFDEF FSDLL}
-      Reg.WriteString('FSFolder', main.FSFolder);
-{$ENDIF}
-    end;
-  except
-  end;
-
-  Reg.CloseKey;
-  Reg.Free;
-
-  main.ss1.Active := False;
-  main.ss1.Port := main.PDReceivePort;
-  main.ss1.Active := True;
-
-  main.csToPd.Active := False;
-  main.csToPd.Host := main.PdHost;
-  main.csToPd.Port := main.PdSendPort;
-  main.csToPd.Active := True;
-
-  main.ssfs.Active := False;
-  main.ssfs.Port := main.FSPort;
-  main.ssfs.Active := main.EnableFSConns;
-
-  ModalResult := mrOk;
-end;
-
-procedure Tconfigure.ButtonCancelClick(Sender: TObject);
-begin
-  ModalResult := mrCancel;
-end;
-
-procedure Tconfigure.Execute;
-begin
-{$IFDEF FSDLL}
-  TSFolders.TabVisible := True;
-  TSFolders.Visible := True;
-{$ELSE}
-  TSFolders.TabVisible := False;
-  TSFolders.Visible := False;
-{$ENDIF}
-
-  // load values from main
-  EditPdHost.Text := main.PdHost;
-  if EditPdHost.Text='' then EditPdHost.Text:='localhost';
-  EditPdReceivePort.Text := IntToStr(main.PdReceivePort);
-  EditPdSendPort.Text := IntToStr(main.PdSendPort);
-  EditFsPort.Text := IntToStr(main.FSPort);
-  CBEnableFSConns.Checked := main.EnableFSConns;
-  CBDockMain.Checked := main.DockMain;
-  EditFSFolder.Text := main.FSFolder;
-  // show
-  ShowModal;
-end;
-
-procedure Tconfigure.FormCreate(Sender: TObject);
-begin
-  if main.RunConfig then
-    Execute;
-end;
-
-procedure Tconfigure.DriveComboBox1Change(Sender: TObject);
-begin
-  DirectoryListBox1.Drive :=
-   (Sender as TDriveComboBox).Drive;
-end;
-
-procedure Tconfigure.DirectoryListBox1Change(Sender: TObject);
-begin
-  EditFSFolder.Text :=
-   (Sender as TDirectoryListBox).Directory;
-end;
-
-end.
-
+unit configureunit;
+
+interface
+
+uses
+  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
+  StdCtrls, ExtCtrls, ComCtrls, Buttons, FileCtrl;
+
+type
+  Tconfigure = class(TForm)
+    PageControl1: TPageControl;
+    TSConnections: TTabSheet;
+    Panel1: TPanel;
+    ButtonOk: TButton;
+    ButtonCancel: TButton;
+    Label1: TLabel;
+    EditPdHost: TEdit;
+    Label2: TLabel;
+    EditPdReceivePort: TEdit;
+    Label3: TLabel;
+    EditPdSendPort: TEdit;
+    Label4: TLabel;
+    Label5: TLabel;
+    EditFsPort: TEdit;
+    CBEnableFSConns: TCheckBox;
+    TSGeneral: TTabSheet;
+    CBDockMain: TCheckBox;
+    TSFolders: TTabSheet;
+    Label6: TLabel;
+    EditFSFolder: TEdit;
+    Memo1: TMemo;
+    DirectoryListBox1: TDirectoryListBox;
+    DriveComboBox1: TDriveComboBox;
+    procedure ButtonCancelClick(Sender: TObject);
+    procedure ButtonOkClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure DriveComboBox1Change(Sender: TObject);
+    procedure DirectoryListBox1Change(Sender: TObject);
+  private
+    { Private declarations }
+  public
+    { Public declarations }
+    procedure Execute;
+  end;
+
+var
+  configure: Tconfigure;
+
+implementation
+
+uses
+  Registry,
+  mainunit;
+
+{$R *.DFM}
+
+procedure Tconfigure.ButtonOkClick(Sender: TObject);
+var
+  Reg: TRegistry;
+begin
+  Reg := TRegistry.Create;
+  Reg.RootKey := HKEY_CURRENT_USER;
+
+  main.PdHost := EditPdHost.Text;
+  main.PdReceivePort := StrToInt(EditPdReceivePort.Text);
+  main.PdSendPort := StrToInt(EditPdSendPort.Text);
+  main.FSPort := StrToInt(EditFsPort.Text);
+  main.EnableFSConns := CBEnableFSConns.Checked;
+  main.DockMain := CBDockMain.Checked;
+{$IFDEF FSDLL}
+  if main.FSFolder <> EditFSFolder.Text then begin
+    main.FSFolder := EditFSFolder.Text;
+    main.Plugins.Clear;
+    main.Plugins.ReLoad;
+    main.SearchPath.Add(main.FSFolder);
+  end;
+{$ENDIF}
+
+  try
+    if Reg.OpenKey('\Software\Framestein', True) then begin
+      Reg.WriteString('PdHost', main.PdHost);
+      Reg.WriteInteger('PDReceivePort', main.PDReceivePort);
+      Reg.WriteInteger('PDSendPort', main.PDSendPort);
+      Reg.WriteInteger('FSPort', main.FSPort);
+      Reg.WriteBool('EnableFSConns', main.EnableFSConns);
+      Reg.WriteBool('DockMain', main.DockMain);
+{$IFDEF FSDLL}
+      Reg.WriteString('FSFolder', main.FSFolder);
+{$ENDIF}
+    end;
+  except
+  end;
+
+  Reg.CloseKey;
+  Reg.Free;
+
+  main.ss1.Active := False;
+  main.ss1.Port := main.PDReceivePort;
+  main.ss1.Active := True;
+
+  main.csToPd.Active := False;
+  main.csToPd.Host := main.PdHost;
+  main.csToPd.Port := main.PdSendPort;
+  main.csToPd.Active := True;
+
+  main.ssfs.Active := False;
+  main.ssfs.Port := main.FSPort;
+  main.ssfs.Active := main.EnableFSConns;
+
+  ModalResult := mrOk;
+end;
+
+procedure Tconfigure.ButtonCancelClick(Sender: TObject);
+begin
+  ModalResult := mrCancel;
+end;
+
+procedure Tconfigure.Execute;
+begin
+{$IFDEF FSDLL}
+  TSFolders.TabVisible := True;
+  TSFolders.Visible := True;
+{$ELSE}
+  TSFolders.TabVisible := False;
+  TSFolders.Visible := False;
+{$ENDIF}
+
+  // load values from main
+  EditPdHost.Text := main.PdHost;
+  if EditPdHost.Text='' then EditPdHost.Text:='localhost';
+  EditPdReceivePort.Text := IntToStr(main.PdReceivePort);
+  EditPdSendPort.Text := IntToStr(main.PdSendPort);
+  EditFsPort.Text := IntToStr(main.FSPort);
+  CBEnableFSConns.Checked := main.EnableFSConns;
+  CBDockMain.Checked := main.DockMain;
+  EditFSFolder.Text := main.FSFolder;
+  // show
+  ShowModal;
+end;
+
+procedure Tconfigure.FormCreate(Sender: TObject);
+begin
+  if main.RunConfig then
+    Execute;
+end;
+
+procedure Tconfigure.DriveComboBox1Change(Sender: TObject);
+begin
+  DirectoryListBox1.Drive :=
+   (Sender as TDriveComboBox).Drive;
+end;
+
+procedure Tconfigure.DirectoryListBox1Change(Sender: TObject);
+begin
+  EditFSFolder.Text :=
+   (Sender as TDirectoryListBox).Directory;
+end;
+
+end.
+
-- 
cgit v1.2.1