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

class test_round_corner_buttonForm of FORM
   set procedure to round_corner_button.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_BUTTON(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"
   endwith

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

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

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

   this.ROUND_CORNER_BUTTON5 = new ROUND_CORNER_BUTTON(this)
   with (this.ROUND_CORNER_BUTTON5)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 353.0
      top = 131.0
      width = 65.0
      text = "5"
   endwith

   this.ROUND_CORNER_BUTTON6 = new ROUND_CORNER_BUTTON(this)
   with (this.ROUND_CORNER_BUTTON6)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 430.0
      top = 131.0
      width = 65.0
      text = "6"
   endwith

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

   this.ROUND_CORNER_BUTTON8 = new ROUND_CORNER_BUTTON(this)
   with (this.ROUND_CORNER_BUTTON8)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 353.0
      top = 204.0
      width = 65.0
      text = "8"
   endwith

   this.ROUND_CORNER_BUTTON9 = new ROUND_CORNER_BUTTON(this)
   with (this.ROUND_CORNER_BUTTON9)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 430.0
      top = 204.0
      width = 65.0
      text = "9"
   endwith

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

   this.ROUND_CORNER_BUTTON11 = new ROUND_CORNER_BUTTON(this)
   with (this.ROUND_CORNER_BUTTON11)
      onClick = class::ROUND_CORNER_BUTTON_ONCLICK
      height = 65.0
      left = 353.0
      top = 278.0
      width = 65.0
      text = "0"
   endwith

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


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

endclass