diff --git a/Components/UniPs b/Components/UniPs index c4edfd87..d24d6d0a 160000 --- a/Components/UniPs +++ b/Components/UniPs @@ -1 +1 @@ -Subproject commit c4edfd87f078d235192ee1860fcd3742e149cfc9 +Subproject commit d24d6d0a11bb80ac15229239600227cf6ad9c0db diff --git a/ISHelp/isxclasses.pas b/ISHelp/isxclasses.pas index 4ab9c5db..125fc3f4 100644 --- a/ISHelp/isxclasses.pas +++ b/ISHelp/isxclasses.pas @@ -245,6 +245,8 @@ TSizeConstraints = class(TPersistent); TFormStyle = (fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop); +TPopupMode = (pmNone, pmAuto, pmExplicit); + TPosition = (poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter, poDesktopCenter, poMainFormCenter, poOwnerFormCenter); TCloseAction = (caNone, caHide, caFree, caMinimize); @@ -280,6 +282,8 @@ TForm = class(TScrollingWinControl) property Font: TFont; read write; property FormStyle: TFormStyle; read write; property KeyPreview: Boolean; read write; + property PopupMode: TPopupMenu; read write; + property PopupParent: TForm; read write; property Position: TPosition; read write; property OnActivate: TNotifyEvent; read write; property OnClick: TNotifyEvent; read write; diff --git a/ISHelp/isxclasses_wordlists_generated.pas b/ISHelp/isxclasses_wordlists_generated.pas index f4e153ee..322ab0c1 100644 --- a/ISHelp/isxclasses_wordlists_generated.pas +++ b/ISHelp/isxclasses_wordlists_generated.pas @@ -33,11 +33,12 @@ interface 'TNewProgressBarStyle', 'TNewRadioButton', 'TNewStaticText', 'TNotifyEvent', 'TObject', 'TOutputMarqueeProgressWizardPage', 'TOutputMsgMemoWizardPage', 'TOutputMsgWizardPage', 'TOutputProgressWizardPage', 'TPanel', 'TPanelBevel', 'TPasswordEdit', 'TPen', 'TPenMode', - 'TPenStyle', 'TPersistent', 'TPosition', 'TRadioButton', 'TRichEditViewer', 'TScrollingWinControl', - 'TScrollStyle', 'TSetupForm', 'TShiftState', 'TSizeConstraints', 'TStartMenuFolderTreeView', - 'TStream', 'TStringList', 'TStrings', 'TStringStream', 'TSysLinkEvent', 'TSysLinkType', - 'TUIStateForm', 'TUninstallProgressForm', 'TWinControl', 'TWizardForm', 'TWizardPage', - 'TWizardPageButtonEvent', 'TWizardPageCancelEvent', 'TWizardPageNotifyEvent', 'TWizardPageShouldSkipEvent' + 'TPenStyle', 'TPersistent', 'TPopupMode', 'TPosition', 'TRadioButton', 'TRichEditViewer', + 'TScrollingWinControl', 'TScrollStyle', 'TSetupForm', 'TShiftState', 'TSizeConstraints', + 'TStartMenuFolderTreeView', 'TStream', 'TStringList', 'TStrings', 'TStringStream', + 'TSysLinkEvent', 'TSysLinkType', 'TUIStateForm', 'TUninstallProgressForm', 'TWinControl', + 'TWizardForm', 'TWizardPage', 'TWizardPageButtonEvent', 'TWizardPageCancelEvent', 'TWizardPageNotifyEvent', + 'TWizardPageShouldSkipEvent' ]; PascalEnumValues_Isxclasses: array of AnsiString = [ @@ -63,6 +64,7 @@ interface 'npbsNormal', 'npbsError', 'npbsPaused', 'npbstNormal', 'npbstMarquee', 'pmBlack', 'pmWhite', 'pmNop', 'pmNot', 'pmCopy', 'pmNotCopy', 'pmMergePenNot', 'pmMaskPenNot', 'pmMergeNotPen', 'pmMaskNotPen', 'pmMerge', 'pmNotMerge', 'pmMask', 'pmNotMask', 'pmXor', 'pmNotXor', + 'pmNone', 'pmAuto', 'pmExplicit', 'poDesigned', 'poDefault', 'poDefaultPosOnly', 'poDefaultSizeOnly', 'poScreenCenter', 'poDesktopCenter', 'poMainFormCenter', 'poOwnerFormCenter', 'psSolid', 'psDash', 'psDot', 'psDashDot', 'psDashDotDot', 'psClear', 'psInsideFrame', 'sltURL', 'sltID', @@ -188,11 +190,11 @@ interface 'OnShow', 'OuterNotebook', 'Owner', 'PageCount', 'PageDescriptionLabel', 'PageIndex', 'PageNameLabel', 'Pages', 'Parent', 'ParentBackground', 'Password', 'PasswordChar', 'PasswordEdit', 'PasswordEditLabel', 'PasswordLabel', 'PasswordPage', 'Pen', 'Pitch', - 'Pixels', 'PixelsPerInch', 'Position', 'PreparingErrorBitmapImage', 'PreparingLabel', - 'PreparingMemo', 'PreparingNoRadio', 'PreparingPage', 'PreparingYesRadio', 'PrevAppDir', - 'ProgressBar', 'ProgressGauge', 'PromptLabels', 'ReadOnly', 'ReadyLabel', 'ReadyMemo', - 'ReadyPage', 'ReplaceColor', 'ReplaceWithColor', 'RequireRadioSelection', 'RichEditViewer', - 'RightToLeft', 'RTFText', 'RunList', 'ScrollBars', 'SelCount', 'SelectComponentsLabel', + 'Pixels', 'PixelsPerInch', 'PopupMode', 'PopupParent', 'Position', 'PreparingErrorBitmapImage', + 'PreparingLabel', 'PreparingMemo', 'PreparingNoRadio', 'PreparingPage', 'PreparingYesRadio', + 'PrevAppDir', 'ProgressBar', 'ProgressGauge', 'PromptLabels', 'ReadOnly', 'ReadyLabel', + 'ReadyMemo', 'ReadyPage', 'ReplaceColor', 'ReplaceWithColor', 'RequireRadioSelection', + 'RichEditViewer', 'RightToLeft', 'RTFText', 'RunList', 'ScrollBars', 'SelCount', 'SelectComponentsLabel', 'SelectComponentsPage', 'SelectDirBitmapImage', 'SelectDirBrowseLabel', 'SelectDirLabel', 'SelectDirPage', 'Selected', 'SelectedValueIndex', 'SelectGroupBitmapImage', 'SelectProgramGroupPage', 'SelectStartMenuFolderBrowseLabel', 'SelectStartMenuFolderLabel', 'SelectTasksLabel', diff --git a/whatsnew.htm b/whatsnew.htm index 39e000ca..e18a0c65 100644 --- a/whatsnew.htm +++ b/whatsnew.htm @@ -102,7 +102,8 @@
  • Added new ExecAndCaptureOutput support function to execute a program or batch file and capture its stdout and stderr outputs separately.
  • Added new StringJoin, StringSplit, and StringSplitEx support functions.
  • Output logging now raises an exception if there was an error setting up output redirection (which should be very rare). The PowerShell.iss example script has been updated to catch the exception.
  • -
  • TInputDirWizardPage: Added new NewFolderName property to update the initial value passed to CreateInputDirPage.
  • +
  • Added new NewFolderName property to support class TInputDirWizardPage update the initial value passed to CreateInputDirPage.
  • +
  • Added new PopupMode and PopupParent properties to support class TForm.
  • Documented support functions VarArrayGet and VarArraySet which were already available but not documented.
  • Renamed the FileCopy support function to CopyFile. The old name is still supported, but it is recommended to update your scripts to the new name and the compiler will issue a warning if you don't.
  • Fixed support function TStream.CopyFrom by adding a BufferSize parameter which was required but missing. Using $100000 as the value is recommended.