Fixes from Sieghard for fontlist.pas and msefiledialogx.pas

mse-org · May 9, 2024 · 95e0554 · 95e0554
1 parent e026fb4
commit 95e0554
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 6 deletions.
diff --git 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
@@ -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);