umfparsemain.pas

DelphiDoc is a program for automatic generation of documentation on a Delphi-Project. At the momen

{  JADD - Just Another DelphiDoc: Documentation from Delphi Source Code

Copyright (C) 2002-2008   Gerold Veith

This file is part of JADD - Just Another DelphiDoc.

DelphiDoc is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License version 3 as
published by the Free Software Foundation.

DelphiDoc is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
}


unit UMFParseMain;

{Contains a simple page as the main page to parse source code files. Via a
 radio group a way to set the files to be parsed can be selected and the
 button "Next" will bring the user to the appropriate page to do that. }

interface

uses Classes, Forms, Controls, StdCtrls, ExtCtrls,
     UMainFormFrame,
     UJADDState;

type
  {A simple page as the main page to parse source code files. Via a radio group
   a way to set the files to be parsed can be selected and the button "Next"
   will bring the user to the appropriate page to do that. }
  TMFParseMain = class(TMainFormFrame)
    RadioGroup: TRadioGroup;
  private
  protected
  public
    //Creates the components and sets the index of the radio group.
    constructor Create(Parent: TWinControl; State: TJADDState); override;

    //Called sometimes when the frame is to be replaced by another frame.
    procedure SelectNextFrame(var NewFrameClass: TMainFormFrameClass;
                              IsNext: Boolean); override;
  end;


implementation

{$R *.dfm}

uses UMFSelectFiles, UMFSelectLibraryFiles, UMFLoadProject;






{Creates the components and sets the index of the radio group.
~param Parent the component to show the frame in, preferably a TPanel or a
              similar component
~param State  the state of the program }
constructor TMFParseMain.Create(Parent: TWinControl; State: TJADDState);
begin
 inherited Create(Parent, State);         //create frame

 RadioGroup.ItemIndex := 0;               //by default select files to parse
end;



{Called sometimes when the frame is to be replaced by another frame. This
 method is ~[em not] always called before the frame is being replaced (and
 freed).
~param NewFrameClass the class of the frame that should replace this one
~param IsNext        if the next frame should be shown (instead of the previous
                     one) in some kind of an order }
procedure TMFParseMain.SelectNextFrame(var NewFrameClass: TMainFormFrameClass;
                                       IsNext: Boolean);
begin
 if IsNext then                             //next page should be shown?
  case RadioGroup.ItemIndex of                //go to the appropriate page
    0: NewFrameClass := TMFSelectFiles;
    1: NewFrameClass := TMFSelectLibraryFiles;
    2: NewFrameClass := TMFLoadProject;
  end;
end;

end.