From 9ce00fb11285c7920e8a48640e184479c2765252 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Tue, 15 Jul 2014 12:09:24 +0100 Subject: Make clear what the default values are for two properties in TfpgImagePanel --- src/gui/fpg_panel.pas | 5 +++-- 1 file 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; -- cgit v1.2.3-70-g09d2