diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-02-07 17:03:08 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2011-03-08 10:18:16 +0200 |
commit | 73591fba3e8399ba9acb3921cbbbc0e47cfc61c6 (patch) | |
tree | a8de7fb1eba5289007097a04a0adf2b33921a99d | |
parent | 8dfea42eddff5e4d896919380d16acc2ff109e5e (diff) | |
download | fpGUI-73591fba3e8399ba9acb3921cbbbc0e47cfc61c6.tar.xz |
docview: Removed left-over debug code. Sorry! :-(
-rw-r--r-- | docview/components/richtext/RichTextView.pas | 22 |
1 files changed, 8 insertions, 14 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index 5e518d78..799d9f36 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -41,8 +41,6 @@ Type TScrollingDirection = ( sdUp, sdDown ); -var - testvar: integer = 0; Type @@ -772,10 +770,9 @@ var begin inherited HandleLMouseDown(x, y, shiftstate); Offset := 0; - testvar := 1; Position := FindPoint( X, Y, Line, Offset, Link ); FClickedLink := Link; - writeln(' link=', Link, ' line=', Line, ' offset=', offset); + //writeln(' link=', Link, ' line=', Line, ' offset=', offset); if Position in [tpAboveTextArea, tpBelowTextArea] then // not on the control (this probably won't happen) @@ -1105,9 +1102,6 @@ function TRichTextView.FindPoint( XToFind: longint; var TextHeight: longint; begin - if testvar = 1 then - testvar := 0; - LineIndex := 0; Offset := 0; Link := ''; @@ -2096,8 +2090,8 @@ begin FCursorRow := Row; Index := FLayout.GetCharIndex( FLayout.FLines^[ Row ].Text ) + Offset; - writeln(' SetCursorPosition: offset=', FCursorOffset, ' row=', FCursorRow, ' index=', Index); - exit; + //writeln(' SetCursorPosition: offset=', FCursorOffset, ' row=', FCursorRow, ' index=', Index); + exit; { TODO: Complete this selection of text code - currently gives AV's } if PreserveSelection then begin SetSelectionEndInternal( Index ) @@ -2778,11 +2772,11 @@ begin end else begin - writeln('need to scroll down, desired row below bottom line'); - writeln('BottomLine = ', BottomLine, ' Row = ', Row); - writeln('new pos = ', FLayout.GetLinePosition( Row ) - + FLayout.FLines^[ Row ].Height - - GetTextAreaHeight); + //writeln('need to scroll down, desired row below bottom line'); + //writeln('BottomLine = ', BottomLine, ' Row = ', Row); + //writeln('new pos = ', FLayout.GetLinePosition( Row ) + // + FLayout.FLines^[ Row ].Height + // - GetTextAreaHeight); // need to scroll down, desired row below bottom line if ( BottomLine <> -1 ) and ( Row >= BottomLine ) then |