cleanup example rtticontrols grid

git-svn-id: trunk@8012 -

components/rtticontrols/examples/examplegrid1.lfm

@@ -4,15 +4,15 @@ object Form1: TForm1
   ClientWidth = 400
   OnCreate = Form1Create
   OnDestroy = Form1Destroy
-  OnMouseDown = Form1MouseDown
-  PixelsPerInch = 75
-  HorzScrollBar.Page = 401
-  VertScrollBar.Page = 301
+  PixelsPerInch = 112
+  HorzScrollBar.Page = 399
+  VertScrollBar.Page = 299
   Left = 290
   Height = 300
   Top = 163
   Width = 400
   object TIGrid1: TTIGrid
+    BorderSpacing.OnChange = nil
     BorderStyle = bsSingle
     Color = clWhite
     DefaultRowHeight = 24
@@ -23,27 +23,15 @@ object Form1: TForm1
     Height = 166
     Top = 16
     Width = 316
-    ColWidths = (
-      64
-      64
-      64
-      64
-      64
-    )
-    RowHeights = (
-      24
-      24
-      24
-      24
-      24
-    )
   end
   object TICheckBox1: TTICheckBox
     AutoSize = True
+    BorderSpacing.OnChange = nil
     Caption = 'goColSizing'
     Link.TIObject = TIGrid1
     Link.TIPropertyName = 'Options'
     Link.TIElementName = 'goColSizing'
+    TabOrder = 0
     TabStop = True
     Left = 34
     Height = 23

components/rtticontrols/examples/examplegrid1.lrs

@@ -3,19 +3,18 @@
 LazarusResources.Add('TForm1','FORMDATA',[
   'TPF0'#6'TForm1'#5'Form1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3','#1#11'Cl'
   +'ientWidth'#3#144#1#8'OnCreate'#7#11'Form1Create'#9'OnDestroy'#7#12'Form1Des'
-  +'troy'#11'OnMouseDown'#7#14'Form1MouseDown'#13'PixelsPerInch'#2'K'#18'HorzSc'
-  +'rollBar.Page'#3#145#1#18'VertScrollBar.Page'#3'-'#1#4'Left'#3'"'#1#6'Height'
-  +#3','#1#3'Top'#3#163#0#5'Width'#3#144#1#0#7'TTIGrid'#7'TIGrid1'#11'BorderSty'
-  +'le'#7#8'bsSingle'#5'Color'#7#7'clWhite'#16'DefaultRowHeight'#2#24#6'Filter'
-  +#11#9'tkInteger'#6'tkChar'#13'tkEnumeration'#7'tkFloat'#9'tkSString'#9'tkLSt'
-  +'ring'#9'tkAString'#9'tkWString'#9'tkVariant'#7'tkWChar'#6'tkBool'#7'tkInt64'
-  +#7'tkQWord'#0#10'FixedColor'#7#9'clBtnFace'#7'Options'#11#15'goFixedVertLine'
-  +#15'goFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9'goEdi'
-  +'ting'#18'goAlwaysShowEditor'#14'goSmoothScroll'#0#4'Left'#2' '#6'Height'#3
-  +#166#0#3'Top'#2#16#5'Width'#3'<'#1#9'ColWidths'#1#2'@'#2'@'#2'@'#2'@'#2'@'#0
-  +#10'RowHeights'#1#2#24#2#24#2#24#2#24#2#24#0#0#0#11'TTICheckBox'#11'TICheckB'
-  +'ox1'#8'AutoSize'#9#7'Caption'#6#11'goColSizing'#13'Link.TIObject'#7#7'TIGri'
-  +'d1'#19'Link.TIPropertyName'#6#7'Options'#18'Link.TIElementName'#6#11'goColS'
-  +'izing'#7'TabStop'#9#4'Left'#2'"'#6'Height'#2#23#3'Top'#3#216#0#5'Width'#2'Z'
-  +#0#0#0
+  +'troy'#13'PixelsPerInch'#2'p'#18'HorzScrollBar.Page'#3#143#1#18'VertScrollBa'
+  +'r.Page'#3'+'#1#4'Left'#3'"'#1#6'Height'#3','#1#3'Top'#3#163#0#5'Width'#3#144
+  +#1#0#7'TTIGrid'#7'TIGrid1'#22'BorderSpacing.OnChange'#13#11'BorderStyle'#7#8
+  +'bsSingle'#5'Color'#7#7'clWhite'#16'DefaultRowHeight'#2#24#6'Filter'#11#9'tk'
+  +'Integer'#6'tkChar'#13'tkEnumeration'#7'tkFloat'#9'tkSString'#9'tkLString'#9
+  +'tkAString'#9'tkWString'#9'tkVariant'#7'tkWChar'#6'tkBool'#7'tkInt64'#7'tkQW'
+  +'ord'#0#10'FixedColor'#7#9'clBtnFace'#7'Options'#11#15'goFixedVertLine'#15'g'
+  +'oFixedHorzLine'#10'goVertLine'#10'goHorzLine'#13'goRangeSelect'#9'goEditing'
+  +#18'goAlwaysShowEditor'#14'goSmoothScroll'#0#4'Left'#2' '#6'Height'#3#166#0#3
+  +'Top'#2#16#5'Width'#3'<'#1#0#0#11'TTICheckBox'#11'TICheckBox1'#8'AutoSize'#9
+  +#22'BorderSpacing.OnChange'#13#7'Caption'#6#11'goColSizing'#13'Link.TIObject'
+  +#7#7'TIGrid1'#19'Link.TIPropertyName'#6#7'Options'#18'Link.TIElementName'#6
+  +#11'goColSizing'#8'TabOrder'#2#0#7'TabStop'#9#4'Left'#2'"'#6'Height'#2#23#3
+  +'Top'#3#216#0#5'Width'#2'Z'#0#0#0
 ]);

components/rtticontrols/examples/examplegrid1.pas

@@ -30,8 +30,6 @@ type
     TIGrid1: TTIGrid;
     procedure Form1Create(Sender: TObject);
     procedure Form1Destroy(Sender: TObject);
-    procedure Form1MouseDown(Sender: TOBject; Button: TMouseButton;
-      Shift: TShiftState; X, Y: Integer);
   private
     { private declarations }
   public
@@ -75,12 +73,6 @@ begin
   MyCollection.Free;
 end;
 
-procedure TForm1.Form1MouseDown(Sender: TOBject; Button: TMouseButton;
-  Shift: TShiftState; X, Y: Integer);
-begin
-  WriteLn('------------------------------');
-end;
-
 initialization
   {$I examplegrid1.lrs}
 

components/rtticontrols/examples/exampleprojectgrid1.lpi

@@ -9,10 +9,10 @@
         <SaveOnlyProjectUnits Value="True"/>
       </Flags>
       <MainUnit Value="0"/>
-      <ActiveEditorIndexAtStart Value="2"/>
       <IconPath Value="./"/>
       <TargetFileExt Value=""/>
       <Title Value="exampleprojectgrid1"/>
+      <ActiveEditorIndexAtStart Value="0"/>
     </General>
     <Units Count="2">
       <Unit0>
@@ -22,14 +22,14 @@
         <UsageCount Value="23"/>
       </Unit0>
       <Unit1>
-        <CursorPos X="18" Y="59"/>
+        <CursorPos X="24" Y="28"/>
         <EditorIndex Value="0"/>
         <Filename Value="examplegrid1.pas"/>
         <ComponentName Value="Form1"/>
         <IsPartOfProject Value="True"/>
         <Loaded Value="True"/>
         <ResourceFilename Value="examplegrid1.lrs"/>
-        <TopLine Value="39"/>
+        <TopLine Value="1"/>
         <UnitName Value="ExampleGrid1"/>
         <UsageCount Value="23"/>
       </Unit1>
@@ -57,7 +57,7 @@
     </RequiredPackages>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="4"/>
+    <Version Value="5"/>
     <SearchPaths>
       <SrcPath Value="$(LazarusDir)/lcl/;$(LazarusDir)/lcl/interfaces/$(LCLWidgetType)/"/>
     </SearchPaths>