HMGforum.com

Code: Select all

#include "hmg.ch"

function Main()

	
	DEFINE WINDOW Win_1			;
	        AT        0,0 			;
	        WIDTH     700 			;
        	HEIGHT    520			;
	        TITLE     "ABC Accounting" 	;
        	MAIN 				;
		BACKCOLOR {0,0,102}
 	  DEFINE MAIN MENU OF Win_1
        		POPUP "&File"
                		
        	        	ITEM "&Exit"   ACTION Win_1.Release
		        END POPUP
		END MENU
 	     	   
      @ 113,243 LABEL Label_1 VALUE "ABC" TRANSPARENT FONT "ARIAL" SIZE 200 ;
         FONTCOLOR PINK  AUTOSIZE
 	    @ 413,143 LABEL Label_2 VALUE "Accounting" TRANSPARENT FONT "ARIAL" SIZE 120 ;
         FONTCOLOR WHITE  AUTOSIZE
	END WINDOW

  MAXIMIZE WINDOW Win_1
	ACTIVATE WINDOW Win_1

Return Nil

Code: Select all

#include "hmg.ch"

function Main()

   
   DEFINE WINDOW Win_1         ;
           AT        0,0          ;
           WIDTH     700          ;
           HEIGHT    520         ;
           TITLE     "ABC Accounting"    ;
           MAIN             ;
           BACKCOLOR {0,0,102}

     DEFINE MAIN MENU OF Win_1
              POPUP "&File"
                 ITEM "&Exit" ACTION Win_1.Release
              END POPUP
      END MENU
              
      @ 113,243 LABEL Label_1 VALUE "ABC" ;
         WIDTH 550 HEIGHT 250 ;
         TRANSPARENT FONT "ARIAL" SIZE 200 ;
         FONTCOLOR PINK

       @ 413,143 LABEL Label_2 VALUE "Accounting" ;
         WIDTH 900 HEIGHT 200 ;
         TRANSPARENT FONT "ARIAL" SIZE 120 ;
         FONTCOLOR WHITE

   END WINDOW

   MAXIMIZE WINDOW Win_1
   ACTIVATE WINDOW Win_1

Return Nil