ソースの整形。

diff --git a/bottleclient/BottleDef.pas b/bottleclient/BottleDef.pas
index e6e4c25..8128caf 100755 (executable)
--- a/bottleclient/BottleDef.pas
+++ b/bottleclient/BottleDef.pas
@@ -94,7 +94,7 @@ type
     FBottleServerPort: integer;
     FBottleServer: String;
     FTabWidth: integer;
-    FBrowserExeName:string;
+    FBrowserExeName: string;
 
     procedure SetDblClkInsert(const Value: boolean);
     procedure SetDefaultScript(const Value: String);
@@ -257,7 +257,7 @@ type
     //\8dÄ\90¶\8e\9e\8aÔ\97\\91ª
     property PlayTimeParams: TSsPlayTimeParams read FPlayTimeParams write SetPlayTimeParams;
     //URL\83I\81[\83v\83\93\8e\9e\82É\8eg\82¤\83u\83\89\83E\83U\82Ì\8eÀ\8ds\83t\83@\83C\83\8b\96¼
-    property BrowserExeName:string read FBrowserExeName write FBrowserExeName;
+    property BrowserExeName: string read FBrowserExeName write FBrowserExeName;
 
     //\83R\83\93\83X\83g\83\89\83N\83^\81E\83f\83X\83g\83\89\83N\83^\81E\95Û\91¶
     constructor Create;
@@ -633,7 +633,7 @@ begin
       TSurfacePreviewOnScriptPointPosition(FIni.ReadInteger('System', 'SurfacePreviewOnScriptPointPosition', 0));
 
     //URL\82ð\8aJ\82­\83u\83\89\83E\83U
-    FBrowserExeName:=FIni.ReadString('System','BrowserExeName','');
+    FBrowserExeName:= FIni.ReadString('System', 'BrowserExeName', '');
 
   except
     ShowMessage('INI\83t\83@\83C\83\8b\93Ç\82Ý\8d\9e\82Ý\83G\83\89\81[');
@@ -965,7 +965,7 @@ begin
   FIni.WriteBool('System', 'SurfacePreviewOnScriptPoint', SurfacePreviewOnScriptPoint);
   FIni.WriteInteger('System', 'SurfacePreviewOnScriptPointPosition', Ord(SurfacePreviewOnScriptPointPosition));
 
-  FIni.WriteString('System','BrowserExeName',FBrowserExeName);
+  FIni.WriteString('System', 'BrowserExeName', FBrowserExeName);
 end;
 
 function TBottlePrefs.GetDefaultScript: String;

diff --git a/bottleclient/LogForm.pas b/bottleclient/LogForm.pas
index 324c021..10057d2 100755 (executable)
--- a/bottleclient/LogForm.pas
+++ b/bottleclient/LogForm.pas
@@ -671,9 +671,9 @@ end;
 
 procedure TfrmLog.mnURLClick(Sender: TObject);
 var LogItem: TLogItem;
-    URL: String;
+    URL: string;
     Urls: TStringList;
-    Command:string;
+    Command: string;
 
 begin
   if (lvwLog.Selected = nil) or (SelectedBottleLog = nil) then Exit;
@@ -682,11 +682,13 @@ begin
   try
     ExtractURLs(LogItem.Script, Urls);
     URL := Urls[(Sender as TMenuItem).Tag];
-    if Pref.BrowserExeName='' then begin
-        ShellExecute(Handle, 'open', PChar(URL), nil, nil, SW_SHOW);
-    end else begin
-        Command:=Pref.BrowserExeName+' '+URL;
-        WinExec(PChar(Command), SW_SHOW);
+    if Pref.BrowserExeName='' then
+    begin
+      ShellExecute(Handle, 'open', PChar(URL), nil, nil, SW_SHOW);
+    end else
+    begin
+      Command := Pref.BrowserExeName+' '+URL;
+      WinExec(PChar(Command), SW_SHOW);
     end;
 
   finally

diff --git a/bottleclient/SettingForm.pas b/bottleclient/SettingForm.pas
index b77369b..ead656c 100755 (executable)
--- a/bottleclient/SettingForm.pas
+++ b/bottleclient/SettingForm.pas
@@ -748,15 +748,16 @@ end;
 
 procedure TfrmSetting.btnBrowserLocateClick(Sender: TObject);
 var
-        Ret:boolean;
+        Ret: Boolean;
 
 begin
-        Ret:=BrowserLocateOpenDialog.Execute;
-        if Ret=True then begin
-                edtBrowser.Text:=BrowserLocateOpenDialog.FileName;
+  Ret:=BrowserLocateOpenDialog.Execute;
+  if Ret=True then
+  begin
+    edtBrowser.Text := BrowserLocateOpenDialog.FileName;
+
+  end;
 
-        end;
-        
 end;
 
 end.