paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 11:20:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

Examples, Autosize: removed LRS file

Browse Source 
git-svn-id: trunk@37605 -
This commit is contained in:
maxim 2012-06-10 15:52:13 +00:00
parent 6efbc9529f
commit 62c5770624
5 changed files with 86 additions and 97 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -3546,7 +3546,6 @@ examples/androidlcl/secondform.pas svneol=native#text/pascal
examples/autosize/childsizinglayout/childsizinglayout.lpi svneol=native#text/plain
examples/autosize/childsizinglayout/childsizinglayout.lpr svneol=native#text/plain
examples/autosize/childsizinglayout/mainunit.lfm svneol=native#text/plain
examples/autosize/childsizinglayout/mainunit.lrs svneol=native#text/pascal
examples/autosize/childsizinglayout/mainunit.pas svneol=native#text/plain
examples/barchart/chartdemo.lpi svneol=native#text/plain
examples/barchart/chartdemo.lpr svneol=native#text/pascal

26
examples/autosize/childsizinglayout/childsizinglayout.lpi
View File

@ -1,14 +1,16 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<PathDelim Value="\"/>
<Version Value="5"/>
<General>
<SessionStorage Value="InIDEConfig"/>
<MainUnit Value="0"/>
<IconPath Value=".\"/>
<TargetFileExt Value=""/>
<ResourceType Value="res"/>
</General>
<BuildModes Count="1">
<Item1 Name="default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)\publishedproject\"/>
@ -39,22 +41,26 @@
</Unit0>
<Unit1>
<Filename Value="mainunit.pas"/>
<ComponentName Value="ChildsizingLayoutDemoForm"/>
<IsPartOfProject Value="True"/>
<ResourceFilename Value="mainunit.lrs"/>
<ComponentName Value="ChildsizingLayoutDemoForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="MainUnit"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="5"/>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
<IncludeFiles Value="$(ProjOutDir)"/>
<SrcPath Value="$(LazarusDir)\lcl;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)"/>
</SearchPaths>
<CodeGeneration>
<Generate Value="Faster"/>
</CodeGeneration>
<Parsing>
<SyntaxOptions>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Linking>
<Options>
<Win32>

113
examples/autosize/childsizinglayout/mainunit.lfm
View File

@ -1,49 +1,66 @@
object ChildsizingLayoutDemoForm: TChildsizingLayoutDemoForm
Caption = 'Childsizing.Layout Demonstration'
ClientHeight = 463
ClientWidth = 728
OnCreate = FormCreate
PixelsPerInch = 112
HorzScrollBar.Page = 727
VertScrollBar.Page = 462
Left = 290
Height = 463
Top = 163
Width = 728
HorzScrollBar.Page = 727
VertScrollBar.Page = 462
Caption = 'Childsizing.Layout Demonstration'
ClientHeight = 463
ClientWidth = 728
OnCreate = FormCreate
LCLVersion = '1.1'
object LayoutLabel: TLabel
AutoSize = False
Caption = 'This is a demonstration of the TWinControl.ChildSizing.Layout property. First change in the radiogroupbox to the right the Layout and watch the LayoutGroupbox. The buttons will automatically align.'
Color = clNone
WordWrap = True
Left = 10
Height = 102
Top = 10
Width = 367
AutoSize = False
Caption = 'This is a demonstration of the TWinControl.ChildSizing.Layout property. First change in the radiogroupbox to the right the Layout and watch the LayoutGroupbox. The buttons will automatically align.'
ParentColor = False
WordWrap = True
end
object LayoutGroupBox: TGroupBox
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'LayoutGroupBox'
ClientHeight = 212
ClientWidth = 376
ParentColor = True
TabOrder = 0
Left = 335
Height = 229
Top = 225
Width = 380
Anchors = [akTop, akLeft, akRight, akBottom]
Caption = 'LayoutGroupBox'
TabOrder = 0
end
object LayoutTIRadioGroup: TTIRadioGroup
BorderSpacing.OnChange = nil
Caption = 'LayoutGroupbox.ChildSizing.Layout'
ParentColor = True
Left = 390
Height = 102
Top = 10
Width = 321
Caption = 'LayoutGroupbox.ChildSizing.Layout'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1
end
object ButtonCountRadioGroup: TRadioGroup
BorderSpacing.OnChange = nil
Left = 20
Height = 110
Top = 130
Width = 260
AutoFill = True
Caption = 'Number of Buttons'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclTopToBottomThenLeftToRight
ChildSizing.ControlsPerLine = 3
ClientHeight = 92
ClientWidth = 256
ColumnLayout = clVerticalThenHorizontal
Columns = 4
Items.Strings = (
@ -60,17 +77,25 @@ object ChildsizingLayoutDemoForm: TChildsizingLayoutDemoForm
'17'
)
OnClick = ButtonCountRadioGroupClick
ParentColor = True
Left = 20
Height = 110
Top = 130
Width = 260
TabOrder = 2
end
object ControlsPerLineTIRadioGroup: TTIRadioGroup
BorderSpacing.OnChange = nil
Left = 290
Height = 55
Hint = 'The LineLength property sets the number of controls per column/row.'
Top = 130
Width = 421
Caption = 'LayoutGroupbox.ChildSizing.ControlsPerLine'
ChildSizing.LeftRightSpacing = 6
ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize
ChildSizing.ShrinkHorizontal = crsScaleChilds
ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 6
Columns = 6
Link.AliasValues.Strings = (
Link.AliasValuesStrings = (
'0=0'
'1=1'
'2=2'
@ -78,34 +103,30 @@ object ChildsizingLayoutDemoForm: TChildsizingLayoutDemoForm
'4=4'
'5=5'
)
ParentColor = True
ParentShowHint = False
ShowHint = True
Left = 290
Height = 55
Hint = 'The LineLength property sets the number of controls per column/row.'
Top = 130
Width = 421
end
object ChildSizingGroupBox: TGroupBox
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.OnChange = nil
Caption = 'LayoutGroupbox.ChildSizing'
ClientHeight = 184
ClientWidth = 256
ParentColor = True
TabOrder = 4
Left = 20
Height = 201
Top = 253
Width = 260
Anchors = [akTop, akLeft, akBottom]
Caption = 'LayoutGroupbox.ChildSizing'
ClientHeight = 183
ClientWidth = 256
TabOrder = 4
object ChildSizingTIPropertyGrid: TTIPropertyGrid
Align = alClient
BorderSpacing.OnChange = nil
BorderStyle = bsSingle
ValueFont.Color = clMaroon
Height = 184
Left = 0
Height = 183
Top = 0
Width = 256
Align = alClient
DefaultValueFont.Color = clWindowText
Filter = [tkInteger, tkChar, tkEnumeration, tkFloat, tkSet, tkMethod, tkSString, tkLString, tkAString, tkWString, tkVariant, tkArray, tkRecord, tkInterface, tkClass, tkObject, tkWChar, tkBool, tkInt64, tkQWord, tkDynArray, tkInterfaceRaw, tkProcVar, tkUString, tkUChar, tkHelper]
Indent = 9
NameFont.Color = clWindowText
ValueFont.Color = clMaroon
end
end
end

36
examples/autosize/childsizinglayout/mainunit.lrs
View File

@ -1,36 +0,0 @@
LazarusResources.Add('TChildsizingLayoutDemoForm','FORMDATA',[
'TPF0'#26'TChildsizingLayoutDemoForm'#25'ChildsizingLayoutDemoForm'#7'Caption'
+#6' Childsizing.Layout Demonstration'#12'ClientHeight'#3#207#1#11'ClientWidt'
+'h'#3#216#2#8'OnCreate'#7#10'FormCreate'#13'PixelsPerInch'#2'p'#18'HorzScrol'
+'lBar.Page'#3#215#2#18'VertScrollBar.Page'#3#206#1#4'Left'#3'"'#1#6'Height'#3
+#207#1#3'Top'#3#163#0#5'Width'#3#216#2#0#6'TLabel'#11'LayoutLabel'#8'AutoSiz'
+'e'#8#7'Caption'#6#197'This is a demonstration of the TWinControl.ChildSizin'
+'g.Layout property. First change in the radiogroupbox to the right the Layou'
+'t and watch the LayoutGroupbox. The buttons will automatically align.'#5'Co'
+'lor'#7#6'clNone'#8'WordWrap'#9#4'Left'#2#10#6'Height'#2'f'#3'Top'#2#10#5'Wi'
+'dth'#3'o'#1#0#0#9'TGroupBox'#14'LayoutGroupBox'#7'Anchors'#11#5'akTop'#6'ak'
+'Left'#7'akRight'#8'akBottom'#0#7'Caption'#6#14'LayoutGroupBox'#12'ClientHei'
+'ght'#3#212#0#11'ClientWidth'#3'x'#1#11'ParentColor'#9#8'TabOrder'#2#0#4'Lef'
+'t'#3'O'#1#6'Height'#3#229#0#3'Top'#3#225#0#5'Width'#3'|'#1#0#0#13'TTIRadioG'
+'roup'#18'LayoutTIRadioGroup'#22'BorderSpacing.OnChange'#13#7'Caption'#6'!La'
+'youtGroupbox.ChildSizing.Layout'#11'ParentColor'#9#4'Left'#3#134#1#6'Height'
+#2'f'#3'Top'#2#10#5'Width'#3'A'#1#0#0#11'TRadioGroup'#21'ButtonCountRadioGro'
+'up'#22'BorderSpacing.OnChange'#13#7'Caption'#6#17'Number of Buttons'#12'Col'
+'umnLayout'#7#24'clVerticalThenHorizontal'#7'Columns'#2#4#13'Items.Strings'#1
+#6#1'1'#6#1'2'#6#1'3'#6#1'4'#6#1'5'#6#1'7'#6#1'9'#6#2'11'#6#2'13'#6#2'15'#6#2
+'17'#0#7'OnClick'#7#26'ButtonCountRadioGroupClick'#11'ParentColor'#9#4'Left'
+#2#20#6'Height'#2'n'#3'Top'#3#130#0#5'Width'#3#4#1#0#0#13'TTIRadioGroup'#27
+'ControlsPerLineTIRadioGroup'#22'BorderSpacing.OnChange'#13#7'Caption'#6'*La'
+'youtGroupbox.ChildSizing.ControlsPerLine'#7'Columns'#2#6#24'Link.AliasValue'
+'s.Strings'#1#6#3'0=0'#6#3'1=1'#6#3'2=2'#6#3'3=3'#6#3'4=4'#6#3'5=5'#0#11'Par'
+'entColor'#9#14'ParentShowHint'#8#8'ShowHint'#9#4'Left'#3'"'#1#6'Height'#2'7'
+#4'Hint'#6'CThe LineLength property sets the number of controls per column/r'
+'ow.'#3'Top'#3#130#0#5'Width'#3#165#1#0#0#9'TGroupBox'#19'ChildSizingGroupBo'
+'x'#7'Anchors'#11#5'akTop'#6'akLeft'#8'akBottom'#0#22'BorderSpacing.OnChange'
+#13#7'Caption'#6#26'LayoutGroupbox.ChildSizing'#12'ClientHeight'#3#184#0#11
+'ClientWidth'#3#0#1#11'ParentColor'#9#8'TabOrder'#2#4#4'Left'#2#20#6'Height'
+#3#201#0#3'Top'#3#253#0#5'Width'#3#4#1#0#15'TTIPropertyGrid'#25'ChildSizingT'
+'IPropertyGrid'#5'Align'#7#8'alClient'#22'BorderSpacing.OnChange'#13#11'Bord'
+'erStyle'#7#8'bsSingle'#15'ValueFont.Color'#7#8'clMaroon'#6'Height'#3#184#0#5
+'Width'#3#0#1#0#0#0#0
]);

7
examples/autosize/childsizinglayout/mainunit.pas
View File

@ -25,7 +25,7 @@ unit MainUnit;
interface
uses
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, StdCtrls,
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
Buttons, RTTICtrls, ExtCtrls, RTTIGrids;
type
@ -52,6 +52,8 @@ var
implementation
{$R *.lfm}
{ TChildsizingLayoutDemoForm }
procedure TChildsizingLayoutDemoForm.FormCreate(Sender: TObject);
@ -105,8 +107,5 @@ begin
ButtonCountRadioGroup.Items[ButtonCountRadioGroup.ItemIndex],3));
end;
initialization
{$I mainunit.lrs}
end.