8
0
mirror of https://github.com/FirebirdSQL/firebird.git synced 2025-01-22 18:43:02 +01:00

White space; spelling; misc

This commit is contained in:
Paul Reeves 2024-06-21 11:35:05 +02:00
parent 8de93af965
commit 55614892cb
4 changed files with 114 additions and 105 deletions

View File

@ -30,15 +30,15 @@
o EnumerateObjectList; o EnumerateObjectList;
- Simple demonstration of object enumeration. - Simple demonstration of object enumeration.
o Show Help o Show Help
- CreateHelpDlg; - CreateHelpDlg;
- ShowHelpDlg: Integer; - ShowHelpDlg: Integer;
- CloseHelpDlg; - CloseHelpDlg;
o Show some debug info for debugging inno setup script o Show some debug info for debugging inno setup script
- CreateDebugDlg - CreateDebugDlg
- CloseDebugDlg; - CloseDebugDlg;
- ShowDebugDlg - ShowDebugDlg
*) *)
@ -49,9 +49,9 @@ var
CompGroupButtonsArray: array of string; CompGroupButtonsArray: array of string;
CompGroup1, CompGroup2, CompGroup3, CompGroupButtons: TStringList; CompGroup1, CompGroup2, CompGroup3, CompGroupButtons: TStringList;
// This is a non-exhaustive list of components that need to be repositioned // This is a non-exhaustive list of components that need to be repositioned
// and/or resized if the form size is changed. Use EnumerateObjectList to // and/or resized if the form size is changed. Use EnumerateObjectList to
// get a full list of components. // get a full list of components.
procedure SetupWizardFormComponentsArrays; procedure SetupWizardFormComponentsArrays;
var var
i: integer; i: integer;
@ -85,51 +85,51 @@ begin
CompGroup1Array[23]:='OuterNotebook'; CompGroup1Array[23]:='OuterNotebook';
CompGroup1 := TStringList.create; CompGroup1 := TStringList.create;
for i := 0 to GetArrayLength( CompGroup1Array )-1 do begin for i := 0 to GetArrayLength( CompGroup1Array )-1 do begin
CompGroup1.add( CompGroup1Array[i] ); CompGroup1.add( CompGroup1Array[i] );
CompGroup1.objects[i] := (WizardForm.FindComponent(CompGroup1Array[i])); CompGroup1.objects[i] := (WizardForm.FindComponent(CompGroup1Array[i]));
end; end;
SetArrayLength(CompGroup2Array,8); SetArrayLength(CompGroup2Array,8);
CompGroup2Array[0] := 'Bevel'; CompGroup2Array[0] := 'Bevel';
CompGroup2Array[1] := 'BeveledLabel'; CompGroup2Array[1] := 'BeveledLabel';
CompGroup2Array[2] := 'LicenseAcceptedRadio'; CompGroup2Array[2] := 'LicenseAcceptedRadio';
CompGroup2Array[3] := 'LicenseNotAcceptedRadio'; CompGroup2Array[3] := 'LicenseNotAcceptedRadio';
CompGroup2Array[4] := 'DiskSpaceLabel'; CompGroup2Array[4] := 'DiskSpaceLabel';
CompGroup2Array[5] := 'ComponentsDiskSpaceLabel'; CompGroup2Array[5] := 'ComponentsDiskSpaceLabel';
CompGroup2Array[6] := 'NoIconsCheck'; CompGroup2Array[6] := 'NoIconsCheck';
CompGroup2Array[7] := 'RunList'; CompGroup2Array[7] := 'RunList';
CompGroup2 := TStringList.create; CompGroup2 := TStringList.create;
for i := 0 to GetArrayLength( CompGroup2Array )-1 do begin for i := 0 to GetArrayLength( CompGroup2Array )-1 do begin
CompGroup2.add(CompGroup2Array[i]); CompGroup2.add(CompGroup2Array[i]);
CompGroup2.objects[i] := (WizardForm.FindComponent(CompGroup2Array[i])); CompGroup2.objects[i] := (WizardForm.FindComponent(CompGroup2Array[i]));
end; end;
SetArrayLength(CompGroup3Array,1); SetArrayLength(CompGroup3Array,1);
CompGroup3Array[0] := 'WizardBitmapImage'; CompGroup3Array[0] := 'WizardBitmapImage';
CompGroup3 := TStringList.create; CompGroup3 := TStringList.create;
for i:=0 to GetArrayLength(CompGroup3Array)-1 do begin for i:=0 to GetArrayLength(CompGroup3Array)-1 do begin
CompGroup3.add(CompGroup3Array[i]); CompGroup3.add(CompGroup3Array[i]);
CompGroup3.objects[i] := (WizardForm.FindComponent(CompGroup3Array[i])); CompGroup3.objects[i] := (WizardForm.FindComponent(CompGroup3Array[i]));
end; end;
SetArrayLength(CompGroupButtonsArray,3); SetArrayLength(CompGroupButtonsArray,3);
CompGroupButtonsArray[0] := 'BackButton'; CompGroupButtonsArray[0] := 'BackButton';
CompGroupButtonsArray[1] := 'NextButton'; CompGroupButtonsArray[1] := 'NextButton';
CompGroupButtonsArray[2] := 'CancelButton'; CompGroupButtonsArray[2] := 'CancelButton';
CompGroupButtons := TStringList.create; CompGroupButtons := TStringList.create;
for i:=0 to GetArrayLength(CompGroupButtonsArray)-1 do begin for i:=0 to GetArrayLength(CompGroupButtonsArray)-1 do begin
CompGroupButtons.add(CompGroupButtonsArray[i]); CompGroupButtons.add(CompGroupButtonsArray[i]);
CompGroupButtons.objects[i] := (WizardForm.FindComponent(CompGroupButtonsArray[i])); CompGroupButtons.objects[i] := (WizardForm.FindComponent(CompGroupButtonsArray[i]));
end; end;
end; end;
procedure ResizeWizardFormHeight(AValue: Integer); procedure ResizeWizardFormHeight(AValue: Integer);
var var
i: integer; i: integer;
begin begin
wizardform.height := wizardform.height+AValue; wizardform.height := wizardform.height+AValue;
wizardform.top := wizardform.top - (AValue div 2); wizardform.top := wizardform.top - (AValue div 2);
@ -139,33 +139,33 @@ begin
TControl(CompGroup1.objects[i]).height := TControl(CompGroup1.objects[i]).height + Avalue; TControl(CompGroup1.objects[i]).height := TControl(CompGroup1.objects[i]).height + Avalue;
// Group 2 - reset top of components // Group 2 - reset top of components
for i:=0 to GetArrayLength(CompGroup2Array)-1 do for i:=0 to GetArrayLength(CompGroup2Array)-1 do
TControl(CompGroup2.objects[i]).top := TControl(CompGroup2.objects[i]).top + AValue; TControl(CompGroup2.objects[i]).top := TControl(CompGroup2.objects[i]).top + AValue;
// Group 3 - reset top of components but keep 'centered' vertically. // Group 3 - reset top of components but keep 'centered' vertically.
for i:=0 to GetArrayLength(CompGroup3Array)-1 do for i:=0 to GetArrayLength(CompGroup3Array)-1 do
TControl( CompGroup3.objects[i]).top := TControl(CompGroup3.objects[i]).top + (AValue div 2); TControl( CompGroup3.objects[i]).top := TControl(CompGroup3.objects[i]).top + (AValue div 2);
// Group Buttons - reset top of components // Group Buttons - reset top of components
for i:=0 to GetArrayLength(CompGroupButtonsArray)-1 do for i:=0 to GetArrayLength(CompGroupButtonsArray)-1 do
TControl(CompGroupButtons.objects[i]).top := TControl(CompGroupButtons.objects[i]).top + AValue; TControl(CompGroupButtons.objects[i]).top := TControl(CompGroupButtons.objects[i]).top + AValue;
end; end;
// This needs more work. for now it is not used by the installer. // This needs more work. for now it is not used by the installer.
procedure ResizeWizardFormWidth(AValue: Integer); procedure ResizeWizardFormWidth(AValue: Integer);
var var
i: integer; i: integer;
begin begin
wizardform.width := wizardform.width + AValue; wizardform.width := wizardform.width + AValue;
wizardform.left := wizardform.left - (AValue div 2); wizardform.left := wizardform.left - (AValue div 2);
// Group 1 - reset width of components // Group 1 - reset width of components
for i:=0 to GetArrayLength(CompGroup1Array)-1 do begin for i:=0 to GetArrayLength(CompGroup1Array)-1 do begin
TControl(CompGroup1.objects[i]).width := TControl(CompGroup1.objects[i]).width + Avalue; TControl(CompGroup1.objects[i]).width := TControl(CompGroup1.objects[i]).width + Avalue;
// TControl(CompGroup1.objects[i]).left := TControl(CompGroup1.objects[i]).left + (Avalue div 2); // TControl(CompGroup1.objects[i]).left := TControl(CompGroup1.objects[i]).left + (Avalue div 2);
end; end;
// Group 2 - reset left of components // Group 2 - reset left of components
for i:=0 to GetArrayLength(CompGroup2Array)-1 do begin for i:=0 to GetArrayLength(CompGroup2Array)-1 do begin
@ -286,18 +286,18 @@ function ShowHelpDlg: Integer;
begin begin
CreateHelpDlg; CreateHelpDlg;
result := HelpDlg.ShowModal; result := HelpDlg.ShowModal;
CloseHelpDlg; CloseHelpDlg;
end; end;
// Add a simple debug dialogue // Add a simple debug dialogue
var var
DebugDlg: TForm; DebugDlg: TForm;
procedure CreateDebugDlg(aString: String; ADescription: String); procedure CreateDebugDlg(aString: String; ADescription: String);
var var
DebugText: TMemo; DebugText: TMemo;
// DebugDescription: TLabel; // DebugDescription: TLabel;
OKButton: TButton; OKButton: TButton;
begin begin
DebugDlg := TForm.create(nil); DebugDlg := TForm.create(nil);
@ -328,8 +328,8 @@ begin
DebugDlg.ActiveControl := OKButton; DebugDlg.ActiveControl := OKButton;
end; end;
procedure CloseDebugDlg; procedure CloseDebugDlg;
begin begin
with DebugDlg do begin with DebugDlg do begin
@ -341,8 +341,8 @@ end;
function ShowDebugDlg(aString: String; aDescription: String): Integer; function ShowDebugDlg(aString: String; aDescription: String): Integer;
begin begin
CreateDebugDlg(aString,aDescription); CreateDebugDlg(aString,aDescription);
result := DebugDlg.ShowModal; result := DebugDlg.ShowModal;
CloseDebugDlg; CloseDebugDlg;
end; end;

View File

@ -17,7 +17,7 @@
Helper functions for FB installer Helper functions for FB installer
These are / ought to be fairly generic These are / ought to be fairly generic
It makes more sense if they are independent functions - ie, they don't It makes more sense if they are independant functions - ie, they don't
call other functions in the script and they don't need to know about the call other functions in the script and they don't need to know about the
install script itself. install script itself.

View File

@ -40,10 +40,10 @@ See the UNINSTALL section below for more info on this.
Installation of the Guardian Installation of the Guardian
---------------------------- ----------------------------
We are hoping to phase out the Guardian. It doesn't We are hoping to phase out the Guardian. It doesn't
work with the Classic server and the binary installer work with the Classic server and the binary installer
does not offer it at install time if Classic is does not offer it at install time if Classic is
chosen. If SuperServer or SuperClassic are chosen chosen. If SuperServer or SuperClassic are chosen
it is offered but not selected by default. it is offered but not selected by default.
@ -74,16 +74,23 @@ o The service installer (instsvc) uses the same
installations. This is by design. Services exist installations. This is by design. Services exist
in a single name space. in a single name space.
o Be sure to install as an administrator. ie, if o Be sure to install as an administrator. ie, if
using the binary installer right click and choose using the binary installer right click and choose
'Run as administrator'. Otherwise the installer 'Run as administrator'. Otherwise the installer
may be unable to start the Firebird service at may be unable to start the Firebird service at
the end of installation. the end of installation.
o Libraries deployed by instclient may fail to load if o Installation may fail on older versions of windows up
the MS runtime libraries have not been installed. to Win 8.1 and Windows Server 2008 if the most recent
This may be a problem if installing on older Windows security updates have not been installed. This will
platforms. also affect users of the zip packs as the problem
lies with runtime library dependencies of
applications such as instclient and instsvc.
If you do run into this problem you should consult
the microsoft knowledge base article KB2999226 for more
information on how to upgrade your version of windows
to use the latest run time libraries.
Uninstallation Uninstallation

View File

@ -14,14 +14,15 @@ General notes on preparing a scripted install
--------------------------------------------- ---------------------------------------------
These notes only document the firebird specific options for a scripted These notes only document the firebird specific options for a scripted
installation. Developers should refer to the full InnoSetup documentation installation. Developers should refer to the full InnoSetup documentation
for a description of the other options available for a scripted install. for a description of the other options available for a scripted install.
This can be found here: This can be found here:
http://www.jrsoftware.org/ishelp/ http://www.jrsoftware.org/ishelp/
It is highly recommended that a scripted install is tested thoroughly It is highly recommended that a scripted install is tested thoroughly
before deployment. The easiest way to test is to run the script without before deployment. The easiest way to test is to run the script without
the /SILENT parameter. This will present a standard installer with the the /SILENT parameter. This will present a standard installer with the
scripted options preselected. scripted options preselected.
NOTE that the /TASKS parameter clears all the default task settings. If NOTE that the /TASKS parameter clears all the default task settings. If
@ -44,7 +45,7 @@ HELP
Setup parameters specific to the Firebird Uninstaller Setup parameters specific to the Firebird Uninstaller
/CLEAN /CLEAN
For general parameters available to all InnoSetup based installers see the For general parameters available to all InnoSetup based installers see the
documentation for innosetup. A summary is available via /? or /HELP documentation for innosetup. A summary is available via /? or /HELP
@ -53,10 +54,10 @@ Parameters specific to Firebird installs
HELP HELP
Invoke this file as a help screen at installation time. Invoke this file as a help screen at installation time.
Note no / is prefixed !! Because /? and /HELP are now Note no / is prefixed !! Because /? and /HELP are now
used by innosetup itself to dispaly innosetup specific help. used by innosetup itself to display innosetup specific help.
/COMPONENTS="comma separated list of component names" /COMPONENTS="comma separated list of component names"
Choose from - ServerComponent, Choose from - ServerComponent,
@ -67,31 +68,31 @@ HELP
parameter causes Setup to automatically select a custom type. A full parameter causes Setup to automatically select a custom type. A full
install requires combining components. For example: install requires combining components. For example:
/COMPONENTS="ClientComponent" /COMPONENTS="ClientComponent"
would be required for a client only install. would be required for a client only install.
NOTE - If a full server instal is required there is no need to NOTE - If a full server install is required there is no need to
specify /COMPONENTS. All three are chosen by default. specify /COMPONENTS. All three are chosen by default.
/TASKS="comma separated list of task names" /TASKS="comma separated list of task names"
Specifies a list of tasks that should be initially selected or Specifies a list of tasks that should be initially selected or
deselected. To deselect a task, prefix its name with a "!" character. deselected. To deselect a task, prefix its name with a "!" character.
Choose from - UseSuperServerTask Choose from - UseSuperServerTask
UseSuperServerTask\UseGuardianTask (optional) UseSuperServerTask\UseGuardianTask (optional)
or or
UseSuperClassicTask UseSuperClassicTask
UseSuperClassicTask\UseGuardianTask (optional) UseSuperClassicTask\UseGuardianTask (optional)
or or
UseClassicServerTask UseClassicServerTask
UseApplicationTask UseApplicationTask
or or
UseServiceTask UseServiceTask
AutoStartTask AutoStartTask
CopyFbClientToSysTask CopyFbClientToSysTask
CopyFbClientAsGds32Task CopyFbClientAsGds32Task
@ -103,7 +104,8 @@ HELP
By default the following tasks are run: By default the following tasks are run:
UseSuperServerTask,UseServiceTask,AutoStartTask,CopyFbClientToSysTask UseSuperServerTask,UseServiceTask,AutoStartTask,CopyFbClientToSysTask
/MERGETASKS="comma separated list of task names" /MERGETASKS="comma separated list of task names"
@ -118,8 +120,8 @@ HELP
/SYSDBAPASSWORD="mypassword" /SYSDBAPASSWORD="mypassword"
If supplied this will override the default SYSDBA password "masterkey". If supplied this will override the default SYSDBA password "masterkey".
NOTE: If an existing Security database is found this parameter will be NOTE: If an existing Security database is found this parameter will be
ignored. ignored.
@ -134,8 +136,8 @@ HELP
users by breaking a perfectly good working install of Firebird or InterBase. users by breaking a perfectly good working install of Firebird or InterBase.
Its your choice. Its your choice.
Parameters specific to Firebird uninstalls Parameters specific to Firebird uninstalls
------------------------------------------ ------------------------------------------
@ -159,26 +161,26 @@ Parameters specific to Firebird uninstalls
Examples Examples
-------- --------
These examples are just for firebird related options. In practice you These examples are just for firebird related options. In practice you
they will probably be combined with options such as /SILENT, /LOG, they will probably be combined with options such as /SILENT, /LOG,
/RESTARTEXITCODE etc. /RESTARTEXITCODE etc.
1/ Full server install of super server architecture 1/ Full server install of super server architecture
o Change SYSDBA password from default masterkey, o Change SYSDBA password from default masterkey,
o deploy gds32 to <SYS> o deploy gds32 to <SYS>
/MERGETASKS="CopyFbClientAsGds32Task" /SYSDBAPASSWORD="mypassword" /MERGETASKS="CopyFbClientAsGds32Task" /SYSDBAPASSWORD="mypassword"
2/ Deploy Classic Server and keep other default tasks 2/ Deploy Classic Server and keep other default tasks
/MERGETASKS="UseClassicServerTask" /MERGETASKS="UseClassicServerTask"
3/ Really mess things up by accidentally deselecting the defaults and 3/ Really mess things up by accidentally deselecting the defaults and
letting InnoSetup guess: letting InnoSetup guess:
/TASKS="CopyFbClientAsGds32Task" /TASKS="CopyFbClientAsGds32Task"
Be careful when using the /TASKS parameter ! Be careful when using the /TASKS parameter !