Make clear what the default values are for two properties in TfpgImagePanel

1 files changed, 3 insertions, 2 deletions

diff --git a/src/gui/fpg_panel.pas b/src/gui/fpg_panel.pas
index 2054959d..aedb7ace 100644
--- a/src/gui/fpg_panel.pas
+++ b/src/gui/fpg_panel.pas
@@ -308,8 +308,8 @@ type
     constructor Create(AOwner: TComponent); override;
     destructor  Destroy; override;
     property    Image: TfpgImage read FImage write SetImage;
-    property    OwnsImage: Boolean read FOwnsImage write FOwnsImage;
-    property    ScaleImage: Boolean read FScaleImage write SetScaleImage;
+    property    OwnsImage: Boolean read FOwnsImage write FOwnsImage default False;
+    property    ScaleImage: Boolean read FScaleImage write SetScaleImage default False;
   end;
 
 
@@ -1110,6 +1110,7 @@ begin
   inherited Create(AOwner);
   FImage := nil;
   FOwnsImage := False;
+  FScaleImage := False;
 end;
 
 destructor TfpgImagePanel.Destroy;