paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 17:59:22 +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; FOldScrollInfoValid := true;
SetScrollInfo(FControl.Handle, IntfBarKind[Kind], ScrollInfo, FVisible); SetScrollInfo(FControl.Handle, IntfBarKind[Kind], ScrollInfo, FVisible);
end; end;
if FOldHandleVisible<>FVisible then begin if FOldHandleVisible <> FVisible then
begin
FOldHandleVisible:=FVisible; FOldHandleVisible:=FVisible;
ShowScrollBar(FControl.Handle,IntfBarKind[Kind],FVisible); ShowScrollBar(FControl.Handle, IntfBarKind[Kind], FVisible);
end; end;
{$IFDEF VerboseScrollingWinControl} {$IFDEF VerboseScrollingWinControl}
if DebugCondition then if DebugCondition then

2
lcl/include/winapi.inc
View File

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