DEL: Workaround with frmHackForm

src/doublecmd.lpr

@@ -19,11 +19,11 @@ uses
   {$ENDIF}
   uGlobsPaths,
   uGlobs,
-  fHackForm,
   fMain,
   fAbout,
   fMkDir,
   dmHigh, dmHelpManager, dmCommonData,
+  uShowMsg,
   uCryptProc,
   uPixMapManager,
   uKeyboard,
@@ -74,8 +74,6 @@ begin
   DebugLn('   and contributors (see about dialog)');
 
   LoadPaths; // must be first
-  Application.ShowMainForm:= False;
-  Application.CreateForm(TfrmHackForm, frmHackForm);
   if InitGlobs then
     if IsInstanceAllowed then
      begin
@@ -87,6 +85,9 @@ begin
        Application.CreateForm(TdmHelpManager, dmHelpMgr); // help manager
        Application.CreateForm(TfrmMkDir, frmMkDir);  // 21.05.2009 - makedir form
 
+       // Calculate buttons width of message dialogs
+       InitDialogButtonWidth;
+
        // Initializing keyboard module on GTK needs GTKProc.InitKeyboardTables
        // which is called by Application.Initialize. On QT needs the handle
        // of the main form created in Application.CreateForm above.

src/fhackform.lfm

@@ -1,9 +0,0 @@
-object frmHackForm: TfrmHackForm
-  Left = 455
-  Height = 300
-  Top = 236
-  Width = 400
-  Position = poScreenCenter
-  ShowInTaskBar = stNever
-  LCLVersion = '0.9.27'
-end

src/fhackform.pas

@@ -1,30 +0,0 @@
-unit fHackForm;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs; 
-
-type
-
-  { TfrmHackForm }
-
-  TfrmHackForm = class(TForm)
-  private
-    { private declarations }
-  public
-    { public declarations }
-  end; 
-
-var
-  frmHackForm: TfrmHackForm;
-
-implementation
-
-initialization
-  {$I fhackform.lrs}
-
-end.
-

src/uShowMsg.pas

@@ -90,7 +90,7 @@ function ShowInputQuery(Thread: TThread; const ACaption, APrompt: UTF8String; va
 function ShowInputComboBox(const sCaption, sPrompt : UTF8String; slValueList : TStringList; var sValue : UTF8String) : Boolean;
 
 procedure msgLoadLng;
-
+procedure InitDialogButtonWidth;
 
 implementation
 
@@ -477,8 +477,6 @@ begin
 end;
 
 procedure msgLoadLng;
-var
-  I: TMyMsgButton;
 begin
   cLngButton[msmbOK]           := rsDlgButtonOK;
   cLngButton[msmbNo]           := rsDlgButtonNo;
@@ -494,7 +492,12 @@ begin
   cLngButton[msmbAll]          := rsDlgButtonAll;
   cLngButton[msmbRetry]        := rsDlgButtonRetry;
   cLngButton[msmbAbort]        := rsDlgButtonAbort;
+end;
 
+procedure InitDialogButtonWidth;
+var
+  I: TMyMsgButton;
+begin
   for I:= Low(TMyMsgButton) to High(TMyMsgButton) do
   begin
     // A reminder in case someone forgots to assign text.