diff options
| author | Philippe Lévi <Philippe@quarta.com.br> | 2015-08-09 18:54:29 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2015-08-09 19:59:14 +0100 |
| commit | 06e3090b489f40ce796237dd33df78ed5012fb1f (patch) | |
| tree | 3883bb2880782abc6401eadcfce3c8af9d27d557 | |
| parent | 286870c70d5f7c20c7b6fd94625cb2d028102ee3 (diff) | |
| download | fpGUI-06e3090b489f40ce796237dd33df78ed5012fb1f.tar.xz | |
richview: correctly typecast result in TLayoutLineList.GetItem()
| -rw-r--r-- | docview/components/richtext/RichTextLayoutUnit.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/docview/components/richtext/RichTextLayoutUnit.pas b/docview/components/richtext/RichTextLayoutUnit.pas index 606b7805..f5efe08a 100644 --- a/docview/components/richtext/RichTextLayoutUnit.pas +++ b/docview/components/richtext/RichTextLayoutUnit.pas @@ -136,7 +136,7 @@ uses function TLayoutLineList.GetItem(Index: Integer): TLayoutLine; begin - inherited GetItem(Index); + result := TLayoutLine( inherited GetItem(Index)); end; procedure TLayoutLineList.SetItem(Index: Integer; const AValue: TLayoutLine); |