From 95e0554d98f4123098bf42ecc373c2afa54ed747 Mon Sep 17 00:00:00 2001
From: fredvs <fiens@hotmail.com>
Date: Thu, 9 May 2024 17:34:32 +0200
Subject: [PATCH] Fixes from Sieghard for fontlist.pas and msefiledialogx.pas

---
 lib/common/dialogs/fontlist.pas       | 3 +++
 lib/common/dialogs/msefiledialogx.pas | 8 ++------
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/lib/common/dialogs/fontlist.pas b/lib/common/dialogs/fontlist.pas
index 9cf19288d..b04383fc6 100644
--- a/lib/common/dialogs/fontlist.pas
+++ b/lib/common/dialogs/fontlist.pas
@@ -293,5 +293,8 @@
    UNTIL s = '';
  END;
 
+{$else}
+INTERFACE
+IMPLEMENTATION
 {$endif}
 END.
diff --git a/lib/common/dialogs/msefiledialogx.pas b/lib/common/dialogs/msefiledialogx.pas
index 0ac02fbfa..ec8aed9ca 100644
--- a/lib/common/dialogs/msefiledialogx.pas
+++ b/lib/common/dialogs/msefiledialogx.pas
@@ -2323,8 +2323,7 @@ procedure tfiledialogxfo.oncellev(const Sender: TObject; var info: celleventinfo
 
           if (info.eventkind = cek_buttonrelease) then
           begin
-            if (ss_double in info
-              .mouseeventinfopo^.shiftstate) then
+            if (ss_double in info.mouseeventinfopo^.shiftstate) then
               okonexecute(Sender)
             else
             begin
@@ -3118,11 +3117,8 @@ function tfiledialogxcontroller.Execute (dialogkind: filedialogkindty; const aca
 ////////////////////////////////////
  if assigned (providedform) then begin
    fo:= providedform; fo.setposition (DialogPlacement);
-writeln ('Using provided form');
  end
- else begin fo:= tfiledialogxfo.create ({?nil?}fowner, DialogPlacement);
-writeln ('Using NEW form');
- end;
+ else fo:= tfiledialogxfo.create ({?nil?}fowner, DialogPlacement);
  fwindowrect:= fo.widgetrect;
 ////////////////////////////////////
 // fo:= tfiledialogxfo.create(nil);