oleregister5.pas

是一个delphi的流程制作软件

//========================= OLE UI UTILITIES ===================================
//
// This is used by the CLSID string property editor to enable the selection
// of a CLSID from the registery under a variety of filters.
//
// Grahame Marsh
// Freeware for UNDU - you get it for free I make no promises
// [e-mail]
//------------------------------------------------------------------------------

{$I OLE.INC}

unit OleRegister5;

interface

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

type
  TCLSIDSelectForm = class(TForm)
    Label1: TLabel;
    ExcludeBitBtn: TBitBtn;
    AssocBitBtn: TBitBtn;
    IconBitBtn: TBitBtn;
    Bevel1: TBevel;
    CancelBitBtn: TBitBtn;
    InsertBitBtn: TBitBtn;
    Bevel2: TBevel;
    NullBitBtn: TBitBtn;
    Label2: TLabel;
    procedure CancelBitBtnClick(Sender: TObject);
    procedure SelectButtonClick(Sender: TObject);
    procedure NullBitBtnClick(Sender: TObject);
  private
    FCLSID : TCLSIDStr;
  public
    property CLSID : TCLSIDStr read FCLSID write FCLSID;
  end;

var
  CLSIDSelectForm: TCLSIDSelectForm;

implementation

{$R *.DFM}

uses
  OleRegister8;

procedure TCLSIDSelectForm.CancelBitBtnClick(Sender: TObject);
begin
  Close
end;

procedure TCLSIDSelectForm.SelectButtonClick(Sender: TObject);
var
  Form : TBrowseCLSIDForm2;
begin
  Form := TBrowseCLSIDForm2.Create (Application);
  try
    case (Sender as TBitBtn).Tag of
       0 : Form.InsertMode;
       1 : Form.ConversionMode;
       2 : Form.ExcludeMode;
       3 : Form.SelectIconMode
    end;
    Hide;
    Form.SelectedCLSID := FCLSID;
    ModalResult := Form.ShowModal;
    if ModalResult = mrOk then
      FCLSID := Form.SelectedCLSID
  finally
    Form.Free
  end
end;

procedure TCLSIDSelectForm.NullBitBtnClick(Sender: TObject);
begin
  FCLSID := '{00000000-0000-0000-0000-000000000000}';
  ModalResult := mrOk
end;

end.