FiveTech Software tech support forums

... Function EntryScr SET RESOURCES TO "EZ4SCR.DLL" DEFINE DIALOG oDlg RESOURCE 'RSFIELDS' TITLE 'In House List' .. .. ACTIVATE DIALOG oDlg ON PAINT (SetResources( MEMVAR->hResc )) return Regards, Dutch

... SET RESOURCES TO ("BWCC.DLL") SetResource( hResc ) .. Function Scr Set Resource To "SECOND.DLL" DEFINE DIALOG ... ACTIVATE DIALOG ... ; ON PAINT SetResources( hResc ) return Regards, Dutch

En el método Paint() de la Clase TButtonBmp hay este código: if ! Empty( ::hBitmap ) nTop = ( ::nHeight() / 2 ) - ( nBmpHeight( ::hBitmap ) / 2 ) nLeft = ( ::nWidth() / 2 ) - ( nBmpWidth( ::hBitmap ) / 2 ) if ::lActive DrawMasked( ...

1 - When I paint a bitmap in a dialog with @ x, y bitmap command it appears into a rectangle. How can I hide this border were the bitmap is painted? 2 - How can I draw a rectangle in a dialog or window? How can I fill it with a ...

... [ 2] = C Stack Calls =========== Called from LOCKERRHAN(0) Called from (b)INITHANDL$(0) Called from TSBROWSE:DRAWSELECT(2547) Called from TSBROWSE:PAINT(5535) Called from TSBROWSE:DISPLAY(1793) Called from TSBROWSE:HANDLEEVEN(0) Called from TSBROWSE:HANDLEEVEN(8604) Called from DIALOGBOX(0) Called ...

Antonio, This window is dialog. I found in eVc BasicDialog sample. Dialog is paint on full screen and have empty menu. This dialog looks very well. Right corner show Ok buttton vs standard X button. Dialog on init use SHIDIF_DONEBUTTON | SHIDIF_SIZEDLGFULLSCREEN ...

... !(NSELEANT)->(eof()) oWnd:oMsgbar:cMsgdef:="Fichero "+cFichtrab+" Actualizando Registro.."+Str(RecNo(),9)+" de "+Str(LastRec(),9) ownd:oMsgbar:paint() NSYS++ IF NSYS = 100 Sysrefresh() NSYS = 0 ENDIF (nSeletrab)->(dbappend()) for nCont := 1 to (OFTEMP)->(FCount()) if (nSeleant)->(fieldget(fieldpos((nSeletrab)->(fieldname(nCont)))))=Nil ...

... !(NSELEANT)->(eof()) oWnd:oMsgbar:cMsgdef:="Fichero "+cFichtrab+" Actualizando Registro.."+Str(RecNo(),9)+" de "+Str(LastRec(),9) ownd:oMsgbar:paint() NSYS++ IF NSYS = 100 Sysrefresh() NSYS = 0 ENDIF (nSeletrab)->(dbappend()) for nCont := 1 to (OFTEMP)->(FCount()) if (nSeleant)->(fieldget(fieldpos((nSeletrab)->(fieldname(nCont)))))=Nil ...

... CODE 0004:80E2 0027EH SETARRAY CODE 0004:8360 002F3H SETARRAY CODE 0004:8654 00279H SETTREE CODE 0004:88CE 00215H SETTREE CODE 0004:8AE4 00331H PAINT CODE 0004:8E16 002EDH PAINT CODE 0004:9104 0018FH PAINT CODE 0004:9294 00379H PAINT CODE 0004:960E 000D3H PAINT CODE 0004:96E2 0008FH PAINT CODE ...

!!Resuelto!! La verdad que sucede solo con xp, y la solucion la encontre en fivetilus ACTIVATE WINDOW _oWnd MAXIMIZED ; ON PAINT BmpTiled( hDC, _oWnd, oBmp ) STATIC FUNCTION BmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := ...

... 130 ) ; MENU BuildMenu() ; MENUINFO 2 ; MDI DEFINE BITMAP oBmp FILE "Imagen\Fondo.bmp" OF _oWnd bla....bla.. ACTIVATE WINDOW _oWnd MAXIMIZED ; ON PAINT DrawBitmap( hDC, oBmp:hBitmap, ; ( _oWnd:nHeight() / 2 ) - ( oBmp:nHeight() / 2 ), ; ( _oWnd:nWidth() / 2 ) - ( oBmp:nWidth() / 2 ),0,0 ) El problema ...

driessen wrote:1. Is there a possibility to store these files ?

The EMF files are stored at the Windows temporary directory: GetEnv("TEMP").

driessen wrote:2. Can these WMF-files be opened ? With which software ?

Yes, you may use a program like Paint Shop Pro, which it is shareware and may be downloaded from Internet.

Also I did this my paint fully - as for DBF as for array . For mouse move too . It works fine . I did one method : METHOD LineRepaint( nRowPrv, nRecPrv, nDirection ) CLASS TWBrowse local nRecNew := if( upper( ::cAlias ) != "ARRAY", ...

... . If choose ! lCellStyle , then all active row coloured with one color and the active cell too . I want to do something mix of both styles - paint active row with wanted color and underline with other color active cell . Is it possible ? Here is my own background painting for bBkColor color ...

Pablo.

Gracias, resulto.

mi problema era el on paint, ahora funciona.