BOS TAURUS: Questions and Suggestions

Source code related resources

Moderator: Rathinagiri

User avatar
Rathinagiri
Posts: 5317
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 196 times
Been thanked: 210 times
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: 4533
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 409 times
Been thanked: 116 times
Contact:

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

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