Re: [Harbour] Ghost cursor with GTWVT
Hi, El 01/04/2010 19:26, Viktor Szakáts escribió: BTW there were a lot of screen painting irregularities without WS_EX_LAYERED, when the window was behind another window and foremost window was moved. It also fixes painting issue when app is doing a loop, or otherwise unresponsive. Thanks but this is under control. Remember that GTWVT is a pure Windows GUI and it need to process messages to refresh the screen. It does this with the outputs to screen and inputs from keyboard. In typical code like loops with pure RDDs you can force this with SetPos .- nCursor := SetCursor( 0 ) WHILE !EOF() SetPos( 0, 0 ) ... SKIP() ENDDO SetCursor( nCursor ) I try to avoid such hacks in high-level code if possible, though in most places there is a gauge visible in these operations. Plus, there are cases when this cannot work at all: f.e. when launching another process and waiting for it to complete, or another extreme example when app crashes / hangs. EX_LAYERED will keep a buffer of the screen, which gives better performance for screen refreshes, and it also makes the app behave/look smoother. Regardless I think it's not the job of high-level code to ensure screen refresh. BTW, even with this I can see artifacts with GTWVT, f.e. visible pixel-wide vertical lines between full-block characters. Much worse is GTWIN, where complete pixels are missing/left on screen and which are Windows problems. Brgds, Viktor inline: gtwin-artifact1.pnginline: gtwin-artifact2.pnginline: gtwvt-artifact.png___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] SF.net SVN: harbour-project:[14264] trunk/harbour
Revision: 14264 http://harbour-project.svn.sourceforge.net/harbour-project/?rev=14264view=rev Author: vszakats Date: 2010-04-02 07:41:59 + (Fri, 02 Apr 2010) Log Message: --- 2010-04-02 09:40 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + config/ren_sfn.prg - external/bzip2/cnv_hb2o.bat - external/bzip2/cnv_o2hb.bat + external/bzip2/ren_sfn.txt - external/libhpdf/cnv_o2hb.bat - external/libhpdf/cnv_hb2o.bat + external/libhpdf/ren_sfn.txt - external/pcre/cnv_o2hb.bat - external/pcre/cnv_hb2o.bat + external/pcre/ren_sfn.txt + Replaced .bat method for converting long filenames to short ones to a .prg script and simple text input file. Also much of the logic is automatized. * src/rtl/gtwvt/gtwvt.c * Minor in old comment. * INSTALL - Deleted no more relevant restriction with HB_BUILD_PKG. * contrib/hbwin/wapi_winuser.c * contrib/hbwin/hbwin.ch + Added WAPI_SETWINDOWPOS() + relevant constants. + Added WIN_WS_* constants. + Added WAPI_ISICONIC(), WAPI_ISZOOMED(). * contrib/hbwin/tests/testax.prg ! Fixed to compile without warning. * Using hbwin.ch. Modified Paths: -- trunk/harbour/ChangeLog trunk/harbour/INSTALL trunk/harbour/contrib/hbwin/hbwin.ch trunk/harbour/contrib/hbwin/tests/testax.prg trunk/harbour/contrib/hbwin/wapi_winuser.c trunk/harbour/src/rtl/gtwvt/gtwvt.c Added Paths: --- trunk/harbour/config/ren_sfn.prg trunk/harbour/external/bzip2/ren_sfn.txt trunk/harbour/external/libhpdf/ren_sfn.txt trunk/harbour/external/pcre/ren_sfn.txt Removed Paths: - trunk/harbour/external/bzip2/cnv_hb2o.bat trunk/harbour/external/bzip2/cnv_o2hb.bat trunk/harbour/external/libhpdf/cnv_hb2o.bat trunk/harbour/external/libhpdf/cnv_o2hb.bat trunk/harbour/external/pcre/cnv_hb2o.bat trunk/harbour/external/pcre/cnv_o2hb.bat This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] error compiling from svn
For compiling I use set path=C:\MinGW\bin;c:\qt\qt\bin;c:\cvs\harbour\harbour\bin;%PATH% ( %PATH% includes older harbour and bcc compiler) mingw32-make clean install From log.txt ! Building Harbour 2.1.0dev from source - http://www.harbour-project.org ! MAKE: mingw32-make 3.81 sh.exe clean install ! HB_HOST_PLAT: win (x86) HB_SHELL: nt ! HB_PLATFORM: win (x86) (autodetected) ! HB_COMPILER: mingw (autodetected: C:/MinGW/bin/) cut gcc-dw2 -I. -I../../../../../include -O3 -fomit-frame- --- HERE IT CORRECTLY USES gcc-dw2 cut ../../../../../bin/win/mingw/harbour.exe ../../../hbrun.prg -i../../../../../include -n1 -q0 -w3 -es2 -kmo -i- -l gcc-dw2 -I. -I../../../../../include -Wall -W -O3 -fomit-frame-pointer -march=i586 -mtune=pentiumpro -DHB_LEGACY_TYPES _OFF -DUNICODE -ohbrun.o -c hbrun.c windres -O coff -o hbrun.res ../../../hbrun.rc gcc non S riconosciuto come comando interno o esterno, un programma eseguibile o un file batch. windres: preprocessing failed. mingw32-make[3]: *** [hbrun.res] Error 1 mingw32-make[2]: *** [descend] Error 2 mingw32-make[1]: *** [hbrun.inst] Error 2 mingw32-make: *** [utils.inst] Error 2 It ends in this way, saying that gcc is not an executable file... and infact it should have called gcc-dw2... :-) Compilation stops... ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] error compiling from svn
Hi, This seems like mingw distro bug. You can try to work it around by making sure gcc.exe also exists next to the -dw2 version. I think normally it should be there though. Or try using official distro if you absolutely need dw2. Anyway it's not Harbour problem. Brgds, Viktor On Fri, Apr 2, 2010 at 11:58 AM, francesco perillo fperi...@gmail.com wrote: For compiling I use set path=C:\MinGW\bin;c:\qt\qt\bin;c:\cvs\harbour\harbour\bin;%PATH% ( %PATH% includes older harbour and bcc compiler) mingw32-make clean install From log.txt ! Building Harbour 2.1.0dev from source - http://www.harbour-project.org ! MAKE: mingw32-make 3.81 sh.exe clean install ! HB_HOST_PLAT: win (x86) HB_SHELL: nt ! HB_PLATFORM: win (x86) (autodetected) ! HB_COMPILER: mingw (autodetected: C:/MinGW/bin/) cut gcc-dw2 -I. -I../../../../../include -O3 -fomit-frame- --- HERE IT CORRECTLY USES gcc-dw2 cut ../../../../../bin/win/mingw/harbour.exe ../../../hbrun.prg -i../../../../../include -n1 -q0 -w3 -es2 -kmo -i- -l gcc-dw2 -I. -I../../../../../include -Wall -W -O3 -fomit-frame-pointer -march=i586 -mtune=pentiumpro -DHB_LEGACY_TYPES _OFF -DUNICODE -ohbrun.o -c hbrun.c windres -O coff -o hbrun.res ../../../hbrun.rc gcc non S riconosciuto come comando interno o esterno, un programma eseguibile o un file batch. windres: preprocessing failed. mingw32-make[3]: *** [hbrun.res] Error 1 mingw32-make[2]: *** [descend] Error 2 mingw32-make[1]: *** [hbrun.inst] Error 2 mingw32-make: *** [utils.inst] Error 2 It ends in this way, saying that gcc is not an executable file... and infact it should have called gcc-dw2... :-) Compilation stops... ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] Re: SF.net SVN: harbour-project:[14263] trunk/harbour
On Thu, 01 Apr 2010, Pritpal Bedi wrote: Hi Pritpal, Thank you for required change. Can you show a small snippet how to inherit a new GT from existing GTWVT. Goal is to : GTWVG inherits GTWVT to avoid redundancy. I'll try to add to GTWVT support for some GUI objects containers. They will not be used by GTWVT directly but should greatly help to write upper level GTs which will inherit from GTWVT adding real code for windows GUI elements. It should help to eliminate repeated code from GTWVG be enabling simple inheritance from GTWVT and also write new GTWVW replacement. Now I'm still very busy so I do not have time to make any bigger modifications in Harbour core code or even answer to many massages addressed for me (sorry to all that I'm ignoring them) and I only make few minutes breaks in a day writing some messages or committing some very simple modifications but there is big chance that in this month I'll finish my most important business projects and in next month I'll find more time for Harbour. best regards, Przemek ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
Re: [Harbour] error compiling from svn
On Fri, Apr 2, 2010 at 12:14 PM, Viktor Szakáts harbour...@syenar.hu wrote: Hi, This seems like mingw distro bug. You can try to work it around by making sure gcc.exe also exists next to the -dw2 version. I think normally it should be there though. Or try using official distro if you absolutely need dw2. Anyway it's not Harbour problem. Ok, you are correct (as always :-) ) the problem is in the windres executable that has a reference to gcc... Mingw version is from tdm-mingw-1.908.0-4.4.1-2.exe I solved with a simple copy gcc-dw2.exe gcc.exe It worked on harbour 2.0 but since then .rc file was added for the icon and so this problem compared... thank you, Francesco ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: SF.net SVN: harbour-project:[14263] trunk/harbour
Hello Przemek Przemysław Czerpak wrote: I'll try to add to GTWVT support for some GUI objects containers. They will not be used by GTWVT directly but should greatly help to write upper level GTs which will inherit from GTWVT adding real code for windows GUI elements. It should help to eliminate repeated code from GTWVG be enabling simple inheritance from GTWVT and also write new GTWVW replacement. That will be really great. Off late I got so involved with hbQT+ that I could not catch up with GTWVT changes to GTWVG. Yesterday I tried but realized that it needs much more effort than I thought. Now I'm still very busy so I do not have time to make any bigger modifications in Harbour core code or even answer to many massages addressed for me (sorry to all that I'm ignoring them) and I only make few minutes breaks in a day writing some messages or committing some very simple modifications but there is big chance that in this month I'll finish my most important business projects and in next month I'll find more time for Harbour. It is understandable. Take your own time. No hurry. - enjoy hbIDEing... Pritpal Bedi _a_student_of_software_analysis__design_ -- View this message in context: http://n2.nabble.com/SF-net-SVN-harbour-project-14263-trunk-harbour-tp4837506p4842902.html Sent from the harbour-devel mailing list archive at Nabble.com. ___ Harbour mailing list (attachment size limit: 40KB) Harbour@harbour-project.org http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] dBRequest() runtime error ...?
Hi All,
There is an runtime error at the line : If (lRet := dBRequest( cTAls, Tl,
NIL, Fl ) )
Anything wrong ?
and the hb_out.log attached as well ...
Function _mydBRequest( cTAls, nTime )
Local lRet:=Fl
Local nCnt:=0
Local olVal:=Fl
Local nAMax:=0
Local aAreas:={}
Local cOAlias:=cTAls
Do While nTime 0
myTlog( Before dBRequest: +cTAls, mylog) // Write to
log file
If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) )
Exit
Endif
myTlog( After dBRequest: +cTAls, mylog) // Write to
log file
aAreas := WorkSpaceList( DB_ZEROSPACE )
nAMax := Len(aAreas)
cTAls := cOAlias + _
olVal := Set(_SET_EXACT, Tl )
myTlog( After WoekSpaceList( DB_ZEROSPACE ), mylog)
For nCnt:=1 to nAMax
If AT( cTAls, aAreas[nCnt]) 0
cTAls := aAreas[nCnt]
If (lRet := dBRequest( cTAls, Tl, NIL, Fl ) )
Exit
Endif
Endif
Next
Set(_SET_EXACT, olVal )
If !lRet
cTAls := cOAlias
Endif
--nTime
EndDo
Return( lRet )
Shum http://n2.nabble.com/file/n4843816/hb_out.log hb_out.log
--
View this message in context:
http://n2.nabble.com/dBRequest-runtime-error-tp4843816p4843816.html
Sent from the harbour-devel mailing list archive at Nabble.com.
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
[Harbour] Re: dBRequest() runtime error ...?
Hi All,
I modify the mytstrddprg (from testrdd.prg) as follow:
Plese hbmk2 mytstrdd.prg then try
1.) mytstrdd.exe - no error
2.) mytstrdd.exe 1 - error commes out
The above error indicate that dBRequest() or hb_dbrequest() run into error
if there is no any Alias at ZeroSpace (or the virtual work space) ??
/*
* $Id$
*/
function main( P1 )
local aRdd := rddList()
local aStruct := { { CHARACTER, C, 25, 0 }, ;
{ NUMERIC, N, 8, 0 }, ;
{ DOUBLE,N, 8, 2 }, ;
{ DATE, D, 8, 0 }, ;
{ LOGICAL, L, 1, 0 } }
REQUEST DBFCDX
SET EXCLUSIVE OFF
QOut( Registered RDD's:, LTrim( Str( Len( aRdd ) ) ), = )
aEval( aRdd, { | cDriver | QQOut( , cDriver ) } )
QOut()
rddSetDefault(DBFCDX)
dbCreate( testdbf, aStruct, DBFCDX )
If P1==NIL
dbUseArea( ,, testdbf.dbf, ALIAS_1 )
If HB_DBDetach(ALIAS_1)
? DBRelease ALIAS_1 OK
If HB_dBRequest(ALIAS_1, .T.)
? DBRequest ALIAS_1 OK
? BOF() is + IIF(Bof(), TRUE, FALSE)
Endif
Endif
Else
If HB_dBRequest(ALIAS_1, .T.)
? DBRequest ALIAS_1 OK
? BOF() is + IIF(Bof(), TRUE, FALSE)
Else
dbUseArea( ,, testdbf.dbf, ALIAS_1 )
If HB_DBDetach(ALIAS_1)
? DBRelease ALIAS_1 OK
If HB_dBRequest(ALIAS_1, .T.)
? DBRequest ALIAS_1 OK
? BOF() is + IIF(Bof(), TRUE, FALSE)
Endif
Endif
Endif
Endif
dBCloseArea()
dBCloseAll()
Return( NIL )
Shum
--
View this message in context:
http://n2.nabble.com/dBRequest-runtime-error-tp4843816p4845952.html
Sent from the harbour-devel mailing list archive at Nabble.com.
___
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
