paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:39:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed typo in InvalidateScollInfo by Martin Smat

Browse Source 
git-svn-id: trunk@12905 -
This commit is contained in:
marc 2007-11-17 16:56:22 +00:00
parent 9686ac7924
commit 65035435c1
2 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -116,7 +116,7 @@ type
procedure SetSmooth(const Value: Boolean); virtual;
procedure SetVisible(const Value: Boolean); virtual;
procedure UpdateScrollBar; virtual;
procedure InvalidateScollInfo;
procedure InvalidateScrollInfo;
{$ifdef VerboseScrollingWinControl}
function DebugCondition: Boolean;
{$endif}

16
lcl/include/controlscrollbar.inc
View File

@ -74,7 +74,7 @@ begin
// check that the new position is also set on the scrollbar
if HandleAllocated and (GetScrollPos(ControlHandle, IntfBarKind[Kind]) <> FPosition) then
begin
InvalidateScollInfo;
InvalidateScrollInfo;
{$IFDEF VerboseScrollingWinControl}
if DebugCondition then
DebugLn(['TControlScrollBar.SetPosition FPosition=',FPosition]);
@ -102,7 +102,7 @@ begin
begin
ScrollInfo.fMask := SIF_PAGE;
GetScrollInfo(ControlHandle, IntfBarKind[Kind], ScrollInfo);
InvalidateScollInfo;
InvalidateScrollInfo;
FPage := ScrollInfo.nPage;
end;
Result := FPage;
@ -116,7 +116,7 @@ begin
begin
ScrollInfo.fMask := SIF_POS;
GetScrollInfo(ControlHandle, IntfBarKind[Kind], ScrollInfo);
InvalidateScollInfo;
InvalidateScrollInfo;
FPosition := ScrollInfo.nPos;
end;
Result := FPosition;
@ -130,7 +130,7 @@ begin
begin
ScrollInfo.fMask := SIF_Range + SIF_Page;
GetScrollInfo(ControlHandle, IntfBarKind[Kind], ScrollInfo);
InvalidateScollInfo;
InvalidateScrollInfo;
FRange := ScrollInfo.nMax - ScrollInfo.nMin - integer(ScrollInfo.nPage);
end;
Result := FRange;
@ -145,7 +145,7 @@ function TControlScrollBar.GetVisible: Boolean;
begin
if HandleAllocated and (not (FControl is TScrollingWinControl)) then
begin
InvalidateScollInfo;
InvalidateScrollInfo;
FVisible := GetScrollbarVisible(Controlhandle, IntfBarKind[Kind]);
end;
Result := FVisible;
@ -180,7 +180,7 @@ begin
if HandleAllocated then
begin
Result := LCLIntf.GetScrollBarSize(ControlHandle,KindID);
InvalidateScollInfo;
InvalidateScrollInfo;
end else
Result := GetSystemMetrics(KindID);
end;
@ -318,7 +318,7 @@ begin
end;
end;
procedure TControlScrollBar.InvalidateScollInfo;
procedure TControlScrollBar.InvalidateScrollInfo;
begin
FOldScrollInfoValid:=false;
end;
@ -372,7 +372,7 @@ begin
NewPos := 0;
if NewPos > FRange then
NewPos := FRange;
InvalidateScollInfo;
InvalidateScrollInfo;
SetPosition(NewPos);
end;