From 79e3ae5aa64866374e7f272afee8d55acdce7b8d Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 10 Jan 2006 14:09:39 +0000 Subject: [PATCH] improved autosizing of explorermenu example from Darius git-svn-id: trunk@8479 - --- examples/exploremenu/frmexploremenu.lfm | 78 +++++++++++++++---------- examples/exploremenu/frmexploremenu.lrs | 31 +++++----- examples/exploremenu/frmexploremenu.pas | 9 +-- 3 files changed, 71 insertions(+), 47 deletions(-) diff --git a/examples/exploremenu/frmexploremenu.lfm b/examples/exploremenu/frmexploremenu.lfm index 431aa41da5..67518d455e 100644 --- a/examples/exploremenu/frmexploremenu.lfm +++ b/examples/exploremenu/frmexploremenu.lfm @@ -8,51 +8,69 @@ object ExploreIDEMenuForm: TExploreIDEMenuForm Position = poDesktopCenter HorzScrollBar.Page = 467 VertScrollBar.Page = 335 - Left = 453 + Left = 434 Height = 336 - Top = 450 + Top = 427 Width = 468 object LTree: TLabel + Align = alTop + BorderSpacing.Around = 6 Caption = 'Menu Tree' Color = clNone ParentColor = False - Left = 8 + Left = 6 Height = 13 - Top = 10 - Width = 62 - end - object LPAth: TLabel - Anchors = [akLeft, akRight, akBottom] - AutoSize = False - Caption = 'Path of selected item:' - Color = clNone - Layout = tlCenter - ParentColor = False - Left = 8 - Height = 51 - Top = 280 - Width = 362 + Top = 6 + Width = 456 end object TVIDEMenu: TTreeView + Align = alTop Anchors = [akTop, akLeft, akRight, akBottom] DefaultItemHeight = 14 TabOrder = 0 OnChange = TVIDEMenuChange - Left = 8 - Height = 233 - Top = 32 - Width = 449 + Height = 228 + Top = 25 + Width = 468 end - object BCLose: TButton - Anchors = [akRight, akBottom] - BorderSpacing.InnerBorder = 2 - Cancel = True - Caption = '&Close' - Default = True - ModalResult = 1 + object LPAth: TMemo + Align = alTop + Anchors = [akBottom] + BorderSpacing.Bottom = 6 + Color = clBtnFace + Lines.Strings = ( + 'Path of selected item:' + ) TabOrder = 1 - Left = 382 - Height = 25 + AnchorSideBottom.Control = BCLose + Height = 36 + Top = 258 + Width = 468 + end + object Splitter1: TSplitter + Align = alTop + Cursor = crVSplit + Height = 5 + Width = 468 + ResizeAnchor = akTop + Cursor = crVSplit + Height = 5 + Top = 253 + Width = 468 + end + object BCLose: TBitBtn + Anchors = [akRight, akBottom] + BorderSpacing.Bottom = 6 + BorderSpacing.InnerBorder = 2 + Caption = '&Close' + Kind = bkClose + ModalResult = 1 + NumGlyphs = 0 + TabOrder = 2 + AnchorSideBottom.Control = Owner + AnchorSideBottom.Side = asrBottom + Left = 392 + Height = 30 Top = 300 Width = 75 end diff --git a/examples/exploremenu/frmexploremenu.lrs b/examples/exploremenu/frmexploremenu.lrs index 801680f469..5ed5d906b5 100644 --- a/examples/exploremenu/frmexploremenu.lrs +++ b/examples/exploremenu/frmexploremenu.lrs @@ -5,17 +5,22 @@ LazarusResources.Add('TExploreIDEMenuForm','FORMDATA',[ +'VIDEMenu'#7'Caption'#6#16'Lazarus IDE menu'#12'ClientHeight'#3'P'#1#11'Clie' +'ntWidth'#3#212#1#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'p'#8'Posi' +'tion'#7#15'poDesktopCenter'#18'HorzScrollBar.Page'#3#211#1#18'VertScrollBar' - +'.Page'#3'O'#1#4'Left'#3#197#1#6'Height'#3'P'#1#3'Top'#3#194#1#5'Width'#3#212 - +#1#0#6'TLabel'#5'LTree'#7'Caption'#6#9'Menu Tree'#5'Color'#7#6'clNone'#11'Pa' - +'rentColor'#8#4'Left'#2#8#6'Height'#2#13#3'Top'#2#10#5'Width'#2'>'#0#0#6'TLa' - +'bel'#5'LPAth'#7'Anchors'#11#6'akLeft'#7'akRight'#8'akBottom'#0#8'AutoSize'#8 - +#7'Caption'#6#22'Path of selected item:'#5'Color'#7#6'clNone'#6'Layout'#7#8 - +'tlCenter'#11'ParentColor'#8#4'Left'#2#8#6'Height'#2'3'#3'Top'#3#24#1#5'Widt' - +'h'#3'j'#1#0#0#9'TTreeView'#9'TVIDEMenu'#7'Anchors'#11#5'akTop'#6'akLeft'#7 - +'akRight'#8'akBottom'#0#17'DefaultItemHeight'#2#14#8'TabOrder'#2#0#8'OnChang' - +'e'#7#15'TVIDEMenuChange'#4'Left'#2#8#6'Height'#3#233#0#3'Top'#2' '#5'Width' - +#3#193#1#0#0#7'TButton'#6'BCLose'#7'Anchors'#11#7'akRight'#8'akBottom'#0#25 - +'BorderSpacing.InnerBorder'#2#2#6'Cancel'#9#7'Caption'#6#6'&Close'#7'Default' - +#9#11'ModalResult'#2#1#8'TabOrder'#2#1#4'Left'#3'~'#1#6'Height'#2#25#3'Top'#3 - +','#1#5'Width'#2'K'#0#0#0 + +'.Page'#3'O'#1#4'Left'#3#178#1#6'Height'#3'P'#1#3'Top'#3#171#1#5'Width'#3#212 + +#1#0#6'TLabel'#5'LTree'#5'Align'#7#5'alTop'#20'BorderSpacing.Around'#2#6#7'C' + +'aption'#6#9'Menu Tree'#5'Color'#7#6'clNone'#11'ParentColor'#8#4'Left'#2#6#6 + +'Height'#2#13#3'Top'#2#6#5'Width'#3#200#1#0#0#9'TTreeView'#9'TVIDEMenu'#5'Al' + +'ign'#7#5'alTop'#7'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#17 + +'DefaultItemHeight'#2#14#8'TabOrder'#2#0#8'OnChange'#7#15'TVIDEMenuChange'#6 + +'Height'#3#228#0#3'Top'#2#25#5'Width'#3#212#1#0#0#5'TMemo'#5'LPAth'#5'Align' + +#7#5'alTop'#7'Anchors'#11#8'akBottom'#0#20'BorderSpacing.Bottom'#2#6#5'Color' + +#7#9'clBtnFace'#13'Lines.Strings'#1#6#22'Path of selected item:'#0#8'TabOrde' + +'r'#2#1#24'AnchorSideBottom.Control'#7#6'BCLose'#6'Height'#2'$'#3'Top'#3#2#1 + +#5'Width'#3#212#1#0#0#9'TSplitter'#9'Splitter1'#5'Align'#7#5'alTop'#6'Cursor' + +#7#8'crVSplit'#6'Height'#2#5#5'Width'#3#212#1#12'ResizeAnchor'#7#5'akTop'#6 + +'Cursor'#7#8'crVSplit'#6'Height'#2#5#3'Top'#3#253#0#5'Width'#3#212#1#0#0#7'T' + +'BitBtn'#6'BCLose'#7'Anchors'#11#7'akRight'#8'akBottom'#0#20'BorderSpacing.B' + +'ottom'#2#6#25'BorderSpacing.InnerBorder'#2#2#7'Caption'#6#6'&Close'#4'Kind' + +#7#7'bkClose'#11'ModalResult'#2#1#9'NumGlyphs'#2#0#8'TabOrder'#2#2#24'Anchor' + +'SideBottom.Control'#7#5'Owner'#21'AnchorSideBottom.Side'#7#9'asrBottom'#4'L' + +'eft'#3#136#1#6'Height'#2#30#3'Top'#3','#1#5'Width'#2'K'#0#0#0 ]); diff --git a/examples/exploremenu/frmexploremenu.pas b/examples/exploremenu/frmexploremenu.pas index 5bf8d57806..4ef5ac5f7d 100644 --- a/examples/exploremenu/frmexploremenu.pas +++ b/examples/exploremenu/frmexploremenu.pas @@ -22,16 +22,17 @@ interface uses Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls, - StdCtrls, Buttons, menuintf; + StdCtrls, Buttons, menuintf, ExtCtrls; type { TExploreIDEMenuForm } TExploreIDEMenuForm = class(TForm) - BCLose: TButton; - LPAth: TLabel; + BCLose: TBitBtn; LTree: TLabel; + LPAth: TMemo; + Splitter1: TSplitter; TVIDEMenu: TTreeView; procedure FormCreate(Sender: TObject); procedure TVIDEMenuChange(Sender: TObject; Node: TTreeNode); @@ -105,7 +106,7 @@ begin N:=TVIDEMenu.Selected; If Assigned(N) and Assigned(N.Data) then With TIDEMenuItem(N.Data) do - LPath.Caption:=SSelectedPath+GetPath; + LPath.Text:=SSelectedPath+GetPath; end; procedure TExploreIDEMenuForm.AddMenuItem(ParentNode : TTreeNode;Item : TIDEMenuItem);