PostCreate() SEToolBar

<< Click to Display Table of Contents >>

Navigation:  SEUIXP Classes for X# > Classes > SEToolBar >

PostCreate() SEToolBar

Previous pageReturn to chapter overviewNext page

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)