FiveTech Support Forums

Horizon wrote:Hi Antonio,

I think I have found one more problem in my app.

I use oFont variable from app. main in my class. But I always ::End() it.

::oFont := oFont

I think its not the correct syntax. How can I clone ::oFont variable from oFont?

Thanks.

CLASS TApp

DATA oFont
....
METHOD New(...) TApp
....
DEFINE FONT ::oFont NAME .....

DEFINE DIALOG oDlg oApp:oFont
ACTIVATE DIALOG oDlg 
// You shoud not End oApp:oFont here
// oApp:End()    //Not correct. Excess destoyal

Hajan,

When a font suddenly changes to the system font it usually means you are running out of memory. It seems you are not ending all the fonts created.

If you want to use an app standard font why not just use a function.

Function StandardFont()
return TFont():New( "Verdana", 0, -12)

The to create a new copy of the font:

local oFont:= StandardFont()

...do whatever

// don't forget to end it
oFont:end()

By using a function to create your standard font you can later change the standard font by only making a change to the StandardFont() function.

Or, you can use Nages' method of creating an app class containing a font and just keep reusing it.

When a font suddenly changes to the system font it usually means you are running out of memory. It seems you are not ending all the fonts created.

It is the opposite.