Subject Re: WIN 11 Borderless Buttons with Rounded Corners
From Mervyn Bick <invalid@invalid.invalid>
Date Thu, 23 Mar 2023 17:36:55 +0200
Newsgroups dbase.getting-started
Attachment(s) test_round_corner_button1.wfm

On 2023/03/23 17:05, Mervyn Bick wrote:

Oops. Forgot to change all the custom control references.

Try changing the z value in the custom control.  The bigger the actual
pushbutton, the bigger curve can be.

Mervyn.


clear
** END HEADER -- do not remove this line
//
// Generated on 2023-03-23
//
parameter bModal
local f
f = new test_round_corner_button1Form()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class test_round_corner_button1Form of FORM
   set procedure to round_corner_button1.cc additive
   with (this)
      metric = 6        // Pixels
      height = 499.0
      left = 115.0
      top = 5.0
      width = 570.0
      text = "Test round corner buttons"
      systemTheme = true
   endwith

   this.ROUND_CORNER_BUTTON1 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON1)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 276.0
      top = 58.0
      width = 65.0
      text = "1"
      borderStyle = 3        // None
   endwith

   this.ROUND_CORNER_BUTTON2 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON2)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 341.0
      top = 58.0
      width = 65.0
      text = "2"
   endwith

   this.ROUND_CORNER_BUTTON3 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON3)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 406.0
      top = 58.0
      width = 65.0
      text = "3"
   endwith

   this.ROUND_CORNER_BUTTON4 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON4)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 276.0
      top = 122.0
      width = 65.0
      text = "4"
   endwith

   this.ROUND_CORNER_BUTTON5 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON5)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 341.0
      top = 122.0
      width = 65.0
      text = "5"
   endwith

   this.ROUND_CORNER_BUTTON6 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON6)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 406.0
      top = 122.0
      width = 65.0
      text = "6"
   endwith

   this.ROUND_CORNER_BUTTON7 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON7)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 276.0
      top = 187.0
      width = 65.0
      text = "7"
   endwith

   this.ROUND_CORNER_BUTTON8 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON8)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 341.0
      top = 187.0
      width = 65.0
      text = "8"
   endwith

   this.ROUND_CORNER_BUTTON9 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON9)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 406.0
      top = 187.0
      width = 65.0
      text = "9"
   endwith

   this.ROUND_CORNER_BUTTON10 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON10)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 276.0
      top = 252.0
      width = 65.0
      text = "X"
   endwith

   this.ROUND_CORNER_BUTTON11 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON11)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 341.0
      top = 252.0
      width = 65.0
      text = "0"
   endwith

   this.ROUND_CORNER_BUTTON12 = new ROUND_CORNER_BUTTON1(this)
   with (this.ROUND_CORNER_BUTTON12)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 406.0
      top = 252.0
      width = 65.0
      text = "Enter"
      colorNormal = "BtnText/0x966ff2"
   endwith


   function ROUND_CORNER_BUTTON_onClick()
      ? this.text+' clicked'
      return

endclass