[Harbour] RE: Third Party Free GUI + LIBs for XHarbour/Harbour

[Bicahi Esgici]

At 17 Jul 2008, Massimo Belgrano wrote:

> Which is the actual situation of Minigui LINUX?
> Please post same sample if you have?


Hi Massimo

As I was replied your guestion in HMG Yahoo group at Wed Jul 16, 2008
: I follow Roberto's web pages only; so I haven't any other news,
especially about HMG-Linux.

On the other hand, I haven't Linux and time for learning it :(

According to Roberto's HMG main page, URL for downloading HMG-Linux is:

http://sourceforge.net/project/showfiles.php?group_id=54496&package_id=49181&release_id=436007

Sample prg is above.

I hope Roberto itself can will give more infos.

By the way, my dream is: HMG embedded Harbour !


Regards

---------------------

* Harbour MiniGUI Linux Demo
* (c) 2006 Roberto Lopez


#include "minigui.ch"

PROCEDURE MAIN

        DEFINE WINDOW Win1 ;
                AT 10 , 10 ;
                WIDTH 500 ;
                HEIGHT 400 ;
                TITLE "Hi!!" ;
                MAIN

                @ 40 , 10 BUTTON Button1 ;
                        OF Win1 ;
                        CAPTION "MsgInfo()" ;
                        ACTION MSGINFO ( 'Click 1' ) ;
                        WIDTH 100 ;
                        HEIGHT 30

                @ 70 , 10 BUTTON Button2 ;
                        OF Win1 ;
                        CAPTION "Exit" ;
                        ACTION HMG_RELEASEWINDOW('WIN1') ;
                        WIDTH 100 ;
                        HEIGHT 30

                @ 100 , 10 BUTTON Button3 ;
                        OF Win1 ;
                        CAPTION "Modal Window" ;
                        ACTION ModalTest() ;
                        WIDTH 100 ;
                        HEIGHT 30

                @ 140 , 20 EDITBOX Edit1 ;
                        OF Win1 ;
                        WIDTH 140 ;
                        HEIGHT 60

                @ 10 , 10 LABEL Label1 ;
                        OF Win1 ;
                        VALUE "Hello" ;
                        WIDTH 100 ;
                        HEIGHT 30

                @ 10 , 200 TEXTBOX Text1 ;
                        OF Win1 ;
                        WIDTH 120 ;
                        HEIGHT 23 ;
                        VALUE "Text1"

                @ 50 , 200 SPINNER Spin1 ;
                        OF Win1 ;
                        RANGE 0 , 10 ;
                        VALUE 5 ;
                        WIDTH 100 ;
                        HEIGHT 23 ;
                        INCREMENT 1

                @ 210 , 10 MONTHCALENDAR MonthCal1 ;
                        OF Win1 ;
                        WIDTH 200 ;
                        HEIGHT 170

                @ 150 , 200 CHECKBOX Check1 ;
                        OF Win1 ;
                        CAPTION "Hi!!" ;
                        WIDTH 120 ;
                        HEIGHT 30

                @ 190 , 220 GRID Grid1 ;
                        OF Win1 ;
                        WIDTH 170 ;
                        HEIGHT 180 ;
                        HEADERS {"One","Two","Three"} ;
                        WIDTHS {50,50,50}

        END WINDOW

        ACTIVATE WINDOW Win1

RETURN

PROCEDURE ModalTest()

        DEFINE WINDOW Win2 ;
                AT 10 , 300 ;
                WIDTH 160 ;
                HEIGHT 450 ;
                TITLE "Hi!!" ;
                MODAL

                @ 10 , 10 BUTTON Button1 ;
                        OF Win2 ;
                        CAPTION "Get TextBox Value" ;
                        ACTION MSGINFO ( GetProperty('Win1','Text1','Value') ) ;
                        WIDTH 130 ;
                        HEIGHT 30

                @ 40 , 10 BUTTON Button2 ;
                        OF Win2 ;
                        CAPTION "Set TextBox Value" ;
                        ACTION SetProperty('Win1','Text1','Value','New value')  
;
                        WIDTH 130 ;
                        HEIGHT 30

                @ 70 , 10 BUTTON Button3 ;
                        OF Win2 ;
                        CAPTION "Get Spinner Value" ;
                        ACTION MsgInfo ( Str ( 
GetProperty('Win1','Spin1','Value') ) ) ;
                        WIDTH 130 ;
                        HEIGHT 30

                @ 100 , 10 BUTTON Button4 ;
                        OF Win2 ;
                        CAPTION "Set Spinner Value" ;
                        ACTION SetProperty('Win1','Spin1','Value', 7 )  ;
                        WIDTH 130 ;
                        HEIGHT 30

        END WINDOW

        ACTIVATE WINDOW Win2

RETURN

---------------------

-- 
esgici
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour