Improved: Setting the default property of a CommandButton sets or uns…

…ets the DefaultButton property of the parent Form.
XusinboyBekchanov · Aug 16, 2022 · b339138 · b339138
1 parent 31a7061
commit b339138
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/mff/CommandButton.bas b/mff/CommandButton.bas
@@ -92,8 +92,12 @@ Namespace My.Sys.Forms
 			#ifdef __USE_GTK__
 				gtk_widget_set_can_default(widget, Value)
 			#elseif defined(__USE_WINAPI__)
-				'ChangeStyle BS_PUSHLIKE, False
+				ChangeStyle BS_PUSHLIKE, False
 				ChangeStyle BS_DEFPUSHBUTTON, Value
+				Dim As Control Ptr frm = This.GetForm
+				If frm Then
+					frm->FDefaultButton = IIf(Value, @This, 0)
+				End If
 			#endif
 		End If
 	End Property