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

jvcllaz: Fix compilation of JvGammaPanelDemo with Laz <2.2. Publish TJvGammaPanel.BorderSpacing.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2019-10-09 10:50:44 +00:00
parent f9b905a28d
commit 3b7794d5ea
4 changed files with 27 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpi
View File

@ -4,6 +4,9 @@
<Version Value="12"/>
<PathDelim Value="\"/>
<General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/>
<Title Value="JvGammaPanelDemo"/>
<Scaled Value="True"/>
@ -14,8 +17,8 @@
</XPManifest>
<Icon Value="0"/>
</General>
<BuildModes>
<Item Name="Default" Default="True"/>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
@ -33,17 +36,18 @@
<PackageName Value="LCL"/>
</Item2>
</RequiredPackages>
<Units>
<Unit>
<Units Count="2">
<Unit0>
<Filename Value="JvGammaPanelDemo.lpr"/>
<IsPartOfProject Value="True"/>
</Unit>
<Unit>
</Unit0>
<Unit1>
<Filename Value="main.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form1"/>
<ComponentName Value="DemoForm"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit>
</Unit1>
</Units>
</ProjectOptions>
<CompilerOptions>

2
components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpr
View File

@ -16,7 +16,7 @@ begin
RequireDerivedFormResource:=True;
Application.Scaled:=True;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.CreateForm(TDemoForm, DemoForm);
Application.Run;
end.

9
components/jvcllaz/examples/JvGammaPanel/main.lfm
View File

@ -1,4 +1,4 @@
object Form1: TForm1
object DemoForm: TDemoForm
Left = 340
Height = 393
Top = 128
@ -13,9 +13,12 @@ object Form1: TForm1
AnchorSideTop.Control = Owner
Left = 8
Top = 8
BorderSpacing.Left = 8
BorderSpacing.Top = 8
BorderSpacing.Bottom = 8
OnChangeColor = JvGammaPanel1ChangeColor
end
object StaticText1: TLabel
object DemoLabel: TLabel
AnchorSideLeft.Control = JvGammaPanel1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = JvGammaPanel1
@ -25,7 +28,7 @@ object Form1: TForm1
Top = 111
Width = 214
BorderSpacing.Left = 32
BorderSpacing.Right = 8
BorderSpacing.Right = 16
Caption = ' This is a test... '
Font.Height = -32
ParentColor = False

16
components/jvcllaz/examples/JvGammaPanel/main.pas
View File

@ -10,11 +10,11 @@ uses
type
{ TForm1 }
{ TDemoForm }
TForm1 = class(TForm)
TDemoForm = class(TForm)
JvGammaPanel1: TJvGammaPanel;
StaticText1: TLabel;
DemoLabel: TLabel;
procedure JvGammaPanel1ChangeColor(Sender: TObject; Foreground,
Background: TColor);
private
@ -24,19 +24,19 @@ type
end;
var
Form1: TForm1;
DemoForm: TDemoForm;
implementation
{$R *.lfm}
{ TForm1 }
{ TDemoForm }
procedure TForm1.JvGammaPanel1ChangeColor(Sender: TObject; Foreground,
procedure TDemoForm.JvGammaPanel1ChangeColor(Sender: TObject; Foreground,
Background: TColor);
begin
StaticText1.Color := Background;
StaticText1.Font.Color := Foreground;
DemoLabel.Color := Background;
DemoLabel.Font.Color := Foreground;
end;
end.