oleregister12.pas

是一个delphi的流程制作软件

//========================= OLE UI UTILITIES ===================================
//
// This is s component editor for the OleUIChangeSourceDislog component
//
// Grahame Marsh
// Freeware for UNDU - you get it for free I make no promises
// [e-mail]
//------------------------------------------------------------------------------

{$I OLE.INC}

unit OleRegister12;

interface

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

type
  TOleChangeSourceForm = class(TForm)
    OKBtn: TBitBtn;
    CancelBtn: TBitBtn;
    PageControl: TPageControl;
    StandardTabSheet: TTabSheet;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    CaptionEdit: TEdit;
    CentreCheckBox: TCheckBox;
    ResourceEdit: TEdit;
    GroupBox3: TGroupBox;
    OnlyGetSourceCheckBox: TCheckBox;
    ExplorerCheckBox: TCheckBox;
    HelpCheckBox: TCheckBox;
    ExtensionTabSheet: TTabSheet;
    Label1: TLabel;
    LinkIdEdit: TEdit;
    LinkIdUpDown: TUpDown;
    Bevel1: TBevel;
    Label2: TLabel;
    DisplayNameEdit: TEdit;
    Label3: TLabel;
    FileLengthEdit: TEdit;
    FileLengthUpDown: TUpDown;
  private
    FComponent : TComponent;
  public
    property Dialog : TComponent read FComponent write FComponent;
    procedure Initialise;
    procedure Finalise;
  end;

var
  OleChangeSourceForm: TOleChangeSourceForm;

implementation

{$R *.DFM}

procedure TOleChangeSourceForm.Initialise;
begin
  with FComponent as TOleChangeSourceDialog do
  begin
// Standard tab
    CentreCheckBox.Checked := AutoCentre;
    CaptionEdit.Text := Caption;
    HelpCheckBox.Checked := ShowHelp;
    ResourceEdit.Text := Resource;
    ExplorerCheckBox.Checked := Explorer;
    OnlyGetSourceCheckBox.Checked := OnlyGetSource;
// Additional
    LinkIdUpDown.Position := Link;
    FileLengthUpDown.Position := FileLength;
    DisplayNameEdit.Text := DisplayName
  end
end;

procedure TOleChangeSourceForm.Finalise;
begin
  with FComponent as TOleChangeSourceDialog do
  begin
// Standard tab
    AutoCentre := CentreCheckBox.Checked;
    Caption := CaptionEdit.Text;
    ShowHelp := HelpCheckBox.Checked;
    Resource := ResourceEdit.Text;
    Explorer := ExplorerCheckBox.Checked;
    OnlyGetSource := OnlyGetSourceCheckBox.Checked;
// Additional
    Link := LinkIdUpDown.Position;
    Filelength := FileLengthUpDown.Position;
    DisplayName := DisplayNameEdit.Text
  end
end;

end.