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

lcl: carbon: clean up

Browse Source 
git-svn-id: trunk@38878 -
This commit is contained in:
mattias 2012-09-28 08:27:52 +00:00
parent 77958ad8a4
commit 49cbe561e4
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/carbon/carbonwinapi.inc
View File

@ -2311,6 +2311,7 @@ var
Info: PLinearGradientInfo; Info: PLinearGradientInfo;
Tmp: TColorComponents; Tmp: TColorComponents;
begin begin
Result:=nil;
GetMem(Info, SizeOf(TLinearGradientInfo)); GetMem(Info, SizeOf(TLinearGradientInfo));
SwapColors := (BR.Y < TL.Y) and (BR.X < TL.X); SwapColors := (BR.Y < TL.Y) and (BR.X < TL.X);
if BR.X < TL.X then if BR.X < TL.X then
@ -2422,9 +2423,6 @@ function TCarbonWidgetSet.GradientFill(DC: HDC; Vertices: PTriVertex;
end; end;
end; end;
const
MeshSize: Array[Boolean] of Integer = (
SizeOf(tagGradientRect), SizeOf(tagGradientTriangle));
var var
i: Integer; i: Integer;
begin begin