- Code: Select all Expand view RUN
- if ::oFont == nil
if ::oWnd == nil
::oFont = TFont():New()
else
if ::oWnd:oFont != nil
::SetFont( ::oWnd:oFont ) //Change
//::oFont = ::oWnd:oFont
else
::oFont = TFont():New()
endif
endif
endif
if ::oFont == nil
if ::oWnd == nil
::oFont = TFont():New()
else
if ::oWnd:oFont != nil
::SetFont( ::oWnd:oFont ) //Change
//::oFont = ::oWnd:oFont
else
::oFont = TFont():New()
endif
endif
endif
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 44 guests