On 24.05.2014 13:45, Juha Manninen wrote:
On Sat, May 24, 2014 at 2:26 PM, Sven Barth <pascaldra...@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
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
