FONT And SetFont()

[GWard]

I do not appear to be able to set the font for a LISTBOX unless I use resources.

I am using @ 0,0 LISTBOX oLbx......

DEFINE oFont....
ACTIVATE oFont

I then either want to add "FONT oFont" or oLbx:setFont(oFont)

Is runtime font control not implemented as yet as I note that the font control is commented out in tutor05.prg.

[Antonio Linares]

GWard,

Today we have published a new FWPPC build. Please download it.

Tutor05.prg is modified to test fonts.

[GWard]

Antonio,

The fonts work fine.

Unfortunately one of my applications has stopped working that was fine with the last update of 15th October.

Firstly the visibility of the open files has changed as I am getting an "Alias Not Found" error in TWBrose:onPaint where none existed before.

The function ShowRolls() access the datafile which caused the alias error.

STOCKLOC->(DbGoTop())

DEFINE WINDOW oWnd TITLE "Locations" MENU MyLocMenu()

@ 1,2 LISTBOX oLbx FIELDS STOCKLOC->ID,;
str(STOCKLOC->Rolls,4),str(STOCKLOC->CURR_VOL,10,2) ;
HEADERS "Pot","Rolls","Current Vol" SIZE 200,250 OF oWnd ;
FIELDSIZES 30,40,40 UPDATE

oLbx:blClicked := ;
{|nRow,nCol,nKeyFlags| if(oLbx:nAtCol(nCol)=2,ShowRolls(),nil)}
oLbx:lCellStyle := .T.
oLBx:bSkip := {|nRecs| STOCKLOC->(DbSkipper(nRecs))}
oLbx:bLine := {|| {STOCKLOC->Id,;
str(STOCKLOC->Rolls,4),;
str(STOCKLOC->Curr_Vol,10,2)}}

ACTIVATE WINDOW oWnd

I fixed this by opening the required files in Main()

Secondly clicking the 'X' on secondary windows now closes the entire application rather than returning to the previous window.

I believe I can fix this by having the "OK" Icon instead of the 'X' like in the various windows utilised in 'Pocket Word'

How do I configure a window to use 'OK' and return to the previous Window. I need windows rather than dialog in order to use menus.

Many thanks.

[Antonio Linares]

GWard,

There is a minor fix we need to implement. We may do it today and we will announce it to download the build again.

[Antonio Linares]

DWard,

There is already a new build. Please download it and test it again. Thanks!

[GWard]

Antonio,

Help!!

Have just downloaded latest build now ALL applications and samples with a WINDOW fail with the error

Message not found
TWINDOW:BINIT
stack calls
__ERRT_SBASE(0)
HBOBJECT:ERROR(179)
__EVAL(105)
HBOBJECT:MSGNOTFOUND(0)
TWINDOW:BINIT(169)
MAIN(35)

[Antonio Linares]

GWard,

Please download it again and try it again. many thanks for your feedback,

[Guest]

GWard,

Please download it again and try it again. many thanks for your feedback,

Latest build appears excellent.

If I encounter any further problems I shall begin a seperate thread

Many thanks for the impressive service

[GWard]

GWard,

Please download it again and try it again. many thanks for your feedback,

Apologies for 'Guest' post I thought I was logged in.