Page 5 of 5
Re: BOS TAURUS: Questions and Suggestions
Posted: Sat Mar 16, 2013 6:58 pm
by Rathinagiri
It is not that it could not be.
If your call is iteration based and you have conditions to get out you can use it too.
Re: BOS TAURUS: Questions and Suggestions
Posted: Sat Mar 16, 2013 11:57 pm
by esgici
Code: Select all
#include "minigui.ch"
PROCEDURE Main()
DEFINE WINDOW frmOnPainTst;
AT 0,0;
WIDTH 700;
HEIGHT 600;
TITLE "Testing ON PAINT proc behaviour";
ON PAINT MsgBox( ThisWindow.Name ) ; // OK with 3.0.41 and hangup with 3.1.1 :(
MAIN
ON KEY ESCAPE ACTION ThisWindow.Release
END WINDOW // frmOnPainTst
CENTER WINDOW frmOnPainTst
ACTIVATE WINDOW frmOnPainTst
RETURN // frmOnPainTst.Main()
Re: BOS TAURUS: Questions and Suggestions
Posted: Sun Jun 09, 2013 4:42 pm
by srvet_claudio
Hi Friend,
this is possible with hmg.3.1.3
Best Regards,
Claudio.
Code: Select all
#include "minigui.ch"
PROCEDURE Main()
DEFINE WINDOW frmOnPainTst;
AT 0,0;
WIDTH 700;
HEIGHT 600;
TITLE "Testing ON PAINT proc behaviour";
ON PAINT OnPaint(); /* MsgBox( ThisWindow.Name ) ; OK with 3.0.41 and hangup with 3.1.1 :( */
MAIN
ON KEY ESCAPE ACTION ThisWindow.Release
END WINDOW // frmOnPainTst
CENTER WINDOW frmOnPainTst
ACTIVATE WINDOW frmOnPainTst
RETURN // frmOnPainTst.Main()
Procedure OnPaint
DISABLE WINDOW EVENT OF frmOnPainTst // avoid re-entry while processing the events (HMG.3.1.3)
MsgBox( ThisWindow.Name )
ENABLE WINDOW EVENT OF frmOnPainTst
return