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