Font scaling fuckery

This commit is contained in:
2022-07-22 00:25:52 +00:00
parent 2d736d20b0
commit c9799d26e6
8 changed files with 48 additions and 39 deletions

View File

@@ -28,8 +28,8 @@ UninstallDisplayIcon={app}\logo.ico
Compression=lzma
SolidCompression=yes
WizardStyle=modern
ArchitecturesInstallIn64BitMode=x64
ArchitecturesAllowed=x64
;ArchitecturesInstallIn64BitMode=x64
;ArchitecturesAllowed=x64
@@ -54,8 +54,8 @@ function CheckForQBFC(): Boolean;
begin
if not QBFCChecked then begin
QBFCCheckResult := True;
if not FileExists(ExpandConstant('{commoncf64}\Intuit\QuickBooks\QbFC14.dll')) then begin
QBFCCheckResult := MsgBox('QBFC14 does not appear to have been installed as required prior to QBI.' #13#13 'File: ' + ExpandConstant('{commoncf64}\Intuit\QuickBooks\qbfc14.dll') + ' was not found.'#13#13'Do you want to install QBI anyway?', mbConfirmation, MB_YESNO) = idYes;
if not FileExists(ExpandConstant('{commoncf32}\Intuit\QuickBooks\QBFC14.dll')) then begin
QBFCCheckResult := MsgBox('QBFC14 does not appear to have been installed as required prior to QBI.' #13#13 'File: ' + ExpandConstant('{commoncf32}\Intuit\QuickBooks\QBFC14.dll') + ' was not found.'#13#13'Do you want to install QBI anyway?', mbConfirmation, MB_YESNO) = idYes;
if not QBFCCheckResult then begin
WizardForm.CancelButton.OnClick(WizardForm.CancelButton);
end;