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

Minor customdrawn improvement, fixes compilation in some fpc versions

Browse Source 
git-svn-id: trunk@36164 -
This commit is contained in:
sekelsenmat 2012-03-19 11:52:01 +00:00
parent 1720bbaf07
commit f7c92839bd
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/customdrawn/customdrawnproc.pas
View File

@ -576,6 +576,8 @@ begin
// Consider the form scrolling
// ToDo: Figure out why this "div 2" factor is necessary for drawing non-windows controls and remove this factor
// If you remove this factor then the wincontrols are fine,
// but graphiccontrols scroll with a different speed which is a huge problem
ACanvas.BaseWindowOrg := Point(0, - lWindowHandle.ScrollY div 2);
ACanvas.WindowOrg := Point(0, 0);

2
lcl/interfaces/customdrawn/customdrawnwinapi.inc
View File

@ -1147,7 +1147,7 @@ var
LazDC: TLazCanvas absolute DC;
lControlStateEx: TCDControlStateEx;
lState: TCDControlState;
lSize: TSize;
lSize: Types.TSize;
begin
Result := False;