[fpc-pascal] Canvas.TextStyle

[Sven Barth]

On 24.05.2014 13:45, Juha Manninen wrote:
> On Sat, May 24, 2014 at 2:26 PM, Sven Barth <pascaldragon at googlemail.com> wrote:
>> http://wiki.freepascal.org/User_Changes_2.4.0#Treating_direct-mapped_properties_as_regular_fields
>
> Ok, then this becomes an LCL issue. How to port Delphi code like
>    Canvas.TextFlags := Canvas.TextFlags or ETO_RTLREADING
>    Canvas.TextFlags := Canvas.TextFlags or LAYOUT_SUPERSCRIPT;
>
> TextStyle was the closest thing to TextFlags I could find.
> If nobody knows the answer, I will continue my experiments. I know
> this is not a Lazarus list.

I don't know what exactly TextStyle provides, but if it has fields 
similar to the flags of TextFlags the following would be the way to go:

=== code begin ===

var
   t: TextStyle;
begin
   t := Canvas.TextStyle;
   t.RtlReading := True;
   t.SuperScript := True;
   Canvas.TextStyle := t;
end;

=== code end ===

Regards,
Sven