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

* Initial commit of smnetgradient (version 2.0.5)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1073 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-22 21:06:14 +00:00
parent 266d65ee1b
commit c6b64473fe
9 changed files with 1184 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
components/smnetgradient/demo/project1.lpi Normal file
View File

@@ -0,0 +1,72 @@
<?xml version="1.0"?>
<CONFIG>
<ProjectOptions>
<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=""/>
</VersionInfo>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
</local>
</RunParams>
<RequiredPackages Count="2">
<Item1>
<PackageName Value="smnetgradientlaz"/>
<MinVersion Major="1" Valid="True"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units Count="2">
<Unit0>
<Filename Value="project1.lpr"/>
<IsPartOfProject Value="True"/>
<UnitName Value="project1"/>
</Unit0>
<Unit1>
<Filename Value="unit1.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="MainForm"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit1"/>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="8"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)\"/>
<UnitOutputDirectory Value="out"/>
</SearchPaths>
<Linking>
<Options>
<Win32>
<GraphicApplication Value="True"/>
</Win32>
</Options>
</Linking>
<Other>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>

17
components/smnetgradient/demo/project1.lpr Normal file
View File

@@ -0,0 +1,17 @@
program project1;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms, Unit1;
begin
Application.Initialize;
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

151
components/smnetgradient/demo/unit1.lfm Normal file
View File

@@ -0,0 +1,151 @@
object MainForm: TMainForm
Left = 406
Height = 397
Top = 215
Width = 322
Caption = 'NetGradient Demo'
ClientHeight = 397
ClientWidth = 322
LCLVersion = '0.9.29'
object NetGradient1: TNetGradient
Left = 6
Height = 39
Top = 3
Width = 313
CaptionAlignment = taLeftJustify
CaptionLayout = tlTop
BevelInner = bvLowered
BevelOuter = bvNone
BeginColor = clLime
EndColor = 10841401
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = 0
TextLeft = 0
end
object NetGradient2: TNetGradient
Left = 6
Height = 32
Top = 45
Width = 312
CaptionAlignment = taCenter
BevelInner = bvLowered
BevelOuter = bvLowered
BeginColor = clSkyBlue
EndColor = clTeal
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = 0
TextLeft = 0
end
object NetGradient3: TNetGradient
Left = 6
Height = 47
Top = 78
Width = 312
CaptionAlignment = taLeftJustify
CaptionLayout = tlTop
BevelInner = bvLowered
BeginColor = clSilver
EndColor = 10841401
Font.CharSet = ANSI_CHARSET
Font.Color = clMenuHighlight
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = 0
TextLeft = 5
end
object NetGradient4: TNetGradient
Left = 6
Height = 60
Top = 216
Width = 313
CaptionAlignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
BeginColor = clRed
EndColor = clYellow
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = 0
TextLeft = 2
end
object NetGradient5: TNetGradient
Left = 6
Height = 44
Top = 126
Width = 312
CaptionAlignment = taLeftJustify
CaptionLayout = tlTop
BevelInner = bvLowered
BeginColor = clSilver
EndColor = 10841401
Font.CharSet = ANSI_CHARSET
Font.Color = clMenuHighlight
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = 0
TextLeft = 20
end
object NetGradient6: TNetGradient
Left = 6
Height = 44
Top = 171
Width = 312
CaptionAlignment = taRightJustify
CaptionLayout = tlTop
BevelInner = bvLowered
BeginColor = clSilver
EndColor = 10841401
Font.CharSet = ANSI_CHARSET
Font.Color = clMenuHighlight
Font.Height = -16
Font.Name = 'Arial'
Font.Pitch = fpVariable
Font.Quality = fqDraft
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = 0
TextLeft = -20
end
object NetGradient8: TNetGradient
Left = 5
Height = 60
Top = 336
Width = 313
CaptionAlignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
BeginColor = clRed
EndColor = clYellow
FillDirection = ftBottomToTop
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = -20
TextLeft = 2
end
object NetGradient9: TNetGradient
Left = 6
Height = 60
Top = 276
Width = 313
CaptionAlignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
BeginColor = clRed
EndColor = clYellow
FillDirection = ftTopToBottom
Font.Style = [fsBold]
Caption = 'Caption'
TextTop = -20
TextLeft = 2
end
end

39
components/smnetgradient/demo/unit1.pas Normal file
View File

@@ -0,0 +1,39 @@
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
SMNetGradient;
type
{ TMainForm }
TMainForm = class(TForm)
NetGradient1: TNetGradient;
NetGradient2: TNetGradient;
NetGradient3: TNetGradient;
NetGradient4: TNetGradient;
NetGradient5: TNetGradient;
NetGradient6: TNetGradient;
NetGradient8: TNetGradient;
NetGradient9: TNetGradient;
private
{ private declarations }
public
{ public declarations }
end;
var
MainForm: TMainForm;
implementation
initialization
{$I unit1.lrs}
end.