diff --git a/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpi b/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpi index 62eae385a..280e45bef 100644 --- a/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpi +++ b/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpi @@ -4,6 +4,9 @@ + + + <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> diff --git a/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpr b/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpr index fcb58d2f1..654dc5578 100644 --- a/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpr +++ b/components/jvcllaz/examples/JvGammaPanel/JvGammaPanelDemo.lpr @@ -16,7 +16,7 @@ begin RequireDerivedFormResource:=True; Application.Scaled:=True; Application.Initialize; - Application.CreateForm(TForm1, Form1); + Application.CreateForm(TDemoForm, DemoForm); Application.Run; end. diff --git a/components/jvcllaz/examples/JvGammaPanel/main.lfm b/components/jvcllaz/examples/JvGammaPanel/main.lfm index 714332041..733292631 100644 --- a/components/jvcllaz/examples/JvGammaPanel/main.lfm +++ b/components/jvcllaz/examples/JvGammaPanel/main.lfm @@ -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 diff --git a/components/jvcllaz/examples/JvGammaPanel/main.pas b/components/jvcllaz/examples/JvGammaPanel/main.pas index 525ee0c68..49cc8ab79 100644 --- a/components/jvcllaz/examples/JvGammaPanel/main.pas +++ b/components/jvcllaz/examples/JvGammaPanel/main.pas @@ -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.