FONT And SetFont()

GWard · Post by **GWard** » Tue Oct 18, 2005 7:29 am

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.

Post by **Antonio Linares** » Tue Oct 18, 2005 7:49 am

GWard,

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

Tutor05.prg is modified to test fonts.

GWard · Post by **GWard** » Tue Oct 18, 2005 8:46 am

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.

Post by **Antonio Linares** » Tue Oct 18, 2005 10:30 am

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.

Post by **Antonio Linares** » Tue Oct 18, 2005 11:26 am

DWard,

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

GWard · Post by **GWard** » Tue Oct 18, 2005 12:26 pm

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)

Post by **Antonio Linares** » Tue Oct 18, 2005 1:57 pm

GWard,

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

Guest · Post by **Guest** » Tue Oct 18, 2005 3:28 pm

Antonio Linares wrote: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 · Post by **GWard** » Tue Oct 18, 2005 3:30 pm

Antonio Linares wrote:GWard,

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

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