[GExperts-Checkins] SF.net SVN: gexperts:[4281] trunk/Source/IDE/GX_Ide ManagedForm.pas

[<aka...@us...>]

Revision: 4281
          http://sourceforge.net/p/gexperts/code/4281
Author:   akalwahome
Date:     2024-07-06 19:48:54 +0000 (Sat, 06 Jul 2024)
Log Message:
-----------
SizeGrip defaults to the form.

Modified Paths:
--------------
    trunk/Source/IDE/GX_IdeManagedForm.pas

Modified: trunk/Source/IDE/GX_IdeManagedForm.pas
===================================================================
--- trunk/Source/IDE/GX_IdeManagedForm.pas	2024-07-06 19:48:10 UTC (rev 4280)
+++ trunk/Source/IDE/GX_IdeManagedForm.pas	2024-07-06 19:48:54 UTC (rev 4281)
@@ -317,6 +317,8 @@
     C := FForm.FindComponent('CancelButton');
     if C is TButton then
       Target := TButton(C).Parent;
+    if not Assigned(Target) then
+      Target := FForm;
     if Assigned(Target) then
       GxSetWindowSizeGrip(Target.Handle, True);
   end;

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.