BOS TAURUS: Questions and Suggestions

Source code related resources

Moderator: Rathinagiri

User avatar
Rathinagiri
Posts: 5181
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 142 times
Been thanked: 131 times
Contact:

Re: BOS TAURUS: Questions and Suggestions

Post by Rathinagiri » Sat Mar 16, 2013 6:58 pm

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: 4363
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 247 times
Been thanked: 91 times
Contact:

Post by esgici » Sat Mar 16, 2013 11:57 pm

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: 1958
Joined: Thu Feb 25, 2010 8:43 pm
Location: Uruguay
Has thanked: 32 times
Been thanked: 125 times
Contact:

Post by srvet_claudio » Sun Jun 09, 2013 4:42 pm

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