Make the OK button the deafault when Enter is pressed

rafaelhlima · Aug 10, 2022 · e026176 · e026176
1 parent 84955ae
commit e026176
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/Source/RemoveBlankCells/RBDlg_Impl.xba b/Source/RemoveBlankCells/RBDlg_Impl.xba
@@ -54,6 +54,9 @@ Sub RBDlg_Show
 		oDlgModel.getByName(&quot;opRemoveColumnsByRow&quot;).Enabled = False
 		oDlgModel.getByName(&quot;labAdvanced&quot;).Enabled = False
 	End If
+	&apos;Sets the OK button as the default button
+	oDlgModel.getByName(&quot;btnOK&quot;).DefaultButton = True
+	oDlgModel.getByName(&quot;btnOK&quot;).PushButtonType = com.sun.star.awt.PushButtonType.STANDARD
 	&apos;Centers de dialog
 	RBMain.CenterDialog(oRBDlg)
 	&apos;Show the dialog
@@ -142,7 +145,7 @@ Sub RBDlg_OK_Click
 		End If
 		&apos;Warn user that this operation may remove existing data
 		bProcede = MsgBox(glb_L10N._(&quot;WarningDeleteRows&quot;) &amp; Chr(13) &amp; glb_L10N._(&quot;WarningProceed&quot;), _
-			MB_YESNO + MB_ICONEXCLAMATION, Title := glb_L10N._(&quot;Warning&quot;)
+			MB_YESNO + MB_ICONEXCLAMATION, Title := glb_L10N._(&quot;Warning&quot;))
 		If bProcede = IDNO Then Exit Sub
 		&apos;Check which mode to run (fast/normal)
 		If bCheckFastMode Then
@@ -168,7 +171,7 @@ Sub RBDlg_OK_Click
 		End If
 		&apos;Warn user that this operation may remove existing data
 		bProcede = MsgBox(glb_L10N._(&quot;WarningDeleteColumns&quot;) &amp; Chr(13) &amp; glb_L10N._(&quot;WarningProceed&quot;), _
-			MB_YESNO + MB_ICONEXCLAMATION, Title := glb_L10N._(&quot;Warning&quot;)
+			MB_YESNO + MB_ICONEXCLAMATION, Title := glb_L10N._(&quot;Warning&quot;))
 		If bProcede = IDNO Then Exit Sub
 		&apos;Check which mode to run (fast/normal)
 		If bCheckFastMode Then

diff --git a/Source/RemoveBlankCells/RBL10n.xba b/Source/RemoveBlankCells/RBL10n.xba
@@ -159,4 +159,4 @@ Sub ShowPathToPO()
 	MsgBox pathToPO
 End Sub
 
-</script:module>
+</script:module>