diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-28 12:04:47 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-10-28 12:04:47 +0200 |
| commit | 2de4cac728026c7df5ee8484002165c38648d8dd (patch) | |
| tree | 3c5dca929c456e6ace281715d67e8f42f4746777 /components | |
| parent | 724646729ff222dae3dbd2882627c827d01aa098 (diff) | |
| download | fpGUI-2de4cac728026c7df5ee8484002165c38648d8dd.tar.xz | |
Implemented a Location Bar
The statusbar text now gets updated to show you where in the help
file (based on TOC) you are.
Signed-off-by: Graeme Geldenhuys <graeme@mastermaths.co.za>
Diffstat (limited to 'components')
| -rw-r--r-- | components/richtext/RichTextView.pas | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/components/richtext/RichTextView.pas b/components/richtext/RichTextView.pas index 90ca2a09..b7beded5 100644 --- a/components/richtext/RichTextView.pas +++ b/components/richtext/RichTextView.pas @@ -654,7 +654,7 @@ begin ProfileEvent('TRichTextView.HandlePaint >>>'); Canvas.ClearClipRect; DrawBorder; -writeln('DEBUG: TRichTextView.HandlePaint 1'); +ProfileEvent('DEBUG: TRichTextView.HandlePaint 1'); DrawRect := GetDrawRect; Canvas.Color := BackgroundColor; Canvas.FillRectangle(DrawRect); @@ -762,7 +762,7 @@ begin inherited HandleLMouseDown(x, y, shiftstate); Position := FindPoint( X, Y, Line, Offset, Link ); FClickedLink := Link; - writeln('Pos=', Ord(Position), ' link=', Link); +// writeln('Pos=', Ord(Position), ' link=', Link); end; procedure TRichTextView.HandleLMouseUp(x, y: integer; shiftstate: TShiftState); |