umfselectlibraryfiles.pas

来自「DelphiDoc is a program for automatic gen」· PAS 代码 · 共 71 行

{  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 UMFSelectLibraryFiles;

{Contains a page to select the files to be parsed only if they are used by
 other parsed files. }

interface

uses Classes, Controls, StdCtrls, ExtCtrls, CheckLst,
     UMFSelectFiles;

type
  {A page to select the files to be parsed only if they are used by other
   parsed files. }
  TMFSelectLibraryFiles = class(TMFSelectFiles)
  private
  protected
    //Shows the list of files in the check list box.
    procedure ShowList; override;
    //Saves the list of files from the check list box.
    procedure SaveList; override;
  public
  end;


implementation

{$R *.dfm}




{Shows the list of files in the check list box. }
procedure TMFSelectLibraryFiles.ShowList;
var       i                    :Integer;         //counter through the files
begin
 CheckListBox.Items := State.FilesOfLibrary;     //get all files
 for i := 0 to CheckListBox.Items.Count - 1 do   //also show if they are marked
  CheckListBox.Checked[i] := Assigned(CheckListBox.Items.Objects[i]);
end;

{Saves the list of files from the check list box. }
procedure TMFSelectLibraryFiles.SaveList;
var       i                    :Integer;         //counter through the files
begin
 for i := 0 to CheckListBox.Items.Count - 1 do   //save whether they are marked
  CheckListBox.Items.Objects[i] := Pointer(Ord(CheckListBox.Checked[i]));
 State.FilesOfLibrary.Assign(CheckListBox.Items); //save all files
end;

end.