home *** CD-ROM | disk | FTP | other *** search
/ PC Open 100 / PC Open 100 CD 1.bin / CD1 / INTERNET / WEBDESIGN / Tsw WebCoder / tswwebcoder5en.exe / {app} / scripts / scriptcode / TSW Demo Scripts / newtoolbar.tss < prev    next >
Encoding:
Text File  |  2004-05-12  |  921 b   |  45 lines
  1. {
  2. [Scriptsettings]
  3. Scriptname=Demonstrate how to create additional toolbars
  4. ExecuteOnStartup=0
  5. ExecuteOnlyOnce=1
  6. RequiresOwnScripterInstance=1
  7. OnlyIncludeStandardLibs=1
  8. }
  9. program ToolbarDemo;
  10.  
  11. uses dxBar, Graphics;
  12.  
  13. procedure LeftClick(Sender: TObject);
  14. begin
  15.  InsertTags('<div align="left">','</div>');
  16. end;
  17.  
  18. procedure CenterClick(Sender: TObject);
  19. begin
  20.  InsertTags('<div align="center">','</div>');
  21. end;
  22.  
  23. procedure RightClick(Sender: TObject);
  24. begin
  25.  InsertTags('<div align="right">','</div>');
  26. end;
  27.  
  28. var
  29.  T: TdxBar;
  30. begin 
  31.  T := CreateToolbar('Test', 'Tester da', false);
  32.  
  33.  B := AddToolbarButton(T, 'Left');
  34.  B.OnClick := 'LeftClick'; 
  35.  
  36.  B := AddToolbarButton(T, 'Center');
  37.  B.Glyph.LoadFromFile(AppPath+'scripts\icons\align center.bmp');
  38.  B.OnClick := 'CenterClick';
  39.  
  40.  B := AddToolbarButton(T, 'Right');
  41.  B.OnClick := 'RightClick'; 
  42.  
  43.  T.DockControl := dxDockTop;
  44. end;  
  45.