Donut RAPT の画像  Donut RAPT  

HOME ダウンロード サポート 情報発信 サイトマップ
インフォメーション RTL WTL XMLNotepad ブログ Inno Setup PictBear SE

パスカル・スクリプト: サポートクラス

以下に示すのは,パスカル・スクリプトで使用できるサポートクラスの一覧です。
また,次のサポートオブジェクトも使えます。

注意:MainForm が表示されるのは,WindowVisible が yes にセットされているときだけです。
注意:ボーランド社によるDelphiのVCL( Visual Component Library )のヘルプファイルも参照できれば便利でしょう。
以下に示すクラスの大半は Inno Setup が内部で使用している VCL クラスのラッパーに過ぎないからです。
Delphi documentationftp://ftp.borland.com/pub/delphi/techpubs/delphi3/d3cs.zip をご覧ください。

目次

解説



TObject = class
    constructor Create;
    procedure Free;
end;

TPersistent = class( TObject ) procedure Assign( Source: TPersistent ); end;
TComponent = class( TPersistent ) function FindComponent( AName: String ): TComponent; constructor Create( AOwner: TComponent ); property Owner: TComponent; read write; procedure DestroyComponents; procedure Destroying; procedure FreeNotification( AComponent: TComponent ); procedure InsertComponent( AComponent: TComponent ); procedure RemoveComponent( AComponent: TComponent ); property Components[ Index: Integer ]: TComponent; read; property ComponentCount: Integer; read; property ComponentIndex: Integer; read write; property ComponentState: Byte; read; property DesignInfo: Longint; read write; property Name: String; read write; property Tag: Longint; read write; end;
TStrings = class( TPersistent ) function Add( S: String ): Integer; procedure Append( S: String ); procedure AddStrings( Strings: TStrings ); procedure Clear; procedure Delete( Index: Integer ); function IndexOf( const S: String ): Integer; procedure Insert( Index: Integer; S: String ); property Count: Integer; read; property Text: String; read write; property CommaText: String; read write; procedure LoadFromFile( FileName: String ); procedure SaveToFile( FileName: String ); property Strings[ Index: Integer ]: String; read write; property Objects[ Index: Integer ]: TObject; read write; end;
TNotifyEvent = procedure( Sender: TObject );
TStringList = class( TStrings ) function Find( S: String; var Index: Integer ): Boolean; procedure Sort; property Duplicates: TDuplicates; read write; property Sorted: Boolean; read write; property OnChange: TNotifyEvent; read write; property OnChanging: TNotifyEvent; read write; end;
TStream = class( TObject ) function Read( Buffer: String; Count: Longint ): Longint; function Write( Buffer: String; Count: Longint ): Longint; function Seek( Offset: Longint; Origin: Word ): Longint; procedure ReadBuffer( Buffer: String; Count: Longint ); procedure WriteBuffer( Buffer: String; Count: Longint ); function CopyFrom( Source: TStream; Count: Longint ): Longint; property Position: Longint; read write; property Size: Longint; read write; end;
THandleStream = class( TStream ) constructor Create( AHandle: Integer ); property Handle: Integer; read; end;
TFileStream = class( THandleStream ) constructor Create( Filename: String; Mode: Word ); end;
TGraphicsObject = class( TPersistent ) property OnChange: TNotifyEvent; read write; end;
TFontStyle = ( fsBold, fsItalic, fsUnderline, fsStrikeOut ); TFontStyles = set of TFontStyle; TFont = class( TGraphicsObject ) constructor Create; property Handle: Integer; read; property Color: Integer; read write; property Height: Integer; read write; property Name: String; read write; property Pitch: Byte; read write; property Size: Integer; read write; property PixelsPerInch: Integer; read write; property Style: TFontStyles; read write; end;
TCanvas = class( TPersistent ) procedure Arc( X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer ); procedure Chord( X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer ); procedure Draw( X, Y: Integer; Graphic: TGraphic ); procedure Ellipse( X1, Y1, X2, Y2: Integer ); procedure FloodFill( X, Y: Integer; Color: TColor; FillStyle: Byte ); procedure LineTo( X, Y: Integer ); procedure MoveTo( X, Y: Integer ); procedure Pie( X1, Y1, X2, Y2, X3, Y3, X4, Y4: Integer ); procedure Rectangle( X1, Y1, X2, Y2: Integer ); procedure Refresh; procedure RoundRect( X1, Y1, X2, Y2, X3, Y3: Integer ); function TextHeight( Text: String ): Integer; procedure TextOut( X, Y: Integer; Text: String ); function TextWidth( Text: String ): Integer; property Handle: Integer; read write; property Pixels: Integer Integer Integer; read write; property Brush: TBrush; read; property CopyMode: Byte; read write; property Font: TFont; read; property Pen: TPen; read; end;
TPenMode = ( pmBlack, pmWhite, pmNop, pmNot, pmCopy, pmNotCopy, pmMergePenNot, pmMaskPenNot, pmMergeNotPen, pmMaskNotPen, pmMerge, pmNotMerge, pmMask, pmNotMask, pmXor, pmNotXor ); TPenStyle = ( psSolid, psDash, psDot, psDashDot, psDashDotDot, psClear, psInsideFrame ); TPen = class( TGraphicsObject ) constructor Create; property Color: TColor; read write; property Mode: TPenMode; read write; property Style: TPenStyle; read write; property Width: Integer; read write; end;
TBrushStyle = ( bsSolid, bsClear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross ); TBrush = class( TGraphicsObject ) constructor Create; property Color: TColor; read write; property Style: TBrushStyle; read write; end;
TGraphic = class( TPersistent ) procedure LoadFromFile( const Filename: String ); procedure SaveToFile( const Filename: String ); property Empty: Boolean; read write; property Height: Integer; read write; property Modified: Boolean; read write; property Width: Integer; read write; property OnChange: TNotifyEvent; read write; end;
TBitmap = class( TGraphic ) procedure LoadFromStream( Stream: TStream ); procedure SaveToStream( Stream: TStream ); property Canvas: TCanvas; read write; property Handle: HBITMAP; read write; end;
TAlign = ( alNone, alTop, alBottom, alLeft, alRight, alClient ); TControl = class( TComponent ) constructor Create( AOwner: TComponent ); procedure BringToFront; procedure Hide; procedure Invalidate; procedure Refresh; procedure Repaint; procedure SendToBack; procedure Show; procedure Update; procedure SetBounds( ALeft, ATop, AWidth, AHeight: Integer ); property Left: Integer; read write; property Top: Integer; read write; property Width: Integer; read write; property Height: Integer; read write; property Hint: String; read write; property Align: TAlign; read write; property ClientHeight: Longint; read write; property ClientWidth: Longint; read write; property ShowHint: Boolean; read write; property Visible: Boolean; read write; property Enabled: Boolean; read write; property Hint: String; read write; property Cursor: Integer; read write; end;
TWinControl = class( TControl ) property Parent: TWinControl; read write; property Handle: Longint; read write; property Showing: Boolean; read; property TabOrder: Integer; read write; property TabStop: Boolean; read write; function CanFocus: Boolean; function Focused: Boolean; property Controls[ Index: Integer ]: TControl; read; property ControlCount: Integer; read; end;
TGraphicControl = class( TControl ) end;
TCustomControl = class( TWinControl ) end;
TScrollBarKind = ( sbHorizontal, sbVertical ); TScrollBarInc = SmallInt; TControlScrollBar = class( TPersistent ) property Kind: TScrollBarKind; read; property ScrollPos: Integer; read property Margin: Word; read write; property Increment: TScrollBarInc; read write; property Range: Integer; read write; property Position: Integer; read write; property Tracking: Boolean; read write; property Visible: Boolean; read write; end;
TScrollingWinControl = class( TWinControl ) procedure ScrollInView( AControl: TControl ); property HorzScrollBar: TControlScrollBar; read write; property VertScrollBar: TControlScrollBar; read write; end;
TFormBorderStyle = ( bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin ); TBorderIcon = ( biSystemMenu, biMinimize, biMaximize, biHelp ); TBorderIcons = set of TBorderIcon; TPosition = ( poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter ); TCloseAction = ( caNone, caHide, caFree, caMinimize ); TCloseEvent = procedure( Sender: TObject; var Action: TCloseAction ); TCloseQueryEvent = procedure( Sender: TObject; var CanClose: Boolean ); TEShiftState = ( ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble ); TShiftState = set of TEShiftState; TKeyEvent = procedure ( Sender: TObject; var Key: Word; Shift: TShiftState ); TKeyPressEvent = procedure( Sender: TObject; var Key: Char ); TForm = class( TScrollingWinControl ) constructor CreateNew( AOwner: TComponent ); procedure Close; procedure Hide; procedure Show; function ShowModal: Integer; procedure Release; property Active: Boolean; read; property ActiveControl: TWinControl; read write; property BorderIcons: TBorderIcons; read write; property BorderStyle: TFormBorderStyle; read write; property Caption: String; read write; property AutoScroll: Boolean; read write; property Color: TColor; read write; property Font: TFont; read write; property FormStyle: TFormStyle; read write; property KeyPreview: Boolean; read write; property Position: TPosition; read write; property OnActivate: TNotifyEvent; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnClose: TCloseEvent; read write; property OnCloseQuery: TCloseQueryEvent; read write; property OnCreate: TNotifyEvent; read write; property OnDestroy: TNotifyEvent; read write; property OnDeactivate: TNotifyEvent; read write; property OnHide: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; property OnResize: TNotifyEvent; read write; property OnShow: TNotifyEvent; read write; end;
TCustomLabel = class( TGraphicControl ) end; TAlignment = ( taLeftJustify, taRightJustify, taCenter );
TLabel = class( TCustomLabel ) property Alignment: TAlignment; read write; property AutoSize: Boolean; read write; property Caption: String; read write; property Color: TColor; read write; property FocusControl: TWinControl; read write; property Font: TFont; read write; property WordWrap: Boolean; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; end;
TCustomEdit = class( TWinControl ) procedure Clear; procedure ClearSelection; procedure SelectAll; property Modified: Boolean; read write; property SelLength: Integer; read write; property SelStart: Integer; read write; property SelText: String; read write; property Text: String; read write; end;
TBorderStyle = TFormBorderStyle; TEditCharCase = ( ecNormal, ecUpperCase, ecLowerCase ); TEdit = class( TCustomEdit ) property AutoSelect: Boolean; read write; property AutoSize: Boolean; read write; property BorderStyle: TBorderStyle; read write; property CharCase: TEditCharCase; read write; property Color: TColor; read write; property Font: TFont; read write; property HideSelection: Boolean; read write; property MaxLength: Integer; read write; property PasswordChar: Char; read write; property ReadOnly: Boolean; read write; property Text: String; read write; property OnChange: TNotifyEvent; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; end;
TNewEdit class( TEdit ) end;
TCustomMemo = class( TCustomEdit ) property Lines: TStrings; read write; end;
TScrollStyle = ( ssNone, ssHorizontal, ssVertical, ssBoth ); TMemo = class( TMemo ) property Lines: TStrings; read write; property Alignment: TAlignment; read write; property BorderStyle: TBorderStyle; read write; property Color: TColor; read write; property Font: TFont; read write; property HideSelection: Boolean; read write; property MaxLength: Integer; read write; property ReadOnly: Boolean; read write; property ScrollBars: TScrollStyle; read write; property WantReturns: Boolean; read write; property WantTabs: Boolean; read write; property WordWrap: Boolean; read write; property OnChange: TNotifyEvent; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; end;
TNewMemo class( TMemo ) end;
TCustomComboBox = class( TWinControl ) property DroppedDown: Boolean; read write; property Items: TStrings; read write; property ItemIndex: Integer; read write; end;
TComboBoxStyle = ( csDropDown, csSimple, csDropDownList, csOwnerDrawFixed, csOwnerDrawVariable ); TComboBox = class( TCustomComboBox ) property Style: TComboBoxStyle; read write; property Color: TColor; read write; property DropDownCount: Integer; read write; property Font: TFont; read write; property MaxLength: Integer; read write; property Sorted: Boolean; read write; property Text: String; read write; property OnChange: TNotifyEvent; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnDropDown: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; end;
TNewComboBox = class( TComboBox ) end;
TButtonControl = class( TWinControl ) end;
TButton = class( TButtonControl ) property Cancel: Boolean; read write; property Caption: String; read write; property Default: Boolean; read write; property Font: TFont; read write; property ModalResult: Longint; read write; property OnClick: TNotifyEvent; read write; end;
TNewButton = class( TButton ) end;
TCustomCheckBox = class( TButtonControl ) end;
TCheckBoxState = ( cbUnchecked, cbChecked, cbGrayed ); TCheckBox = class( TCustomCheckBox ) property Alignment: TAlignment; read write; property AllowGrayed: Boolean; read write; property Caption: String; read write; property Checked: Boolean; read write; property Color: TColor; read write; property Font: TFont; read write; property State: TCheckBoxState; read write; property OnClick: TNotifyEvent; read write; end;
TNewCheckBox = class( TCheckBox ) end;
TRadioButton = class( TButtonControl ) property Alignment: TAlignment; read write; property Caption: String; read write; property Checked: Boolean; read write; property Color: TColor; read write; property Font: TFont; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; end;
TNewRadioButton = class( TRadioButton ) end;
TCustomListBox = class( TWinControl ) property Items: TStrings; read write; property ItemIndex: Integer; read write; property SelCount: Integer; read; property Selected[ Index: Integer ]: Boolean; read write; end;
TListBoxStyle = ( lbStandard, lbOwnerDrawFixed, lbOwnerDrawVariable ); TListBox = class( TCustomListBox ) property BorderStyle: TBorderStyle; read write; property Color: TColor; read write; property Font: TFont; read write; property MultiSelect: Boolean; read write; property Sorted: Boolean; read write; property Style: TListBoxStyle; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; end;
TNewListBox = class( TListBox ) end;
TBevelShape = ( bsBox, bsFrame, bsTopLine, bsBottomLine, bsLeftLine, bsRightLine,bsSpacer ); TBevelStyle = ( bsLowered, bsRaised ); TBevel = class( TGraphicControl ) property Shape: TBevelShape; read write; property Style: TBevelStyle; read write; end;
TCustomPanel = class( TCustomControl ) end;
TPanelBevel = ( bvNone, bvLowered, bvRaised,bvSpace ); TBevelWidth = Longint; TBorderWidth = Longint; TPanel = class( TCustomPanel ) property Alignment: TAlignment; read write; property BevelInner: TPanelBevel; read write; property BevelOuter: TPanelBevel; read write; property BevelWidth: TBevelWidth; read write; property BorderWidth: TBorderWidth; read write; property BorderStyle: TBorderStyle; read write; property Caption: String; read write; property Color: TColor; read write; property Font: TFont; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; end;
TNewStaticText = class( TWinControl ) function AdjustHeight: Integer; property AutoSize: Boolean; read write; property Caption: String; read write; property Color: TColor; read write; property FocusControl: TWinControl; read write; property Font: TFont; read write; property ForceLTRReading: Boolean; read write; property ShowAccelChar: Boolean; read write; property WordWrap: Boolean; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; end;
TNewCheckListBox = class( TCustomListBox ) function AddCheckBox( const ACaption, ASubItem: String; ALevel: Byte; AChecked, AEnabled, AHasInternalChildren, ACheckWhenParentChecked: Boolean; AObject: TObject ): Integer; function AddGroup( ACaption, ASubItem: String; ALevel: Byte; AObject: TObject ): Integer; function AddRadioButton( const ACaption, ASubItem: String; ALevel: Byte; AChecked, AEnabled: Boolean; AObject: TObject ): Integer; function CheckItem( const Index: Integer; const AOperation: TCheckItemOperation ): Boolean; property Checked[ Index: Integer ]: Boolean; read write; property State[ Index: Integer ]: TCheckBoxState; read write; property ItemCaption[ Index: Integer ]: String; read write; property ItemEnabled[ Index: Integer ]: Boolean; read write; property ItemLevel[ Index: Integer ]: Byte; read; property ItemObject[ Index: Integer ]: TObject; read write; property ItemSubItem[ Index: Integer ]: String; read write; property AllowGrayed: Boolean; read write; property Flat: Boolean; read write; property MinItemHeight: Integer; read write; property Offset: Integer; read write; property OnClickCheck: TNotifyEvent; read write; property BorderStyle: TBorderStyle; read write; property Color: TColor; read write; property Font: TFont; read write; property Sorted: Boolean; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; property ShowLines: Boolean; read write; property WantTabs: Boolean; read write; property RequireRadioSelection: Boolean; read write; end;
TNewProgressBar = class( TWinControl ) property Min: Longint; read write; property Max: Longint; read write; property Position: Longint; read write; end;
TRichEditViewer = class( TMemo ) property RTFText: String; write; property UseRichEdit: Boolean; read write; end;
TPasswordEdit = class( TCustomEdit ) property AutoSelect: Boolean; read write; property AutoSize: Boolean; read write; property BorderStyle: TBorderStyle; read write; property Color: TColor; read write; property Font: TFont; read write; property HideSelection: Boolean; read write; property MaxLength: Integer; read write; property Password: Boolean; read write; property ReadOnly: Boolean; read write; property Text: String; read write; property OnChange: TNotifyEvent; read write; property OnClick: TNotifyEvent; read write; property OnDblClick: TNotifyEvent; read write; property OnKeyDown: TKeyEvent; read write; property OnKeyPress: TKeyPressEvent; read write; property OnKeyUp: TKeyEvent; read write; end;
TCustomFolderTreeView = class( TWinControl ) procedure ChangeDirectory( const Value: String; const CreateNewItems: Boolean ); procedure CreateNewDirectory( const ADefaultName: String ); property: Directory: String; read write; end;
TFolderRenameEvent = procedure( Sender: TCustomFolderTreeView; var NewName: String; var Accept: Boolean ); TFolderTreeView = class( TCustomFolderTreeView ) property OnChange: TNotifyEvent; read write; property OnRename: TFolderRenameEvent; read write; end;
TStartMenuFolderTreeView = class( TCustomFolderTreeView ) procedure SetPaths( const AUserPrograms, ACommonPrograms, AUserStartup, ACommonStartup: String ); property OnChange: TNotifyEvent; read write; property OnRename: TFolderRenameEvent; read write; end;
TBitmapImage = class( TGraphicControl ) property AutoSize: Boolean; read write; property BackColor: TColor; read write; property Center: Boolean; read write; property Bitmap: TBitmap; read write; property ReplaceColor: TColor; read write; property ReplaceWithColor: TColor; read write; property Stretch: Boolean; read write; end;
TNewNotebook = class( TWinControl ) function FindNextPage( CurPage: TNewNotebookPage; GoForward: Boolean ): TNewNotebookPage; property PageCount: Integer; read write; property Pages[ Index: Integer ]: TNewNotebookPage; read; property ActivePage: TNewNotebookPage; read write; end;
TNewNotebookPage = class( TCustomControl ) property Color: TColor; read write; property Notebook: TNewNotebook; read write; property PageIndex: Integer; read write; end;
TWizardPageNotifyEvent = procedure( Sender: TWizardPage ); TWizardPageButtonEvent = function ( Sender: TWizardPage ): Boolean; TWizardPageCancelEvent = procedure( Sender: TWizardPage; var ACancel, AConfirm: Boolean ); TWizardPageShouldSkipEvent = function ( Sender: TWizardPage ): Boolean; TWizardPage = class( TComponent ) property ID: Integer; read; property Caption: String; read write; property Description: String; read write; property Surface: TNewNotebookPage; read write; property SurfaceHeight: Integer; read write; property SurfaceWidth: Integer; read write; property OnActivate: TWizardPageNotifyEvent; read write; property OnBackButtonClick: TWizardPageButtonEvent; read write; property OnCancelButtonClick: TWizardPageCancelEvent; read write; property OnNextButtonClick: TWizardPageButtonEvent; read write; property OnShouldSkipPage: TWizardPageShouldSkipEvent; read write; end;
TInputQueryWizardPage = class( TWizardPage ) function Add( const APrompt: String; const APassword: Boolean ): Integer; property Edits[ Index: Integer ]: TPasswordEdit; read; property PromptLabels[ Index: Integer ]: TNewStaticText; read; property SubCaptionLabel: TNewStaticText; read; property Values[ Index: Integer ]: String; read write; end;
TInputOptionWizardPage = class( TWizardPage ) function Add( const ACaption: String ): Integer; function AddEx( const ACaption: String; const ALevel: Byte; const AExclusive: Boolean ): Integer; property CheckListBox: TNewCheckListBox; read; property SelectedValueIndex: Integer; read write; property SubCaptionLabel: TNewStaticText; read; property Values[ Index: Integer ]: Boolean; read write; end;
TInputDirWizardPage = class( TWizardPage ) function Add( const APrompt: String ): Integer; property Buttons[ Index: Integer ]: TButton; read; property Edits[ Index: Integer ]: TEdit; read; property PromptLabels[ Index: Integer ]: TNewStaticText; read; property SubCaptionLabel: TNewStaticText; read; property Values[ Index: Integer ]: String; read write; end;
TInputFileWizardPage = class( TWizardPage ) function Add( const APrompt, AFilter, ADefaultExtension: String ): Integer; property Buttons[ Index: Integer ]: TButton; read; property Edits[ Index: Integer ]: TEdit; read; property PromptLabels[ Index: Integer ]: TNewStaticText; read; property SubCaptionLabel: TNewStaticText; read; property Values[ Index: Integer ]: String; read write; end;
TOutputMsgWizardPage = class( TWizardPage ) property MsgLabel: TNewStaticText; read; end;
TOutputMsgMemoWizardPage = class( TWizardPage ) property RichEditViewer: TRichEditViewer; read; property SubCaptionLabel: TNewStaticText; read; end;
TOutputProgressWizardPage = class( TWizardPage ) procedure Hide; property Msg1Label: TNewStaticText; read; property Msg2Label: TNewStaticText; read; property ProgressBar: TNewProgressBar; read; procedure SetProgress( const Position, Max: Longint ); procedure SetText( const Msg1, Msg2: String ); procedure Show; end;
TUIStateForm = class( TForm ) end;
TSetupForm = class( TUIStateForm ) procedure Center; procedure CenterInsideControl( const Ctl: TWinControl; const InsideClientArea: Boolean ); end;
TMainForm = class( TSetupForm ) procedure ShowAboutBox; end;
TWizardForm = class( TSetupForm ) property CancelButton: TNewButton; read; property NextButton: TNewButton; read; property BackButton: TNewButton; read; property Notebook1: TNotebook; read; property Notebook2: TNotebook; read; property WelcomePage: TNewNotebookPage; read; property InnerPage: TNewNotebookPage; read; property FinishedPage: TNewNotebookPage; read; property LicensePage: TNewNotebookPage; read; property PasswordPage: TNewNotebookPage; read; property InfoBeforePage: TNewNotebookPage; read; property UserInfoPage: TNewNotebookPage; read; property SelectDirPage: TNewNotebookPage; read; property SelectComponentsPage: TNewNotebookPage; read; property SelectProgramGroupPage: TNewNotebookPage; read; property SelectTasksPage: TNewNotebookPage; read; property ReadyPage: TNewNotebookPage; read; property PreparingPage: TNewNotebookPage; read; property InstallingPage: TNewNotebookPage; read; property InfoAfterPage: TNewNotebookPage; read; property DiskSpaceLabel: TNewStaticText; read; property DirEdit: TEdit; read; property GroupEdit: TNewEdit; read; property NoIconsCheck: TNewCheckBox; read; property PasswordLabel: TNewStaticText; read; property PasswordEdit: TPasswordEdit; read; property PasswordEditLabel: TNewStaticText; read; property ReadyMemo: TNewMemo; read; property TypesCombo: TNewComboBox; read; property Bevel: TBevel; read; property WizardBitmapImage: TBitmapImage; read; property WelcomeLabel1: TNewStaticText; read; property InfoBeforeMemo: TRichEditViewer; read; property InfoBeforeClickLabel: TNewStaticText; read; property MainPanel: TPanel; read; property Bevel1: TBevel; read; property PageNameLabel: TNewStaticText; read; property PageDescriptionLabel: TNewStaticText; read; property WizardSmallBitmapImage: TBitmapImage; read; property ReadyLabel: TNewStaticText; read; property FinishedLabel: TNewStaticText; read; property YesRadio: TNewRadioButton; read; property NoRadio: TNewRadioButton; read; property WizardBitmapImage2: TBitmapImage; read; property WelcomeLabel2: TNewStaticText; read; property LicenseLabel1: TNewStaticText; read; property LicenseMemo: TRichEditViewer; read; property InfoAfterMemo: TRichEditViewer; read; property InfoAfterClickLabel: TNewStaticText; read; property ComponentsList: TNewCheckListBox; read; property ComponentsDiskSpaceLabel: TNewStaticText; read; property BeveledLabel: TNewStaticText; read; property StatusLabel: TNewStaticText; read; property FilenameLabel: TNewStaticText; read; property ProgressGauge: TNewProgressBar; read; property SelectDirLabel: TNewStaticText; read; property SelectStartMenuFolderLabel: TNewStaticText; read; property SelectComponentsLabel: TNewStaticText; read; property SelectTasksLabel: TNewStaticText; read; property LicenseAcceptedRadio: TNewRadioButton; read; property LicenseNotAcceptedRadio: TNewRadioButton; read; property UserInfoNameLabel: TNewStaticText; read; property UserInfoNameEdit: TNewEdit; read; property UserInfoOrgLabel: TNewStaticText; read; property UserInfoOrgEdit: TNewEdit; read; property PreparingErrorBitmapImage: TBitmapImage; read; property PreparingLabel: TNewStaticText; read; property FinishedHeadingLabel: TNewStaticText; read; property UserInfoSerialLabel: TNewStaticText; read; property UserInfoSerialEdit: TNewEdit; read; property TasksList: TNewCheckListBox; read; property RunList: TNewCheckListBox; read; property DirBrowseButton: TNewButton; read; property GroupBrowseButton: TNewButton; read; property SelectDirBitmapImage: TBitmapImage; read; property SelectGroupBitmapImage: TBitmapImage; read; property SelectDirBrowseLabel: TNewStaticText; read; property SelectStartMenuFolderBrowseLabel: TNewStaticText; read; property CurPageID: Integer; read; function AdjustLabelHeight( ALabel: TNewStaticText ): Integer; procedure IncTopDecHeight( AControl: TControl; Amount: Integer ); end;
TUninstallProgressForm = class( TSetupForm ) property OuterNotebook: TNewNotebook; read; property InnerPage: TNewNotebookPage; read; property InnerNotebook: TNewNotebook; read; property InstallingPage: TNewNotebookPage; read; property MainPanel: TPanel; read; property PageNameLabel: TNewStaticText; read; property PageDescriptionLabel: TNewStaticText; read; property WizardSmallBitmapImage: TBitmapImage; read; property Bevel1: TBevel; read; property StatusLabel: TNewStaticText; read; property ProgressBar: TNewProgressBar; read; property BeveledLabel: TNewStaticText; read; property Bevel: TBevel; read; property CancelButton: TNewButton; read; end;


Copyright © 2001-2016