paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-27 15:25:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: Moved "Explore Menus" to View menu, improve texts and use $R resource.

Browse Source 
git-svn-id: trunk@29764 -
This commit is contained in:
juha 2011-03-09 14:12:36 +00:00
parent e6e773b140
commit ff4c1eb7c2
4 changed files with 12 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -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

16
examples/exploremenu/frmexploremenu.lfm
View File

@ -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

27
examples/exploremenu/frmexploremenu.lrs
View File

@ -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
]);

11
examples/exploremenu/frmexploremenu.pas
View File

@ -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.