home *** CD-ROM | disk | FTP | other *** search
/ Freelog 11 / Freelog011.iso / BestOf / PhoenixMail / Source / comps / StatusBarEx.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-02-10  |  2.0 KB  |  73 lines
  1. {*****************************************************************************
  2.  *
  3.  *  StatusBarEx.pas - TStatusBarEx and TSpeedButtonEx Component
  4.  *
  5.  *  Copyright (c) 1999 Michael Haller
  6.  *
  7.  *  Author:     Michael Haller
  8.  *  E-mail:     michael@discountdrive.com
  9.  *  Homepage:   http://www.discountdrive.com/sunrise/
  10.  *
  11.  *  This program is free software; you can redistribute it and/or
  12.  *  modify it under the terms of the GNU General Public License
  13.  *  as published by the Free Software Foundation;
  14.  *
  15.  *  This program is distributed in the hope that it will be useful,
  16.  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  17.  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18.  *  GNU General Public License for more details.
  19.  *
  20.  *  You should have received a copy of the GNU General Public License
  21.  *  along with this program; if not, write to the Free Software
  22.  *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA
  23.  *
  24.  *----------------------------------------------------------------------------
  25.  *
  26.  *  Revision history:
  27.  *
  28.  *     DATE     REV                 DESCRIPTION
  29.  *  ----------- --- ----------------------------------------------------------
  30.  *
  31.  *****************************************************************************}
  32.  
  33. unit StatusBarEx;
  34.  
  35. interface
  36.  
  37. uses
  38.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  39.   ComCtrls, DsgnIntf, Buttons;
  40.  
  41. type
  42.   TStatusBarEx = class(TStatusBar)
  43.   private
  44.   public
  45.     constructor Create(AOwner: TComponent); override;
  46.   published
  47.   end;
  48.  
  49.   TSpeedButtonEx = class(TSpeedButton)
  50.   private
  51.     FComment: String;
  52.   public
  53.   published
  54.     property Comment: String read FComment write FComment;
  55.   end;
  56.  
  57. procedure Register;
  58.  
  59. implementation
  60.  
  61. constructor TStatusBarEx.Create(AOwner: TComponent);
  62. begin
  63.   inherited Create(AOwner);
  64.   ControlStyle:= ControlStyle + [csAcceptsControls];
  65. end;
  66.  
  67. procedure Register;
  68. begin
  69.   RegisterComponents('Michael Haller', [TStatusBarEx, TSpeedButtonEx]);
  70. end;
  71.  
  72. end.
  73.