summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--examples/gui/scrollframe/bigframe_test.lpi2
-rw-r--r--examples/gui/scrollframe/frame_test.lpi2
-rw-r--r--src/gui/fpg_scrollframe.pas21
3 files changed, 20 insertions, 5 deletions
diff --git a/examples/gui/scrollframe/bigframe_test.lpi b/examples/gui/scrollframe/bigframe_test.lpi
index 3721bff4..d7112088 100644
--- a/examples/gui/scrollframe/bigframe_test.lpi
+++ b/examples/gui/scrollframe/bigframe_test.lpi
@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
diff --git a/examples/gui/scrollframe/frame_test.lpi b/examples/gui/scrollframe/frame_test.lpi
index 2f5b09bd..b85b81b7 100644
--- a/examples/gui/scrollframe/frame_test.lpi
+++ b/examples/gui/scrollframe/frame_test.lpi
@@ -1,4 +1,4 @@
-<?xml version="1.0"?>
+<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
diff --git a/src/gui/fpg_scrollframe.pas b/src/gui/fpg_scrollframe.pas
index fd467c46..528ed442 100644
--- a/src/gui/fpg_scrollframe.pas
+++ b/src/gui/fpg_scrollframe.pas
@@ -1,3 +1,21 @@
+{
+ fpGUI - Free Pascal GUI Toolkit
+
+ Copyright (C) 2006 - 2014 See the file AUTHORS.txt, included in this
+ distribution, for details of the copyright.
+
+ See the file COPYING.modifiedLGPL, included in this distribution,
+ for details about redistributing fpGUI.
+
+ This program is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ Description:
+ Defines a scrollable frame widget.
+
+ This unit was originally written by David Emerson <dle3ab@angelbase.com>
+}
unit fpg_scrollframe;
{$mode objfpc}{$H+}
@@ -17,7 +35,6 @@ type
TfpgScrollFrame = class;
- { TfpgEmbeddingFrame }
TfpgEmbeddingFrame = class (TfpgFrame)
// The purpose of the EmbeddingFrame is to pass scroll events to the ParentScrollFrame
@@ -32,7 +49,6 @@ type
property ParentScrollFrame : TfpgScrollFrame read FParentScrollFrame write FParentScrollFrame;
end;
- { TfpgAutoSizingFrame }
TfpgAutoSizingFrame = class (TfpgEmbeddingFrame)
private
@@ -48,7 +64,6 @@ type
TfpgASFrameClass = class of TfpgAutoSizingFrame;
- { TfpgScrollFrame }
TfpgScrollFrame = class (TfpgFrame)
private