FiveTech Software tech support forums

... ningun valor en screenWidth y screenHeight wvt_SetFont( "Lucida Console", Round(( screenHeight / MaxRow() ),0)-4, Round(( screenWidth / MaxCol() ),0), 0 ) El proyecto lo compilo con BCCo VSS funciona.

... oPac := oDba:Query(cSql) If oPac == Nil Return(Nil) EndIf Define Window oPacWnd Title "Pacotes" MDIChild Of oWnd From 0,0 To MaxRow(),MaxCol() NoSysMenu Define ButtonBar oPacBar Top Size 60,60 2007 3D Of oPacWnd Define Button Of oPacBar NoBorder Resource "ref32" Prompt "Atualizar" ...

... MakeDir(<cDirectory>)->nOSError Mantissa(<nFloat>)->nMantissa Max(<xExp1>,<xExp2>)->xLarger MaxCol()->nColumn MaxLine(<cText>)->nMaxLineLength MaxRow()->nRow MCol()->nMouseCol MDblClk([<nNewInterval>])->nMilliSeconds ...

... KSetIns KSetNum KSetScroll L2Bin LastDayoM LastKey LastRec Left Len LenNum LoadLibrary Log Log10 Lower LtoN LTrim LUpdate MakeDir Mantissa Max MaxCol MaxLine MaxRow MCol MDblClk MDY MemoEdit MemoLine MemoRead Memory MemoTran MemoWrit MemvarBlock MHide MilliSec Min Minute MLCount MLCToPos MLeftDown ...

... eliminado e ON CHANGE con el mismo resultado, No alcanzo a ver que sucede --------------------------- DEFINE Window oWndIva From 0,0 to MaxRow(),MaxCol(); ICON oIconAbm; COLOR "N/W+"; TITLE OemToAnsi("Apuntes con Iva"); BORDER NONE NOSYSMENU NOMINIMIZE NOMAXIMIZE Barra() Cfactura() ...

... que funcione El cambio mas importante es este Antes Function AbmCon( oWnd ) ccp_codi:=space(3) DEFINE Window oWndCon OF oWnd From 0,0 to MaxRow(),MaxCol(); Ahora Function AbmCon() ccp_codi:=space(3) DEFINE Window oWndCon From 0,0 to MaxRow(),MaxCol(); Y LA LLAMADA al programa AbmCon Antes REDEFINE ...

... "conind01" Else Return NIL EndIf DEFINE ICON oIconAbm RESOURCE "WorkAreas" DEFINE Window oWndCon OF oWnd From 0,0 to MaxRow(),MaxCol(); ICON oIconAbm; COLOR "N/W+"; TITLE OemToAnsi("Fichero De Conceptos"); BORDER NONE NOSYSMENU NOMINIMIZE NOMAXIMIZE SET ...

... handle this function returns empty. for example: PROCEDURE Main LOCAL pThread CLS USE Customer pThread := StartThread( "ShowTime", 0, MaxCol()-7 ) Browse() StopThread( pThread ) WaitForThreads() RETURN PROCEDURE ShowTime( nRow, nCol ) DO WHILE .T. DispOutAt( nRow, nCol, Time() ) ThreadSleep( ...

Silvio, Tested from resource without any problem.( big exe-file ) Some improvements and new documentation for better understandig of image-positioning- and speed-adjustment included. Just change the defined values to see the different results. Now You can define / calculate the space between the ima...

but now I'm trying at office and it seems to run ok
very very very very strange

Antonio, It is strange we use oDgl21 ( dialog) and it is static I have the CardMove function ( made from Uwe and Modify by me) see the call to this function static oDlg21static c_path1static oSprite[52]static nCardstatic adeckstatic ncardval  := 1static ccardname := 2static ccardBmp  := 3sta...

Silvio,

Are you using ... OF oWnd when you create your bitmap ?

from bitmap.prg line 178:

nHeight := Min( ::nHeight(), oWnd:nHeight() )

it seems as oWnd is nil

Uwe, your test sample run ok and it was I wish When I put this function on my source it make error and I not understood why the error Application===========   Path and name: G:\13_02_2016\BlackJack\BlackJack.Exe (32 bits)   Size: 7,474,688 bytes   Compiler versi...

Silvio, added new calculations to display VERTICAL movements I still have to bring the last painted image on TOP After all I think the basics are done for You to carry on with the rest. have a look at Your email ( I changed from RESOURCE to FILENAME for my tests ! ) The changes for VERTICAL movement...

Silvio,

left down or down left is my other sample.
I think You need a DIAGONAL-calculation
from the upper-right corner ?



best regards
Uwe