home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / units / unleash.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  2.4 KB  |  120 lines
  1. unit Unleash;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs,
  7.   Messages, Classes, Graphics,
  8.   Controls, Forms, Dialogs,
  9.   StdCtrls, ExtCtrls;
  10.  
  11. type
  12.   TSmallEdit = class(TEdit)
  13.   public
  14.     constructor Create(AOwner: TComponent); override;
  15.   end;
  16.  
  17.   TBigEdit = class(TSmallEdit)
  18.   public
  19.     constructor Create(AOwner: TComponent); override;
  20.   end;
  21.  
  22.   TSmallLabel = class(TLabel)
  23.   public
  24.     constructor Create(AOwner: TComponent); override;
  25.   end;
  26.  
  27.   TBigLabel = class(TSmallLabel)
  28.   public
  29.     constructor Create(AOwner: TComponent); override;
  30.   end;
  31.  
  32.   TEmptyPanel = class(TPanel)
  33.   public
  34.     constructor Create(AOwner: TComponent); override;
  35.   end;
  36.  
  37.   TRadio2Panel = class(TEmptyPanel)
  38.   private
  39.     FRadio1: TRadiobutton;
  40.     FRadio2: TRadioButton;
  41.   public
  42.     constructor Create(AOwner: TComponent); override;
  43.     property Radio1: TRadioButton read FRadio1;
  44.     property Radio2: TRadioButton read FRadio2;
  45.   end;
  46.  
  47.  
  48. procedure Register;
  49.  
  50. implementation
  51.  
  52. constructor TSmallEdit.Create(AOwner: TComponent);
  53. begin
  54.   inherited Create(AOwner);
  55.   Color := clBlue;
  56.   Font.Color := clYellow;
  57.   Font.Name := 'New Times Roman';
  58.   Font.Size := 12;
  59.   Font.Style := [fsBold];
  60. end;
  61.  
  62. constructor TBigEdit.Create(AOwner: TComponent);
  63. begin
  64.   inherited Create(AOwner);
  65.   Font.Size := 24;
  66. end;
  67.  
  68. constructor TSmallLabel.Create(AOwner: TComponent);
  69. begin
  70.   inherited Create(AOwner);
  71.   Color := clBlue;
  72.   Font.Color := clYellow;
  73.   Font.Name := 'New Times Roman';
  74.   Font.Size := 12;
  75.   Font.Style := [fsBold];
  76. end;
  77.  
  78. constructor TBigLabel.Create(AOwner: TComponent);
  79. begin
  80.   inherited Create(AOwner);
  81.   Font.Size := 24;
  82. end;
  83.  
  84. constructor TEmptyPanel.Create(AOwner: TComponent);
  85. begin
  86.   inherited Create(AOwner);
  87.   Caption := ' ';
  88. end;
  89.  
  90. constructor TRadio2Panel.Create(AOwner: TComponent);
  91. begin
  92.   inherited Create(AOwner);
  93.   Width := 175;
  94.   Height := 60;
  95.  
  96.   FRadio1 := TRadioButton.Create(AOwner);
  97.   FRadio1.Parent := Self;
  98.   FRadio1.Caption := 'Radio1';
  99.   FRadio1.Left := 20;
  100.   FRadio1.Top := 10;
  101.   FRadio1.Show;
  102.  
  103.   FRadio2 := TRadioButton.Create(AOwner);
  104.   FRadio2.Parent := Self;
  105.   FRadio2.Caption := 'Radio2';
  106.   FRadio2.Left := 20;
  107.   FRadio2.Top := 32;
  108.   FRadio2.Show;
  109. end;
  110.  
  111. procedure Register;
  112. begin
  113.   RegisterComponents('Unleash', [TSmallEdit, TBigEdit,
  114.                                TSmallLabel, TBigLabel,
  115.                                TEmptyPanel, TRadio2Panel]);
  116. end;
  117.  
  118.  
  119. end.
  120.