harbour now support multiwindows
clipper user are command driven
so i proposal a command syntax that will be stantard
a good idea will be a common syntax common to minigui, fivewin or
xbase, visual fox
I think something like
#inglude "harbwind"
define window main width 400 height 400 clientarea
@ 10,10 say "test" get test
end window
activate window main
read
#include "FiveWin.ch"
function Main()
local oButton, oWnd, hBitmap
DEFINE WINDOW oWnd TITLE "ViaCoral - Skinned All Application Buttons!!"
ACTIVATE WINDOW oWnd MAXIMIZED
----------------------------------------------------------------
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 200 ;
TITLE 'Hola Mundo!' ;
MAIN
END WINDOW
ACTIVATE WINDOW Win_1
Return
------------------------------------------------------------
visual fox pro oop syntax
loForm = CREATEOBJECT("HiForm")
loForm.Show(1)
DEFINE CLASS HiForm AS Form
AutoCenter = .T.
Caption = "Hello, World"
ADD OBJECT lblHi as Label WITH ;
Caption = "Hello, World!"
ENDDEFINE
visual fox pro command syntax
DEFINE WINDOW HelloWorld FROM 1,1 TO 2,10 TITLE "Hello World"
ACTIVATE WINDOW HelloWorld
--------------------------------------------------------
xbase syntax based on xppdialog that is already implemented in gtwvg
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
PROCEDURE AppSys
LOCAL oDlg, oXbp, aPos[2], aSize
/*
* Get size of the desktop to display the application window centered
*/
aSize := SetAppWindow():currentSize()
aPos[1] := (aSize[1] - 640) / 2
aPos[2] := (aSize[2] - 400) / 2
oDlg := XbpDialog():new( SetAppWindow(), , aPos, {640,400}, , .F.)
oDlg:title := "GUI Demo"
oDlg:taskList := .T.
oDlg:icon := 1
oDlg:close := {|| AppQuit() }
oDlg:create()
oDlg:drawingArea:SetColorBG( GRA_CLR_WHITE )
SetAppWindow( oDlg )
oDlg:show()
RETURN
--
Massimo Belgrano
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
