bb.donnay-software.com

#include "dcdialog.ch"
#include "appevent.ch"
#define OCX_CID "SonicSkinner.SonicSkin"

PROCEDURE Xtest()

LOCAL GetList := {}, oFileMenu, oMenuBar, oEditMenu, oMemo, oUtilMenu, cMemo := ""

@ 0,0 DCACTIVEXCONTROL oSkin CLSID OCX_CID SIZE 0,0 EVAL {|o| _ConfigureSkin(o)}

@ 0,0 DCMULTILINE cMemo SIZE 70,7 FONT "10.Courier.Bold"


/* ---- Menu ---- */

DCMENUBAR oMenuBar

DCSUBMENU oFileMenu PROMPT "&File" PARENT oMenuBar

DCMENUITEM "&Open a File" PARENT oFileMenu ;
ACTION {||Msgbox('OpenFile')} ;

DCMENUITEM "&Close File" PARENT oFileMenu ;
ACTION {||Msgbox('CloseFile')}

DCMENUITEM "&Pack File" PARENT oFileMenu ;
ACTION {||Msgbox('Packfile')}

DCSUBMENU oEditMenu PROMPT "&Edit" PARENT oMenuBar

DCMENUITEM "&Next Record" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}

DCMENUITEM "&Previous Record" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}


DCMENUITEM "&Top of File" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}

DCMENUITEM "&Bottom of File" PARENT oEditMenu ;
ACTION {||Msgbox('Packfile')}

DCSUBMENU oUtilMenu PROMPT "&Util" PARENT oMenuBar

DCMENUITEM "Copy File" PARENT oUtilMenu ;
ACTION {||Msgbox('CopyFile')}

DCMENUITEM "Move File" PARENT oUtilMenu ;
ACTION {||Msgbox('MoveFile')}

DCREAD GUI ;
TITLE 'Menu Demo' ;
FIT ;
ADDBUTTONS EVAL {|o| .t. }

RETURN

Static Function _ConfigureSkin(o)
o:AllowFullScreen := .t.
o:AllowResize := .t.
o:AllowSystemMenu := .t.
o:Enabled := .t.
Return nil

DCREAD GUI ;
PARENT @oDlg
TITLE 'Menu Demo' ;
FIT ;
ADDBUTTONS EVAL {|o| oSkin:applyWindow(oDlg:getHwnd()) }