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

added support for TCarbonDeviceContext.Draw dx-array parameter

Browse Source 
git-svn-id: trunk@20023 -
This commit is contained in:
dmitry 2009-05-18 04:37:51 +00:00
parent 095f1262a5
commit 37d924f53b
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/carbon/carbongdiobjects.pp
View File

@ -989,6 +989,8 @@ begin
theTag := kATSULayoutOperationOverrideTag;
theSize := sizeof (ATSULayoutOperationOverrideSpecifier);
theValue := @OverSpec;
ATSUSetTextLayoutRefCon(FLayout, UInt32(Self));
ATSUSetLayoutControls (FLayout, 1, @theTag, @theSize, @theValue);
end;
if OSError(ATSUDrawText(FLayout, kATSUFromTextBeginning, kATSUToTextEnd,
@ -999,6 +1001,7 @@ begin
DisposeATSUDirectLayoutOperationOverrideUPP(OverSpec.overrideUPP);
OverSpec.overrideUPP := nil;
ATSUSetLayoutControls (FLayout, 1, @theTag, @theSize, @theValue);
fDX := nil;
end;
Result := True;