Cleanup.

jrsoftware · Jun 14, 2024 · bdc5fb1 · bdc5fb1
1 parent 97fbeca
commit bdc5fb1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/Components/ScintEdit.pas b/Components/ScintEdit.pas
@@ -693,7 +693,7 @@ procedure TScintEdit.CreateWnd;
   FDirectPtr := Pointer(SendMessage(Handle, SCI_GETDIRECTPOINTER, 0, 0));
   if FDirectPtr = nil then
     Error('CreateWnd: FDirectPtr is nil');
-  FDirectStatusFunction := SciFnDirectStatus(SendMessage(Handle, SCI_GETDIRECTSTATUSFUNCTION, WPARAM(FDirectPtr), 0));
+  FDirectStatusFunction := SciFnDirectStatus(SendMessage(Handle, SCI_GETDIRECTSTATUSFUNCTION, 0, 0));
   if not Assigned(FDirectStatusFunction) then
     Error('CreateWnd: FDirectStatusFunction is nil');
   UpdateCodePage;