diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-19 19:52:19 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2009-10-19 19:52:19 +0200 |
| commit | 128712ac5e4284587bf6067c661f097f97f77299 (patch) | |
| tree | dbaac51464e1867847baa4c7c790310f8bef342a | |
| parent | 565241ffdd1f194f2fabb7bef50397b456936a0a (diff) | |
| download | fpGUI-128712ac5e4284587bf6067c661f097f97f77299.tar.xz | |
Removed FScrollTimer as we don't need it yet.
| -rw-r--r-- | components/richtext/RichTextView.pas | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/components/richtext/RichTextView.pas b/components/richtext/RichTextView.pas index 8c7dd3fd..cb5f7786 100644 --- a/components/richtext/RichTextView.pas +++ b/components/richtext/RichTextView.pas @@ -107,7 +107,7 @@ Type FImages: TfpgImageList; // Selection scrolling - FScrollTimer: TfpgTimer; + //FScrollTimer: TfpgTimer; FOldMousePoint: TPoint; FScrollingDirection: TScrollingDirection; @@ -758,7 +758,7 @@ Begin if Assigned(FLayout) then FreeAndNil(FLayout); - FScrollTimer.Free; + //FScrollTimer.Free; if not InDesigner then begin RemoveCursor; @@ -872,8 +872,8 @@ ProfileEvent('DEBUG: TRichTextView.CreateWnd >>>>'); FVScrollBar.Orientation := orVertical; FVScrollbar.SetPosition(Width-2-FScrollbarWidth, 2, FScrollbarWidth, Height-4-FScrollbarWidth); - FScrollTimer := TfpgTimer.Create( 100 ); - FScrollTimer.OnTimer := @OnScrollTimer; +// FScrollTimer := TfpgTimer.Create( 100 ); +// FScrollTimer.OnTimer := @OnScrollTimer; // FLinkCursor := GetLinkCursor; @@ -1546,7 +1546,7 @@ begin exit; end; - ScrollDistance := FXScroll - FLastXScroll; +// ScrollDistance := FXScroll - FLastXScroll; { TODO -ograemeg -cscrolling : Implement horizontal scrolling } //ScrollControlRect( Self, |