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

jvcllaz: Improved package descriptions. Minor fixes in XPBar demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5399 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-30 19:23:29 +00:00
parent 35b5dac68e
commit e73a0efdb9
8 changed files with 85 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

88
components/jvcllaz/examples/JvXPBar/MainFrm.lfm
View File

@ -1,43 +1,41 @@
object frmMain: TfrmMain object frmMain: TfrmMain
Left = 309 Left = 309
Height = 370 Height = 464
Top = 130 Top = 130
Width = 500 Width = 500
Caption = 'JvXPBar Demo' Caption = 'JvXPBar Demo'
ClientHeight = 370 ClientHeight = 464
ClientWidth = 500 ClientWidth = 500
Color = clBtnFace Color = clBtnFace
Constraints.MinHeight = 370 Constraints.MinHeight = 370
Constraints.MinWidth = 500 Constraints.MinWidth = 500
DefaultMonitor = dmDesktop DefaultMonitor = dmDesktop
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
OnCreate = FormCreate OnCreate = FormCreate
Position = poDesktopCenter Position = poDesktopCenter
ShowHint = True ShowHint = True
LCLVersion = '1.7' LCLVersion = '1.7'
object spltMain: TSplitter object spltMain: TSplitter
Left = 206 Left = 206
Height = 347 Height = 441
Top = 0 Top = 0
Width = 4 Width = 4
end end
object cntWinXPBar: TGroupBox object cntWinXPBar: TGroupBox
Left = 0 Left = 0
Height = 347 Height = 441
Top = 0 Top = 0
Width = 206 Width = 206
Align = alLeft Align = alLeft
Caption = 'cntWinXPBar' Caption = 'cntWinXPBar'
ClientHeight = 329 ClientHeight = 421
ClientWidth = 202 ClientWidth = 202
Color = 14985086 Color = 14985086
ParentColor = False ParentColor = False
TabOrder = 1 TabOrder = 1
object sbxWinXPBar: TScrollBox object sbxWinXPBar: TScrollBox
Left = 0 Left = 0
Height = 329 Height = 421
Top = 0 Top = 0
Width = 202 Width = 202
HorzScrollBar.Increment = 13 HorzScrollBar.Increment = 13
@ -45,17 +43,17 @@ object frmMain: TfrmMain
HorzScrollBar.Smooth = True HorzScrollBar.Smooth = True
HorzScrollBar.Tracking = True HorzScrollBar.Tracking = True
VertScrollBar.Increment = 26 VertScrollBar.Increment = 26
VertScrollBar.Page = 261 VertScrollBar.Page = 263
VertScrollBar.Smooth = True VertScrollBar.Smooth = True
VertScrollBar.Tracking = True VertScrollBar.Tracking = True
Align = alClient Align = alClient
BorderStyle = bsNone BorderStyle = bsNone
ClientHeight = 329 ClientHeight = 421
ClientWidth = 202 ClientWidth = 202
TabOrder = 0 TabOrder = 0
object JvXPContainer1: TGroupBox object JvXPContainer1: TGroupBox
Left = 0 Left = 0
Height = 261 Height = 263
Top = 0 Top = 0
Width = 202 Width = 202
Align = alTop Align = alTop
@ -102,11 +100,7 @@ object frmMain: TfrmMain
end> end>
RollImages = ilWhiteButtons RollImages = ilWhiteButtons
Font.Color = 17877 Font.Color = 17877
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HeaderFont.Color = clWindowText HeaderFont.Color = clWindowText
HeaderFont.Height = -13
HeaderFont.Name = 'MS Shell Dlg 2'
HeaderFont.Style = [fsBold] HeaderFont.Style = [fsBold]
HotTrackColor = 4227327 HotTrackColor = 4227327
OwnerDraw = False OwnerDraw = False
@ -154,11 +148,7 @@ object frmMain: TfrmMain
end> end>
RollImages = ilRedButtons RollImages = ilRedButtons
Font.Color = 1573351 Font.Color = 1573351
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HeaderFont.Color = 1573351 HeaderFont.Color = 1573351
HeaderFont.Height = -13
HeaderFont.Name = 'MS Shell Dlg 2'
HeaderFont.Style = [fsBold] HeaderFont.Style = [fsBold]
HotTrackColor = clMaroon HotTrackColor = clMaroon
OwnerDraw = False OwnerDraw = False
@ -196,11 +186,7 @@ object frmMain: TfrmMain
end> end>
RollImages = ilWhiteButtons RollImages = ilWhiteButtons
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Shell Dlg 2'
HeaderFont.Color = clWhite HeaderFont.Color = clWhite
HeaderFont.Height = -13
HeaderFont.Name = 'MS Shell Dlg 2'
HeaderFont.Style = [fsBold] HeaderFont.Style = [fsBold]
HotTrackColor = clNone HotTrackColor = clNone
OwnerDraw = False OwnerDraw = False
@ -233,15 +219,14 @@ object frmMain: TfrmMain
end> end>
RollImages = ilMSN2 RollImages = ilMSN2
Font.Color = 8650752 Font.Color = 8650752
Font.Height = -11
HeaderFont.Color = 8650752 HeaderFont.Color = 8650752
HeaderFont.Height = -11
HeaderFont.Style = [fsBold] HeaderFont.Style = [fsBold]
OwnerDraw = False OwnerDraw = False
RollStep = 5 RollStep = 5
ShowItemFrame = False ShowItemFrame = False
RoundedItemFrame = 0 RoundedItemFrame = 0
Align = alTop Align = alTop
ParentFont = False
end end
object dxWinXPBar1: TJvXPBar object dxWinXPBar1: TJvXPBar
Left = 0 Left = 0
@ -269,9 +254,7 @@ object frmMain: TfrmMain
end> end>
RollImages = ilFB RollImages = ilFB
Font.Color = 8650752 Font.Color = 8650752
Font.Height = -11
HeaderFont.Color = 8650752 HeaderFont.Color = 8650752
HeaderFont.Height = -11
HeaderFont.Style = [fsBold] HeaderFont.Style = [fsBold]
HeaderRounded = False HeaderRounded = False
OwnerDraw = False OwnerDraw = False
@ -279,31 +262,30 @@ object frmMain: TfrmMain
ShowItemFrame = True ShowItemFrame = True
RoundedItemFrame = 0 RoundedItemFrame = 0
Align = alTop Align = alTop
ParentFont = False
end end
end end
end end
end end
object cntDetails: TGroupBox object cntDetails: TGroupBox
Left = 210 Left = 210
Height = 347 Height = 441
Top = 0 Top = 0
Width = 290 Width = 290
Align = alClient Align = alClient
Caption = 'cntDetails' Caption = 'cntDetails'
ClientHeight = 329 ClientHeight = 421
ClientWidth = 286 ClientWidth = 286
Color = clInfoBk Color = clInfoBk
ParentColor = False ParentColor = False
TabOrder = 2 TabOrder = 2
object lbWelcome: TLabel object lbWelcome: TLabel
Left = 8 Left = 8
Height = 13 Height = 15
Top = 16 Top = 16
Width = 230 Width = 232
Caption = 'Welcome to the JVCL XP Controls Demo...' Caption = 'Welcome to the JVCL XP Controls Demo...'
Font.Color = clWindowText Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Shell Dlg 2'
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -348,7 +330,7 @@ object frmMain: TfrmMain
Left = 24 Left = 24
Height = 19 Height = 19
Top = 152 Top = 152
Width = 61 Width = 66
Caption = 'Grouped' Caption = 'Grouped'
OnClick = chkGroupedClick OnClick = chkGroupedClick
TabOrder = 4 TabOrder = 4
@ -357,7 +339,7 @@ object frmMain: TfrmMain
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23
Top = 347 Top = 441
Width = 500 Width = 500
Panels = < Panels = <
item item
@ -366,8 +348,8 @@ object frmMain: TfrmMain
SimplePanel = False SimplePanel = False
end end
object imlWinXPBar: TImageList object imlWinXPBar: TImageList
left = 288 left = 128
top = 280 top = 296
Bitmap = { Bitmap = {
4C69190000001000000010000000000000000000000000000000000000006858 4C69190000001000000010000000000000000000000000000000000000006858
50FF685850FF605848FF605848FF584840FF584840FF584840FF004050FF0000 50FF685850FF605848FF605848FF584840FF584840FF584840FF004050FF0000
@ -1174,8 +1156,8 @@ object frmMain: TfrmMain
end end
object aclWinXPBar: TActionList object aclWinXPBar: TActionList
Images = imlWinXPBar Images = imlWinXPBar
left = 220 left = 40
top = 280 top = 296
object acConnectRemoteServer: TAction object acConnectRemoteServer: TAction
Category = 'Connect' Category = 'Connect'
Caption = 'Remote-Server' Caption = 'Remote-Server'
@ -1262,8 +1244,8 @@ object frmMain: TfrmMain
BkColor = clFuchsia BkColor = clFuchsia
Height = 19 Height = 19
Width = 19 Width = 19
left = 332 left = 430
top = 198 top = 152
Bitmap = { Bitmap = {
4C69020000001300000013000000F800F800F800F800F800F800F800F800F800 4C69020000001300000013000000F800F800F800F800F800F800F800F800F800
F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800 F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800
@ -1360,8 +1342,8 @@ object frmMain: TfrmMain
end end
object ilWhiteButtons: TImageList object ilWhiteButtons: TImageList
BkColor = clFuchsia BkColor = clFuchsia
left = 232 left = 430
top = 198 top = 200
Bitmap = { Bitmap = {
4C69040000001000000010000000F800F800F800F800F800F800F800F800F800 4C69040000001000000010000000F800F800F800F800F800F800F800F800F800
F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800 F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800
@ -1496,8 +1478,8 @@ object frmMain: TfrmMain
end end
object ilRedButtons: TImageList object ilRedButtons: TImageList
BkColor = clFuchsia BkColor = clFuchsia
left = 264 left = 430
top = 198 top = 296
Bitmap = { Bitmap = {
4C69020000001000000010000000F800F800F800F800F800F800F800F800F800 4C69020000001000000010000000F800F800F800F800F800F800F800F800F800
F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800 F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800
@ -1568,8 +1550,8 @@ object frmMain: TfrmMain
end end
object ilBlackButtons: TImageList object ilBlackButtons: TImageList
BkColor = clFuchsia BkColor = clFuchsia
left = 296 left = 430
top = 198 top = 248
Bitmap = { Bitmap = {
4C69060000001000000010000000F800F800F800F800F800F800F800F800F800 4C69060000001000000010000000F800F800F800F800F800F800F800F800F800
F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800 F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800F800
@ -1769,8 +1751,8 @@ object frmMain: TfrmMain
object ilMSN: TImageList object ilMSN: TImageList
Height = 15 Height = 15
Width = 15 Width = 15
left = 392 left = 328
top = 198 top = 248
Bitmap = { Bitmap = {
4C69020000000F0000000F00000000000000000000000000000000000000E098 4C69020000000F0000000F00000000000000000000000000000000000000E098
78FFE0A080FFE0A088FFE0A088FFE09880FFE09070FFD88868FF000000000000 78FFE0A080FFE0A088FFE0A088FFE09880FFE09070FFD88868FF000000000000
@ -1834,8 +1816,8 @@ object frmMain: TfrmMain
object ilMSN2: TImageList object ilMSN2: TImageList
Height = 15 Height = 15
Width = 15 Width = 15
left = 434 left = 328
top = 198 top = 296
Bitmap = { Bitmap = {
4C69020000000F0000000F00000000000000B06858FFB06858FFB06858FFB068 4C69020000000F0000000F00000000000000B06858FFB06858FFB06858FFB068
58FFB06858FFB06858FFB06858FFB06858FFB06858FFB06858FFB06858FFB068 58FFB06858FFB06858FFB06858FFB06858FFB06858FFB06858FFB06858FFB068
@ -1900,8 +1882,8 @@ object frmMain: TfrmMain
BkColor = clFuchsia BkColor = clFuchsia
Height = 15 Height = 15
Width = 15 Width = 15
left = 364 left = 328
top = 198 top = 200
Bitmap = { Bitmap = {
4C69020000000F0000000F000000F800F800F800F800F800F800F800F800F0C8 4C69020000000F0000000F000000F800F800F800F800F800F800F800F800F0C8
A8FFE8B898FFE8B898FFE8B898FFE8B898FFE8B898FFF0C0A8FFF800F800F800 A8FFE8B898FFE8B898FFE8B898FFE8B898FFE8B898FFF0C0A8FFF800F800F800

9
components/jvcllaz/examples/JvXPBar/MainFrm.pas
View File

@ -12,8 +12,8 @@ uses
; ;
resourcestring resourcestring
SClickEvent = SClickEventAc = ' You clicked on the action "%s"...';
' You clicked on the action "%s"...'; SClickEventXP = ' You clicked on the JvXPBarItem "%s"...';
type type
TProcControl = procedure (Control:TControl) of object; TProcControl = procedure (Control:TControl) of object;
@ -96,9 +96,9 @@ begin
if Sender is TJvXPBarItem then if Sender is TJvXPBarItem then
with TJvXPBarItem(Sender) do with TJvXPBarItem(Sender) do
if Assigned(Action) then if Assigned(Action) then
StatusBar1.Panels[0].Text := Format(SClickEvent, [Name]) StatusBar1.Panels[0].Text := Format(SClickEventAc, [Action.Name])
else else
Statusbar1.Panels[0].Text := Caption; Statusbar1.Panels[0].Text := Format(SClickEventXP, [Caption]);
end; end;
procedure TfrmMain.btnCollapseAllClick(Sender: TObject); procedure TfrmMain.btnCollapseAllClick(Sender: TObject);
@ -106,7 +106,6 @@ begin
IterateControls(DoCollapseAll); IterateControls(DoCollapseAll);
end; end;
procedure TfrmMain.btnExpandAllClick(Sender: TObject); procedure TfrmMain.btnExpandAllClick(Sender: TObject);
begin begin
IterateControls(DoExpandAll); IterateControls(DoExpandAll);

31
components/jvcllaz/packages/JvCoreLaz.lpk
View File

@ -1,27 +1,28 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="2"> <Package Version="4">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="JvCoreLaz"/> <Name Value="JvCoreLaz"/>
<Author Value="Sergio Samayoa"/> <AddToProjectUsesSection Value="True"/>
<Author Value="Lazarus port by Sergio Samayoa"/>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="..\resource\"/> <IncludeFiles Value="..\resource"/>
<OtherUnitFiles Value="..\run\"/> <OtherUnitFiles Value="..\run"/>
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
<Other> </SyntaxOptions>
<CompilerPath Value="$(CompPath)"/> </Parsing>
</Other>
</CompilerOptions> </CompilerOptions>
<Description Value="JVCL Core Components <Description Value="JVCL Core Components. Must be compiled before any of the other JvXXX packages can be installed.
"/> "/>
<Version Major="1"/> <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
<Version Major="1" Release="1"/>
<Files Count="7"> <Files Count="7">
<Item1> <Item1>
<Filename Value="..\run\JvTypes.pas"/> <Filename Value="..\run\JvTypes.pas"/>
@ -62,7 +63,7 @@
</Item2> </Item2>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)\"/> <UnitPath Value="$(PkgOutDir)"/>
</UsageOptions> </UsageOptions>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>

34
components/jvcllaz/packages/JvNavigationPaneLaz.lpk
View File

@ -1,28 +1,30 @@
<?xml version="1.0"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<Package Version="2"> <Package Version="4">
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="JvNavigationPaneLaz"/> <Name Value="JvNavigationPaneLaz"/>
<Author Value="Sergio Samayoa"/> <Type Value="RunAndDesignTime"/>
<AddToProjectUsesSection Value="True"/>
<Author Value="Lazarus port by Sergio Samayoa"/>
<CompilerOptions> <CompilerOptions>
<Version Value="5"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<SearchPaths> <SearchPaths>
<IncludeFiles Value="..\resource\"/> <IncludeFiles Value="..\resource"/>
<OtherUnitFiles Value="..\run\"/> <OtherUnitFiles Value="..\run"/>
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<CodeGeneration> <Parsing>
<Generate Value="Faster"/> <SyntaxOptions>
</CodeGeneration> <UseAnsiStrings Value="False"/>
<Other> </SyntaxOptions>
<CompilerPath Value="$(CompPath)"/> </Parsing>
</Other>
</CompilerOptions> </CompilerOptions>
<Description Value="JvNavigationPane (JVLC) conversion for Lazarus version 1.0 <Description Value="JvNavigationPane (JVLC) conversion for Lazarus
"/> "/>
<Version Major="1"/> <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
<Version Major="1" Release="1"/>
<Files Count="2"> <Files Count="2">
<Item1> <Item1>
<Filename Value="JvNavigationPaneReg.pp"/> <Filename Value="JvNavigationPaneReg.pp"/>
@ -31,9 +33,9 @@
</Item1> </Item1>
<Item2> <Item2>
<Filename Value="..\run\JvNavigationPane.pas"/> <Filename Value="..\run\JvNavigationPane.pas"/>
<UnitName Value="JvNavigationPane"/>
</Item2> </Item2>
</Files> </Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="3"> <RequiredPkgs Count="3">
<Item1> <Item1>
<PackageName Value="FCL"/> <PackageName Value="FCL"/>
@ -47,7 +49,7 @@
</Item3> </Item3>
</RequiredPkgs> </RequiredPkgs>
<UsageOptions> <UsageOptions>
<UnitPath Value="$(PkgOutDir)\"/> <UnitPath Value="$(PkgOutDir)"/>
</UsageOptions> </UsageOptions>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>

4
components/jvcllaz/packages/JvXPBarLaz.lpk
View File

@ -22,8 +22,8 @@
</CompilerOptions> </CompilerOptions>
<Description Value="JvXPBar (JVCL) conversion for Lazarus version 1.0 <Description Value="JvXPBar (JVCL) conversion for Lazarus version 1.0
"/> "/>
<License Value="As JVCL."/> <License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
<Version Major="1"/> <Version Major="1" Release="1"/>
<Files Count="4"> <Files Count="4">
<Item1> <Item1>
<Filename Value="..\run\JvXPCoreUtils.pas"/> <Filename Value="..\run\JvXPCoreUtils.pas"/>

4
components/jvcllaz/packages/jvhtcontrolslaz.lpk
View File

@ -4,6 +4,7 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="jvhtcontrolslaz"/> <Name Value="jvhtcontrolslaz"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<Author Value="Lazarus port by: Michał Gawrycki"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
@ -12,6 +13,9 @@
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Hypertext components of the JVCL library (https://sourceforge.net/projects/jvcl/)"/>
<License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
<Version Major="1" Release="1"/>
<Files Count="5"> <Files Count="5">
<Item1> <Item1>
<Filename Value="..\run\JvHtControls.pas"/> <Filename Value="..\run\JvHtControls.pas"/>

4
components/jvcllaz/packages/jvvalidatorlaz.lpk
View File

@ -4,6 +4,7 @@
<PathDelim Value="\"/> <PathDelim Value="\"/>
<Name Value="JvValidatorLaz"/> <Name Value="JvValidatorLaz"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<Author Value="Lazarus port by: Michał Gawrycki"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
@ -13,6 +14,9 @@
<UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="..\lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Description Value="Validator components of the JVCL library (https://sourceforge.net/projects/jvcl/)"/>
<License Value="The JVCL is released in accordance with the MPL 1.1 license. To get your own copy or read it, go to http://www.mozilla.org/MPL/MPL-1.1.html. "/>
<Version Major="1" Release="1"/>
<Files Count="4"> <Files Count="4">
<Item1> <Item1>
<Filename Value="..\run\JvErrorIndicator.pas"/> <Filename Value="..\run\JvErrorIndicator.pas"/>

4
components/jvcllaz/run/JvXPBar.pas
View File

@ -1438,14 +1438,14 @@ begin
FFont := TFont.Create; FFont := TFont.Create;
FFont.Color := $00840000; FFont.Color := $00840000;
FFont.Size := 8; FFont.Size := 0; //8;
FFont.OnChange := @FontChange; FFont.OnChange := @FontChange;
FHeaderHeight := 28; FHeaderHeight := 28;
FHeaderRounded := True; FHeaderRounded := True;
FGradientWidth := 0; FGradientWidth := 0;
FHeaderFont := TFont.Create; FHeaderFont := TFont.Create;
FHeaderFont.Color := $00840000; FHeaderFont.Color := $00840000;
FHeaderFont.Size := 8; FHeaderFont.Size := 0; //8;
FHeaderFont.Style := [fsBold]; FHeaderFont.Style := [fsBold];
FHeaderFont.OnChange := @FontChange; FHeaderFont.OnChange := @FontChange;