[JEDI.NET-commits] tools/docs/Generator MainForm.GeneratorForm.resources,NONE,1.1 MainForm.pas,NONE,1.1 MainForm.resx,NONE,1.1

[Marcel B. <jed...@us...>]

Update of /cvsroot/jedidotnet/tools/docs/Generator
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17943/tools/docs/Generator

Added Files:
	MainForm.GeneratorForm.resources MainForm.pas MainForm.resx 
Log Message:
I thought I already added and committed these. Sorry

--- NEW FILE: MainForm.GeneratorForm.resources ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: MainForm.resx ---
(This appears to be a binary file; contents omitted.)

--- NEW FILE: MainForm.pas ---
unit MainForm;

interface

uses
  System.Drawing, System.Collections, System.ComponentModel,
  System.Windows.Forms, System.Data;

type
  GeneratorForm = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    /// <summary>
    /// Required designer variable.
    /// </summary>
    Components: System.ComponentModel.Container;
    lblAssembly: System.Windows.Forms.Label;
    tbAssembly: System.Windows.Forms.TextBox;
    btnBrowseAssembly: System.Windows.Forms.Button;
    btnBrowseDocPath: System.Windows.Forms.Button;
    lblDocPath: System.Windows.Forms.Label;
    tbDocPath: System.Windows.Forms.TextBox;
    fbdDocFolder: System.Windows.Forms.FolderBrowserDialog;
    fbdAsmFolder: System.Windows.Forms.FolderBrowserDialog;
    clbAssemblies: System.Windows.Forms.CheckedListBox;
    lblAssemblies: System.Windows.Forms.Label;
    btnGenerate: System.Windows.Forms.Button;
    lblLog: System.Windows.Forms.Label;
    tbLog: System.Windows.Forms.TextBox;
    btnClear: System.Windows.Forms.Button;
    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    procedure InitializeComponent;
    procedure btnBrowseAssembly_Click(sender: System.Object; e: System.EventArgs);
    procedure tbDocPath_TextChanged(sender: System.Object; e: System.EventArgs);
    procedure btnBrowseDocPath_Click(sender: System.Object; e: System.EventArgs);
    procedure TWinForm_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
    procedure tbAssembly_TextChanged(sender: System.Object; e: System.EventArgs);
    procedure btnGenerate_Click(sender: System.Object; e: System.EventArgs);
    procedure clbAssemblies_ItemCheck(sender: System.Object; e: System.Windows.Forms.ItemCheckEventArgs);
    procedure btnClear_Click(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    /// <summary>
    /// Clean up any resources being used.
    /// </summary>
    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;

  [assembly: RuntimeRequiredAttribute(TypeOf(GeneratorForm))]

implementation

{$AUTOBOX ON}

uses
  System.IO,
  System.Reflection,
  Jedi.Docs.System;

type
  StringArray = array of string;

{$REGION 'Windows Form Designer generated code'}
/// <summary>
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
/// </summary>
procedure GeneratorForm.InitializeComponent;
begin
  Self.lblAssembly := System.Windows.Forms.Label.Create;
  Self.tbAssembly := System.Windows.Forms.TextBox.Create;
  Self.btnBrowseAssembly := System.Windows.Forms.Button.Create;
  Self.btnBrowseDocPath := System.Windows.Forms.Button.Create;
  Self.lblDocPath := System.Windows.Forms.Label.Create;
  Self.tbDocPath := System.Windows.Forms.TextBox.Create;
  Self.fbdDocFolder := System.Windows.Forms.FolderBrowserDialog.Create;
  Self.fbdAsmFolder := System.Windows.Forms.FolderBrowserDialog.Create;
  Self.clbAssemblies := System.Windows.Forms.CheckedListBox.Create;
  Self.lblAssemblies := System.Windows.Forms.Label.Create;
  Self.btnGenerate := System.Windows.Forms.Button.Create;
  Self.lblLog := System.Windows.Forms.Label.Create;
  Self.tbLog := System.Windows.Forms.TextBox.Create;
  Self.btnClear := System.Windows.Forms.Button.Create;
  Self.SuspendLayout;
  // 
  // lblAssembly
  // 
  Self.lblAssembly.AutoSize := True;
  Self.lblAssembly.Location := System.Drawing.Point.Create(5, 30);
  Self.lblAssembly.Name := 'lblAssembly';
  Self.lblAssembly.Size := System.Drawing.Size.Create(53, 16);
  Self.lblAssembly.TabIndex := 3;
  Self.lblAssembly.Text := 'Assembly';
  // 
  // tbAssembly
  // 
  Self.tbAssembly.Anchor := (System.Windows.Forms.AnchorStyles(((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Left) or System.Windows.Forms.AnchorStyles.Right)));
  Self.tbAssembly.Location := System.Drawing.Point.Create(75, 30);
  Self.tbAssembly.Name := 'tbAssembly';
  Self.tbAssembly.Size := System.Drawing.Size.Create(340, 20);
  Self.tbAssembly.TabIndex := 4;
  Self.tbAssembly.Text := '';
  Include(Self.tbAssembly.TextChanged, Self.tbAssembly_TextChanged);
  // 
  // btnBrowseAssembly
  // 
  Self.btnBrowseAssembly.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.btnBrowseAssembly.Location := System.Drawing.Point.Create(420, 30);
  Self.btnBrowseAssembly.Name := 'btnBrowseAssembly';
  Self.btnBrowseAssembly.TabIndex := 5;
  Self.btnBrowseAssembly.Text := 'Browse';
  Include(Self.btnBrowseAssembly.Click, Self.btnBrowseAssembly_Click);
  // 
  // btnBrowseDocPath
  // 
  Self.btnBrowseDocPath.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.btnBrowseDocPath.Location := System.Drawing.Point.Create(420, 5);
  Self.btnBrowseDocPath.Name := 'btnBrowseDocPath';
  Self.btnBrowseDocPath.TabIndex := 2;
  Self.btnBrowseDocPath.Text := 'Browse';
  Include(Self.btnBrowseDocPath.Click, Self.btnBrowseDocPath_Click);
  // 
  // lblDocPath
  // 
  Self.lblDocPath.AutoSize := True;
  Self.lblDocPath.Location := System.Drawing.Point.Create(5, 5);
  Self.lblDocPath.Name := 'lblDocPath';
  Self.lblDocPath.Size := System.Drawing.Size.Create(49, 16);
  Self.lblDocPath.TabIndex := 0;
  Self.lblDocPath.Text := 'Doc path';
  // 
  // tbDocPath
  // 
  Self.tbDocPath.Anchor := (System.Windows.Forms.AnchorStyles(((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Left) or System.Windows.Forms.AnchorStyles.Right)));
  Self.tbDocPath.Location := System.Drawing.Point.Create(75, 5);
  Self.tbDocPath.Name := 'tbDocPath';
  Self.tbDocPath.Size := System.Drawing.Size.Create(340, 20);
  Self.tbDocPath.TabIndex := 1;
  Self.tbDocPath.Text := '';
  Include(Self.tbDocPath.TextChanged, Self.tbDocPath_TextChanged);
  // 
  // fbdDocFolder
  // 
  Self.fbdDocFolder.Description := 'Select the folder where the individual documentation files are stored.';
  Self.fbdDocFolder.ShowNewFolderButton := False;
  // 
  // clbAssemblies
  // 
  Self.clbAssemblies.Anchor := (System.Windows.Forms.AnchorStyles(((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Left) or System.Windows.Forms.AnchorStyles.Right)));
  Self.clbAssemblies.CheckOnClick := True;
  Self.clbAssemblies.Location := System.Drawing.Point.Create(75, 65);
  Self.clbAssemblies.Name := 'clbAssemblies';
  Self.clbAssemblies.Size := System.Drawing.Size.Create(340, 109);
  Self.clbAssemblies.Sorted := True;
  Self.clbAssemblies.TabIndex := 7;
  Include(Self.clbAssemblies.ItemCheck, Self.clbAssemblies_ItemCheck);
  // 
  // lblAssemblies
  // 
  Self.lblAssemblies.AutoSize := True;
  Self.lblAssemblies.Location := System.Drawing.Point.Create(5, 70);
  Self.lblAssemblies.Name := 'lblAssemblies';
  Self.lblAssemblies.Size := System.Drawing.Size.Create(62, 16);
  Self.lblAssemblies.TabIndex := 6;
  Self.lblAssemblies.Text := 'Assemblies';
  // 
  // btnGenerate
  // 
  Self.btnGenerate.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.btnGenerate.Enabled := False;
  Self.btnGenerate.Location := System.Drawing.Point.Create(420, 65);
  Self.btnGenerate.Name := 'btnGenerate';
  Self.btnGenerate.TabIndex := 8;
  Self.btnGenerate.Text := 'Generate';
  Include(Self.btnGenerate.Click, Self.btnGenerate_Click);
  // 
  // lblLog
  // 
  Self.lblLog.AutoSize := True;
  Self.lblLog.Location := System.Drawing.Point.Create(10, 185);
  Self.lblLog.Name := 'lblLog';
  Self.lblLog.Size := System.Drawing.Size.Create(23, 16);
  Self.lblLog.TabIndex := 9;
  Self.lblLog.Text := 'Log';
  // 
  // tbLog
  // 
  Self.tbLog.Anchor := (System.Windows.Forms.AnchorStyles((((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Bottom) or System.Windows.Forms.AnchorStyles.Left) 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.tbLog.Location := System.Drawing.Point.Create(75, 185);
  Self.tbLog.Multiline := True;
  Self.tbLog.Name := 'tbLog';
  Self.tbLog.ReadOnly := True;
  Self.tbLog.ScrollBars := System.Windows.Forms.ScrollBars.Vertical;
  Self.tbLog.Size := System.Drawing.Size.Create(340, 215);
  Self.tbLog.TabIndex := 10;
  Self.tbLog.Text := '';
  // 
  // btnClear
  // 
  Self.btnClear.Anchor := (System.Windows.Forms.AnchorStyles((System.Windows.Forms.AnchorStyles.Top 
    or System.Windows.Forms.AnchorStyles.Right)));
  Self.btnClear.Location := System.Drawing.Point.Create(420, 185);
  Self.btnClear.Name := 'btnClear';
  Self.btnClear.TabIndex := 11;
  Self.btnClear.Text := 'Clear';
  Include(Self.btnClear.Click, Self.btnClear_Click);
  // 
  // GeneratorForm
  // 
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(497, 403);
  Self.Controls.Add(Self.btnClear);
  Self.Controls.Add(Self.tbLog);
  Self.Controls.Add(Self.lblLog);
  Self.Controls.Add(Self.btnGenerate);
  Self.Controls.Add(Self.lblAssemblies);
  Self.Controls.Add(Self.clbAssemblies);
  Self.Controls.Add(Self.tbDocPath);
  Self.Controls.Add(Self.lblDocPath);
  Self.Controls.Add(Self.tbAssembly);
  Self.Controls.Add(Self.lblAssembly);
  Self.Controls.Add(Self.btnBrowseDocPath);
  Self.Controls.Add(Self.btnBrowseAssembly);
  Self.Name := 'GeneratorForm';
  Self.StartPosition := System.Windows.Forms.FormStartPosition.CenterScreen;
  Self.Text := 'Documentation generator';
  Include(Self.Closing, Self.TWinForm_Closing);
  Self.ResumeLayout(False);
end;
{$ENDREGION}

procedure GeneratorForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;

constructor GeneratorForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
  Configuration.Load(Application.StartupPath + '\doctools.config');
  tbDocPath.Text := Configuration.DocumentationDirectory;
  tbAssembly.Text := Configuration.AssemblyDirectory;
end;

procedure GeneratorForm.btnClear_Click(sender: System.Object; e: System.EventArgs);
begin
  tbLog.Clear;
end;

procedure GeneratorForm.clbAssemblies_ItemCheck(sender: System.Object; e: System.Windows.Forms.ItemCheckEventArgs);
begin
  btnGenerate.Enabled := (clbAssemblies.CheckedItems.Count > 1) or (e.NewValue = CheckState.Checked);
end;

procedure GeneratorForm.btnGenerate_Click(sender: System.Object; e: System.EventArgs);
var
  i: Integer;
  assem: Assembly;
  ao: AssemblyOverview;
begin
  for i := 0 to clbAssemblies.CheckedItems.Count - 1 do
  begin
    tbLog.Text := tbLog.Text + System.String.Format('Retrieving assembly "{0}"...', clbAssemblies.CheckedItems[i]) +
      Environment.NewLine;
    assem := Assembly.LoadFrom(tbAssembly.Text + '\' + clbAssemblies.CheckedItems[i].ToString);
    try
      tbLog.Text := tbLog.Text + '  Get overview...' + Environment.NewLine;
      ao := AssemblyOverview.Create(assem);
      try
        tbLog.Text := tbLog.Text + '  Generate/update xml files...' + Environment.NewLine;
        OutputGenerator.GenerateDocFiles(ao);
        tbLog.Text := tbLog.Text + '  Done.' + Environment.NewLine;
      finally
        ao.Free;
      end;
    finally
      assem.Free;
    end;
  end;
  tbLog.Text := tbLog.Text + 'Finished.' + Environment.NewLine;
end;

procedure GeneratorForm.tbAssembly_TextChanged(sender: System.Object; e: System.EventArgs);
var
  assemblies: StringArray;
  i: Integer;
begin
  assemblies := Directory.GetFiles(tbAssembly.Text, '*.dll');
  clbAssemblies.Items.Clear;
  for i := Low(assemblies) to High(assemblies) do
    clbAssemblies.Items.Add(Path.GetFileName(assemblies[i]), True);
end;

procedure GeneratorForm.TWinForm_Closing(sender: System.Object; e: System.ComponentModel.CancelEventArgs);
begin
  Configuration.DocumentationDirectory := tbDocPath.Text;
  Configuration.AssemblyDirectory := tbAssembly.Text;
  Configuration.Save(Application.StartupPath + '\doctools.config');
end;

procedure GeneratorForm.btnBrowseDocPath_Click(sender: System.Object; e: System.EventArgs);
begin
  fbdDocFolder.SelectedPath := tbDocPath.Text;
  if fbdDocFolder.ShowDialog = System.Windows.Forms.DialogResult.OK then
    tbDocPath.Text := fbdDocFolder.SelectedPath;
end;

procedure GeneratorForm.tbDocPath_TextChanged(sender: System.Object; e: System.EventArgs);
begin
  btnBrowseAssembly.Enabled := Directory.Exists(tbDocPath.Text);
end;

procedure GeneratorForm.btnBrowseAssembly_Click(sender: System.Object; e: System.EventArgs);
begin
  fbdAsmFolder.SelectedPath := tbAssembly.Text;
  if fbdAsmFolder.ShowDialog = System.Windows.Forms.DialogResult.OK then
    tbAssembly.Text := fbdAsmFolder.SelectedPath;
end;

end.