From 7995a7f7e319b08ed0d58bfd141737b9902d8a38 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 10 Jul 2014 22:20:40 +0100 Subject: 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. --- src/gui/fpg_scrollframe.pas | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'src') 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. -- cgit v1.2.3-70-g09d2