FOLDEREX - Efecto del SAY y GET

[davidObarrio]

Amigos !!

Usando FOLDEREX

Code: Select all  Expand view

DEFINE DIALOG oDlgCar FROM 0, 0 TO 32.5, 90 TITLE 'E Q U I P O S'

  @  0.875,  1 SAY 'Detalle:' Of oDlgCar
  @      1,  7 GET mDETA Of oDlgCar FONT oFont2 //picture replicate('!',len(mDETA))
  @      2,  7 GET mDET2 Of oDlgCar FONT oFont2 //picture replicate('!',len(mDETA))

  @ 48, 1 FOLDEREX oFol PIXEL SIZE 340,160 ; //ADJUST;
          PROMPT 'Datos Generales' ,;
                 'Ubicicacion/Rango/Escala/Unidad' ,;
                 'Compra/Servicio Tecnico' ,;
                 'Controles' ,;
                 'Documentos' ,;
                 'Descripcion General' ,;
                 'Usuarios' ,;
                 'Observaciones' ,;  
                 'Imagen'  ;
          ON PAINT TEXT( If( nOption = ::nOption .and. nOption = 2, CLR_BLUE, CLR_BLACK ) ) ;
          TOP ;
          OPTION 1 ;
          ALIGN 2, 2, 2

 

lo muestra de la siguiente forma:



como puedo sacar el efecto gris...

muchas gracias

David

[joseluisysturiz]

Si es para quitar esos grises, creo que debes REDEFINIR los SAY, me pasaba lo mismo y con eso lo resolvi, saludos...

[cnavarro]

Has probado a ponerle SETCOLOR o BRUSH a los Dialogos?
Por ejemplo:

Code: Select all  Expand view

//... Definicion del FOLDEREX

          DEFINE BRUSH oBrush COLOR CLR_WHITE
           For x = 1 To Len( aPrompts )
               oFld:aDialogs[x]:SetBrush( oBrush )
           Next x