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 := ...

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()

... nClrOBck , ;         nClrSmbr, nClrLin, cModo, lTransp, lUpdate )           CLASS TGSAY   LOCAL cValue   DEFAULT  oWnd    := GetWndDefault(), oFont := oWnd:oFont, ;        ...

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: ...

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.

... nClrOBck , ;         nClrSmbr, nClrLin, cModo, lTransp, lUpdate )           CLASS TGSAY   LOCAL cValue   DEFAULT  oWnd    := GetWndDefault(), oFont := oWnd:oFont, ;        ...

Estimado Joao,

Code: Select all  Expand view

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

... nClrOBck , ;         nClrSmbr, nClrLin, cModo, lTransp, lUpdate )           CLASS TGSAY   LOCAL cValue   DEFAULT  oWnd    := GetWndDefault(), oFont := oWnd:oFont, ;        ...

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.