FiveTech Software tech support forums

... HandleEvent() message WM_UPDATEUISTATE, added support for controls TBtnBmp when placed on button bars. * Enhancement: CLASS TTrayIcon new DATA lSuccess to check if the tray icon was properly set. This allows to perform an oTray:SetIcon() from time to time. If oTray:lSuccess is .F., then I can ...

James Bott wrote:if hDC > 0

Code: Select all  Expand view

if hDC != 0

Look inside printer.prg.

James Bott wrote:lSuccess := resetDC( hDC )

Code: Select all  Expand view

lSuccess := DeleteDC( hDC )

It is needed when CreateDC() is used.

EMG

... "ODBC", "DsnLoginID", "nn", cName) cPass := oIni:Get( "ODBC", "DsnPassWord", "xxxxxxxx", cPass) oOdbc := TOdbc():New(cDsn, cName, cPass) If !oOdbc:lSuccess .OR. lError(,,, .t.) oOdbc:ShowErrorList(LoadValue(1051, CH)) // ODBC session not successfully initialized, aborting... oOdbc:End() Return(.f.) ...

... changes below in TTray.prg: 14. CLASS TTrayIcon 15. 16. DATA oTray 17. DATA oWnd 18. DATA oIcon 19. DATA cCaption DATA lSuccess // <-- 20. 21. DATA bLClicked .... 124. c := oTray:cBuffer 125. 126. ::lSuccess := ...

... Try this: //--- Is drive ready? FUNCTION ISREADY( cDrive ) LOCAL cCurPath := CURDRIVE() + ":\" + CURDIR() LOCAL lReady := LCHDIR( cDrive + "." ) lSuccess:=.f. IF lReady LCHDIR( cCurPath ) lSuccess:= .T. ENDIF RETURN lSuccess

Alvaro,

do you mean directories or a folder control ?

Directories can be created with lMkDir (cDir) -> lSuccess.

... HARBOUR HB_FUN_INSERTMENU( PARAMS ) // ( hMenu, nIdItem, nFlags, nNewItem, cPrompt ) --> lSuccess { _retl( InsertMenu( ( HMENU ) _parnl( 1 ), _parni( 2 ), _parni( 3 ), _parni( 4 ), _parc( 5 ) ) ); } //----------------------------------------------------------------------------// ...

... oRdd := TRddOdbc():New("rtl_polling", "SA", "*****") *oRdd := TRddOdbc():New("Northwind", "SA", "*****") If !oRdd:oOdbc:lSuccess oRdd:oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oRdd:End() return nil Endif // oRdd:oOdbc:lAbort := .f. ...

... example. ****************** Function LS_odbc() ****************** Local oODBC := TOdbc():New "DsnEntry", "YourName", "YourPassword") If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif *oDbf := oOdbc:Query( "SELECT * ...

... tengo la siguiente funcion: function cargaSQL() public oRdd:= Trddodbc():New("subsec", "subsec", "xxxxx") public oODBC:= oRdd:oOdbc If oOdbc:lSuccess MSGINFO("Sistema inicializado correctamente","Conexión") else msgalert("El sistema no pudo abrir la base de datos, cerrando aplicacion...") ...

... el ejemplo samples\DateTime.prg. Gracias a Fernando Alsis! * Nuevo: En FWPPC, en la clase TWindow el método SaveToBmp( cBmpFileName ) --> lSuccess. Ahora puedes guardar cualquier ventana o control como en un fichero en disco con formato de mapa de bits "bitmap". * Mejora: La función ErrorSys() ...

... TTimePicker. Please review samples\DateTime.prg. Thanks to Fernando Alsis! * New: FWPPC, Class TWindow Method SaveToBmp( cBmpFileName ) --> lSuccess. Now you can save any window or control image as a bitmap file on disk. * Enhancement: ErrorSys() has been modified to support xHarbour "ARRAYRDD" ...

... local aData := {} Local cnombre SET 3D LOOK ON sele 1 use \fwh\fenix\tventas.dbf browse() oOdbc := TOdbc():New( "fenix", "", "" ) If !oOdbc:lSuccess oOdbc:ShowErrorList("ODBC session not successfully initialized, aborting...") oOdbc:End() return nil Endif oDbf := TDbOdbcDirect():new( "SELECT ...

... conectar a la bd por odbc: cuando hago esta sentencia : function cargaSQL() public oRdd:= Trddodbc():New("adm") public oODBC:= oRdd:oOdbc If oOdbc:lSuccess MSGINFO("Sistema inicializado correctamente") else MSGSTOP ("El sistema no pudo inicializarse, cerrando aplicacion...") oOdbc:showerrorlist() ...

... #ifdef __HARBOUR__ CLIPPER ENABLECOMMNOTIFICATION( PARAMS ) // ( nComDev, hWnd, nInBytes, nOutBytes ) // --> <lSuccess> #else CLIPPER ENABLECOMM( PARAMS ) // NOTIFICATION( nComDev, hWnd, nInBytes, nOutBytes ) #endif // --> <lSuccess> { _retl( EnableCommNotification( ...