diff options
author | Andrew <andrewd207@aol.com> | 2010-03-11 09:56:30 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-03-11 09:56:30 +0200 |
commit | 858789d00c5d5ef376cad08b6dce4385a6f7699c (patch) | |
tree | d1f0142b805cb287b5c7c871076d93680b70b979 /docview/components/richtext | |
parent | f96c9ed67347181166e21d99a632c864a06b35d9 (diff) | |
download | fpGUI-858789d00c5d5ef376cad08b6dce4385a6f7699c.tar.xz |
fixes compilation for docview and fpc 2.5.1
Not sure when it became the case but it makes sense that var parameters
must use the exact type and not a descendant class. This patch puts that
into effect.
Diffstat (limited to 'docview/components/richtext')
-rw-r--r-- | docview/components/richtext/ACLStringUtility.pas | 2 | ||||
-rw-r--r-- | docview/components/richtext/RichTextStyleUnit.pas | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/docview/components/richtext/ACLStringUtility.pas b/docview/components/richtext/ACLStringUtility.pas index f60aeed0..5ddcb2b7 100644 --- a/docview/components/richtext/ACLStringUtility.pas +++ b/docview/components/richtext/ACLStringUtility.pas @@ -31,7 +31,7 @@ type TSerializableStringList = class(TObject) private - stringList: TStringList; + stringList: TStrings; public constructor Create; destructor Destroy; override; diff --git a/docview/components/richtext/RichTextStyleUnit.pas b/docview/components/richtext/RichTextStyleUnit.pas index ff70c0d0..64612b0e 100644 --- a/docview/components/richtext/RichTextStyleUnit.pas +++ b/docview/components/richtext/RichTextStyleUnit.pas @@ -158,7 +158,7 @@ var ParseIndex: longint; XSizeStr: string; YSizeStr: string; - tmpFontParts : TStringList; + tmpFontParts : TStrings; MarginSize: longint; ParsePoint: longint; |