FiveTech Software tech support forums

>>>
otmp:open(SQLCommando,ADO_SQL_Connectionstring)

>>>
If you want speed, do not use connection strings, use connection object which is already open.

... { "nombre", "dato" }, { cFileNoPath(cFile), HB_Base64Encode( uData, LEN( uData ) ) } ) y: uData:= HB_Base64Decode( oTmp:dato ) StrFile( uData, cFile ) Shellexecute( , "open", cFile ) o sea en vez de usar strhexa(), usar base64...() Espero te sirva. Salu2, ...

What is otmp?

EMG

... aca va la funcion bien hecha... gracias a devguru...!!! // ---------------------------------------------- FUNCTION AdoError(oCon, oError) LOCAL oTmp, x, n, xstrerror x:=ocon:errors:count() FOR n=0 to x-1 // oAdoErrors xstrerror:="Descrip.: "+ocon:errors:item(n):Description+CRLF xstrerror:=xstrerror+"SQLState: ...

... de datos. Utilicé primero la funcion showerror que figura en los post, y luego la adoerror. Les paso ambas: FUNCTION AdoError(oCon, oError) LOCAL oTmp FOR EACH oTmp IN oCon:Errors // oAdoErrors IF oError == nil oError := ErrorNew() oError:Description := "Error desconocido ADO" ELSE oError:SubCode ...

... left ) oGroup:=TGroup():New( 5, 5 , 15, 50, "Label1", oDlg, NIL, NIL,.F. , .F. , NIL ) STATIC FUNCTION GROUP_TEST(oGroup) local oBrush, oTmp DEFINE IMAGE oTmp FILENAME c_path + "\Bitmaps\Fantasy2.jpg" oBrush := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, oGroup:nWidth, oGroup:nHeight, ...

... see in the Include-file, I think it is not possible on MDI-frame. Instead, to show just a empty Screen, You can use a Dialog like : DEFINE IMAGE oTmp FILENAME c_Path + "\bitmaps\Backgrd.jpg" DEFINE DIALOG oDlg FROM 0, 0 TO 720, 1004 PIXEL ; // TRANSPARENT ; STYLE WS_POPUP | WS_VISIBLE ...

... DIALOG oDlg1 FROM 0, 0 TO 720, 1004 PIXEL ; STYLE WS_POPUP | WS_VISIBLE | WS_DLGFRAME | WS_THICKFRAME oBrush1 := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, 1004, 720 , .T. ) ) oDlg1:Setbrush( oBrush1 ) oTmp:End() 2. Changing the Image-format-filter, didn't detect a Directory-switch from Default ...

... FROM 0, 0 TO 720, 1004 PIXEL ; // TRANSPARENT ; STYLE WS_POPUP | WS_VISIBLE | WS_DLGFRAME | WS_THICKFRAME oBrush1 := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, 1004, 720 , .T. ) ) oDlg1:Setbrush( oBrush1 ) oTmp:End() Best Regards Uwe :lol:

... on a defined Template-area ( only 1 Dialog ) http://www.pflegeplus.com/pictures/templ22.jpg Load the Template : DEFINE IMAGE oTmp FILENAME c_Path + "\bitmaps\Template1.jpg" DEFINE DIALOG oDlg1 FROM 0, 0 TO nScrheight - 38, nScrwidth - 7 PIXEL TRANSPARENT ; STYLE ...

... it to use them as Window-background. LOCAL aRect3 := GetSysmetrics( 1 ) // Screen-Height LOCAL aRect4 := GetSysmetrics( 0 ) // Screen-Width LOCAL oTmp DEFINE IMAGE oTmp FILENAME c_Path + "\bitmaps\" + cImage1 oBrush := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, aRect4, aRect3, .T. ) ...

... := c_Path + "\bitmaps\Back3.jpg" ELSE here maybe possible, to close Window 1 ??? ( 2. call of MAIN() ) ENDIF ... ... DEFINE IMAGE oTmp FILENAME cImage1 oBrush1 := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, 1024, 768 - 145, .T. ) ) DEFINE WINDOW oWndMain FROM 1, 1 TO 20, 70 ; TITLE ...

... much. It works perfect now. My Final working Solution to adjust the Image ( Brush ) to Dialog-Size : STATIC FUNCTION FDIALOG() LOCAL oDlg, oBrush, oTmp ... ... DEFINE DIALOG oDlg FROM 150, 150 TO 520, 650 PIXEL ICON oIco BRUSH oBrush ; TITLE "Transparent STSAY on Dialog from code" // ...

Uwe:

Daniel Garcia-Gil wrote:ResizeBmp( oTmp:hBitmap, 580, 400, .T. ) // last parameter switch to max Quality, by default is FALSE

the parameter is to ResizeBmp no to Brush

oBrush := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, 580, 400, .T. ) )

... used as DIALOG-Background http://www.pflegeplus.com/pictures/quality7.jpg Maybe the Parameter .T. doesn't work ? DEFINE IMAGE oTmp FILENAME c_path + "\SYSTEM\" + W_IMAGE oBrush := TBrush():new( ,,,, ResizeBmp( oTmp:hBitmap, 580, 400 ), .T. ) DEFINE DIALOG oDlg FROM ...