paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 09:59:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: formatting

Browse Source 
git-svn-id: trunk@18394 -
This commit is contained in:
paul 2009-01-23 10:20:08 +00:00
parent 949b2781aa
commit 63f262a089
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/controlscrollbar.inc
View File

@ -317,9 +317,10 @@ begin
FOldScrollInfoValid := true;
SetScrollInfo(FControl.Handle, IntfBarKind[Kind], ScrollInfo, FVisible);
end;
if FOldHandleVisible<>FVisible then begin
if FOldHandleVisible <> FVisible then
begin
FOldHandleVisible:=FVisible;
ShowScrollBar(FControl.Handle,IntfBarKind[Kind],FVisible);
ShowScrollBar(FControl.Handle, IntfBarKind[Kind], FVisible);
end;
{$IFDEF VerboseScrollingWinControl}
if DebugCondition then

2
lcl/include/winapi.inc
View File

@ -342,7 +342,7 @@ begin
end;
function GetCursorPos(var lpPoint:TPoint): Boolean;
Begin
begin
Result := WidgetSet.GetCursorPos(lpPoint);
end;