[Lazarus] TextExtent and Font.Orientation

[Alexander Klenin]

Michael Van Canneyt wrote:
>
>
> On Sat, 30 May 2009, Robert wrote:
>
>> I tried to use current http://code.google.com/p/python4delphi with
>> Lazarus. Did somebody use P4D successfully with recent Lazarus?
>> Patches? I face a few problems.
>>
>>
>> What about this problem, and what could be a workaround?
>> http://code.google.com/p/python4delphi/source/browse/trunk/PythonForDelphi/Components/Sources/Core/VarPyth.pas 
>>
>>
>>
>> ### from variants.pp #########
>> procedure TCustomVariantType.VarDataClear(var Dest: TVarData);
>>
>> begin
>>    NotSupported('TCustomVariantType.VarDataClear');
>> end;
>> ...
>> #########################
>
> I implemented some methods in TCustomVariantType (subversion of 
> today), but there are still quite some missing. Please test to see if 
> it gets you any further.
>

thanks, I took&compiled only the new variants.pp into the RTL

Then VarPyth.Import worked and walking/calling the Python object tree 
works now.
But any assignments to or from Python and argument passing fail.

  pp := Import('pp');
  pp.x.y();     // works!
  i := pp.f();  // EVariantTypeCastError (i:Integer or LongInt)
  pp.a := 99;   // TCustomVariantType.RaiseDispError not supported
  pp.f(6);      // TCustomVariantType.RaiseDispError not supported


Does it help to take more of current SVN ? or a principal problem with 
Typecasts?

Robert


#0 fpc_raiseexception at :0
#1 VARUTILS_VARIANTTYPEMISMATCH$WORD$WORD at :0
#2 VARUTILS_VARIANTTOLONGINT$TVARDATA$$LONGINT at :0
#3 VARIANTS_SYSVARTOINT$VARIANT$$LONGINT at :0
#4 SYSTEM_assign$VARIANT$$LONGINT at :0
#5 ?? at :0
#6 TFORM1__FORMCREATE(0x12a4b8, 0x12a4b8) at main.pas:114
#7 TCUSTOMFORM__DOCREATE(0x12a4b8) at customform.inc:659
#8 TCUSTOMFORM__CREATE(0xf6308, 0x0, 0x12a4b8) at customform.inc:1448
#9 TFORM__CREATE(0xf6308, 0x1, 0x12a4b8) at customform.inc:2202
#10 TAPPLICATION__CREATEFORM(<incomplete type>, void, 0xf6308) at 
application.inc:1837


#0 fpc_raiseexception at :0
#1 VARIANTS_NOTSUPPORTED$ANSISTRING at :0
#2 VARIANTS_TCUSTOMVARIANTTYPE_$__RAISEDISPERROR at :0
#3 PARSEPARAM(0, 0x7fb74) at VarPyth.pas:1056
#4 TPYTHONVARIANTTYPE__DODISPINVOKE(0x0, {VTYPE = 527, RES1 = 0, RES2 = 
0, RES3 = 0, VSMALLINT = 22640, VINTEGER = 743536, VSINGLE = 
1.04191585e-039, VDOUBLE = 3.6735559404621709e-318, VCURRENCY = 743536, 
VDATE = 3.6735559404621709e-318, VOLESTR = 0xb5870, VDISPATCH = 0xb5870, 
VERROR = 743536, VBOOLEAN = true (22640), VUNKNOWN = 0xb5870, VSHORTINT 
= 112, VBYTE = 112, VWORD = 22640, VLONGWORD = 743536, VINT64 = 743536, 
VQWORD = 743536, VWORD64 = 743536, VSTRING = 0xb5870, VANY = 0xb5870, 
VARRAY = 0xb5870, VPOINTER = 0xb5870, VRECORD = 0xb5870, PRECINFO = 0x0, 
VLONGS = {0, 743536, 0}, VWORDS = {0, 0, 0, 22640, 11, 0, 0}, VBYTES = 
#0#0#0#0#0#0'pX'#11#0#0#0#0}, 0x571e88, 0x7fc44, 0xaed48) at 
VarPyth.pas:1106
#5 TPYTHONVARIANTTYPE__DISPINVOKE(0x0, {VTYPE = 527, RES1 = 0, RES2 = 0, 
RES3 = 0, VSMALLINT = 22640, VINTEGER = 743536, VSINGLE = 
1.04191585e-039, VDOUBLE = 3.6735559404621709e-318, VCURRENCY = 743536, 
VDATE = 3.6735559404621709e-318, VOLESTR = 0xb5870, VDISPATCH = 0xb5870, 
VERROR = 743536, VBOOLEAN = true (22640), VUNKNOWN = 0xb5870, VSHORTINT 
= 112, VBYTE = 112, VWORD = 22640, VLONGWORD = 743536, VINT64 = 743536, 
VQWORD = 743536, VWORD64 = 743536, VSTRING = 0xb5870, VANY = 0xb5870, 
VARRAY = 0xb5870, VPOINTER = 0xb5870, VRECORD = 0xb5870, PRECINFO = 0x0, 
VLONGS = {0, 743536, 0}, VWORDS = {0, 0, 0, 22640, 11, 0, 0}, VBYTES = 
#0#0#0#0#0#0'pX'#11#0#0#0#0}, 0x571e88, 0x7fc44, 0xaed48) at 
VarPyth.pas:942
#6 VARIANTS_SYSDISPINVOKE$PVARDATA$TVARDATA$PCALLDESC$POINTER at :0
#7 fpc_dispinvoke_variant at :0
#8 TFORM1__FORMCREATE(0x12a4b8, 0x12a4b8) at main.pas:115
#9 TCUSTOMFORM__DOCREATE(0x12a4b8) at customform.inc:659
#10 TCUSTOMFORM__CREATE(0xf6308, 0x0, 0x12a4b8) at customform.inc:1448
#11 TFORM__CREATE(0xf6308, 0x1, 0x12a4b8) at customform.inc:2202
#12 TAPPLICATION__CREATEFORM(<incomplete type>, void, 0xf6308) at 
application.inc:1837