FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour ya no salen trasparentes los say en el FWH 10.6 HELP!!!
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
ya no salen trasparentes los say en el FWH 10.6 HELP!!!
Posted: Thu Jun 24, 2010 09:17 PM
Hola Antonio como estas espero que muy bien :-)

Fijate que tengo una ventanita donde salen datos y antes los say salían transparentes con fivewin 10.5 pero ahora con
fivewin 10.6 salen con un cuadro blanco :-) que podra estar mal :-)

es un folder dentro de un windows mdi

aqui con 10.5



aqui con 10.6


Uploaded with ImageShack.us

Uploaded with ImageShack.us[/img]


Aqui pongo un cachito de mi programita es la parte que comente
Code (fw): Select all Collapse
 DEFINE WINDOW oApp:oWnd   from oApp:oTop,oApp:oLeft to oApp:oBottom,oApp:oRight  TITLE "Polizarium Control de Polizas V 1.00 2010" COLOR CLR_WHITE, CLR_BLUE    ;
            MDI MENU oMenu brush oBrush1 STYLE nOr( WS_OVERLAPPED + WS_CAPTION + WS_CLIPCHILDREN )






@ 28.40,40 FOLDER oFldd PROMPTS "&Datos del cliente", "&Polizas","&Primas pagadas","&Graficas primas pagadas" OF   oApp:oWnd SIZE 753, 269 


SetParent( oFldd:hWnd, oApp:oWnd:hWnd )

 //  AQUI ES DONDE DEJO DE ESTAR LOS SAY TRANSPARENTES :?  :?  :?  :? 


DEFINE FONT oFont NAME "Ms Serif" SIZE 62,12



@ 1,1  SAY oApp:osay PROMPT "NOMBRE :"        OF oFldd:aDialogs[ 1 ] COLOR nRgb(253,253,253 ),nRgb( 132, 112, 255)
@ 1,12 say oApp:OGETN var oApp:GETNOM        OF oFldd:aDialogs[ 1 ] size 350,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 253,253,253) //SHADOW //FONT oFont
@ 1,73 SAY oApp:osay PROMPT "TELEFONOS :"   OF oFldd:aDialogs[ 1 ]  COLOR nRgb( 132, 112, 255), nRgb(253,253,253  )
@ 1,87 say oApp:oGETT  var oApp:gett             OF oFldd:aDialogs[ 1 ] size 100,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255) //SHADOW
@ 1,107 say oApp:oGETT2 var oApp:GETT2        OF oFldd:aDialogs[ 1 ] size 100,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255) //SHADOW
@ 3,01 SAY oApp:osay PROMPT "DIRECCION :"    OF oFldd:aDialogs[ 1 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 3,12 say oApp:oGETDIREC var oApp:GETDIREC OF oFldd:aDialogs[ 1 ] size 442,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)
@ 3,89 SAY oApp:osay PROMPT "CIUDAD :"         OF oFldd:aDialogs[ 1 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 3,98 say oApp:oGETCIU var oApp:gETCIU        OF oFldd:aDialogs[ 1 ] size 156,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)

@ 5,01 SAY oApp:osay PROMPT "CORREO ELECTRONICO :"  OF oFldd:aDialogs[ 1 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 5,25 say oApp:aEmail var oApp:cEmail                          OF oFldd:aDialogs[ 1 ] size 256,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)

@ 7,01 SAY oApp:osay PROMPT "PAGINA INTERNET :"     OF oFldd:aDialogs[ 1 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 7,25 say oApp:aPagina var oApp:cPagina                   OF oFldd:aDialogs[ 1 ] size 256,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)


@ 1,1  SAY oApp:osay PROMPT "POLIZA :"      OF oFldd:aDialogs[ 2 ] COLOR nRgb(253,253,253 ),nRgb( 132, 112, 255)
@ 1,10 say oApp:oGETPOL var oApp:gETPOL    OF oFldd:aDialogs[ 2 ] size 150,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)
@ 1,36 SAY oApp:osay PROMPT "INCISO :"      OF oFldd:aDialogs[ 2 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 1,44 say oApp:oGETINC var oApp:gETINC     OF oFldd:aDialogs[ 2 ] size 40,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)
@ 3,01 SAY oApp:osay PROMPT "RAMO :  "      OF oFldd:aDialogs[ 2 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 3,10 say oApp:oRAMOS var oApp:RAMO       OF oFldd:aDialogs[ 2 ] size 40,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)
@ 5,01 SAY oApp:osay PROMPT " FICHA  "       OF oFldd:aDialogs[ 2 ] COLOR nRgb(253,253,253  ),nRgb( 132, 112, 255)
@ 5,10 say oApp:oFICHA var oApp:rFICHA       OF oFldd:aDialogs[ 2 ] size 64,18 BORDER COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)

@ 97,25 BTNBMP oBtn PROMPT "Solicitud PDF"  OF oFldd:aDialogs[ 2 ]   SIZE 110, 30 FILE "16X16\pdf.bmp" 2007  LEFT ACTION VerPDF (oApp:cFichero:=str(AUTOS->FOLIO))
@ 97,200 BTNBMP oBtn PROMPT "Poliza PDF"    OF oFldd:aDialogs[ 2 ]   SIZE 110, 30 FILE "16X16\pdf.bmp" 2007  LEFT ACTION VerPDFF(oApp:cFichero:=AUTOS->poliza)




@ 1,40 GET oApp:mCOmmENtS var oApp:MeMiTo  size 400,110 OF oFldd:aDialogs[ 2 ] MEMO MULTILINE COLOR nRgb(0,0,0  ),nRgb( 240, 250, 255)


**************************************************************************************************************************************************
 dbselectarea( "pagos" )


@ 00,00 XBROWSE oApp:oBrwPag OF oFldd:aDialogs[3] ;
            HEADERS "Poliza", "Inciso","Cobertura","Prima Total";
            FIELDS alltrim(PAGOS->POLIZA)    ,;
                          PAGOS->INCISO    ,;
                    AUTOS->COBERTURA    ,;
                        PAGOS->IMPORTE_TO ;
                               COLSIZES 20,100 ,100, 100  SIZE 752,245;
                                 PICTURES "@!","@!","@!","$999,999.99"  ON CLICK Sndplaysound("beep1.wav")







**************************************************

 oApp:oBrwPag:bClrStd:= { || If( ( (oApp:oBrwPag:cAlias)->(OrdKeyNo()) % 2 ) == 0, { CLR_BLACK, RGB( 224, 236, 255 ) }, { CLR_BLACK, CLR_RED } ) }


                oApp:oBrwPag:lFastEdit     := .f.
  
        oApp:oBrwPag:aCols[ 1 ]:nDataStrAlign:= AL_LEFT
        oApp:oBrwPag:aCols[ 2 ]:nDataStrAlign:= AL_LEFT
        oApp:oBrwPag:aCols[ 3 ]:nDataStrAlign:= AL_LEFT
        oApp:oBrwPag:aCols[ 4 ]:nDataStrAlign:= AL_RIGHT

      XbrStyles( oApp:oBrwPag )

    
     oApp:oBrwPag:SetRDD()

     oApp:oBrwPag:lTransparent := .F.




         oApp:oBrwPag:CreateFromCode()
         oApp:oBrwPag:oclient := oApp:oWnd


**************************************************************************************************************************************************

    @ 0,0 GRAPH ooGraph  OF oFldd:aDialogs[ 4 ]  SIZE 755, 245

    APERS2 := {"Vida","Autos","G.M.M","Daños"}

    ooGraph:lBorders:= .T.
    ooGraph:lViewVal:= .T.
    ooGraph:lcTitle:= .T.
    ooGraph:lyGrid   := .T.
    ooGraph:lxGrid   := .T.
    ooGraph:cPicture:="9999999999"
    ooGraph:cTitle:= "PRIMAS PAGADAS"
    ooGraph:l3D     := .T.
    ooGraph:lPopUp  := .T.
    ooGraph:lLegends:= .T.
    ooGraph:nType   := 4
    ooGraph:nClrX   := CLR_WHITE
    ooGraph:nClrY   := CLR_WHITE
    ooGraph:nClrV   := CLR_WHITE
    ooGraph:nMaxVal := 100
    ooGraph:cBitmap := "ima\blue.Bmp"
    ooGraph:AddSerie({10,20,30,40},"VENTAS",CLR_BLUE,4,.T.)
    ooGraph:SetYVals(aPers2)



 //---------------------------------------------------------------------------
 @  67,00 SPLITTER oHSpl1 HORIZONTAL _3DLOOK SIZE 1037,  4 PIXEL ;
             TOP    MARGIN  70 OF oApp:oWnd COLOR nRgb(25,25,112)
                         oHSpl1:lStatic:=.T.


@  420.00,245 SPLITTER oHSpl11 HORIZONTAL _3DLOOK SIZE 1032,  4 PIXEL ;
             TOP    MARGIN  100 OF oApp:oWnd  COLOR nRgb(25,25,112)
                         oHSpl11:lStatic:=.T.



                   @  65,240 SPLITTER oVSp;
                         VERTICAL ;
              PREVIOUS CONTROLS oOutLook2003 ;
              LEFT MARGIN 70 ;
              RIGHT MARGIN 202 ;
              SIZE 4, 1000 PIXEL ;
              OF oApp:oWnd ;
              _3DLOOK ;
    COLOR nRgb(25,25,112) ;
    UPDATE
             oVSp:lStatic:=.T.






          SetParent( oHSpl1:hWnd, oApp:oWnd:hWnd )
          SetParent( oHSpl11:hWnd, oApp:oWnd:hWnd )
          SetParent( oVSp:hWnd, oApp:oWnd:hWnd )







//------------------------------------------------------------------------
        
        DIITA := DAY(DATE())
        oApp:dFecha:= CMONTH(DATE())
              ANITO := YEAR(DATE())

              DIITA:=STR(DIITA)
              ANITO:=STR(ANITO)


              mesito:=tmes(oApp:dFecha)


               SET MESSAGE OF oApp:oWnd TO "Polizarium 2010" CENTERED CLOCK KEYBOARD 2007


          WndCenter( oApp:oWnd:hWnd )

               ACTIVATE WINDOW oApp:oWnd ;
      ON INIT (SetImagess( oApp:oWnd, oFld ),SetImages( oApp:oWnd, oFldd ));
   ON RESIZE oSplit:Adjust();
   ON PAINT oFldd:aDialogs[01]:bPainted:={||PintaTela( oFldd:aDialogs[01],0.20, 13147479, 16777215,0.20, 16777215, 13147479) }



//-----------------------//
  **-----------------------------------------------------------------------------------------------------------**
**    Pintar o fundo de uma tela( Dlg,Folder,Wnd)                                                            **
**-----------------------------------------------------------------------------------------------------------**
**    Parametros    : oDlg : Onde vai pintar                                                                     **
**                : Cor1 : Cor incial na parte de cima da tela                                                 **
**                : Cor2 : Cor Final  na parte de baixo da tela                                                **
**    Exemplo        : oDlg[1]:bPainted:={|| PintaTela(oDlg[1],GetSysColor(15),GetSysColor(16) )}                 **
**-----------------------------------------------------------------------------------------------------------**
    FUNCTION PintaTela(oDlgTxt,aCor1,aCor2)
    LOCAL hWnd:=oDlgTxt:hWnd
    LOCAL aRec:=GetClientRect(hWnd)
    LOCAL oBrush,nX,nStp:=(aRec[3]-aRec[1])/2
    LOCAL nColor1:=IF(Empty(aCor1),GetSysColor(15),aCor1)
    LOCAL nColor2:=IF(Empty(aCor2),GetSysColor(15),aCor2)
    LOCAL nColorR1:=nRgbRed(nColor1),nColorG1:=nRgbGreen(nColor1),nColorB1:=nRgbBlue(nColor1)
    LOCAL nColorR2:=nRgbRed(nColor2),nColorG2:=nRgbGreen(nColor2),nColorB2:=nRgbBlue(nColor2)
    LOCAL nSomaR:=ABS(nColorR2-nColorR1),nSomaG:=ABS(nColorG2-nColorG1),nSomaB:=ABS(nColorB2-nColorB1)
    nSomaR:=IIF(nSomaR<0,0,(nSomaR/((aRec[3])/2)))
    nSomaG:=IIF(nSomaG<0,0,(nSomaG/((aRec[3])/2)))
    nSomaB:=IIF(nSomaB<0,0,(nSomaB/((aRec[3])/2)))
    oDlgTxt:GetDC()
    aRec[3]:=0
    FOR nX:=1 TO nStp
        aRec[3]+=2
        DEFINE BRUSH oBrush COLOR nRgb(nColorR1,nColorG1,nColorB1)
        FillRect(oDlgTxt:hDC,aRec,oBrush:hBrush)
        RELEASE BRUSH oBrush
        aRec[1]+=2
        nColorR1:=IIF(nColorR2>=nColorR1,nColorR1+nSomaR,nColorR1-nSomaR)
        nColorG1:=IIF(nColorG2>=nColorG1,nColorG1+nSomaG,nColorG1-nSomaG)
        nColorB1:=IIF(nColorB2>=nColorB1,nColorB1+nSomaB,nColorB1-nSomaB)
    NEXT
    oDlgTxt:ReleaseDC()
    RETURN(NIL)

    //-------------------------------------------------------------------------//



Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Antonio Linares
Posts: 44158
Joined: Thu Oct 06, 2005 05:47 PM
Re: ya no salen trasparentes los say en el FWH 10.6 HELP!!!
Posted: Sat Jun 26, 2010 08:57 AM

Aida,

Acabamos de publicar una versión revisada de FWH 10.6 que debe corregir eso entre otras cosas :-)

gracias!

regards, saludos

Antonio Linares
www.fivetechsoft.com
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: ya no salen trasparentes los say en el FWH 10.6 HELP!!!
Posted: Sat Jun 26, 2010 09:12 AM

Hola Antonio

Gracias por todo ahorita lo checo toy de desvelada :P

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

Continue the discussion

Static archive · New replies & topics via GitHub Discussions