|
From: Ron G. <rg...@us...> - 2005-02-25 18:32:35
|
Update of /cvsroot/instantobjects/Source/Design In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29047/Design Modified Files: InstantModelExplorer.dfm InstantModelExplorer.pas Log Message: Removes a couple override functions that had no implementation code. They prevented D2005 from compiling and appeared to serve no purpose (since they didn't do anything). Index: InstantModelExplorer.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.pas,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** InstantModelExplorer.pas 11 Feb 2005 16:08:05 -0000 1.6 --- InstantModelExplorer.pas 25 Feb 2005 18:32:21 -0000 1.7 *************** *** 165,172 **** destructor Destroy; override; procedure CompileTo(FileName: string); - {$IFDEF MSWINDOWS} - procedure LoadWindowState(Desktop: TMemIniFile); override; - procedure SaveWindowState(Desktop: TMemIniFile; IsProject: Boolean); override; - {$ENDIF} procedure Refresh; procedure UpdateModel; --- 165,168 ---- *************** *** 449,465 **** end; - {$IFDEF MSWINDOWS} - procedure TInstantModelExplorerForm.LoadWindowState(Desktop: TMemIniFile); - begin - inherited; - end; - - procedure TInstantModelExplorerForm.SaveWindowState(Desktop: TMemIniFile; - IsProject: Boolean); - begin - inherited; - end; - {$ENDIF} - procedure TInstantModelExplorerForm.ModelViewChange(Sender: TObject; Node: TTreeNode); --- 445,448 ---- Index: InstantModelExplorer.dfm =================================================================== RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.dfm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantModelExplorer.dfm 17 Nov 2004 20:59:49 -0000 1.3 --- InstantModelExplorer.dfm 25 Feb 2005 18:32:19 -0000 1.4 *************** *** 24,28 **** Top = 27 Width = 251 ! Height = 372 Align = alClient BevelOuter = bvNone --- 24,28 ---- Top = 27 Width = 251 ! Height = 379 Align = alClient BevelOuter = bvNone |