FiveTech Software tech support forums

Joe

Try adding this at the top of your prg

#ifdef __HARBOUR__
#ifndef __XHARBOUR__
#define Super ::super
#endif
#endif


Hth

Richard

Antonio

I have uploaded an enhanced version of touch exe , browse is included , sub-menus also

Richard

Marco To answer your question, yes a fivewin exe can run on a tablet "as it is" with respect to screen handling . A windows tablet is based on windows 8. I have uploaded touch.exe so you can download it and see what you can do with "metro" interface that Antonio introduced a coup...

Marco

What exactly do you need to know ?

i think as a first step, take a look at touch.prg from fwh\samples. This will show some samples of what can be done.

i had enhanced this program, if you are missing something let me know.

I have a running application on win8 tablets

Hth

Richard

Jose Yes the bonevent block traps all the events Now for Harbour , Antonio has extended the activex class, i am using thactivex (this is a sample below) ::oCalex := thActiveX():New( ::oPanelCalex, "Codejock.CalendarControl.15.0.2" ) with object ::oCalex :bOnEvent = { | event, aParms, pPara...

Michel

at the beginning of your application

REQUEST HB_CODEPAGE_FRWIN

set( _SET_CODEPAGE, "FRWIN" )

Frwin is for me, set the correct codepage harbour needs it

Hth

Richard

Jose This is how i do with codejock, maybe it can help with object ::oCalex      :bOnEvent = { | event, aParms, pParams | ::handleEvent( Event, aParms, pParams ) } METHOD handleEvent( Event, aParms, pParams ) CLASS TPLANCJ LOCAL opParms,oRes,oTime,cId,OEVENT if valType( Event ) == "C"    D...

Antonio

Just curiosity,

Can an application built with visual studio 2013 run on xp ?

I know Microsoft has stopped support for Xp but we still ahve a lot of customers using it.

Is the application mandatory 64 bits or can we still build 32 bits ?

Thanks for help

Harvey there are several errors in your report definitions i have made some changes and it compiles and run ok the code is below Richard menucon3 := {} AADD(MENUCON3,{"hag1",1,100}) AADD(MENUCON3,{"hag2",2,200}) AADD(MENUCON3,{"hag3",3,300})    DEFINE FONT oFont4 NAME &...

Harvey

i am refering to this in particular

DATA menucon3[nField],[01]

should be replaced with DATA menucon3[nField][01]

The comma in the data syntax will specify a second data value

Richard

Harvey

try it this way

DATA menucon3[nField][01]

Richard

Harvey this is a sample , Hth Richard REPORT oREPORT ; ...... COLUMN TITLE "Date Visite" ; DATA TVISU[nField][02]; FONT 2 ; GRID 2 COLUMN TITLE "Heure" ; DATA TVISU[nField][03]; GRID 2 COLUMN TITLE "Ouvrier" ; DATA TVISU[nField][06]; SIZE 20 ; FONT 1 ; GRID 1 END REPORT...

oBrw:aCols[3 ]:SETORDeR()

Hth

Richard

You shoud try it this way COLUMNS {"Number", "Name", {TRANSFORM(Phone, "@R (999) 999-9999")} } or a much better way COLUMNS {"Number", "Name", "Phone"} IF oBrw:oCol("phone") # nil // we refer to the header name not the column name...

Yes you can do it

Select labels, Globals and then functions

All functions are displayed in alphabetic order, if you click on the function you need, it will take you the the program automatically

Hth

Richard