FiveTech Support Forums

Hola amigos :
Esto me da error en la version 11.06 (no abre el dialogo, es el Brush porque si lo saco no da problema.)
Funcionaba OK con la 11.05
Las variables estan declaradas, no las pongo aqui por lo extenso. Tanbien tenia fonts definidos que aqui no los puse
para hacerlo mas corto.
De todas maneras el problema es el BRUSH con los Checkbox.

Saludos
Ruben Fernandez
Gracias...

FUNCTION PRUEBA()
LOCAL lFinRec:=.f.

DEFINE BRUSH oBrushNuevo RESOURCE "PAPER"
DEFINE DIALOG oDlgRI RESOURCE "INGRECIBO" TITLE "Ingreso de Recibo" BRUSH oBrusNuevo TRANSPARENT
REDEFINE checkbox oCheq1 VAR nRad1 ID 110 OF oDlgRI UPDATE
REDEFINE GET oGetI1 VAR nImp1 ID 120 of oDlgRI UPDATE PICTURE "999,999.99" WHEN nRad1

REDEFINE BUTTON oBt10 PROMPT "Salir" ID 130 OF oDlgRI ;
ACTION (lFinRec:=.t., oDlgRi:End())

ACTIVATE DIALOG oDlgRI CENTERED VALID LFinRec NOWAIT

oBrushNuevo:End()

Return(.F.)

Gracias...

Ruben,

Prueba a construir samples\TestTrn2.prg, aqui funciona bien, gracias!

Gracias Antonio. Era error mio, funciona todo bien.

Tengo la clase trbbtn modificada para que los botones no aparezcan transparentes y verlos con los colores.
Y asi no poner en el on init del dialogo oboton:lTransparent:=.f.

Gracias y disculpe, vere como lo hago nuevamente.

Saludos Maestro.