Quelle  MDIClass.pas   Sprache: Delphi

unit MDIClass;
interface

uses
  //----------------------------------------------------------------------------
  //local
  //----------------------------------------------------------------------------
  GenDefs,Graphs,OwnUtils,
  //----------------------------------------------------------------------------
  //global
  //----------------------------------------------------------------------------
  ComCtrls,ExtCtrls,Graphics,Forms,Types;

type
  TDocument= class(TObject)
    Processor:JString;
    filelength:integer;
    KeyVerbs:PAnsiChar;
    ReturnValue:integer;
    Source: array of TSources;
    CNav,CSem,CMes,CFun,Cattr:PAnsiChar;
    NavL,SemL:PLongTexts;
    Fnr:integer;
    GC,GD:TGraph;
    TFrame1,TFrame2,TProc:integer;
    Previewrepresentation:boolean;
  public
    constructor create();
    destructor Destroy;override;
  end;

var
  MDI:TDocument;

implementation
//------------------------------------------------------------------
//TDocument
//
//------------------------------------------------------------------
constructor TDocument.create;
begin
  GC.Free;
  GD.Free;
  Previewrepresentation:=false;
  inherited create();
end;
//------------------------------------------------------------------
//TDocument
//
//------------------------------------------------------------------
destructor TDocument.Destroy;
begin
  inherited Free;
end;
//------------------------------------------------------------------
//--
//Ende dieser Quelle                                           --
//--
//------------------------------------------------------------------
end.