Fix SCI_SETSTATUS call.

jrsoftware · Jun 14, 2024 · 9b9c829 · 9b9c829
1 parent f066b3d
commit 9b9c829
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/Components/ScintEdit.pas b/Components/ScintEdit.pas
@@ -549,9 +549,10 @@ function TScintEdit.Call(Msg: Cardinal; WParam: Longint; LParam: Longint): Longi
   Result := FDirectStatusFunction(FDirectPtr, Msg, WParam, LParam, ErrorStatus);
 
   if ErrorStatus <> 0 then begin
+    var Dummy: Integer;
+    FDirectStatusFunction(FDirectPtr, SCI_SETSTATUS, 0, 0, Dummy);
     ErrorFmt('Error status %d returned after Call(%u, %d, %d) = %d',
       [ErrorStatus, Msg, WParam, LParam, Result]);
-    FDirectStatusFunction(FDirectPtr, SCI_SETSTATUS, 0, 0, ErrorStatus);
   end;
 end;