paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed hiding horizontal scrollbar from Julian Schutsch

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2439 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders 2012-05-17 13:01:47 +00:00
parent 95d589c4eb
commit 3a3e49b01c
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/cmdline/ucmdbox.pas
View File

@ -2887,6 +2887,7 @@ begin
ScrollBarPosition(SB_VERT, 0); ScrollBarPosition(SB_VERT, 0);
ScrollBarRange(SB_VERT, 0, FPageHeight); ScrollBarRange(SB_VERT, 0, FPageHeight);
ShowScrollBar(Handle, SB_VERT, True); { Disable the Scrollbar ! } ShowScrollBar(Handle, SB_VERT, True); { Disable the Scrollbar ! }
ShowScrollBar(Handle, SB_HORZ, False);
end; end;
end end
else else
@ -2895,6 +2896,7 @@ begin
begin begin
ScrollBarRange(SB_VERT, FVisibleLineCount, FPageHeight); ScrollBarRange(SB_VERT, FVisibleLineCount, FPageHeight);
ShowScrollBar(Handle, SB_VERT, True); ShowScrollBar(Handle, SB_VERT, True);
ShowScrollBar(Handle, SB_HORZ, False);
end; end;
end; end;
Invalidate; Invalidate;