home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / units / myedits.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.6 KB  |  87 lines
  1. unit MyEdits;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs,
  7.   Messages, Classes, Graphics,
  8.   Controls, Forms, Dialogs,
  9.   StdCtrls;
  10.  
  11. type
  12.   TBlueGoldEdit12 = class(TEdit)
  13.   public
  14.     constructor Create(AOwner: TComponent); override;
  15.   end;
  16.  
  17.   TBlueGoldEdit24 = class(TBlueGoldEdit12)
  18.   public
  19.     constructor Create(AOwner: TComponent); override;
  20.   end;
  21.  
  22.   TBlueGoldLabel2 = class(TLabel)
  23.   public
  24.     constructor Create(AOwner: TComponent); override;
  25.   end;
  26.  
  27.   TBlueGoldLabe24 = class(TLabel)
  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.  
  38. procedure Register;
  39.  
  40. implementation
  41.  
  42. constructor TBlueGoldEdit12.Create(AOwner: TComponent);
  43. begin
  44.   inherited Create(AOwner);
  45.   Color := clBlue;
  46.   Font.Color := clYellow;
  47.   Font.Name := 'New Times Roman';
  48.   Font.Size := 12;
  49.   Font.Style := [fsBold];
  50. end;
  51.  
  52. constructor TBlueGoldEdit24.Create(AOwner: TComponent);
  53. begin
  54.   inherited Create(AOwner);
  55.   Font.Size := 12;
  56. end;
  57.  
  58. constructor TBlueGoldLabel12.Create(AOwner: TComponent);
  59. begin
  60.   inherited Create(AOwner);
  61.   Color := clBlue;
  62.   Font.Color := clYellow;
  63.   Font.Name := 'New Times Roman';
  64.   Font.Size := 12;
  65.   Font.Style := [fsBold];
  66. end;
  67.  
  68. constructor TBlueGoldLabel24.Create(AOwner: TComponent);
  69. begin
  70.   inherited Create(AOwner);
  71.   Font.Size := 24;
  72. end;
  73.  
  74. constructor TEmptyPanel.Create(AOwner: TComponent); override;
  75. begin
  76.   inherited Create(AOwner);
  77.   Caption := '';
  78. end;
  79.  
  80. procedure Register;
  81. begin
  82.   RegisterComponents('Edits', [TBlueGoldEdit12, TBlueGoldEdit24]);
  83. end;
  84.  
  85.  
  86. end.
  87.