diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-04-23 09:56:04 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-07-23 09:41:00 +0200 |
| commit | 26b9f1e9a89abbf0678812b4c421ee8e5399b6b8 (patch) | |
| tree | 459129b9a491ef1304f9f7b7f660ad77f60767e1 /docview/components/richtext | |
| parent | dbd2178335b155428948362003b9d02b49fb610f (diff) | |
| download | fpGUI-26b9f1e9a89abbf0678812b4c421ee8e5399b6b8.tar.xz | |
wip stash
Diffstat (limited to 'docview/components/richtext')
| -rw-r--r-- | docview/components/richtext/RichTextLayoutUnit.pas | 8 | ||||
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 2 |
2 files changed, 6 insertions, 4 deletions
diff --git a/docview/components/richtext/RichTextLayoutUnit.pas b/docview/components/richtext/RichTextLayoutUnit.pas index 7892ff20..b5a324b5 100644 --- a/docview/components/richtext/RichTextLayoutUnit.pas +++ b/docview/components/richtext/RichTextLayoutUnit.pas @@ -93,8 +93,8 @@ Type Var LineIndex: longint; Var Remainder: longint ): TTextPosition; // Layout functions - Procedure AddLineStart( Const Line: TLayoutLine ); - Procedure CheckFontHeights( Var Line: TLayoutLine ); + Procedure AddLineStart(var Line: TLayoutLine); + Procedure CheckFontHeights(var Line: TLayoutLine); Procedure Layout; function IsValidBitmapIndex( Index: longint ): boolean; // property handlers @@ -167,7 +167,7 @@ Begin Inherited Destroy; End; -Procedure TRichTextLayout.AddLineStart( Const Line: TLayoutLine ); +Procedure TRichTextLayout.AddLineStart(var Line: TLayoutLine); var NewAllocation: longint; begin @@ -199,7 +199,7 @@ ProfileEvent('DEBUG: TRichTextLayout.PerformStyleTag <<<'); end; // Check the current font specifications and see if the -// give line needs updating for max height/descender +// given line needs updating for max height/descender Procedure TRichTextLayout.CheckFontHeights( Var Line: TLayoutLine ); var FontHeight: longint; diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index 06b57dff..a0234468 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -792,8 +792,10 @@ procedure TRichTextView.HandleLMouseUp(x, y: integer; shiftstate: TShiftState); begin inherited HandleLMouseUp(x, y, shiftstate); if FClickedLink <> '' then + begin if Assigned( FOnClickLink ) then FOnClickLink( Self, FClickedLink ); + end; FClickedLink := ''; // reset link end; |