bb.donnay-software.com

Code: Select all

Date        : 25.06.2018
Time        : 10:54:28
Procedure   : DC_FONTCONFIGURE
Line Number : 156
Information : Error BASE/1025
Description : Parameter hat falschen Typ
Operation : :init
Thread ID : 6
Source      : 
Called from : (B)INIT: _DCINIT(32)
Called from : DC_FONTCONFIGURE(156)
Called from : DC_XBPPUSHBUTTONXP:CONFIGURECAPTIONARRAY(1946)
Called from : DC_XBPPUSHBUTTONXP:CREATE(528)
Called from : DC_GETLIST:CREATEOBJECT(11886)
Called from : DC_GETLIST:READGUI(2169)
Called from : DC_READGUI(113)
Called from : MAILDIALOG(1035)
Called from : STARTMAILDIALOG(686)
Called from : INTMAILSENDEN(262)

Code: Select all

  @0.1, 0.2      DCPUSHBUTTONXP OBJECT oA1 SIZE tbr-0.5,1.2 ;
                  CAPTIONARRAY {{ {|| DC_GetBitMap(aAnh[1][3])},, 1, 1, 30, 30, 4,,}, ;
                                { {|| aAnh[1][1]}, GRA_CLR_BLACK, 15, 35,,,, '10.Arial Fett',,}, ;
                                { {|| StrFilesize(aAnh[1][2])}, GRA_CLR_BLACK, 48, 35,,,,'8.Arial',,} } ;
                  COLOR GRA_CLR_BLACK, GRA_CLR_WHITE ;
                  MOUSECOLOR GRA_CLR_BLACK, GRA_CLR_HIGHLIGHT ;
                  CLICKCOLOR GRA_CLR_BLACK, GRA_CLR_HIGHLIGHT ;
                  ACTION {|| iif(!empty(aAnh[1][2]), DC_SpawnUrl(ConvToAnsiCP(alltrim(aAnh[1][2]))), nil)} ;
                  HIDE {|| empty(aAnh[1][1])} ;
                  EVAL _bDoppelklick

Code: Select all

  IF Valtype(aScaleFactor) == 'A' .AND. aScaleFactor[5]
    nPointSize *= aScaleFactor[3]
    cCompoundName := Alltrim(Str(Int(nPointSize))) + '.' + cFamilyName
  ENDIF

  IF Valtype(oFont) # 'O'

WTF oPS  <<<< debugging

      oFont := XbpFont():new( oPS )
      oFont:create(cCompoundName)
  ENDIF

  IF oFont:status() <= 0
    RETURN oFont
  ENDIF