paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-04 13:18:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

fix show scrollbars

Browse Source 
git-svn-id: trunk@5457 -
This commit is contained in:
micha 2004-05-12 09:17:34 +00:00
parent 7f77713e6c
commit 965624865b
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -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;