FiveTech Software tech support forums

... 23
// PieSlotPagina()
//OtraSlotPagina()
basesl:Skip()
ELSE
basesl:Skip()
ENDIF
ENDDO


ENDPAGE

PAGE
ENDPAGE

ENDPRINT

oFont11:END()
oFont12:END()
oFont13:END()
oFont14:END()
oFont15:END()
oFont16:END()
oBrush:End()
oPen:End()
SysRefresh()


basesl:Close()

return(nil)

... SIZE 40, 12 OF oDlg ;
ACTION ( lVal := .t. , oDlg:end() ) PIXEL

@ 130, 120 BUTTON oBtn2 PROMPT "Cancelar" SIZE 40, 12 OF oDlg ;
ACTION ( lVal := .f. , oDlg:end() ) CANCEL PIXEL

oDlg:lhelpicon := .F.

ACTIVATE DIALOG oDlg CENTERED
RETURN (.T.)

INIT PROCEDURE Setup()
SkinButtons()
RETURN NIL

... 125.15.13.12;Database=SQL_DATI;UID=admin;PWD=Max61;"

// Initialize the connection handle (hDbc) using SQLConnect
hDbc := SQLConnect( cConnString )

// Check if the connection was successful

IF hDbc == NIL
? "Connection failed!"
RETURN
ENDIF

Return nil


Thanks a lot for your attention.
Massimo

... aBtn[ 2 ] PROMPT "btnbmp" SIZE 100,40 PIXEL OF oDlg CENTER ;
ACTION ::ShowPopUp( PopupObject( Self ) )

ACTIVATE DIALOG oDlg CENTERED

return nil

function PopupObject(oBtn)

local oPop

MENU oPop POPUP
MENUITEM "One" ACTION test(oPop,oBtn);
CHECKED

MENUITEM "Two"
ENDMENU

return oPop ...

... METHOD End() CLASS TGemini

curl_easy_cleanup( ::hCurl )
::hCurl = nil

return nil

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

METHOD GetValue() CLASS TGemini

local uValue := hb ...

... 100,18 PIXEL OF oDlg action Hide_button(oDlg:oBar)

ACTIVATE DIALOG oDlg CENTER ;
ON INIT ( Btnbar(0,oBar,oDlg), Btnbar(1,oDlg:oBar,oDlg ))
RETURN NIL

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

Function Btnbar(nBar,oBar,oDlg) // ,aBtnBar

local aBtnBar ...

... hFTP, aFile[ 1 ], "c:\remanco\" + aFile[ 1 ] ,.t.,0,0,0 ) } )
ENDIF

else
// MsgAlert( "oFTP:hFTP is null" )
endif

oInternet:End()

return nil




function f_senden( cDatei )
local oInternet := TInternet():New()
local oFTP := TFTP():New( "ftp.test.info", oInternet, "salettainfo ...

... Send" SIZE 40, 15 ACTION SendPrompt( cPrompt, oOutput, oBtn, oPrompt ) DEFAULT

ACTIVATE DIALOG oDlg CENTERED

oChat:End()
oFont:End()

return nil

function SendPrompt( cPrompt, oOutput, oBtn, oPrompt )

local cToken

nStartTime = Seconds()
nTokenCount = 0

oBtn:Disable()
oChat ...

... EPOCH TO year( date() ) - 20
SET MULTIPLE OFF
SetGetColorFocus(nRGB( 203, 225, 252 ))
SetMGetColorFocus(nRGB( 203, 225, 252 ))

test()

return nil


Function test()
local cUser

cUser:="silvio"

? Calcola_TempoAccesso(cUser)

return nil


Function Calcola_TempoAccesso(cUser)
Local oUtenti ...

... Chr( 0x98 ) + Chr( 0xFE ) + ;
Chr( 0x4D ) + Chr( 0x1A ) + Chr( 0x3A ) + Chr( 0xD4 )
RoGetActivationFactory( pString, cIID, @pToastFactory )
WindowsDeleteString( pString )

// ... (rest of the code remains the same)

WinRTMethod( pNotifier, "Show", pNotification )

RoUninitialize()

return nil

... LOCAL nSecondsNow, nSecondsRemaining, nSecondsElapsed, nCont, nPos, cTxt, cCorAnt
LOCAL nPercent, cTexto, mSetDevice

xContNow := iif( xContNow == NIL, "", xContNow )
IF Empty( aStatic[ GRAF_TXT_BAR ] )
aStatic[ GRAF_TXT_BAR ] := Replicate( ".", MaxCol() )
FOR nCont = 1 to 10
nPos := Int( Len ...

... bug mejor.

Seguimos,

/* ****************************************************************** */
LOCAL oDlg, hBmp
LOCAL cTxt4QR := ""
Local oBtn := Nil
Local oImg := Nil


cTxt4QR := VF_URL_QR( AMPAARRA, ;
AllTrim( cNIF ), ;
AllTrim( cVFCODFAC ), ;
dDataFact, ;
nImpoTota ;
)

hBmp := FW ...

... todo en negro:
#include "FiveWin.ch"

function Main()

FW_CopyToClipBoard( bmp2Alpha( FW_BarCodeBmp( "Hola", "QRCODE", 400.0, 400.0 ) ) )

return nil

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp ...

... todo en negro:
#include "FiveWin.ch"

function Main()

FW_CopyToClipBoard( bmp2Alpha( FW_BarCodeBmp( "Hola", "QRCODE", 400.0, 400.0 ) ) )

return nil

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp:CreateFromRes( hBmp1, 0 )
oBmp:Conver24to32Alpha( .F. )
hBmp := oBmp ...

Carlos,

Has probado asi ?

FW_BarCodeBmp( cText, "QRCODE", 129, 129, Nil, CLR_WHITE )

No encuentro el código de Bmp2Alpha(), donde está ? :)


Sigue apareciendo el marco negro alrededor. QR no identificable.

Function bmp2alpha( hBmp1 )
local hBmp, oBmp
oBmp := GdiBmp():New()
oBmp ...