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
|
