topic-28173

Board index FiveWin para Harbour/xHarbour FOLDEREX - Efecto del SAY y GET

Posts: 72

Joined: Tue Oct 02, 2012 04:36 PM

FOLDEREX - Efecto del SAY y GET
Posted: Wed Mar 05, 2014 01:24 PM

Amigos !!

Usando FOLDEREX

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

Posts: 2064

Joined: Fri Jan 06, 2006 09:28 PM

Re: FOLDEREX - Efecto del SAY y GET
Posted: Wed Mar 05, 2014 04:44 PM

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

Dios no está muerto...

Gracias a mi Dios ante todo!

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: FOLDEREX - Efecto del SAY y GET
Posted: Wed Mar 05, 2014 08:35 PM

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

Code (fw): Select all Collapse

//... Definicion del FOLDEREX

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion