home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / ruzne / rzcomps.exe / DEMO / TBARFRM.PA_ / TBARFRM.PA
Text File  |  1996-10-18  |  3KB  |  102 lines
  1. unit Tbarfrm;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, Menus, RzSplit, RzPanel, ExtCtrls, RzStatus, Buttons,
  8.   StdCtrls, RzRadGrp, RzBorder, RzLabel;
  9.  
  10. type
  11.   TFrmToolbar = class(TForm)
  12.     Toolbar1: TRzToolbar;
  13.     RzStatusBar1: TRzStatusBar;
  14.     MainMenu1: TMainMenu;
  15.     File1: TMenuItem;
  16.     Close1: TMenuItem;
  17.     RzStatusPane1: TRzStatusPane;
  18.     RzClockStatus1: TRzClockStatus;
  19.     RzKeyStatus1: TRzKeyStatus;
  20.     RzKeyStatus2: TRzKeyStatus;
  21.     RzKeyStatus3: TRzKeyStatus;
  22.     RzResourceStatus1: TRzResourceStatus;
  23.     RzGlyphStatus1: TRzGlyphStatus;
  24.     PnlWorkspace: TRzPanel;
  25.     BtnToolbarEdit: TButton;
  26.     ChkShowDivider: TCheckBox;
  27.     RzLabel7: TRzLabel;
  28.     RzLabel8: TRzLabel;
  29.     RzLabel9: TRzLabel;
  30.     RzPanel1: TRzPanel;
  31.     RzLabel1: TRzLabel;
  32.     RzLabel2: TRzLabel;
  33.     RzLabel3: TRzLabel;
  34.     RzLabel4: TRzLabel;
  35.     RzLabel5: TRzLabel;
  36.     RzBorder1: TRzBorder;
  37.     RzLabel6: TRzLabel;
  38.     BtnDone: TButton;
  39.     procedure Close1Click(Sender: TObject);
  40.     procedure FormCreate(Sender: TObject);
  41.     procedure BtnToolbarEditClick(Sender: TObject);
  42.     procedure ChkShowDividerClick(Sender: TObject);
  43.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  44.   private
  45.     { Private declarations }
  46.     procedure WMGetMinMaxInfo( var Msg : TWMGetMinMaxInfo ); message wm_GetMinMaxInfo;
  47.   public
  48.     { Public declarations }
  49.   end;
  50.  
  51. var
  52.   FrmToolbar: TFrmToolbar;
  53.  
  54. implementation
  55.  
  56. {$R *.DFM}
  57.  
  58. uses
  59.   TlbarFrm, RzCommon;
  60.  
  61. procedure TFrmToolbar.Close1Click(Sender: TObject);
  62. begin
  63.   Close;
  64. end;
  65.  
  66. procedure TFrmToolbar.FormCreate(Sender: TObject);
  67. begin
  68.   ChkShowDivider.Enabled := NewStyleControls;
  69.   if NewStyleControls then
  70.     PnlWorkspace.BorderOuter := fsLowered
  71.   else
  72.     PnlWorkSpace.BorderOuter := fsPopup;
  73. end;
  74.  
  75. procedure TFrmToolbar.BtnToolbarEditClick(Sender: TObject);
  76. begin
  77.   FrmToolbarEditor.Top := Top + 80;
  78.   FrmToolbarEditor.ParentForm := Self;
  79.   FrmToolbarEditor.Toolbar := Toolbar1;
  80.   FrmToolbarEditor.ShowModal;
  81. end;
  82.  
  83. procedure TFrmToolbar.ChkShowDividerClick(Sender: TObject);
  84. begin
  85.   Toolbar1.ShowDivider := ChkShowDivider.Checked;
  86. end;
  87.  
  88. procedure TFrmToolbar.FormClose(Sender: TObject; var Action: TCloseAction);
  89. begin
  90. {  Action := caFree;}
  91. end;
  92.  
  93.  
  94. procedure TFrmToolbar.WMGetMinMaxInfo( var Msg : TWMGetMinMaxInfo );
  95. begin
  96.   Msg.MinMaxInfo^.ptMinTrackSize := Point( 568, 307 );
  97. end;
  98.  
  99.  
  100.  
  101. end.
  102.