SwtControl: If no element is attached, set state as "none"

Avoids accidental crashes.
dss-extensions · Oct 11, 2023 · 4345740 · 4345740
1 parent 694f5dd
commit 4345740
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/Controls/SwtControl.pas b/src/Controls/SwtControl.pas
@@ -123,6 +123,12 @@ function GetState(Obj: TObj): Integer;
 begin
     with Obj do
     begin
+        if ControlledElement = NIL then
+        begin
+            // If no element is attached, return CTRL_NONE to indicate we cannot tell the state            
+            Result := ord(CTRL_NONE);
+            Exit;
+        end;
         ControlledElement.ActiveTerminalIdx := ElementTerminal;
         if ControlledElement.Closed[0] then
             Result := ord(CTRL_CLOSE)