[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]

{ ****************************************************************** }
{                                                                    }
{   VCL component TSStatusBar                                        }
{                                                                    }
{   StatusBar able to hold controls                                  }
{                                                                    }
{   Code generated by Component Create for Delphi                    }
{                                                                    }
{   Generated from untitled component definition                     }
{   on 24 May 1997 at 11:36                                          }
{                                                                    }
{   Copyright © 1997 by ...Tangentals Design                         }
{                                                                    }
{ ****************************************************************** }

unit SStatBrU;

interface

uses WinTypes, WinProcs, Messages, SysUtils, Classes, Controls, 
     Forms, Graphics, Comctrls;

type
  TSStatusBar = class(TStatusBar)
    private
      { Private fields of TSStatusBar }

      { Private methods of TSStatusBar }
        { Method to set variable and property values and create objects }
        procedure AutoInitialize;
        { Method to free any objects created by AutoInitialize }
        procedure AutoDestroy;

    protected
      { Protected fields of TSStatusBar }

      { Protected methods of TSStatusBar }
        procedure Click; override;
        procedure Loaded; override;

    public
      { Public fields and properties of TSStatusBar }

      { Public methods of TSStatusBar }
        constructor Create(AOwner: TComponent); override;
        destructor Destroy; override;

    published
      { Published properties of TSStatusBar }
        property OnClick;
        property OnResize;

  end;

procedure Register;

implementation

procedure Register;
begin
     { Register TSStatusBar with Win95 as its
       default page on the Delphi component palette }
     RegisterComponents('Win95', [TSStatusBar]);
end;

{ Method to set variable and property values and create objects }
procedure TSStatusBar.AutoInitialize;
begin
end; { of AutoInitialize }

{ Method to free any objects created by AutoInitialize }
procedure TSStatusBar.AutoDestroy;
begin
     { No objects from AutoInitialize to free }
end; { of AutoDestroy }

{ Override OnClick handler from TStatusBar }
procedure TSStatusBar.Click;
begin
     { Code to execute before activating click
       behavior of component's parent class }

     { Activate click behavior of parent }
     inherited Click;

     { Code to execute after click behavior
       of parent }

end;

constructor TSStatusBar.Create(AOwner: TComponent);
begin
     { Call the Create method of the parent class }
     inherited Create(AOwner);

     { AutoInitialize sets the initial values of variables and      }
     { properties; also, it creates objects for properties of       }
     { standard Delphi object types (e.g., TFont, TTimer,           }
     { TPicture) and for any variables marked as objects.           }
     { AutoInitialize method is generated by Component Create.      }
     AutoInitialize;

     { Code to perform other tasks when the component is created }
     
ControlStyle := ControlStyle + [csAcceptsControls];

     
end;

destructor TSStatusBar.Destroy;
begin
     { AutoDestroy, which is generated by Component Create, frees any   }
     { objects created by AutoInitialize.                               }
     AutoDestroy;

     { Here, free any other dynamic objects that the component methods  }
     { created but have not yet freed.  Also perform any other clean-up }
     { operations needed before the component is destroyed.             }

     { Last, free the component by calling the Destroy method of the    }
     { parent class.                                                    }
     inherited Destroy;
end;

procedure TSStatusBar.Loaded;
begin
     inherited Loaded;

     { Perform any component setup that depends on the property
       values having been set }

end;


end.

[Back to DELPHI SWAG index]  [Back to Main SWAG index]  [Original]