From ff3fef920030993bdccbd0672b788ddc17aec3cd Mon Sep 17 00:00:00 2001
From: blikblum <blikblum@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Thu, 13 Jan 2011 19:20:57 +0000
Subject: [PATCH] * update demo

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1439 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/smnetgradient/demo/project1.lpi | 17 ++++--
 components/smnetgradient/demo/unit1.lfm    | 65 ++++++++++++++--------
 2 files changed, 55 insertions(+), 27 deletions(-)

diff --git a/components/smnetgradient/demo/project1.lpi b/components/smnetgradient/demo/project1.lpi
index 272757af9..c089ea23c 100644
--- a/components/smnetgradient/demo/project1.lpi
+++ b/components/smnetgradient/demo/project1.lpi
@@ -1,20 +1,22 @@
 <?xml version="1.0"?>
 <CONFIG>
   <ProjectOptions>
+    <Version Value="9"/>
     <PathDelim Value="\"/>
-    <Version Value="7"/>
     <General>
       <Flags>
         <AlwaysBuild Value="False"/>
       </Flags>
       <SessionStorage Value="InProjectDir"/>
       <MainUnit Value="0"/>
-      <TargetFileExt Value=".exe"/>
       <UseXPManifest Value="True"/>
     </General>
     <VersionInfo>
-      <ProjectVersion Value=""/>
+      <StringTable ProductVersion=""/>
     </VersionInfo>
+    <BuildModes Count="1">
+      <Item1 Name="default" Default="True"/>
+    </BuildModes>
     <PublishOptions>
       <Version Value="2"/>
       <IgnoreBinaries Value="False"/>
@@ -52,12 +54,17 @@
     </Units>
   </ProjectOptions>
   <CompilerOptions>
-    <Version Value="8"/>
+    <Version Value="9"/>
     <PathDelim Value="\"/>
     <SearchPaths>
-      <IncludeFiles Value="$(ProjOutDir)\"/>
+      <IncludeFiles Value="$(ProjOutDir)"/>
       <UnitOutputDirectory Value="out"/>
     </SearchPaths>
+    <Parsing>
+      <SyntaxOptions>
+        <UseAnsiStrings Value="False"/>
+      </SyntaxOptions>
+    </Parsing>
     <Linking>
       <Options>
         <Win32>
diff --git a/components/smnetgradient/demo/unit1.lfm b/components/smnetgradient/demo/unit1.lfm
index 5e28f871f..077b0d15e 100644
--- a/components/smnetgradient/demo/unit1.lfm
+++ b/components/smnetgradient/demo/unit1.lfm
@@ -12,44 +12,46 @@ object MainForm: TMainForm
     Height = 39
     Top = 3
     Width = 313
+    BeginColor = clLime
     CaptionAlignment = taLeftJustify
     CaptionLayout = tlTop
-    BevelInner = bvLowered
-    BevelOuter = bvNone
-    BeginColor = clLime
     EndColor = 10841401
+    FlatBorder = True
     Font.Style = [fsBold]
     Caption = 'Caption'
     TextTop = 0
     TextLeft = 0
+    SubCaption.Caption = 'SubCaption'
+    SubCaption.MarginLeft = 0
+    BorderWidth = 2
   end
   object NetGradient2: TNetGradient
     Left = 6
     Height = 32
     Top = 45
     Width = 312
-    CaptionAlignment = taCenter
-    BevelInner = bvLowered
     BevelOuter = bvLowered
     BeginColor = clSkyBlue
+    CaptionAlignment = taCenter
     EndColor = clTeal
     Font.Style = [fsBold]
     Caption = 'Caption'
     TextTop = 0
     TextLeft = 0
+    SubCaption.Caption = 'SubCaption 2'
   end
   object NetGradient3: TNetGradient
     Left = 6
     Height = 47
     Top = 78
     Width = 312
-    CaptionAlignment = taLeftJustify
-    CaptionLayout = tlTop
     BevelInner = bvLowered
     BeginColor = clSilver
+    CaptionAlignment = taLeftJustify
+    CaptionLayout = tlTop
     EndColor = 10841401
     Font.CharSet = ANSI_CHARSET
-    Font.Color = clMenuHighlight
+    Font.Color = clHighlight
     Font.Height = -16
     Font.Name = 'Arial'
     Font.Pitch = fpVariable
@@ -57,35 +59,41 @@ object MainForm: TMainForm
     Font.Style = [fsBold]
     Caption = 'Caption'
     TextTop = 0
-    TextLeft = 5
+    TextLeft = 0
+    SubCaption.Caption = 'Sub Caption 3'
+    SubCaption.Font.Color = clBlue
+    SubCaption.Font.Style = [fsBold]
   end
   object NetGradient4: TNetGradient
     Left = 6
     Height = 60
     Top = 216
     Width = 313
-    CaptionAlignment = taLeftJustify
     BevelInner = bvRaised
     BevelOuter = bvLowered
     BeginColor = clRed
+    CaptionAlignment = taLeftJustify
     EndColor = clYellow
     Font.Style = [fsBold]
     Caption = 'Caption'
     TextTop = 0
     TextLeft = 2
+    SubCaption.Caption = 'SubCaption 4'
+    SubCaption.Font.Color = clRed
+    SubCaption.Font.Style = [fsBold, fsItalic]
   end
   object NetGradient5: TNetGradient
     Left = 6
     Height = 44
     Top = 126
     Width = 312
-    CaptionAlignment = taLeftJustify
-    CaptionLayout = tlTop
     BevelInner = bvLowered
     BeginColor = clSilver
+    CaptionAlignment = taLeftJustify
+    CaptionLayout = tlTop
     EndColor = 10841401
     Font.CharSet = ANSI_CHARSET
-    Font.Color = clMenuHighlight
+    Font.Color = clHighlight
     Font.Height = -16
     Font.Name = 'Arial'
     Font.Pitch = fpVariable
@@ -94,19 +102,22 @@ object MainForm: TMainForm
     Caption = 'Caption'
     TextTop = 0
     TextLeft = 20
+    SubCaption.Caption = 'Sub Caption 3'
+    SubCaption.Font.Color = clBlue
+    SubCaption.Font.Style = [fsBold]
   end
   object NetGradient6: TNetGradient
     Left = 6
     Height = 44
     Top = 171
     Width = 312
-    CaptionAlignment = taRightJustify
-    CaptionLayout = tlTop
     BevelInner = bvLowered
     BeginColor = clSilver
+    CaptionAlignment = taRightJustify
+    CaptionLayout = tlTop
     EndColor = 10841401
     Font.CharSet = ANSI_CHARSET
-    Font.Color = clMenuHighlight
+    Font.Color = clHighlight
     Font.Height = -16
     Font.Name = 'Arial'
     Font.Pitch = fpVariable
@@ -114,38 +125,48 @@ object MainForm: TMainForm
     Font.Style = [fsBold]
     Caption = 'Caption'
     TextTop = 0
-    TextLeft = -20
+    TextLeft = 2
+    SubCaption.Caption = 'Sub Caption 3'
+    SubCaption.MarginTop = 20
+    SubCaption.Font.Color = clBlue
+    SubCaption.Font.Style = [fsBold]
   end
   object NetGradient8: TNetGradient
-    Left = 5
+    Left = 6
     Height = 60
     Top = 336
     Width = 313
-    CaptionAlignment = taLeftJustify
     BevelInner = bvRaised
     BevelOuter = bvLowered
     BeginColor = clRed
+    CaptionAlignment = taLeftJustify
     EndColor = clYellow
     FillDirection = ftBottomToTop
     Font.Style = [fsBold]
     Caption = 'Caption'
-    TextTop = -20
+    TextTop = 0
     TextLeft = 2
+    SubCaption.Caption = 'SubCaption 4'
+    SubCaption.Font.Color = clBlue
+    SubCaption.Font.Style = [fsBold, fsItalic]
   end
   object NetGradient9: TNetGradient
     Left = 6
     Height = 60
     Top = 276
     Width = 313
-    CaptionAlignment = taLeftJustify
     BevelInner = bvRaised
     BevelOuter = bvLowered
     BeginColor = clRed
+    CaptionAlignment = taLeftJustify
     EndColor = clYellow
     FillDirection = ftTopToBottom
     Font.Style = [fsBold]
     Caption = 'Caption'
-    TextTop = -20
+    TextTop = 0
     TextLeft = 2
+    SubCaption.Caption = 'SubCaption 4'
+    SubCaption.Font.Color = clBlue
+    SubCaption.Font.Style = [fsBold, fsItalic]
   end
 end