Antonio Linares wrote:John,
Thats not a font, its a bitmap, and it seems as it has been created in line 596 of your app (as you don't specify what app you are testing and still I don't have the power to guess it)
Norberto, its really stable, trust me
#include "fivewin.ch"
FUNCTION main()
LOCAL oMain
SetResDebug( .T. )
DEFINE WINDOW oMain FROM 1, 1 TO 28, 75 ;
TITLE "Test for Linares" ;
MENU MenuMain()
SET MESSAGE OF oMain ;
TO "(c) Ukservice" ;
CLOCK ;
DATE ;
KEYBOARD 2007
ACTIVATE WINDOW oMain MAXIMIZED
delete file "checkres.txt"
checkres()
winexec("notepad checkres")
QUIT
RETURN NIL
// -------------------------------------------------------------------------
FUNCTION MenuMain()
LOCAL oMenu
MENU oMenu 2007
MENUITEM "Help"
MENU
MENUITEM "F1 Help" ACTION WinExec( "HH HELP.CHM" ) RESOURCE "MNUHELP" ;
MESSAGE "Help"
ENDMENU
ENDMENU
RETURN oMenu
// ---------------------------------------------------------------------------
BMP,-2096824075,TWINDOW:HANDLEEVENT(0)->_FWH(3294)->SHOWWINDOW(0)->TWINDOW:ACTIVATE(972)->MAIN(28)
Antonio Linares wrote:Rimantas,
An unsupported feature doesnt mean that a product is buggy
Thats not a nice attitude when you are receiving very good tech support
METHOD Destroy() INLINE If( ::l2007, DelCheck2007(),),;
DestroyItems( ::aMenuItems )
METHOD Destroy() INLINE If( ::l2007 .or. ::l2010, DelCheck2007(),),;
DestroyItems( ::aMenuItems )
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: Google [Bot] and 77 guests