{******************************************************************************
*
*  Copyright © POV-Team(tm) 1996. All Rights Reserved.
*  This Editor DLL code is Copyright 1996 Christopher J. Cason.
*  Author : Christopher J. Cason.
*           Based on Turbopower Software's textedit example.
*
*  from Persistence of Vision Raytracer(tm)
*  Copyright 1996 Persistence of Vision Team
*
* The terms POV-Ray, POV, and Persistence of Vision Raytracer are trademarks
* of the Persistence of Vision Team.
*---------------------------------------------------------------------------
*  NOTICE: This source code file is provided so that users may experiment
*  with enhancements to POV-Ray(tm) and to port the software to platforms other
*  than those supported by the POV-Ray Team.  There are strict rules under
*  which you are permitted to use this file.  The rules are in the file
*  named POVLEGAL.DOC which should be distributed with this file. If
*  POVLEGAL.DOC is not available or for more info please contact the POV-Ray(tm)
*  Team Coordinator by leaving a message in CompuServe's POVRAY Forum.
*  The latest version of POV-Ray may be found there as well.
*  POV-Ray files may also be found on the world wide web at www.povray.org.
*
* POV-Ray is based on the popular DKB raytracer version 2.12.
* DKBTrace was originally written by David K. Buck.
* DKBTrace Ver 2.0-2.12 were written by David K. Buck & Aaron A. Collins.
*
*******************************************************************************}

// This code is not commented enough or as much as I'd like. It also needs
// a major cleanup. However, after all, this is volunteer work and I've
// not got the time to do so now. Rather than further delay the release,
// here it is.

unit ClassTStatusForm ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls ;

type
  TStatusForm = class (TForm)
    Panel1: TPanel;
    Panel8: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Panel4: TPanel;
    Panel5: TPanel;
    Panel6: TPanel;
    Panel7: TPanel;
  private
    ParentWindow  : THandle ;

    procedure CreateParams (var Params : TCreateParams) ; override ;

  public

    constructor Create (Parent : THandle) ;
  end;

var
  StatusForm: TStatusForm;

implementation

{$R *.DFM}

constructor TStatusForm.Create (Parent : THandle) ;
begin
  ParentWindow := Parent ;
  inherited Create (Application) ;
end ;

procedure TStatusForm.CreateParams (var Params : TCreateParams) ;
begin
  inherited CreateParams (Params) ;
  Params.WndParent := ParentWindow ;
  Params.Style := WS_CHILD ;
end ;

end.
