paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 16:19:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-Win32: Invalidate OI's edit control also on Windows. Issue #34539.

Browse Source 
git-svn-id: trunk@59553 -
This commit is contained in:
juha 2018-11-16 10:18:52 +00:00
parent 122dfbd2ce
commit 300fac7486
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
components/ideintf/objectinspector.pp
View File

@ -2751,9 +2751,6 @@ end;
procedure TOICustomPropertyGrid.SetTopY(const NewValue:integer);
var
NewTopY: integer;
{$IFDEF WINDOWS}
r: Types.TRect;
{$ENDIF}
begin
NewTopY := TopMax;
if NewValue < NewTopY then
@ -2761,11 +2758,7 @@ begin
if NewTopY < 0 then
NewTopY := 0;
if FTopY<>NewTopY then begin
{$IFDEF WINDOWS}
r := ClientRect;
if not ScrollWindowEx(Handle,0,FTopY-NewTopY,@r,@r,0,nil, SW_INVALIDATE+SW_SCROLLCHILDREN) then
{$ENDIF}
Invalidate;
Invalidate;
FTopY:=NewTopY;
UpdateScrollBar;
AlignEditComponents;