In Delphi programming language a lot of components which able to in adding either paying and also free. to make display within reason office 2007 you can apply a component from your devexpress can visit it in www.devexpress.com the component so called Rebbon UI which is tidy one packages with ExpressBars Suite.
If component have been installed will emerge in component pallet
For which has not can do installation of component is better if reads reference Delphi Component Instalation in this blog.
To start it :
- Open your delphi, here I apply delphi 7
- input successively dxBarManager, dxBarApplicationMenu, dxRibbon, dxRibbonStatusBar from pallet
display which you obtains :
- Then double click in component dxBarManager, at tab Toolsbar click new hence will go out dialogue tolbar name contents of for examplely File then click OK then close. Hence will emerge dxBarManager1Bar1 for name can be altered likes it.
- At windows Objek TreeView searching dxRibbon1 > dxRibbon1Tab1 > Groups, right click at Grroups select chooses add item, hence will emerge TdxRibbon TabGroup.
- Click at TdxRibbon TabGroup, filled properties ToolBar with dxBarManager1Bar1 which is the had been made, result of its tab will emerge group file.
- Right click at group new file is made will emerge many items to select, choose at will, here I would will add TdxBarLargeButon from additem.
- propertis can be changed at will, I will only change propertis caption = setting, Largeglyph with picture . bmp measure 32×32 pixel
- repeats step of addition of item as in wishs, in example of I will only add TdxBarLargeButon2 with caption = koneksi
result obtained :
- Adds Menu, create toolBar again like way is upper to names playing or any kind of
- at propertis aplication Button, menu contents of with dxBarApplicationMenu1
- at propertis QuickAksesToolBar,ToolBar in contents of with dxBarManager1Bar2 which had been made the.
- head menu will emerge, beside adds item equal to step of adding above menu item.
Display yielded :
- To add coding remains double click at items which has been made.
for example :
procedure TForm1.dxBarLargeButton1Click(Sender: TObject);
begin
Form1.Show;
end;
- Safe tries.
No comments:
Post a Comment