home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / leadtools / ocx32.lt / ZONE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1998-03-20  |  2.3 KB  |  93 lines
  1. unit zone;
  2.  
  3. interface
  4.  
  5. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  6.   Buttons, ExtCtrls, ltocrocx;
  7.  
  8. type
  9.   TZoneType = class(TForm)
  10.     OKBtn: TButton;
  11.     Bevel1: TBevel;
  12.     RadioButton1: TRadioButton;
  13.     RadioButton2: TRadioButton;
  14.     RadioButton3: TRadioButton;
  15.     RadioButton4: TRadioButton;
  16.     RadioButton5: TRadioButton;
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure RadioButton2Click(Sender: TObject);
  19.     procedure RadioButton3Click(Sender: TObject);
  20.     procedure RadioButton4Click(Sender: TObject);
  21.     procedure RadioButton1Click(Sender: TObject);
  22.     procedure RadioButton5Click(Sender: TObject);
  23.   private
  24.     { Private declarations }
  25.   public
  26.     { Public declarations }
  27.     nType : integer;
  28.   end;
  29.  
  30. var
  31.   ZoneType: TZoneType;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TZoneType.FormCreate(Sender: TObject);
  38. begin
  39.     radiobutton1.checked := True;
  40.     radiobutton2.checked := False;
  41.     radiobutton3.checked := False;
  42.     radiobutton4.checked := False;
  43.     radiobutton5.checked := False;
  44.     nType := OCRZONE_TYPE_TEXT;
  45. end;
  46.  
  47. procedure TZoneType.RadioButton2Click(Sender: TObject);
  48. begin
  49.     radiobutton1.checked := False;
  50.     radiobutton3.checked := False;
  51.     radiobutton4.checked := False;
  52.     radiobutton5.checked := False;
  53.     nType := OCRZONE_TYPE_IMAGE;
  54. end;
  55.  
  56. procedure TZoneType.RadioButton3Click(Sender: TObject);
  57. begin
  58.     radiobutton1.checked := False;
  59.     radiobutton2.checked := False;
  60.     radiobutton4.checked := False;
  61.     radiobutton5.checked := False;
  62.     nType := OCRZONE_TYPE_HORIZONTAL_RULE;
  63. end;
  64.  
  65. procedure TZoneType.RadioButton4Click(Sender: TObject);
  66. begin
  67.     radiobutton1.checked := False;
  68.     radiobutton2.checked := False;
  69.     radiobutton3.checked := False;
  70.     radiobutton5.checked := False;
  71.     nType := OCRZONE_TYPE_VERTICAL_RULE;
  72. end;
  73.  
  74. procedure TZoneType.RadioButton1Click(Sender: TObject);
  75. begin
  76.     radiobutton2.checked := False;
  77.     radiobutton3.checked := False;
  78.     radiobutton4.checked := False;
  79.     radiobutton5.checked := False;
  80.     nType := OCRZONE_TYPE_TEXT;
  81. end;
  82.  
  83. procedure TZoneType.RadioButton5Click(Sender: TObject);
  84. begin
  85.     radiobutton1.checked := False;
  86.     radiobutton2.checked := False;
  87.     radiobutton3.checked := False;
  88.     radiobutton4.checked := False;
  89.     nType := OCRZONE_TYPE_IGNORE;
  90. end;
  91.  
  92. end.
  93.