[Instantobjects-cvscommit] Source/Design InstantModelExplorer.pas,1.3,1.4

[Andrea P. <and...@us...>]

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

Modified Files:
	InstantModelExplorer.pas 
Log Message:
Bug fixing : some time the model explorer window does not appear

Index: InstantModelExplorer.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.pas,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** InstantModelExplorer.pas	20 Jul 2004 16:39:08 -0000	1.3
--- InstantModelExplorer.pas	27 Aug 2004 14:33:10 -0000	1.4
***************
*** 133,137 ****
      procedure ViewRelationsActionExecute(Sender: TObject);
      procedure ViewSourceActionExecute(Sender: TObject);
-     procedure FormCreate(Sender: TObject);
    private
      FError: TInstantModelError;
--- 133,136 ----
***************
*** 284,287 ****
--- 283,290 ----
  begin
    inherited;
+   LoadMultipleImages(ActionImages, 'IO_MODELEXPLORERACTIONIMAGES', HInstance);
+   LoadMultipleImages(ModelImages, 'IO_MODELEXPLORERMODELIMAGES', HInstance);
+   LoadMultipleImages(AttributeImages, 'IO_MODELEXPLORERATTRIBUTEIMAGES', HInstance);
+ 
    FModelView := TModelTreeView.Create(Self);
    with FModelView do
***************
*** 296,300 ****
  {$ENDIF}
      OnChange := ModelViewChange;
!     OnNodeDblClick := ModelViewNodeDblClick;    
      OnGetImageIndex := ModelViewGetImageIndex;
    end;
--- 299,303 ----
  {$ENDIF}
      OnChange := ModelViewChange;
!     OnNodeDblClick := ModelViewNodeDblClick;
      OnGetImageIndex := ModelViewGetImageIndex;
    end;
***************
*** 761,771 ****
  end;
  
- procedure TInstantModelExplorerForm.FormCreate(Sender: TObject);
- begin
-   LoadMultipleImages(ActionImages, 'IO_MODELEXPLORERACTIONIMAGES', HInstance);
-   LoadMultipleImages(ModelImages, 'IO_MODELEXPLORERMODELIMAGES', HInstance);
-   LoadMultipleImages(AttributeImages, 'IO_MODELEXPLORERATTRIBUTEIMAGES', HInstance);
- end;
- 
  initialization
    ModelExplorer := nil;
--- 764,767 ----