<< Click to Display Table of Contents >> PostCreate() SEToolBar |
![]() ![]() ![]() |
Purpose
This call back method is called after the toolbar/rebar control creation.
Prototype
METHOD PostCreate() CLASS SEToolBar
Description
This call back method is very important.
It is the best place for your toolbar/ rebar configurations, because most SEToolbar methods works only, if the toolbar/rebar control is created.
If you want to use all the new features of the SEToolBar class you should create your own toolbar class which inherits from SEToolbar and implement a PostCreate() method with your complete toolbar creation code:
CLASS MyToolbar INHERIT SEToolBar
PROTECT _oMenu AS BasicMenu
PROTECT _oConfig AS SEToolBarConfig
PROTECT _oContext AS TBContextMenu
PROTECT _oFileList AS SEMenuList
PROTECT _oFileMenu AS SEMenu
METHOD PreCreate() CLASS MyToolBar
SELF:Flat := TRUE
SELF:ButtonSize := Dimension{16,16}
_oMenu := BASICMENU{}
_oFileList := SEMenuList{10, 30000}
_oFileList:RegisterMenu(_oMenu:GetSubMenu(0), 10)
_oFileMenu := SEMenuXP{}
_oFileMenu:AppendItem(100, "PopUp")
_oFileList:RegisterMenu(_oFileMenu:SetSubMenu(100), 0)
_oFileList:AllItems := oGlOptions:FileList
SELF:AddMenuBar(TRUE)
SELF:SetMenuBar(_oMenu)
SELF:AddSubToolBarBand(#MainToolBar,,0)
SELF:SetButtonWidth(,60)
_oConfig := SEToolBarConfig{TB_ICONONLY}
_oConfig:SetImageList(SETBImgList{})
_oConfig:SetImageList(SETBImgList{TRUE}, #DISABLEDIMAGELIST)
_oConfig:SetImageList(SETBImgList{,TRUE},,TRUE)
_oConfig:SetImageList(SETBImgList{TRUE,TRUE}, #DISABLEDIMAGELIST, TRUE)
_oConfig:AddButton(IDTB_New, IDM_BasicMenu_File_New_ID, "New", "Create a new empty Ribbon Bitmap")
_oConfig:AddButton(IDTB_Open, IDM_BasicMenu_File_Open_ID, "Open", "Open a Ribbon Bitmap", BTNS_DROPDOWN)
_oConfig:AddButton(IDTB_Save, IDM_BasicMenu_File_Save_ID, "Save", "Save Ribbon Bitmap", BTNS_DROPDOWN)
_oConfig:AddButton(IDTB_MoveTo, IDM_BasicMenu_File_Transform_ID, "Transform", "Transform Ribbon")
_oConfig:AddButton(IDTB_Favorites, IDM_BasicMenu_File_Edit_ID, "Edit", "Edit Ribbon Bitmap in external editor")
_oConfig:AddButton(IDTB_Copy,IDM_BasicMenu_Edit_Copy_to_Clipboard_ID, "Copy to clipboard", "Copy images to clipboard")
_oConfig:AddButton(IDTB_Paste,IDM_BasicMenu_Edit_Paste_from_Clipboard_ID, "Paste from clipboard", "Paste image from clipboard")
_oConfig:AddButton(IDTB_Delete,IDM_BasicMenu_Edit_Delete_Image_ID, "Delete", "Delete Images")
_oConfig:AddButton(IDTB_Refresh,IDM_BasicMenu_Edit_Replace_Color_ID, "Replace Color", "Replace Color in Images")
_oConfig:AddButton(IDTB_Views, IDM_BasicMenu_View_Details_ID, "Details", "Details View")
_oConfig:AddButton(IDTB_Stop, IDM_BasicMenu_View_Small_Icons_ID, "Small Icons", "Small Icons View")
_oConfig:Default := {IDTB_New, IDTB_Open, IDTB_Save, IDT_SEPARATOR, ;
IDTB_MoveTo, IDT_SEPARATOR, ;
IDTB_Copy, IDTB_Paste, IDT_SEPARATOR,;
IDTB_Delete, IDTB_Refresh}
SELF:SetConfiguration(#MainToolBar, _oConfig)
SELF:EnableChevron()
_oContext := TBContextMenu{}
SELF:[Contextmenu, #MainToolBar] := _oContext
SELF:SetDropDown(IDM_BasicMenu_File_Open_ID,_oFileMenu, 0)
SELF:SetDropDown(IDM_BasicMenu_File_Save_ID, SaveMenu{}, 0)
_oMenu:SetImageList(SETBImgList{})
_oMenu:SetImageList(SETBImgList{TRUE}, #DISABLEDIMAGELIST)
_oMenu:AddToolBarImages(_oConfig)