From 01c1dcb5500e7f97119cf4ac77a4c5cd12d348dd Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 19 Aug 2008 01:02:11 +0000 Subject: [PATCH] LCL: removed 64bit workaround git-svn-id: trunk@16132 - --- lcl/include/wincontrol.inc | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index 67f2a21d9e..a994daac0f 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -1684,17 +1684,8 @@ var crsScaleChilds: begin - {$IFDEF CPU64} - {$NOTE remove this workaround, when compiler bug fixed} - if Child.MinimumSize[Orientation]=0 then - CurScale:=0 - else - CurScale:=double(Child.MinimumSize[Orientation]) - /Child.PreferredSize[Orientation]; - {$ELSE} CurScale:=double(Child.MinimumSize[Orientation]) /Child.PreferredSize[Orientation]; - {$ENDIF} CurOffset:=Child.PreferredSize[Orientation] -Child.MinimumSize[Orientation]; if (Factor.Offset=0) or (Factor.ScaleCurOffset) then begin