BOS TAURUS: Questions and Suggestions

Source code related resources

Moderator: Rathinagiri

User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post 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.
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post 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()

Viva INTERNATIONAL HMG :D
User avatar
srvet_claudio
Posts: 2193
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post 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
Best regards.
Dr. Claudio Soto
(from Uruguay)
http://srvet.blogspot.com
Post Reply