horacio wrote:On Init( oDlg : Maximize() )
Saludos
#include "fivewin.ch"
#define AS_MDICHILD 1
#define AS_DIALOG 2
//----------------------------------------------------------------------------//
function Main()
local oWnd, oBar, oMenu
SetGetColorFocus()
DEFINE WINDOW oWnd MDI TITLE "test" VSCROLL HSCROLL
DEFINE BUTTONBAR oBar OF oWnd SIZE 100,32 2007
DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test()
ACTIVATE WINDOW oWnd
return nil
//----------------------------------------------------------------------------//
static function test()
local oDlg, oBar, oFont
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-14
DEFINE DIALOG oDlg FONT oFont TITLE "Test Mdi" BRUSH oBrush
ACTIVATE DIALOG oDlg AS MDICHILD ;
ON INIT ( oDlg :Maximize())
return oDlg
#Include "FiveWin.ch"
#Define AS_MDICHILD 1
#Define AS_DIALOG 2
STATIC oWnd
FUNCTION Main()
LOCAL oBar, oMenu
SkinButtons()
SetGetColorFocus()
DEFINE WINDOW oWnd MDI TITLE "test" VSCROLL HSCROLL
DEFINE BUTTONBAR oBar OF oWnd SIZE 100, 32 2007
DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test()
ACTIVATE WINDOW oWnd CENTERED
RETURN NIL
STATIC FUNCTION test()
LOCAL oDlg, oBar, oFont, oBrush
DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
DEFINE FONT oFont NAME "Segoe UI" SIZE 0, - 14
DEFINE DIALOG oDlg FONT oFont TITLE "Test Mdi" BRUSH oBrush
ACTIVATE DIALOG oDlg CENTERED AS MDICHILD ON INIT( oDlg:Maximize() )
oBrush:End()
oFont:End()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
karinha wrote:
- Code: Select all Expand view
#Include "FiveWin.ch"
#Define AS_MDICHILD 1
#Define AS_DIALOG 2
STATIC oWnd
FUNCTION Main()
LOCAL oBar, oMenu
SkinButtons()
SetGetColorFocus()
DEFINE WINDOW oWnd MDI TITLE "test" VSCROLL HSCROLL
DEFINE BUTTONBAR oBar OF oWnd SIZE 100, 32 2007
DEFINE BUTTON OF oBar PROMPT "test" CENTER ACTION test()
ACTIVATE WINDOW oWnd CENTERED
RETURN NIL
STATIC FUNCTION test()
LOCAL oDlg, oBar, oFont, oBrush
DEFINE BRUSH oBrush FILE "..\bitmaps\sea.bmp" RESIZE
DEFINE FONT oFont NAME "Segoe UI" SIZE 0, - 14
DEFINE DIALOG oDlg FONT oFont TITLE "Test Mdi" BRUSH oBrush
ACTIVATE DIALOG oDlg CENTERED AS MDICHILD ON INIT( oDlg:Maximize() )
oBrush:End()
oFont:End()
RETURN NIL
// FIN / END - kapiabafwh@gmail.com
Regards, saludos.
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: dutch, Google [Bot] and 32 guests