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

carbon: fix linear gradient

Browse Source 
git-svn-id: trunk@42851 -
This commit is contained in:
paul 2013-09-18 07:49:59 +00:00
parent 875f854c30
commit e1f9d84e5e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2305,7 +2305,6 @@ 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
@ -2328,6 +2327,7 @@ begin
Info^.colors[0] := Info^.colors[1]; Info^.colors[0] := Info^.colors[1];
Info^.colors[1] := Tmp; Info^.colors[1] := Tmp;
end; end;
Result:=Info;
end; end;
procedure LinearGradientReleaseInfo(info: UnivPtr); mwpascal; procedure LinearGradientReleaseInfo(info: UnivPtr); mwpascal;