From 11a57bb5d11a98dc121ebd7503f400cdc5e0b9e5 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 1 Sep 2001 06:33:55 +0000 Subject: [PATCH] Harbour GUI framework for Win32 TestForm.prg sample --- harbour/contrib/hgf/win32/tests/testform.prg | 43 ++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100644 harbour/contrib/hgf/win32/tests/testform.prg diff --git a/harbour/contrib/hgf/win32/tests/testform.prg b/harbour/contrib/hgf/win32/tests/testform.prg new file mode 100644 index 0000000000..1ecd9fc42c --- /dev/null +++ b/harbour/contrib/hgf/win32/tests/testform.prg @@ -0,0 +1,43 @@ +// Testing Harbour GUI framework for Win32 + +function Main() + + local oForm := TForm():New() + local oMenu := TMenu():New( oForm ) + local oMenuItem, oSubItem, oSubItem2 + + oMenuItem = TMenuItem():New() + oMenuItem:cCaption = "One" + oMenu:Add( oMenuItem ) + + oSubItem = TMenuItem():New() + oSubItem:cCaption = "First" + oMenuItem:Add( oSubItem ) + + oSubItem = TMenuItem():New() + oSubItem:cCaption = "Second" + oMenuItem:Add( oSubItem ) + + oSubItem2 = TMenuItem():New() + oSubItem2:cCaption = "Some" + oSubItem:Add( oSubItem2 ) + + oSubItem2 = TMenuItem():New() + oSubItem2:cCaption = "More" + oSubItem:Add( oSubItem2 ) + + oMenuItem = TMenuItem():New() + oMenuItem:cCaption = "Two" + oMenu:Add( oMenuItem ) + + oMenuItem = TMenuItem():New() + oMenuItem:cCaption = "Three" + oMenu:Add( oMenuItem ) + + oForm:oMenu = oMenu + + oForm:cCaption = "Harbour GUI Framework" + + oForm:ShowModal() + +return nil \ No newline at end of file