From 965624865be3021c7f5bfaffc1c4c85f2af8b39f Mon Sep 17 00:00:00 2001 From: micha Date: Wed, 12 May 2004 09:17:34 +0000 Subject: [PATCH] fix show scrollbars git-svn-id: trunk@5457 - --- components/synedit/synedit.pp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/components/synedit/synedit.pp b/components/synedit/synedit.pp index 24b6f02d42..86ad4da65b 100644 --- a/components/synedit/synedit.pp +++ b/components/synedit/synedit.pp @@ -4161,7 +4161,7 @@ begin Exclude(fStateFlags, sfScrollbarChanged); if fScrollBars <> ssNone then begin ScrollInfo.cbSize := SizeOf(ScrollInfo); - ScrollInfo.fMask := SIF_ALL or SIF_DISABLENOSCROLL; + ScrollInfo.fMask := SIF_ALL or SIF_DISABLENOSCROLL and not SIF_TRACKPOS; ScrollInfo.nMin := 1; ScrollInfo.nTrackPos := 0; if fScrollBars in [ssBoth, ssHorizontal] then begin @@ -4174,10 +4174,10 @@ begin {end} //mh 2000-10-19 ScrollInfo.nPage := CharsInWindow; ScrollInfo.nPos := LeftChar; - SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); {$IFDEF SYN_LAZARUS} - ShowScrollBar(Handle,SB_HORZ,True); + ShowScrollBar(Handle, SB_HORZ, True); {$ENDIF} + SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True); //writeln('>>>>>>>>>> [TCustomSynEdit.UpdateScrollbars] nMin=',ScrollInfo.nMin, //' nMax=',ScrollInfo.nMax,' nPage=',ScrollInfo.nPage, //' nPos=',ScrollInfo.nPos, @@ -4202,10 +4202,10 @@ begin ScrollInfo.nPage := MulDiv(MAX_SCROLL, LinesInWindow, nMaxScroll); ScrollInfo.nPos := MulDiv(MAX_SCROLL, TopLine, nMaxScroll); end; - SetScrollInfo(Handle, SB_VERT, ScrollInfo, True); {$IFDEF SYN_LAZARUS} - ShowScrollBar(Handle,SB_VERT,True); + ShowScrollBar(Handle, SB_VERT, True); {$ENDIF} + SetScrollInfo(Handle, SB_VERT, ScrollInfo, True); end; end; end;