Add Anchors so we can easily resize. Requires a switch to TNewNotebook because Anchors & TNotebook don't seem to work together very well. Use anchors to make slighty wider on Segoe UI. Needed by some long labels.
This commit is contained in:
Martijn Laan
parent
455529261d
commit
484dde3a19
@ -2,13 +2,11 @@ unit DropListBox;
|
||||
|
||||
{
|
||||
Inno Setup
|
||||
Copyright (C) 1997-2004 Jordan Russell
|
||||
Copyright (C) 1997-2019 Jordan Russell
|
||||
Portions by Martijn Laan
|
||||
For conditions of distribution and use, see LICENSE.TXT.
|
||||
|
||||
This unit provides a listbox with drop files support.
|
||||
|
||||
$jrsoftware: issrc/Components/DropListBox.pas,v 1.1 2004/06/05 16:07:10 mlaan Exp $
|
||||
}
|
||||
|
||||
interface
|
||||
@ -30,6 +28,7 @@ type
|
||||
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
|
||||
published
|
||||
property Align;
|
||||
property Anchors;
|
||||
property BorderStyle;
|
||||
property Color;
|
||||
property Columns;
|
||||
|
||||
@ -6,16 +6,21 @@ object WizardForm: TWizardForm
|
||||
Caption = '*'
|
||||
ClientHeight = 358
|
||||
ClientWidth = 495
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = True
|
||||
Position = poScreenCenter
|
||||
OnCloseQuery = FormCloseQuery
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnShow = FormShow
|
||||
DesignSize = (
|
||||
495
|
||||
358)
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object Bevel: TBevel
|
||||
@ -23,6 +28,7 @@ object WizardForm: TWizardForm
|
||||
Top = 314
|
||||
Width = 503
|
||||
Height = 1
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Shape = bsTopLine
|
||||
end
|
||||
object RequiredLabel1: TNewStaticText
|
||||
@ -30,6 +36,7 @@ object WizardForm: TWizardForm
|
||||
Top = 332
|
||||
Width = 21
|
||||
Height = 14
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = 'bold'
|
||||
Enabled = False
|
||||
TabOrder = 4
|
||||
@ -39,28 +46,33 @@ object WizardForm: TWizardForm
|
||||
Top = 332
|
||||
Width = 51
|
||||
Height = 14
|
||||
Anchors = [akLeft, akBottom]
|
||||
Caption = ' = required'
|
||||
Enabled = False
|
||||
TabOrder = 5
|
||||
end
|
||||
object Notebook1: TNotebook
|
||||
object OuterNotebook: TNewNotebook
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 496
|
||||
Height = 314
|
||||
ActivePage = MainPage
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Color = clBtnFace
|
||||
PageIndex = 1
|
||||
ParentColor = False
|
||||
TabOrder = 3
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Welcome'
|
||||
object WelcomePage: TNewNotebookPage
|
||||
Color = clWindow
|
||||
ParentColor = False
|
||||
DesignSize = (
|
||||
496
|
||||
314)
|
||||
object WelcomeImage: TImage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 164
|
||||
Height = 314
|
||||
Anchors = [akLeft, akTop, akBottom]
|
||||
Picture.Data = {
|
||||
07544269746D61707E670000424D7E670000000000007600000028000000A400
|
||||
00003A0100000100040000000000086700000000000000000000100000001000
|
||||
@ -898,6 +910,7 @@ object WizardForm: TWizardForm
|
||||
Top = 16
|
||||
Width = 301
|
||||
Height = 53
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Welcome to the [name]'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -915,6 +928,7 @@ object WizardForm: TWizardForm
|
||||
Top = 76
|
||||
Width = 301
|
||||
Height = 57
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption =
|
||||
'This wizard will guide you through the process of creating a new' +
|
||||
@ -930,6 +944,7 @@ object WizardForm: TWizardForm
|
||||
Top = 140
|
||||
Width = 301
|
||||
Height = 77
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption =
|
||||
'Not all features of Inno Setup are covered by this wizard. See t' +
|
||||
@ -943,14 +958,15 @@ object WizardForm: TWizardForm
|
||||
Top = 288
|
||||
Width = 189
|
||||
Height = 17
|
||||
Anchors = [akLeft, akRight, akBottom]
|
||||
Caption = 'Create a new &empty script file'
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Main'
|
||||
object MainPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
496
|
||||
314)
|
||||
object Bevel1: TBevel
|
||||
Left = 0
|
||||
Top = 58
|
||||
@ -959,21 +975,24 @@ object WizardForm: TWizardForm
|
||||
Shape = bsTopLine
|
||||
Visible = False
|
||||
end
|
||||
object Notebook2: TNotebook
|
||||
object InnerNotebook: TNewNotebook
|
||||
Left = 4
|
||||
Top = 64
|
||||
Width = 485
|
||||
Height = 245
|
||||
ActivePage = AppInfoPage
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
TabOrder = 0
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'AppInfo'
|
||||
object AppInfoPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object AppNameLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application na&me:'
|
||||
FocusControl = AppNameEdit
|
||||
@ -985,6 +1004,7 @@ object WizardForm: TWizardForm
|
||||
Top = 56
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application &version:'
|
||||
FocusControl = AppVersionEdit
|
||||
@ -996,6 +1016,7 @@ object WizardForm: TWizardForm
|
||||
Top = 104
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application &publisher:'
|
||||
FocusControl = AppPublisherEdit
|
||||
@ -1007,6 +1028,7 @@ object WizardForm: TWizardForm
|
||||
Top = 152
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application &website:'
|
||||
FocusControl = AppURLEdit
|
||||
@ -1018,6 +1040,7 @@ object WizardForm: TWizardForm
|
||||
Top = 28
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 1
|
||||
end
|
||||
object AppVersionEdit: TEdit
|
||||
@ -1025,6 +1048,7 @@ object WizardForm: TWizardForm
|
||||
Top = 76
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 3
|
||||
end
|
||||
object AppPublisherEdit: TEdit
|
||||
@ -1032,6 +1056,7 @@ object WizardForm: TWizardForm
|
||||
Top = 124
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 5
|
||||
end
|
||||
object AppURLEdit: TEdit
|
||||
@ -1039,18 +1064,20 @@ object WizardForm: TWizardForm
|
||||
Top = 172
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 7
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'AppDir'
|
||||
object AppDirPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object AppDirNameLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 84
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application folder na&me:'
|
||||
FocusControl = AppDirNameEdit
|
||||
@ -1062,6 +1089,7 @@ object WizardForm: TWizardForm
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application &destination base folder:'
|
||||
FocusControl = AppRootDirComboBox
|
||||
@ -1073,6 +1101,7 @@ object WizardForm: TWizardForm
|
||||
Top = 156
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Other:'
|
||||
FocusControl = AppDirNameEdit
|
||||
@ -1085,8 +1114,8 @@ object WizardForm: TWizardForm
|
||||
Width = 309
|
||||
Height = 21
|
||||
Style = csDropDownList
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
DropDownCount = 12
|
||||
ItemHeight = 13
|
||||
TabOrder = 1
|
||||
OnChange = AppRootDirComboBoxChange
|
||||
end
|
||||
@ -1095,6 +1124,7 @@ object WizardForm: TWizardForm
|
||||
Top = 56
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 2
|
||||
end
|
||||
object AppDirNameEdit: TEdit
|
||||
@ -1102,6 +1132,7 @@ object WizardForm: TWizardForm
|
||||
Top = 104
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 4
|
||||
end
|
||||
object NotDisableDirPageCheck: TCheckBox
|
||||
@ -1109,6 +1140,7 @@ object WizardForm: TWizardForm
|
||||
Top = 132
|
||||
Width = 425
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Allow user to &change the application folder'
|
||||
TabOrder = 5
|
||||
end
|
||||
@ -1117,20 +1149,22 @@ object WizardForm: TWizardForm
|
||||
Top = 176
|
||||
Width = 257
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'The application doe&sn'#39't need a folder'
|
||||
TabOrder = 7
|
||||
OnClick = NotCreateAppDirCheckClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'AppFiles'
|
||||
object AppFilesPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object AppFilesLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 100
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Other application &files:'
|
||||
FocusControl = AppFilesListBox
|
||||
@ -1142,6 +1176,7 @@ object WizardForm: TWizardForm
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application &main executable file:'
|
||||
FocusControl = AppExeEdit
|
||||
@ -1153,6 +1188,7 @@ object WizardForm: TWizardForm
|
||||
Top = 120
|
||||
Width = 309
|
||||
Height = 117
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
ItemHeight = 13
|
||||
TabOrder = 6
|
||||
OnClick = AppFilesListBoxClick
|
||||
@ -1164,6 +1200,7 @@ object WizardForm: TWizardForm
|
||||
Top = 119
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Add file(s)...'
|
||||
TabOrder = 7
|
||||
OnClick = AppFilesAddButtonClick
|
||||
@ -1173,6 +1210,7 @@ object WizardForm: TWizardForm
|
||||
Top = 175
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Edit...'
|
||||
TabOrder = 9
|
||||
OnClick = AppFilesEditButtonClick
|
||||
@ -1182,6 +1220,7 @@ object WizardForm: TWizardForm
|
||||
Top = 203
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Remo&ve'
|
||||
TabOrder = 10
|
||||
OnClick = AppFilesRemoveButtonClick
|
||||
@ -1191,6 +1230,7 @@ object WizardForm: TWizardForm
|
||||
Top = 28
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 1
|
||||
end
|
||||
object AppExeRunCheck: TCheckBox
|
||||
@ -1198,6 +1238,7 @@ object WizardForm: TWizardForm
|
||||
Top = 56
|
||||
Width = 413
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Allow &user to start the application after Setup has finished'
|
||||
TabOrder = 3
|
||||
end
|
||||
@ -1206,6 +1247,7 @@ object WizardForm: TWizardForm
|
||||
Top = 27
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'B&rowse...'
|
||||
TabOrder = 2
|
||||
OnClick = AppExeButtonClick
|
||||
@ -1215,6 +1257,7 @@ object WizardForm: TWizardForm
|
||||
Top = 147
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Add fol&der...'
|
||||
TabOrder = 8
|
||||
OnClick = AppFilesAddDirButtonClick
|
||||
@ -1224,20 +1267,22 @@ object WizardForm: TWizardForm
|
||||
Top = 76
|
||||
Width = 413
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'The application doe&sn'#39't have a main executable file'
|
||||
TabOrder = 4
|
||||
OnClick = NoAppExeCheckClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'AppIcons'
|
||||
object AppIconsPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object AppGroupNameLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 28
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Application &Start Menu folder name:'
|
||||
FocusControl = AppGroupNameEdit
|
||||
@ -1249,6 +1294,7 @@ object WizardForm: TWizardForm
|
||||
Top = 160
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Other shortcuts to the main executable:'
|
||||
FocusControl = AppDirNameEdit
|
||||
@ -1260,6 +1306,7 @@ object WizardForm: TWizardForm
|
||||
Top = 48
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 2
|
||||
end
|
||||
object NotDisableProgramGroupPageCheck: TCheckBox
|
||||
@ -1267,6 +1314,7 @@ object WizardForm: TWizardForm
|
||||
Top = 76
|
||||
Width = 425
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Allow user to &change the Start Menu folder name'
|
||||
TabOrder = 3
|
||||
OnClick = NotDisableProgramGroupPageCheckClick
|
||||
@ -1276,6 +1324,7 @@ object WizardForm: TWizardForm
|
||||
Top = 96
|
||||
Width = 425
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Allow user to &disable Start Menu folder creation'
|
||||
TabOrder = 4
|
||||
end
|
||||
@ -1284,6 +1333,7 @@ object WizardForm: TWizardForm
|
||||
Top = 180
|
||||
Width = 257
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Allow user to create a deskto&p shortcut'
|
||||
TabOrder = 8
|
||||
OnClick = NotCreateAppDirCheckClick
|
||||
@ -1293,6 +1343,7 @@ object WizardForm: TWizardForm
|
||||
Top = 200
|
||||
Width = 421
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption =
|
||||
'Allow user to create a &Quick Launch shortcut on older versions ' +
|
||||
'of Windows'
|
||||
@ -1304,6 +1355,7 @@ object WizardForm: TWizardForm
|
||||
Top = 136
|
||||
Width = 301
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Create an &Uninstall shortcut in the Start Menu folder'
|
||||
TabOrder = 6
|
||||
end
|
||||
@ -1312,6 +1364,7 @@ object WizardForm: TWizardForm
|
||||
Top = 116
|
||||
Width = 301
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Create an &Internet shortcut in the Start Menu folder'
|
||||
TabOrder = 5
|
||||
end
|
||||
@ -1320,6 +1373,7 @@ object WizardForm: TWizardForm
|
||||
Top = 8
|
||||
Width = 425
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption =
|
||||
'&Create a shortcut to the main executable in the common Start Me' +
|
||||
'nu Programs folder'
|
||||
@ -1327,15 +1381,16 @@ object WizardForm: TWizardForm
|
||||
OnClick = UseCommonProgramsCheckClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'AppDocs'
|
||||
object AppDocsPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object AppLicenseFileLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = '&License file:'
|
||||
FocusControl = AppLicenseFileEdit
|
||||
@ -1347,6 +1402,7 @@ object WizardForm: TWizardForm
|
||||
Top = 56
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = '&Information file shown before installation:'
|
||||
FocusControl = AppInfoBeforeFileEdit
|
||||
@ -1358,6 +1414,7 @@ object WizardForm: TWizardForm
|
||||
Top = 104
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Information file shown &after installation:'
|
||||
FocusControl = AppInfoAfterFileEdit
|
||||
@ -1369,6 +1426,7 @@ object WizardForm: TWizardForm
|
||||
Top = 28
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 1
|
||||
end
|
||||
object AppLicenseFileButton: TButton
|
||||
@ -1376,6 +1434,7 @@ object WizardForm: TWizardForm
|
||||
Top = 27
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'B&rowse...'
|
||||
TabOrder = 2
|
||||
OnClick = FileButtonClick
|
||||
@ -1385,6 +1444,7 @@ object WizardForm: TWizardForm
|
||||
Top = 76
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 4
|
||||
end
|
||||
object AppInfoBeforeFileButton: TButton
|
||||
@ -1392,6 +1452,7 @@ object WizardForm: TWizardForm
|
||||
Top = 75
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Br&owse...'
|
||||
TabOrder = 5
|
||||
OnClick = FileButtonClick
|
||||
@ -1401,6 +1462,7 @@ object WizardForm: TWizardForm
|
||||
Top = 124
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 7
|
||||
end
|
||||
object AppInfoAfterFileButton: TButton
|
||||
@ -1408,20 +1470,22 @@ object WizardForm: TWizardForm
|
||||
Top = 123
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Bro&wse...'
|
||||
TabOrder = 8
|
||||
OnClick = FileButtonClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'PrivilegesRequired'
|
||||
object PrivilegesRequiredPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object PrivilegesRequiredLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Install mode:'
|
||||
FocusControl = AppLicenseFileEdit
|
||||
@ -1431,46 +1495,51 @@ object WizardForm: TWizardForm
|
||||
object PrivilegesRequiredAdminRadioButton: TRadioButton
|
||||
Left = 36
|
||||
Top = 28
|
||||
Width = 255
|
||||
Width = 413
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = '&Aministrative install mode (install for all users)'
|
||||
TabOrder = 1
|
||||
end
|
||||
object PrivilegesRequiredLowestRadioButton: TRadioButton
|
||||
Left = 36
|
||||
Top = 48
|
||||
Width = 311
|
||||
Width = 413
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = '&Non administrative install mode (install for current user only)'
|
||||
TabOrder = 2
|
||||
end
|
||||
object PrivilegesRequiredOverridesAllowedCommandLineCheckbox: TCheckBox
|
||||
Left = 36
|
||||
Top = 68
|
||||
Width = 311
|
||||
Top = 65
|
||||
Width = 413
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Allow user to &override the install mode via the command line'
|
||||
TabOrder = 3
|
||||
end
|
||||
object PrivilegesRequiredOverridesAllowedDialogCheckbox: TCheckBox
|
||||
Left = 36
|
||||
Top = 88
|
||||
Width = 255
|
||||
Width = 413
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Ask the user to &choose the install mode at startup'
|
||||
TabOrder = 4
|
||||
OnClick = PrivilegesRequiredOverridesAllowedDialogCheckboxClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Languages'
|
||||
object LanguagesPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object LanguagesLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = '&Languages:'
|
||||
FocusControl = LanguagesList
|
||||
@ -1482,6 +1551,7 @@ object WizardForm: TWizardForm
|
||||
Top = 28
|
||||
Width = 309
|
||||
Height = 209
|
||||
Anchors = [akLeft, akTop, akRight, akBottom]
|
||||
Offset = 2
|
||||
TabOrder = 1
|
||||
end
|
||||
@ -1490,6 +1560,7 @@ object WizardForm: TWizardForm
|
||||
Top = 27
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Select all'
|
||||
TabOrder = 2
|
||||
OnClick = AllLanguagesButtonClick
|
||||
@ -1499,20 +1570,22 @@ object WizardForm: TWizardForm
|
||||
Top = 55
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = '&Deselect all'
|
||||
TabOrder = 3
|
||||
OnClick = NoLanguagesButtonClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Compiler'
|
||||
object CompilerPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object OutputDirLabel: TNewStaticText
|
||||
Left = 36
|
||||
Top = 8
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Custom compiler output fol&der:'
|
||||
FocusControl = OutputDirEdit
|
||||
@ -1524,6 +1597,7 @@ object WizardForm: TWizardForm
|
||||
Top = 28
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 1
|
||||
end
|
||||
object OutputBaseFileNameLabel: TNewStaticText
|
||||
@ -1531,6 +1605,7 @@ object WizardForm: TWizardForm
|
||||
Top = 56
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Compiler output base &file name:'
|
||||
FocusControl = OutputBaseFileNameEdit
|
||||
@ -1542,6 +1617,7 @@ object WizardForm: TWizardForm
|
||||
Top = 76
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 4
|
||||
end
|
||||
object SetupIconFileLabel: TNewStaticText
|
||||
@ -1549,6 +1625,7 @@ object WizardForm: TWizardForm
|
||||
Top = 104
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Custom Setup &icon file:'
|
||||
FocusControl = SetupIconFileEdit
|
||||
@ -1560,6 +1637,7 @@ object WizardForm: TWizardForm
|
||||
Top = 124
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 6
|
||||
end
|
||||
object PasswordLabel: TNewStaticText
|
||||
@ -1567,6 +1645,7 @@ object WizardForm: TWizardForm
|
||||
Top = 152
|
||||
Width = 413
|
||||
Height = 16
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = 'Setup &password:'
|
||||
FocusControl = PasswordEdit
|
||||
@ -1578,6 +1657,7 @@ object WizardForm: TWizardForm
|
||||
Top = 172
|
||||
Width = 309
|
||||
Height = 21
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
TabOrder = 9
|
||||
OnChange = PasswordEditChange
|
||||
end
|
||||
@ -1586,6 +1666,7 @@ object WizardForm: TWizardForm
|
||||
Top = 123
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'Bro&wse...'
|
||||
TabOrder = 7
|
||||
OnClick = FileButtonClick
|
||||
@ -1595,6 +1676,7 @@ object WizardForm: TWizardForm
|
||||
Top = 200
|
||||
Width = 425
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = 'Use the password to &encrypt the application files'
|
||||
TabOrder = 10
|
||||
OnClick = NotDisableProgramGroupPageCheckClick
|
||||
@ -1604,20 +1686,22 @@ object WizardForm: TWizardForm
|
||||
Top = 27
|
||||
Width = 89
|
||||
Height = 23
|
||||
Anchors = [akTop, akRight]
|
||||
Caption = 'B&rowse...'
|
||||
TabOrder = 2
|
||||
OnClick = OutputDirButtonClick
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'ISPP'
|
||||
object ISPPPage: TNewNotebookPage
|
||||
DesignSize = (
|
||||
485
|
||||
245)
|
||||
object ISPPLabel: TLabel
|
||||
Left = 36
|
||||
Top = 8
|
||||
Width = 425
|
||||
Height = 81
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = '*'
|
||||
WordWrap = True
|
||||
@ -1627,6 +1711,7 @@ object WizardForm: TWizardForm
|
||||
Top = 90
|
||||
Width = 425
|
||||
Height = 17
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
Caption = '*'
|
||||
TabOrder = 0
|
||||
OnClick = NotDisableProgramGroupPageCheckClick
|
||||
@ -1638,14 +1723,19 @@ object WizardForm: TWizardForm
|
||||
Top = 0
|
||||
Width = 497
|
||||
Height = 58
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
BevelOuter = bvNone
|
||||
Color = clWindow
|
||||
TabOrder = 1
|
||||
DesignSize = (
|
||||
497
|
||||
58)
|
||||
object InnerImage: TImage
|
||||
Left = 438
|
||||
Top = 1
|
||||
Width = 55
|
||||
Height = 55
|
||||
Anchors = [akTop, akRight]
|
||||
Picture.Data = {
|
||||
07544269746D61707A060000424D7A0600000000000076000000280000003700
|
||||
0000370000000100040000000000040600000000000000000000100000001000
|
||||
@ -1707,6 +1797,7 @@ object WizardForm: TWizardForm
|
||||
Top = 10
|
||||
Width = 405
|
||||
Height = 13
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = '*'
|
||||
TabOrder = 0
|
||||
@ -1716,6 +1807,7 @@ object WizardForm: TWizardForm
|
||||
Top = 26
|
||||
Width = 389
|
||||
Height = 29
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption = '*'
|
||||
ShowAccelChar = False
|
||||
@ -1724,15 +1816,18 @@ object WizardForm: TWizardForm
|
||||
end
|
||||
end
|
||||
end
|
||||
object TPage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'Finished'
|
||||
object FinishedPage: TNewNotebookPage
|
||||
Color = clWindow
|
||||
ParentColor = False
|
||||
DesignSize = (
|
||||
496
|
||||
314)
|
||||
object FinishedImage: TImage
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 164
|
||||
Height = 314
|
||||
Anchors = [akLeft, akTop, akBottom]
|
||||
Stretch = True
|
||||
end
|
||||
object FinishedLabel: TNewStaticText
|
||||
@ -1740,6 +1835,7 @@ object WizardForm: TWizardForm
|
||||
Top = 16
|
||||
Width = 301
|
||||
Height = 121
|
||||
Anchors = [akLeft, akTop, akRight]
|
||||
AutoSize = False
|
||||
Caption =
|
||||
'You have successfully completed the [name].'#13#13'To close this wizar' +
|
||||
@ -1755,6 +1851,7 @@ object WizardForm: TWizardForm
|
||||
Top = 326
|
||||
Width = 75
|
||||
Height = 23
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = '< &Back'
|
||||
TabOrder = 0
|
||||
OnClick = BackButtonClick
|
||||
@ -1764,6 +1861,7 @@ object WizardForm: TWizardForm
|
||||
Top = 326
|
||||
Width = 75
|
||||
Height = 23
|
||||
Anchors = [akRight, akBottom]
|
||||
Caption = '*'
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
@ -1774,6 +1872,7 @@ object WizardForm: TWizardForm
|
||||
Top = 326
|
||||
Width = 75
|
||||
Height = 23
|
||||
Anchors = [akRight, akBottom]
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
|
||||
@ -2,7 +2,7 @@ unit CompWizard;
|
||||
|
||||
{
|
||||
Inno Setup
|
||||
Copyright (C) 1997-2018 Jordan Russell
|
||||
Copyright (C) 1997-2019 Jordan Russell
|
||||
Portions by Martijn Laan
|
||||
For conditions of distribution and use, see LICENSE.TXT.
|
||||
|
||||
@ -15,7 +15,7 @@ interface
|
||||
|
||||
uses
|
||||
Windows, Forms, Classes, Graphics, StdCtrls, ExtCtrls, Controls, Dialogs,
|
||||
UIStateForm, NewStaticText, DropListBox, NewCheckListBox;
|
||||
UIStateForm, NewStaticText, DropListBox, NewCheckListBox, NewNotebook;
|
||||
|
||||
type
|
||||
TWizardPage = (wpWelcome, wpAppInfo, wpAppDir, wpAppFiles, wpAppIcons,
|
||||
@ -28,8 +28,20 @@ type
|
||||
CancelButton: TButton;
|
||||
NextButton: TButton;
|
||||
BackButton: TButton;
|
||||
Notebook1: TNotebook;
|
||||
Notebook2: TNotebook;
|
||||
OuterNotebook: TNewNotebook;
|
||||
InnerNotebook: TNewNotebook;
|
||||
WelcomePage: TNewNotebookPage;
|
||||
MainPage: TNewNotebookPage;
|
||||
AppInfoPage: TNewNotebookPage;
|
||||
AppDirPage: TNewNotebookPage;
|
||||
AppFilesPage: TNewNotebookPage;
|
||||
AppIconsPage: TNewNotebookPage;
|
||||
AppDocsPage: TNewNotebookPage;
|
||||
PrivilegesRequiredPage: TNewNotebookPage;
|
||||
LanguagesPage: TNewNotebookPage;
|
||||
CompilerPage: TNewNotebookPage;
|
||||
ISPPPage: TNewNotebookPage;
|
||||
FinishedPage: TNewNotebookPage;
|
||||
Bevel: TBevel;
|
||||
WelcomeImage: TImage;
|
||||
WelcomeLabel1: TNewStaticText;
|
||||
@ -276,11 +288,19 @@ begin
|
||||
FLanguages.Insert(0, LanguagesDefaultIsl);
|
||||
|
||||
InitFormFont(Self);
|
||||
if Font.Name = 'Segoe UI' then begin
|
||||
{ See Wizard.pas }
|
||||
for I := 0 to OuterNotebook.PageCount-1 do
|
||||
OuterNotebook.Pages[I].HandleNeeded;
|
||||
for I := 0 to InnerNotebook.PageCount-1 do
|
||||
InnerNotebook.Pages[I].HandleNeeded;
|
||||
ClientWidth := MulDiv(ClientWidth, 105, 100);
|
||||
end;
|
||||
if FontExists('Verdana') then
|
||||
WelcomeLabel1.Font.Name := 'Verdana';
|
||||
|
||||
TNotebookAccess(Notebook1).ParentBackground := False;
|
||||
Notebook1.Color := clWindow;
|
||||
TNotebookAccess(OuterNotebook).ParentBackground := False;
|
||||
OuterNotebook.Color := clWindow;
|
||||
|
||||
MakeBold(PageNameLabel);
|
||||
MakeBold(RequiredLabel1);
|
||||
@ -377,9 +397,9 @@ end;
|
||||
procedure TWizardForm.CurPageChanged;
|
||||
{ Call this whenever the current page is changed }
|
||||
begin
|
||||
Notebook1.PageIndex := NotebookPages[CurPage, 0];
|
||||
OuterNotebook.ActivePage := OuterNotebook.Pages[NotebookPages[CurPage, 0]];
|
||||
if NotebookPages[CurPage, 1] <> -1 then
|
||||
Notebook2.PageIndex := NotebookPages[CurPage, 1];
|
||||
InnerNotebook.ActivePage := InnerNotebook.Pages[NotebookPages[CurPage, 1]];
|
||||
|
||||
{ Set button visibility and captions }
|
||||
BackButton.Visible := not (CurPage = wpWelcome);
|
||||
|
||||
@ -26,6 +26,12 @@ Portions Copyright © 2000-2019 Martijn Laan. All rights reserved.<br />
|
||||
For conditions of distribution and use, see <a href="http://www.jrsoftware.org/files/is/license.txt">LICENSE.TXT</a>.
|
||||
</p>
|
||||
|
||||
<p><a name="6.0.2"></a><span class="ver">6.0.2 </span><span class="date">(?)</span></p>
|
||||
<ul>
|
||||
<li>Added new <tt>{sysnative}</tt> constant.</li>
|
||||
<li>Minor cosmetic fixes.</li>
|
||||
</ul>
|
||||
|
||||
<p><a name="6.0.1"></a><span class="ver">6.0.1-beta </span><span class="date">(2019-03-07)</span></p>
|
||||
<ul>
|
||||
<li><i>Fix:</i> In 6.0.0 it was no longer possible to use [Setup] section directive <tt>InfoAfterFile</tt>.</li>
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user