Tweak so the TfpgScrollFrame can play nicer with the UI Designer.

Basically it allows us to set the Content Frame after the ScrollFrame
was created.

1 files changed, 10 insertions, 0 deletions

diff --git a/src/gui/fpg_scrollframe.pas b/src/gui/fpg_scrollframe.pas
index 528ed442..ca36520a 100644
--- a/src/gui/fpg_scrollframe.pas
+++ b/src/gui/fpg_scrollframe.pas
@@ -92,6 +92,7 @@ type
     constructor Create (AOwner: TComponent); override;
     constructor Create (AOwner: TComponent; ContentFrameType: TfpgASFrameClass); virtual;
     procedure AfterCreate; override;
+    procedure SetContentFrameType(AContentFrameType: TfpgASFrameClass);
     property ContentFrame : TfpgAutoSizingFrame read FContentFrame write FContentFrame;
   end;
 
@@ -495,5 +496,14 @@ begin
   FScrollBarStyle := ssAutoBoth;
 end;
 
+procedure TfpgScrollFrame.SetContentFrameType(AContentFrameType: TfpgASFrameClass);
+begin
+  if Assigned(FContentFrame) then
+    FContentFrame.Free;
+  FContentFrame := AContentFrameType.Create(FVisibleArea);
+  FContentFrame.HandleMove(0, 0);
+  FContentFrame.ParentScrollFrame := self;
+end;
+
 
 end.