examples: dockingmanager toolbar improved autosizing

git-svn-id: trunk@20306 -

examples/dockmanager/toolbar/test1.lpi

@@ -4,16 +4,14 @@
     <PathDelim Value="\"/>
     <Version Value="7"/>
     <General>
+      <SessionStorage Value="InIDEConfig"/>
       <MainUnit Value="0"/>
       <TargetFileExt Value=".exe"/>
       <Title Value="test1"/>
       <UseXPManifest Value="True"/>
-      <ActiveEditorIndexAtStart Value="1"/>
     </General>
     <VersionInfo>
       <ProjectVersion Value=""/>
-      <Language Value=""/>
-      <CharSet Value=""/>
     </VersionInfo>
     <PublishOptions>
       <Version Value="2"/>
@@ -25,7 +23,7 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
+        <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
       </local>
     </RunParams>
     <RequiredPackages Count="1">
@@ -38,11 +36,6 @@
         <Filename Value="test1.lpr"/>
         <IsPartOfProject Value="True"/>
         <UnitName Value="test1"/>
-        <CursorPos X="14" Y="1"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="2"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
       </Unit0>
       <Unit1>
         <Filename Value="unit1.pas"/>
@@ -50,24 +43,12 @@
         <IsPartOfProject Value="True"/>
         <ResourceBaseClass Value="Form"/>
         <UnitName Value="Unit1"/>
-        <CursorPos X="17" Y="16"/>
-        <TopLine Value="15"/>
-        <EditorIndex Value="0"/>
-        <UsageCount Value="21"/>
-        <Loaded Value="True"/>
       </Unit1>
       <Unit2>
         <Filename Value="README.txt"/>
         <IsPartOfProject Value="True"/>
-        <CursorPos X="1" Y="31"/>
-        <TopLine Value="1"/>
-        <EditorIndex Value="1"/>
-        <UsageCount Value="20"/>
-        <Loaded Value="True"/>
-        <SyntaxHighlighter Value="None"/>
       </Unit2>
     </Units>
-    <JumpHistory Count="0" HistoryIndex="-1"/>
   </ProjectOptions>
   <CompilerOptions>
     <Version Value="8"/>

examples/dockmanager/toolbar/unit1.lfm

@@ -13,6 +13,7 @@ object Form1: TForm1
     Height = 26
     Top = 0
     Width = 400
+    AutoSize = True
     BorderWidth = 2
     Caption = 'ToolBar1'
     EdgeBorders = [ebLeft, ebTop, ebRight, ebBottom]
@@ -40,17 +41,17 @@ object Form1: TForm1
   end
   object swInitSize: TCheckBox
     Left = 112
-    Height = 17
+    Height = 22
     Top = 88
-    Width = 90
+    Width = 118
     Caption = 'init button size'
     TabOrder = 2
   end
   object swView1: TCheckBox
     Left = 112
-    Height = 17
+    Height = 22
     Top = 112
-    Width = 108
+    Width = 139
     Caption = 'First button visible'
     OnClick = swView1Click
     TabOrder = 3

examples/dockmanager/toolbar/unit1.lrs

@@ -5,15 +5,15 @@ LazarusResources.Add('TForm1','FORMDATA',[
   +'idth'#3#144#1#13'ActiveControl'#7#10'swInitSize'#7'Caption'#6#5'Form1'#12'C'
   +'lientHeight'#3#139#0#11'ClientWidth'#3#144#1#10'LCLVersion'#6#6'0.9.27'#0#8
   +'TToolBar'#8'ToolBar1'#4'Left'#2#0#6'Height'#2#26#3'Top'#2#0#5'Width'#3#144#1
-  +#11'BorderWidth'#2#2#7'Caption'#6#8'ToolBar1'#11'EdgeBorders'#11#6'ebLeft'#5
-  +'ebTop'#7'ebRight'#8'ebBottom'#0#4'Flat'#8#12'ShowCaptions'#9#8'TabOrder'#2#0
-  +#0#11'TToolButton'#11'ToolButton1'#4'Left'#2#3#3'Top'#2#2#8'AutoSize'#9#7'Ca'
-  +'ption'#6#11'ToolButton0'#7'Grouped'#9#5'Style'#7#8'tbsCheck'#7'Visible'#8#0
-  +#0#0#7'TButton'#7'Button1'#4'Left'#2#8#6'Height'#2#25#3'Top'#2'X'#5'Width'#2
-  +'K'#7'Caption'#6#10'Add button'#7'OnClick'#7#12'Button1Click'#8'TabOrder'#2#1
-  +#0#0#9'TCheckBox'#10'swInitSize'#4'Left'#2'p'#6'Height'#2#17#3'Top'#2'X'#5'W'
-  +'idth'#2'Z'#7'Caption'#6#16'init button size'#8'TabOrder'#2#2#0#0#9'TCheckBo'
-  +'x'#7'swView1'#4'Left'#2'p'#6'Height'#2#17#3'Top'#2'p'#5'Width'#2'l'#7'Capti'
-  +'on'#6#20'First button visible'#7'OnClick'#7#12'swView1Click'#8'TabOrder'#2#3
-  +#0#0#0
+  +#8'AutoSize'#9#11'BorderWidth'#2#2#7'Caption'#6#8'ToolBar1'#11'EdgeBorders'
+  +#11#6'ebLeft'#5'ebTop'#7'ebRight'#8'ebBottom'#0#4'Flat'#8#12'ShowCaptions'#9
+  +#8'TabOrder'#2#0#0#11'TToolButton'#11'ToolButton1'#4'Left'#2#3#3'Top'#2#2#8
+  +'AutoSize'#9#7'Caption'#6#11'ToolButton0'#7'Grouped'#9#5'Style'#7#8'tbsCheck'
+  +#7'Visible'#8#0#0#0#7'TButton'#7'Button1'#4'Left'#2#8#6'Height'#2#25#3'Top'#2
+  +'X'#5'Width'#2'K'#7'Caption'#6#10'Add button'#7'OnClick'#7#12'Button1Click'#8
+  +'TabOrder'#2#1#0#0#9'TCheckBox'#10'swInitSize'#4'Left'#2'p'#6'Height'#2#22#3
+  +'Top'#2'X'#5'Width'#2'v'#7'Caption'#6#16'init button size'#8'TabOrder'#2#2#0
+  +#0#9'TCheckBox'#7'swView1'#4'Left'#2'p'#6'Height'#2#22#3'Top'#2'p'#5'Width'#3
+  +#139#0#7'Caption'#6#20'First button visible'#7'OnClick'#7#12'swView1Click'#8
+  +'TabOrder'#2#3#0#0#0
 ]);

examples/dockmanager/toolbar/unit1.pas

@@ -6,7 +6,7 @@ interface
 
 uses
   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
-  ComCtrls, StdCtrls;
+  ComCtrls, StdCtrls, LCLProc;
 
 type
   TForm1 = class(TForm)
@@ -35,6 +35,7 @@ var
   btn: TToolButton;
 begin
   btn := TToolButton.Create(ToolBar1);
+  btn.Name:='TestButton'+IntToStr(ToolBar1.ComponentCount);
   btn.Parent := ToolBar1;
   btn.Style := tbsCheck;
   btn.AutoSize := True;