home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / Cell Control / DATA1.CAB / DELPHIDM / UStyle.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-01-11  |  1.6 KB  |  73 lines
  1. unit UStyle;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Tempunit, StdCtrls, ComCtrls, Buttons, OleCtrls, CELLLib_TLB, ExtCtrls;
  8.  
  9. type
  10.   TFStyle = class(TTemplate)
  11.     CheckBox1: TCheckBox;
  12.     CheckBox2: TCheckBox;
  13.     CheckBox3: TCheckBox;
  14.     CheckBox4: TCheckBox;
  15.     CheckBox5: TCheckBox;
  16.     CheckBox6: TCheckBox;
  17.     procedure CheckBox1Click(Sender: TObject);
  18.     procedure CheckBox2Click(Sender: TObject);
  19.     procedure CheckBox3Click(Sender: TObject);
  20.     procedure CheckBox4Click(Sender: TObject);
  21.     procedure CheckBox5Click(Sender: TObject);
  22.     procedure CheckBox6Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.   end;
  28.  
  29. var
  30.   FStyle: TFStyle;
  31.  
  32. implementation
  33.  
  34. {$R *.DFM}
  35.  
  36. procedure TFStyle.CheckBox1Click(Sender: TObject);
  37. begin
  38.   inherited;
  39.       cell1.TopLabelVisible:=CheckBox1.Checked;
  40. end;
  41.  
  42. procedure TFStyle.CheckBox2Click(Sender: TObject);
  43. begin
  44.   inherited;
  45.       cell1.SideLabelVisible:=CheckBox2.Checked;
  46. end;
  47.  
  48. procedure TFStyle.CheckBox3Click(Sender: TObject);
  49. begin
  50.   inherited;
  51.       cell1.HScrollVisible:=CheckBox3.Checked;
  52. end;
  53.  
  54. procedure TFStyle.CheckBox4Click(Sender: TObject);
  55. begin
  56.   inherited;
  57.       cell1.VScrollVisible:=CheckBox4.Checked;
  58. end;
  59.  
  60. procedure TFStyle.CheckBox5Click(Sender: TObject);
  61. begin
  62.   inherited;
  63.       cell1.Border:=CheckBox5.Checked;
  64. end;
  65.  
  66. procedure TFStyle.CheckBox6Click(Sender: TObject);
  67. begin
  68.   inherited;
  69.       cell1.PageLabelVisible :=CheckBox6.Checked;
  70. end;
  71.  
  72. end.
  73.