Cannot use property edit Bindings.

Giganews Newsgroups
Subject: Cannot use property edit Bindings.
Posted by:  tubame (nospam@jp)
Date: Thu, 16 Dec 2010

Cannot use property edit Bindings.

(1) mistake the free : Free is called self.free instead of LList.Free.
(2) I can not edit binding ip from property editor.

Index: Lib/Core/IdDsnPropEdBindingVCL.pas
===================================================================
--- Lib/Core/IdDsnPropEdBindingVCL.pas    (リビジョン 4535)
+++ Lib/Core/IdDsnPropEdBindingVCL.pas    (作業コピー)
@@ -415,7 +415,7 @@
      Top := 24;
      Width := 221;
      Height := 21;
-    Style := csDropDownList;
+    Style := csDropDown;
      Enabled := False;
      ItemHeight := 13;
      TabOrder := 3;
@@ -568,7 +568,7 @@
          Result := Format('%d: %s', [PortNumber, LList.CommaText]);
{Do not Localize}
        end;
      finally
-      Free;
+      LList.Free;
      end;
    end;
  end;
@@ -614,7 +614,10 @@
          edtIPAddress.Items.Assign(FIPv6Addresses);
        end;
      end;
-    edtIPAddress.ItemIndex :=
edtIPAddress.Items.IndexOf(FCurrentHandle.IP);
+    if edtIPAddress.Style = csDropDown then
+      edtIPAddress.Text := FCurrentHandle.IP
+      else
+      edtIPAddress.ItemIndex :=
edtIPAddress.Items.IndexOf(FCurrentHandle.IP);
    end
    else
    begin

Replies