Re: [lazarus] Adding AllowFractionalPositioning to TCarbonDeviceContext

[Mattias Gaertner]

On Sun, 04 Nov 2007 15:15:41 +0100
Tobias Giesen <[EMAIL PROTECTED]> wrote:

> Hello,
> 
> if we add the property to TCarbonDeviceContext, is that accessible
> from a custom component in a reasonable way? Would Phil be willing to
> change a property in TCarbonDeviceContext using the appropriate
> typecasts?
> 
> Fractional positioning should never be turned off globally for the 
> application, since I am sure Phil's applications will use TLabels
> too. So the property must be in each canvas or DC.

You can add for example

function SetFontFractionalPositioning(DC: HDC;
  UseFractionalPositioning: boolean): boolean;
to carboncanvas.pp

Then you can use

{$IFDEF LCLcarbon}
uses carboncanvas;
{$ENDIF}

function SetFontFractionalPositioning(DC: HDC;
  UseFractionalPositioning: boolean): boolean;
begin
  {$IFDEF LCLcarbon}
  Result:=carboncanvas....
  {$ELSE}
  Result:=true;
  {$ENDIF}
end;


Mattias

_________________________________________________________________
     To unsubscribe: mail [EMAIL PROTECTED] with
                "unsubscribe" as the Subject
   archives at http://www.lazarus.freepascal.org/mailarchives