Update of /cvsroot/instantobjects/Source/Design
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25040
Modified Files:
InstantModelExplorer.dfm InstantModelExpert.pas
Log Message:
Changes as follows:
1. Rename the IDE menu item from "Model Explorer" to "InstantObjects
Model Explorer";
2. Rename the "Model Explorer" form title to "InstantObjects Model
Explorer";
3. In the newer BDS IDE add the item in the View menu so that the
"InstantObjects Model Explorer" menu item is placed underneath the
"Structure" menu item instead of defaulting to the bottom of the list.
Index: InstantModelExpert.pas
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExpert.pas,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** InstantModelExpert.pas 13 Oct 2005 10:51:27 -0000 1.12
--- InstantModelExpert.pas 5 Dec 2005 22:00:22 -0000 1.13
***************
*** 25,29 ****
*
* Contributor(s):
! * Nando Dessena
*
* ***** END LICENSE BLOCK ***** *)
--- 25,29 ----
*
* Contributor(s):
! * Nando Dessena, Steven Mitchell
*
* ***** END LICENSE BLOCK ***** *)
***************
*** 172,176 ****
SBuilderItemCaption = 'Database &Builder...';
SBuilderItemName = 'InstantBuilderItem';
! SExplorerItemCaption = '&Model Explorer';
SExplorerItemName = 'InstantExplorerItem';
SModelCompiler = 'Model Compiler';
--- 172,176 ----
SBuilderItemCaption = 'Database &Builder...';
SBuilderItemName = 'InstantBuilderItem';
! SExplorerItemCaption = 'InstantObjects &Model Explorer';
SExplorerItemName = 'InstantExplorerItem';
SModelCompiler = 'Model Compiler';
***************
*** 497,501 ****
--- 497,505 ----
OnClick := ExplorerItemClick;
end;
+ {$IFDEF D9+}
+ Item := ItemByName(Menu, 'ViewStructureItem');
+ {$ELSE}
Item := ItemByName(Menu, 'CodeExplorer');
+ {$ENDIF}
if Assigned(Item) then
Menu.Insert(Item.MenuIndex + 1, FExplorerItem)
Index: InstantModelExplorer.dfm
===================================================================
RCS file: /cvsroot/instantobjects/Source/Design/InstantModelExplorer.dfm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** InstantModelExplorer.dfm 25 Feb 2005 18:32:19 -0000 1.4
--- InstantModelExplorer.dfm 5 Dec 2005 22:00:22 -0000 1.5
***************
*** 6,10 ****
VertScrollBar.Range = 20
AutoScroll = False
! Caption = 'Model Explorer'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
--- 6,10 ----
VertScrollBar.Range = 20
AutoScroll = False
! Caption = 'InstantObjects Model Explorer'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
|
