diff options
| -rwxr-xr-x[-rw-r--r--] | components/richtext/RichTextDocumentUnit.pas | 18 |
1 files changed, 5 insertions, 13 deletions
diff --git a/components/richtext/RichTextDocumentUnit.pas b/components/richtext/RichTextDocumentUnit.pas index 8f94e63b..2f51581b 100644..100755 --- a/components/richtext/RichTextDocumentUnit.pas +++ b/components/richtext/RichTextDocumentUnit.pas @@ -64,19 +64,12 @@ Function ExtractTag( Var TextPointer: PChar ): TTag; // Returns tag ending at TextPointer // (Expects textpointer is currently pointing at the >) // and moves TextPointer to the first char of the tag -Function ExtractPreviousTag( const TextStart: PChar; - Var TextPointer: PChar ): TTag; - -function ExtractNextTextElement( TextPointer: PChar; - Var NextElement: PChar ): TTextElement; - -function ExtractPreviousTextElement( const TextStart: PChar; - TextPointer: PChar; - Var NextElement: PChar ): TTextElement; +Function ExtractPreviousTag( const TextStart: PChar; Var TextPointer: PChar ): TTag; +function ExtractNextTextElement( TextPointer: PChar; Var NextElement: PChar ): TTextElement; +function ExtractPreviousTextElement( const TextStart: PChar; TextPointer: PChar; Var NextElement: PChar ): TTextElement; // Parse a color name or value (#hexval). Returns true if valid -function GetTagColor( const ColorParam: string; - var Color: TfpgColor ): boolean; +function GetTagColor( const ColorParam: string; var Color: TfpgColor ): boolean; function GetTagTextAlignment( const AlignParam: string; const Default: TTextAlignment ): TTextAlignment; @@ -350,8 +343,7 @@ begin end; -function ExtractNextTextElement( TextPointer: PChar; - Var NextElement: PChar ): TTextElement; +function ExtractNextTextElement( TextPointer: PChar; Var NextElement: PChar ): TTextElement; var TheChar: Char; NextChar: char; |