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 @@
+
+
+
@@ -14,8 +17,8 @@
-
-
+
+
@@ -33,17 +36,18 @@
-
-
+
+
-
-
+
+
-
+
+
-
+
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.