URLジャンプメニューに選択肢名も表示するようにした

[winbottle/winbottle.git] / bottleclient / MainForm.pas

diff --git a/bottleclient/MainForm.pas b/bottleclient/MainForm.pas
index 6c077b2..1803fb7 100755 (executable)
--- a/bottleclient/MainForm.pas
+++ b/bottleclient/MainForm.pas
@@ -969,10 +969,12 @@ begin
 end;
 
 procedure TfrmSender.actAboutClick(Sender: TObject);
-var Str: String;
+var
+  Str: String;
 begin
   Str := VersionString + #13#10 + BottleDisclaimer + #13#10#13#10;
-  Str := Str + Format('Compiler Version: %f', [CompilerVersion]);
+  Str := Str + Format('Compiler Version: %f', [CompilerVersion]) + #13#10;
+  Str := Str + 'Indy Version: ' + IdSLPP20.Version;
   frmMessageBox.ShowMessage(Str);
 end;