diff options
| author | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-28 20:50:51 -0700 |
|---|---|---|
| committer | David Laurence Emerson <dle3ab@angelbase.com> | 2013-05-28 20:50:51 -0700 |
| commit | 451114d2008f0b3750bc9840099287b87cff247c (patch) | |
| tree | d90151da41959a52d088a11b24e2c3278ac23611 /examples/gui/scrollframe/frame_test.lpr | |
| parent | 8d5cbfcff09528a7038e78f672de862dadd5fd34 (diff) | |
| download | fpGUI-451114d2008f0b3750bc9840099287b87cff247c.tar.xz | |
Scroll-frame: fixed a couple bugs with RecalcFrameSize
Diffstat (limited to 'examples/gui/scrollframe/frame_test.lpr')
| -rw-r--r-- | examples/gui/scrollframe/frame_test.lpr | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/examples/gui/scrollframe/frame_test.lpr b/examples/gui/scrollframe/frame_test.lpr index 596664e6..252f8a07 100644 --- a/examples/gui/scrollframe/frame_test.lpr +++ b/examples/gui/scrollframe/frame_test.lpr @@ -89,7 +89,6 @@ begin 'Click to embed another Scroll-Frame here', @click_embed_button); OnPaint:=@paint_my_stuff; create_buttons(self); - RecalcFrameSize; end; @@ -100,10 +99,9 @@ var begin fpgApplication.Initialize; form := TfpgForm.Create(nil); - form.SetPosition(0,0,480,260); + form.SetPosition(0,0,380,360); outer_frame := TfpgScrollFrame.Create(form, t_sample_frame); outer_frame.Align:=alClient; - outer_frame.ContentFrame.RecalcFrameSize; try form.Show; fpgApplication.Run; |