oleregister10.pas

是一个delphi的流程制作软件

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

{$I OLE.INC}

unit OleRegister10;

interface

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

type
  TOleEditLinksForm = class(TForm)
    PageControl: TPageControl;
    StandardTabSheet: TTabSheet;
    GroupBox2: TGroupBox;
    Label4: TLabel;
    Label5: TLabel;
    CaptionEdit: TEdit;
    CentreCheckBox: TCheckBox;
    ResourceEdit: TEdit;
    GroupBox3: TGroupBox;
    DisableBreakLinkCheckBox: TCheckBox;
    HelpCheckBox: TCheckBox;
    DisableChangeSourceCheckBox: TCheckBox;
    DisableOpenSourceCheckBox: TCheckBox;
    OK: TBitBtn;
    CancelBtn: TBitBtn;
    DisableUpdateNowCheckBox: TCheckBox;
  private
    FComponent : TComponent;
  public
    property Dialog : TComponent read FComponent write FComponent;
    procedure Initialise;
    procedure Finalise;
  end;

var
  OleEditLinksForm: TOleEditLinksForm;

implementation

{$R *.DFM}

procedure TOleEditLinksForm.Initialise;
begin
  with FComponent as TOleEditLinksDialog do
  begin
// Standard tab
    CentreCheckBox.Checked := AutoCentre;
    CaptionEdit.Text := Caption;
    ResourceEdit.Text := Resource;
    HelpCheckBox.Checked := ShowHelp;
    DisableBreakLinkCheckBox.Checked := DisableBreakLink;
    DisableChangeSourceCheckBox.Checked := DisableChangeSource;
    DisableOpenSourceCheckBox.Checked := DisableOpenSource;
    DisableUpdateNowCheckBox.Checked := DisableUpdateNow
  end
end;

procedure TOleEditLinksForm.Finalise;
begin
  with FComponent as TOleEditLinksDialog do
  begin
// Standard tab
    AutoCentre := CentreCheckBox.Checked;
    Caption := CaptionEdit.Text;
    Resource := ResourceEdit.Text;
    ShowHelp := HelpCheckBox.Checked;
    DisableBreakLink := DisableBreakLinkCheckBox.Checked;
    DisableChangeSource := DisableChangeSourceCheckBox.Checked;
    DisableOpenSource := DisableOpenSourceCheckBox.Checked;
    DisableUpdateNow := DisableUpdateNowCheckBox.Checked
  end
end;


end.