paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-05 22:26:57 +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); Exclude(fStateFlags, sfScrollbarChanged);
if fScrollBars <> ssNone then begin if fScrollBars <> ssNone then begin
ScrollInfo.cbSize := SizeOf(ScrollInfo); 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.nMin := 1;
ScrollInfo.nTrackPos := 0; ScrollInfo.nTrackPos := 0;
if fScrollBars in [ssBoth, ssHorizontal] then begin if fScrollBars in [ssBoth, ssHorizontal] then begin
@ -4174,10 +4174,10 @@ begin
{end} //mh 2000-10-19 {end} //mh 2000-10-19
ScrollInfo.nPage := CharsInWindow; ScrollInfo.nPage := CharsInWindow;
ScrollInfo.nPos := LeftChar; ScrollInfo.nPos := LeftChar;
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
ShowScrollBar(Handle,SB_HORZ,True); ShowScrollBar(Handle, SB_HORZ, True);
{$ENDIF} {$ENDIF}
SetScrollInfo(Handle, SB_HORZ, ScrollInfo, True);
//writeln('>>>>>>>>>> [TCustomSynEdit.UpdateScrollbars] nMin=',ScrollInfo.nMin, //writeln('>>>>>>>>>> [TCustomSynEdit.UpdateScrollbars] nMin=',ScrollInfo.nMin,
//' nMax=',ScrollInfo.nMax,' nPage=',ScrollInfo.nPage, //' nMax=',ScrollInfo.nMax,' nPage=',ScrollInfo.nPage,
//' nPos=',ScrollInfo.nPos, //' nPos=',ScrollInfo.nPos,
@ -4202,10 +4202,10 @@ begin
ScrollInfo.nPage := MulDiv(MAX_SCROLL, LinesInWindow, nMaxScroll); ScrollInfo.nPage := MulDiv(MAX_SCROLL, LinesInWindow, nMaxScroll);
ScrollInfo.nPos := MulDiv(MAX_SCROLL, TopLine, nMaxScroll); ScrollInfo.nPos := MulDiv(MAX_SCROLL, TopLine, nMaxScroll);
end; end;
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);
{$IFDEF SYN_LAZARUS} {$IFDEF SYN_LAZARUS}
ShowScrollBar(Handle,SB_VERT,True); ShowScrollBar(Handle, SB_VERT, True);
{$ENDIF} {$ENDIF}
SetScrollInfo(Handle, SB_VERT, ScrollInfo, True);
end; end;
end; end;
end; end;