[Instantobjects-cvscommit] Source/Core InstantConnectionManagerForm.dfm,1.1,1.2 InstantConnectionManagerForm.pas,1.3,1.4

[Carlo B. <car...@us...>]

Update of /cvsroot/instantobjects/Source/Core
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7181/Source/Core

Modified Files:
	InstantConnectionManagerForm.dfm 
	InstantConnectionManagerForm.pas 
Log Message:
bug fixing: resolved AV after build/connect.

Index: InstantConnectionManagerForm.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManagerForm.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantConnectionManagerForm.pas	23 Feb 2005 11:03:01 -0000	1.3
--- InstantConnectionManagerForm.pas	25 Feb 2005 17:17:45 -0000	1.4
***************
*** 101,104 ****
--- 101,106 ----
      procedure FileOpenActionBeforeExecute(Sender: TObject);
      procedure FileOpenActionExecute(Sender: TObject);
+     procedure ConnectActionUpdate(Sender: TObject);
+     procedure DisconnectActionUpdate(Sender: TObject);
    private
      FModel: TInstantModel;
***************
*** 411,415 ****
    BorderStyle := bsSizeable;
    ConnectionView.OnEdited := ConnectionViewEditedVCL;
!   ConnectionView.HideSelection := True;
    ConnectionView.SortType := stText;
    ConnectionView.SmallImages := ConnectionImages;
--- 413,417 ----
    BorderStyle := bsSizeable;
    ConnectionView.OnEdited := ConnectionViewEditedVCL;
!   ConnectionView.HideSelection := False;
    ConnectionView.SortType := stText;
    ConnectionView.SmallImages := ConnectionImages;
***************
*** 705,708 ****
--- 707,722 ----
  end;
  
+ procedure TInstantConnectionManagerForm.ConnectActionUpdate(
+   Sender: TObject);
+ begin
+   ConnectAction.Enabled := Assigned(CurrentConnectionDef) and not IsManagerConnected;
+ end;
+ 
+ procedure TInstantConnectionManagerForm.DisconnectActionUpdate(
+   Sender: TObject);
+ begin
+   DisconnectAction.Enabled := IsManagerConnected;
+ end;
+ 
  initialization
    RegisterConnectionManagerExecutor(DefaultConnectionManagerExecutor);

Index: InstantConnectionManagerForm.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Core/InstantConnectionManagerForm.dfm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** InstantConnectionManagerForm.dfm	22 Feb 2005 14:25:18 -0000	1.1
--- InstantConnectionManagerForm.dfm	25 Feb 2005 17:17:45 -0000	1.2
***************
*** 162,165 ****
--- 162,166 ----
        Hint = 'Connect'
        OnExecute = ConnectActionExecute
+       OnUpdate = ConnectActionUpdate
      end
      object DisconnectAction: TAction
***************
*** 167,170 ****
--- 168,172 ----
        Hint = 'Disconnect'
        OnExecute = DisconnectActionExecute
+       OnUpdate = DisconnectActionUpdate
      end
      object FileOpenAction: TAction