diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-02-11 15:33:45 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-02-11 15:33:45 +0200 |
commit | 02c6d3f482327931d6b1644bcd15798b8eb96434 (patch) | |
tree | 4c30f8e179abb05290783e775f0d14f35e417ab2 | |
parent | 46bbcc4747e345766b479a8299f3b7183fb67869 (diff) | |
download | fpGUI-02c6d3f482327931d6b1644bcd15798b8eb96434.tar.xz |
Fix visibility problem with constructor and destructor.
-rw-r--r-- | docview/components/richtext/RichTextStyleUnit.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/docview/components/richtext/RichTextStyleUnit.pas b/docview/components/richtext/RichTextStyleUnit.pas index b3c2830e..ff70c0d0 100644 --- a/docview/components/richtext/RichTextStyleUnit.pas +++ b/docview/components/richtext/RichTextStyleUnit.pas @@ -61,8 +61,6 @@ type function GetMargin_Top: longint; Procedure SetMargin_Top( NewValue: longint ); Procedure SetupComponent; - constructor Create(AOwner: TComponent); override; - destructor Destroy; override; Procedure AssignFont( Var Font: TfpgFont; NewFont: TfpgFont ); @@ -70,6 +68,8 @@ type property Name; public + constructor Create(AOwner: TComponent); override; + destructor Destroy; override; property OnChange: TNotifyEvent read FOnChange write FOnChange; procedure BeginUpdate; |