Fix: Caption bug

diff --git a/bottleclient/StrListEditor.dfm b/bottleclient/StrListEditor.dfm
index 9e8a3ed..e0133aa 100755 (executable)
--- a/bottleclient/StrListEditor.dfm
+++ b/bottleclient/StrListEditor.dfm
@@ -13,6 +13,7 @@ object frmStrListEditor: TfrmStrListEditor
   Font.Style = []
   OldCreateOrder = False
   Position = poDesktopCenter
+  OnShow = memStringsChange
   PixelsPerInch = 96
   TextHeight = 12
   object pnlHeader: TPanel

diff --git a/bottleclient/StrListEditor.pas b/bottleclient/StrListEditor.pas
index 7020557..9b5b47d 100755 (executable)
--- a/bottleclient/StrListEditor.pas
+++ b/bottleclient/StrListEditor.pas
@@ -29,21 +29,21 @@ type
 var
   frmStrListEditor: TfrmStrListEditor;
 
-function StrListEdit(const List: TStrings; Caption: String;
+function StrListEdit(const List: TStrings; CaptionStr: String;
   AllowEmpty: boolean = false): boolean;
 
 implementation
 
 {$R *.dfm}
 
-function StrListEdit(const List: TStrings; Caption: String;
+function StrListEdit(const List: TStrings; CaptionStr: String;
   AllowEmpty: boolean = false): boolean;
 var MyfrmStrListEditor: TfrmStrListEditor;
 begin
   Application.CreateForm(TfrmStrListEditor, MyfrmStrListEditor);
   with MyfrmStrListEditor do begin
     CanAllowEmpty := AllowEmpty;
-    lblCaption.Caption := Caption;
+    lblCaption.Caption := CaptionStr;
     memStrings.Lines := List; // Using Assign method (of course)
     Result := ShowModal = mrOk;
     if Result then List.Assign(memStrings.Lines);
@@ -53,7 +53,7 @@ end;
 
 procedure TfrmStrListEditor.memStringsChange(Sender: TObject);
 begin
-  btnOk.Enabled := memStrings.Lines.Count = 0;
+  btnOk.Enabled := memStrings.Lines.Count > 0;
 end;
 
 procedure TfrmStrListEditor.btnOkClick(Sender: TObject);