pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* update demo to use anchors

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1441 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2011-01-13 20:15:41 +00:00
parent e9a0381de1
commit 78d2e5e148
2 changed files with 54 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

90
components/smnetgradient/demo/unit1.lfm
View File

@@ -1,17 +1,20 @@
object MainForm: TMainForm object MainForm: TMainForm
Left = 406 Left = 388
Height = 397 Height = 394
Top = 215 Top = 237
Width = 322 Width = 296
Caption = 'NetGradient Demo' Caption = 'NetGradient Demo'
ClientHeight = 397 ChildSizing.VerticalSpacing = 2
ClientWidth = 322 ChildSizing.ControlsPerLine = 8
ClientHeight = 394
ClientWidth = 296
Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object NetGradient1: TNetGradient object NetGradient1: TNetGradient
Left = 6 Left = 0
Height = 39 Height = 40
Top = 3 Top = 0
Width = 313 Width = 296
BeginColor = clLime BeginColor = clLime
CaptionAlignment = taLeftJustify CaptionAlignment = taLeftJustify
CaptionLayout = tlTop CaptionLayout = tlTop
@@ -21,15 +24,16 @@ object MainForm: TMainForm
Caption = 'Caption' Caption = 'Caption'
TextTop = 0 TextTop = 0
TextLeft = 0 TextLeft = 0
SubCaption.Caption = 'SubCaption' SubCaption.Caption = 'SubCaption 1'
SubCaption.MarginLeft = 0 SubCaption.MarginLeft = 0
Align = alTop
BorderWidth = 2 BorderWidth = 2
end end
object NetGradient2: TNetGradient object NetGradient2: TNetGradient
Left = 6 Left = 0
Height = 32 Height = 40
Top = 45 Top = 42
Width = 312 Width = 296
BevelOuter = bvLowered BevelOuter = bvLowered
BeginColor = clSkyBlue BeginColor = clSkyBlue
CaptionAlignment = taCenter CaptionAlignment = taCenter
@@ -39,12 +43,14 @@ object MainForm: TMainForm
TextTop = 0 TextTop = 0
TextLeft = 0 TextLeft = 0
SubCaption.Caption = 'SubCaption 2' SubCaption.Caption = 'SubCaption 2'
SubCaption.MarginLeft = 1
Align = alTop
end end
object NetGradient3: TNetGradient object NetGradient3: TNetGradient
Left = 6 Left = 0
Height = 47 Height = 40
Top = 78 Top = 84
Width = 312 Width = 296
BevelInner = bvLowered BevelInner = bvLowered
BeginColor = clSilver BeginColor = clSilver
CaptionAlignment = taLeftJustify CaptionAlignment = taLeftJustify
@@ -61,14 +67,16 @@ object MainForm: TMainForm
TextTop = 0 TextTop = 0
TextLeft = 0 TextLeft = 0
SubCaption.Caption = 'Sub Caption 3' SubCaption.Caption = 'Sub Caption 3'
SubCaption.MarginLeft = 4
SubCaption.Font.Color = clBlue SubCaption.Font.Color = clBlue
SubCaption.Font.Style = [fsBold] SubCaption.Font.Style = [fsBold]
Align = alTop
end end
object NetGradient4: TNetGradient object NetGradient4: TNetGradient
Left = 6 Left = 0
Height = 60 Height = 60
Top = 216 Top = 210
Width = 313 Width = 296
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
BeginColor = clRed BeginColor = clRed
@@ -81,15 +89,16 @@ object MainForm: TMainForm
SubCaption.Caption = 'SubCaption 4' SubCaption.Caption = 'SubCaption 4'
SubCaption.Font.Color = clRed SubCaption.Font.Color = clRed
SubCaption.Font.Style = [fsBold, fsItalic] SubCaption.Font.Style = [fsBold, fsItalic]
Align = alTop
end end
object NetGradient5: TNetGradient object NetGradient5: TNetGradient
Left = 6 Left = 0
Height = 44 Height = 40
Top = 126 Top = 126
Width = 312 Width = 296
BevelInner = bvLowered BevelInner = bvLowered
BeginColor = clSilver BeginColor = clSilver
CaptionAlignment = taLeftJustify CaptionAlignment = taCenter
CaptionLayout = tlTop CaptionLayout = tlTop
EndColor = 10841401 EndColor = 10841401
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
@@ -101,16 +110,18 @@ object MainForm: TMainForm
Font.Style = [fsBold] Font.Style = [fsBold]
Caption = 'Caption' Caption = 'Caption'
TextTop = 0 TextTop = 0
TextLeft = 20 TextLeft = 0
SubCaption.Caption = 'Sub Caption 3' SubCaption.Caption = 'Sub Caption 3'
SubCaption.MarginLeft = 4
SubCaption.Font.Color = clBlue SubCaption.Font.Color = clBlue
SubCaption.Font.Style = [fsBold] SubCaption.Font.Style = [fsBold]
Align = alTop
end end
object NetGradient6: TNetGradient object NetGradient6: TNetGradient
Left = 6 Left = 0
Height = 44 Height = 40
Top = 171 Top = 168
Width = 312 Width = 296
BevelInner = bvLowered BevelInner = bvLowered
BeginColor = clSilver BeginColor = clSilver
CaptionAlignment = taRightJustify CaptionAlignment = taRightJustify
@@ -125,17 +136,18 @@ object MainForm: TMainForm
Font.Style = [fsBold] Font.Style = [fsBold]
Caption = 'Caption' Caption = 'Caption'
TextTop = 0 TextTop = 0
TextLeft = 2 TextLeft = 4
SubCaption.Caption = 'Sub Caption 3' SubCaption.Caption = 'Sub Caption 3'
SubCaption.MarginTop = 20 SubCaption.MarginTop = 20
SubCaption.Font.Color = clBlue SubCaption.Font.Color = clBlue
SubCaption.Font.Style = [fsBold] SubCaption.Font.Style = [fsBold]
Align = alTop
end end
object NetGradient8: TNetGradient object NetGradient8: TNetGradient
Left = 6 Left = 0
Height = 60 Height = 60
Top = 336 Top = 334
Width = 313 Width = 296
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
BeginColor = clRed BeginColor = clRed
@@ -149,12 +161,13 @@ object MainForm: TMainForm
SubCaption.Caption = 'SubCaption 4' SubCaption.Caption = 'SubCaption 4'
SubCaption.Font.Color = clBlue SubCaption.Font.Color = clBlue
SubCaption.Font.Style = [fsBold, fsItalic] SubCaption.Font.Style = [fsBold, fsItalic]
Align = alTop
end end
object NetGradient9: TNetGradient object NetGradient9: TNetGradient
Left = 6 Left = 0
Height = 60 Height = 60
Top = 276 Top = 272
Width = 313 Width = 296
BevelInner = bvRaised BevelInner = bvRaised
BevelOuter = bvLowered BevelOuter = bvLowered
BeginColor = clRed BeginColor = clRed
@@ -168,5 +181,6 @@ object MainForm: TMainForm
SubCaption.Caption = 'SubCaption 4' SubCaption.Caption = 'SubCaption 4'
SubCaption.Font.Color = clBlue SubCaption.Font.Color = clBlue
SubCaption.Font.Style = [fsBold, fsItalic] SubCaption.Font.Style = [fsBold, fsItalic]
Align = alTop
end end
end end

2
components/smnetgradient/demo/unit1.pas
View File

@@ -32,6 +32,8 @@ var
implementation implementation
{ TMainForm }
initialization initialization
{$I unit1.lrs} {$I unit1.lrs}