FiveTech Software tech support forums

Pues parece que ::lSombra es nil

Deberias incializar esa DATA en el Redefine()

IF ::lSombra // MASTER: linea 486 AQUI

Envié un correo electrónico completo a su correo electrónico maestro.

Regards, saludos.

Cual es la línea 486 ?

METHOD Pintar( nClrLetra, hBrush ) CLASS TGSAY  // PINTA RECUADRO, FONDO Y LETRA (CON O SIN FOCO)   LOCAL hOFnt,nBkMd,nTxCl   LOCAL nOldP := SelectObject(::hDc,::hObj[1])   LOCAL nOldB := SelectObject(::hDc,IF(::lTransp .AND. hBrush...

Que código hay en la línea 486 ?

Called from: TGSay.prg => TGSAY:PINTAR( 486 )

En el código fuente que has compartido la línea 486 no está en el método Pintar()

Master: Error description: Error BASE/1066 Argument error: conditional METHOD Redefine( nId, oWnd, bText, cPict, oFont, oCursor, bLClicked       , ;         cHAlign, cVAlign, nClrText, nClrPane, nClrOTxt, nClrOBck , ;         nClrS...

Mueve esta línea:

::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)

desde el Método Redefine() al método Initiate()

Pronto Maestro: Application===========   Path and name: c:\TGSAY\TESTGSAY.exe (32 bits)   Size: 3,498,496 bytes   Compiler version: xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914)   FiveWin  version: FWH 19.05   C compile...

Joao,

Copia aqui el error.log, gracias

Master Antonio, creo que el problema ahora, sea aqui:

Code: Select all  Expand view

   ::nAngle := Min(Max((Min(::nWidth,::nHeight))/1.5,6),25)
 

Regards, saludos.

https://imgur.com/PbH9b0D https://i.imgur.com/PbH9b0D.png Master Antônio,    REDEFINE GSAY oGST[ 01 ] VAR aTits[ 01 ] ID 401 OF oDlg ;      COLOR RGB( 255, 180, 020 ) TRANSPARENTE FONT oFont COLORSOMBRA 0METHOD Redefine( n...

Estimado Joao,

Code: Select all  Expand view

if hb_IsBlock( bText )
   cValue := EVAL( bText )
else
   if ValType( bText ) == "C"
      cValue = bText
   endif
endif

cValue := EVAL( bText ) // que esta errado aqui? Line 253. METHOD Redefine( nId, oWnd, bText, cPict, oFont, oCursor, bLClicked       , ;         cHAlign, cVAlign, nClrText, nClrPane, nClrOTxt, nClrOBck , ;         nClrSmbr, nClrLin...

Si alguien puede hacerlo funcionar con recursos, se lo agradecería mucho.

Descarga completa aquí:

https://mega.nz/file/hdUi0BrZ#09W81vAYXD2gL-i3xcAtmEN-JALV7Zz4JmEeViaN3oo

Regards, saludos.

Que lástima, NO FUNCIONA con RESOURCES!

https://imgur.com/6bZLgFA



Regards, saludos.