home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 June / Chip_2002-06_cd1.bin / zkuste / delphi / kompon / d56 / JHEADER.ZIP / TJHeader / demo / Unit1.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2002-01-23  |  2.5 KB  |  108 lines
  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls,Jcommon,JHeader, ImgList;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     header: TJHeader;
  12.     GroupBox1: TGroupBox;
  13.     Label1: TLabel;
  14.     chkDown: TCheckBox;
  15.     chkDrag: TCheckBox;
  16.     chkSize: TCheckBox;
  17.     chkRename: TCheckBox;
  18.     chkAutoHide: TCheckBox;
  19.     Memo1: TMemo;
  20.     GroupBox2: TGroupBox;
  21.     chkDragOnScreen: TCheckBox;
  22.     chkFlat: TCheckBox;
  23.     chkHotTrack: TCheckBox;
  24.     ImageList1: TImageList;
  25.     procedure chkDownClick(Sender: TObject);
  26.     procedure chkDragClick(Sender: TObject);
  27.     procedure chkSizeClick(Sender: TObject);
  28.     procedure chkRenameClick(Sender: TObject);
  29.     procedure chkAutoHideClick(Sender: TObject);
  30.     procedure chkDragOnScreenClick(Sender: TObject);
  31.     procedure chkFlatClick(Sender: TObject);
  32.     procedure chkHotTrackClick(Sender: TObject);
  33.   private
  34.     { Private declarations }
  35.  
  36.   public
  37.     { Public declarations }
  38.   end;
  39.  
  40. var
  41.   Form1: TForm1;
  42.  
  43. implementation
  44.  
  45. {$R *.DFM}
  46.  
  47. procedure TForm1.chkDownClick(Sender: TObject);
  48. begin
  49.   if chkDown.Checked then
  50.     header.allowoptions := header.allowoptions + [aoDown]
  51.   else
  52.     header.allowoptions := header.allowoptions - [aoDown];
  53. end;
  54.  
  55. procedure TForm1.chkDragClick(Sender: TObject);
  56. begin
  57.   if chkDrag.Checked then
  58.     header.allowoptions := header.allowoptions + [aoDrag]
  59.   else
  60.     header.allowoptions := header.allowoptions - [aoDrag];
  61. end;
  62.  
  63. procedure TForm1.chkSizeClick(Sender: TObject);
  64. begin
  65.   if chkSize.Checked then
  66.     header.allowoptions := header.allowoptions + [aoSize]
  67.   else
  68.     header.allowoptions := header.allowoptions - [aoSize];
  69. end;
  70.  
  71. procedure TForm1.chkRenameClick(Sender: TObject);
  72. begin
  73.   if chkRename.Checked then
  74.     header.allowoptions := header.allowoptions + [aoRename]
  75.   else
  76.     header.allowoptions := header.allowoptions - [aoRename];
  77. end;
  78.  
  79. procedure TForm1.chkAutoHideClick(Sender: TObject);
  80. begin
  81.   if chkAutoHide.Checked then
  82.     header.allowoptions := header.allowoptions + [aoHide]
  83.   else
  84.     header.allowoptions := header.allowoptions - [aoHide];
  85. end;
  86.  
  87. procedure TForm1.chkDragOnScreenClick(Sender: TObject);
  88. begin
  89.   Header.DragOnScreen := chkDragOnScreen.Checked;
  90. end;
  91.  
  92. procedure TForm1.chkFlatClick(Sender: TObject);
  93. begin
  94.   if chkFlat.Checked then
  95.     header.Style := jsFlat
  96.   else
  97.     header.Style := jsNormal;
  98. end;
  99.  
  100. procedure TForm1.chkHotTrackClick(Sender: TObject);
  101. begin
  102.   header.hottrack := chkHotTrack.Checked;
  103. end;
  104.  
  105.  
  106.  
  107. end.
  108.