diff --git a/components/rtticontrols/examples/examplegrid1.lfm b/components/rtticontrols/examples/examplegrid1.lfm index 3be52198be..c204eaba1a 100644 --- a/components/rtticontrols/examples/examplegrid1.lfm +++ b/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 diff --git a/components/rtticontrols/examples/examplegrid1.lrs b/components/rtticontrols/examples/examplegrid1.lrs index da8138e7c6..4c37145fe2 100644 --- a/components/rtticontrols/examples/examplegrid1.lrs +++ b/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 ]); diff --git a/components/rtticontrols/examples/examplegrid1.pas b/components/rtticontrols/examples/examplegrid1.pas index 82dbc1476e..ef6eeeaa25 100644 --- a/components/rtticontrols/examples/examplegrid1.pas +++ b/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} diff --git a/components/rtticontrols/examples/exampleprojectgrid1.lpi b/components/rtticontrols/examples/exampleprojectgrid1.lpi index 0a36623942..e5d1df60d9 100644 --- a/components/rtticontrols/examples/exampleprojectgrid1.lpi +++ b/components/rtticontrols/examples/exampleprojectgrid1.lpi @@ -9,10 +9,10 @@ - + <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>