From ff4c1eb7c2b4eadbd33926b0a1b4c37ec30a3dea Mon Sep 17 00:00:00 2001
From: juha <juha@lazarus-ide.org>
Date: Wed, 9 Mar 2011 14:12:36 +0000
Subject: [PATCH] Examples: Moved "Explore Menus" to View menu, improve texts
 and use $R resource.

git-svn-id: trunk@29764 -
---
 .gitattributes                          |  1 -
 examples/exploremenu/frmexploremenu.lfm | 16 +++++++--------
 examples/exploremenu/frmexploremenu.lrs | 27 -------------------------
 examples/exploremenu/frmexploremenu.pas | 11 ++++------
 4 files changed, 12 insertions(+), 43 deletions(-)
 delete mode 100644 examples/exploremenu/frmexploremenu.lrs

diff --git a/.gitattributes b/.gitattributes
index e4a2d7bfa4..2d35beb02d 100644
--- a/.gitattributes
+++ b/.gitattributes
@@ -3386,7 +3386,6 @@ examples/exploremenu/README.txt svneol=native#text/plain
 examples/exploremenu/exploreidemenu.lpk svneol=native#text/plain
 examples/exploremenu/exploreidemenu.pas svneol=native#text/plain
 examples/exploremenu/frmexploremenu.lfm svneol=native#text/plain
-examples/exploremenu/frmexploremenu.lrs svneol=native#text/pascal
 examples/exploremenu/frmexploremenu.pas svneol=native#text/plain
 examples/fontenum/fontenumeration.lpi svneol=native#text/plain
 examples/fontenum/fontenumeration.lpr svneol=native#text/pascal
diff --git a/examples/exploremenu/frmexploremenu.lfm b/examples/exploremenu/frmexploremenu.lfm
index 3576fe269a..fb3fc2d78a 100644
--- a/examples/exploremenu/frmexploremenu.lfm
+++ b/examples/exploremenu/frmexploremenu.lfm
@@ -1,18 +1,18 @@
 object ExploreIDEMenuForm: TExploreIDEMenuForm
-  Left = 434
+  Left = 468
   Height = 336
-  Top = 427
+  Top = 378
   Width = 468
   ActiveControl = TVIDEMenu
-  Caption = 'Lazarus IDE menu'
+  Caption = 'Lazarus IDE menus'
   ClientHeight = 336
   ClientWidth = 468
   OnCreate = FormCreate
   Position = poDesktopCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.31'
   object LTree: TLabel
     Left = 6
-    Height = 18
+    Height = 16
     Top = 6
     Width = 456
     Align = alTop
@@ -22,12 +22,12 @@ object ExploreIDEMenuForm: TExploreIDEMenuForm
   end
   object TVIDEMenu: TTreeView
     Left = 0
-    Height = 223
-    Top = 30
+    Height = 225
+    Top = 28
     Width = 468
     Align = alTop
     Anchors = [akTop, akLeft, akRight, akBottom]
-    DefaultItemHeight = 19
+    DefaultItemHeight = 17
     ReadOnly = True
     TabOrder = 0
     OnChange = TVIDEMenuChange
diff --git a/examples/exploremenu/frmexploremenu.lrs b/examples/exploremenu/frmexploremenu.lrs
deleted file mode 100644
index 17620eb175..0000000000
--- a/examples/exploremenu/frmexploremenu.lrs
+++ /dev/null
@@ -1,27 +0,0 @@
-{ This is an automatically generated lazarus resource file }
-
-LazarusResources.Add('TExploreIDEMenuForm','FORMDATA',[
-  'TPF0'#19'TExploreIDEMenuForm'#18'ExploreIDEMenuForm'#4'Left'#3#178#1#6'Heigh'
-  +'t'#3'P'#1#3'Top'#3#171#1#5'Width'#3#212#1#13'ActiveControl'#7#9'TVIDEMenu'#7
-  +'Caption'#6#16'Lazarus IDE menu'#12'ClientHeight'#3'P'#1#11'ClientWidth'#3
-  +#212#1#8'OnCreate'#7#10'FormCreate'#8'Position'#7#15'poDesktopCenter'#10'LCL'
-  +'Version'#6#6'0.9.27'#0#6'TLabel'#5'LTree'#4'Left'#2#6#6'Height'#2#18#3'Top'
-  +#2#6#5'Width'#3#200#1#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'Cap'
-  +'tion'#6#9'Menu Tree'#11'ParentColor'#8#0#0#9'TTreeView'#9'TVIDEMenu'#4'Left'
-  +#2#0#6'Height'#3#223#0#3'Top'#2#30#5'Width'#3#212#1#5'Align'#7#5'alTop'#7'An'
-  +'chors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17'DefaultItemHeight'
-  +#2#19#8'ReadOnly'#9#8'TabOrder'#2#0#8'OnChange'#7#15'TVIDEMenuChange'#7'Opti'
-  +'ons'#11#17'tvoAutoItemHeight'#16'tvoHideSelection'#21'tvoKeepCollapsedNodes'
-  +#11'tvoReadOnly'#14'tvoShowButtons'#12'tvoShowLines'#11'tvoShowRoot'#11'tvoT'
-  +'oolTips'#0#0#0#5'TMemo'#5'LPAth'#24'AnchorSideBottom.Control'#7#6'BCLose'#4
-  +'Left'#2#0#6'Height'#2'$'#3'Top'#3#2#1#5'Width'#3#212#1#5'Align'#7#5'alTop'#7
-  +'Anchors'#11#8'akBottom'#0#20'BorderSpacing.Bottom'#2#6#5'Color'#7#9'clBtnFa'
-  +'ce'#13'Lines.Strings'#1#6#22'Path of selected item:'#0#8'TabOrder'#2#1#0#0#9
-  +'TSplitter'#9'Splitter1'#6'Cursor'#7#8'crVSplit'#4'Left'#2#0#6'Height'#2#5#3
-  +'Top'#3#253#0#5'Width'#3#212#1#5'Align'#7#5'alTop'#12'ResizeAnchor'#7#5'akTo'
-  +'p'#0#0#7'TBitBtn'#6'BCLose'#24'AnchorSideBottom.Control'#7#5'Owner'#21'Anch'
-  +'orSideBottom.Side'#7#9'asrBottom'#4'Left'#3#136#1#6'Height'#2#30#3'Top'#3','
-  +#1#5'Width'#2'K'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.Bot'
-  +'tom'#2#6#7'Caption'#6#6'&Close'#4'Kind'#7#7'bkClose'#11'ModalResult'#2#1#9
-  +'NumGlyphs'#2#0#8'TabOrder'#2#2#0#0#0
-]);
diff --git a/examples/exploremenu/frmexploremenu.pas b/examples/exploremenu/frmexploremenu.pas
index 9a499840c3..54947c0b31 100644
--- a/examples/exploremenu/frmexploremenu.pas
+++ b/examples/exploremenu/frmexploremenu.pas
@@ -50,12 +50,13 @@ Procedure Register;
 
 implementation
 
+{$R *.lfm}
 
 Const
   SExploreIDEMEnu = 'ExploreIDEMEnu';
   
 Resourcestring
-  SExploreIDEMenUCaption = 'Explore IDE menu...';
+  SExploreIDEMenUCaption = 'Explore IDE menus ...';
   SSelectedPath = 'Path of selected item: ';
   
 Procedure ShowMenu(Sender : TObject);
@@ -73,7 +74,7 @@ end;
 Procedure Register;
 
 begin
-  RegisterIDEMenuCommand(itmSecondaryTools,SExploreIDEMEnu,
+  RegisterIDEMenuCommand(itmViewSecondaryWindows,SExploreIDEMEnu,
                          SExploreIDEMenuCaption,nil,@ShowMenu,nil,'');
 end;
 
@@ -114,8 +115,7 @@ begin
       LPath.Text:=SSelectedPath+GetPath;
 end;
 
-procedure TExploreIDEMenuForm.AddMenuItem(ParentNode : TTreeNode;
-  Item : TIDEMenuItem);
+procedure TExploreIDEMenuForm.AddMenuItem(ParentNode : TTreeNode; Item : TIDEMenuItem);
 
 Var
   N : TTreeNode;
@@ -136,8 +136,5 @@ begin
     end;
 end;
 
-initialization
-  {$I frmexploremenu.lrs}
-
 end.