** END HEADER -- do not remove this line
//
// Generated on 2019-02-17
//
parameter bModal
local f
f = new flat_buttonForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class flat_buttonForm of FORM
   with (this)
      onOpen = class::FORM_ONOPEN
      height = 16.0
      left = 52.5714
      top = 1.1364
      width = 40.0
      text = ""
      systemTheme = true
   endwith

   this.PUSHBUTTON1 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON1)
      onClick = class::PUSHBUTTON1_ONCLICK
      systemTheme = false
      height = 1.0909
      left = 12.0
      top = 1.0
      width = 15.2857
      text = ""
      borderStyle = 4	// Single
   endwith

   this.PUSHBUTTON2 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON2)
      onClick = class::PUSHBUTTON2_ONCLICK
      systemTheme = false
      height = 1.0909
      left = 12.0
      top = 4.5
      width = 15.2857
      text = ""
      speedBar = true
      borderStyle = 4	// Single
   endwith

   this.PUSHBUTTON3 = new PUSHBUTTON(this)
   with (this.PUSHBUTTON3)
      height = 1.0909
      left = 12.0
      top = 8.0
      width = 15.2857
      text = "Pushbutton3"
   endwith

   this.RADIOBUTTON1 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON1)
      onChange = class::RADIOBUTTON1_ONCHANGE
      height = 1.0909
      left = 12.0
      top = 11.5
      width = 15.7143
      text = "Show borders"
      group = true
      value = true
   endwith

   this.RADIOBUTTON2 = new RADIOBUTTON(this)
   with (this.RADIOBUTTON2)
      height = 1.0909
      left = 12.0
      top = 14.0
      width = 15.7143
      text = "Hide borders"
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 1.0
      left = 8.0
      top = 1.0909
      width = 3.0
      text = "*"
      fontSize = 14.0
      alignHorizontal = 2	// Right
   endwith

   this.TEXTLABEL2 = new TEXTLABEL(this)
   with (this.TEXTLABEL2)
      height = 1.0
      left = 8.0
      top = 4.5
      width = 3.0
      text = "*"
      fontSize = 14.0
      alignHorizontal = 2	// Right
   endwith

   this.TEXTLABEL3 = new TEXTLABEL(this)
   with (this.TEXTLABEL3)
      height = 1.0
      left = 28.0
      top = 1.0909
      width = 12.0
      text = "*"
      fontSize = 14.0
   endwith

   this.TEXTLABEL4 = new TEXTLABEL(this)
   with (this.TEXTLABEL4)
      height = 1.0
      left = 28.0
      top = 4.5
      width = 12.0
      text = "*"
      fontSize = 14.0
   endwith


   function PUSHBUTTON1_onClick()
      ? 'PB1 clicked'
      return

   function PUSHBUTTON2_onClick()
      ? 'PB2 clicked'
      return

   function RADIOBUTTON1_onChange()
      if this.value = true
         form.pushbutton1.borderStyle = 4
         form.pushbutton2.borderStyle = 4
      else
         form.pushbutton1.borderStyle = 3
         form.pushbutton2.borderStyle = 3
      endif   
      return

   function form_onOpen()
      if type("SendMessageA") # "FP"
         extern clong SendMessageA(chandle, cint, cword, clong) user32 
      endif 
      #define TB_MARKBUTTON 0x406
      #define TB_BUTTON_IDENTIFIER 0x10
      #define TB_FALSE 0
      #define TB_TRUE 1      
      SendMessageA(this.pushbutton1.hWnd,TB_MARKBUTTON,TB_BUTTON_IDENTIFIER,TB_FALSE)
      SendMessageA(this.pushbutton2.hWnd,TB_MARKBUTTON,TB_BUTTON_IDENTIFIER,TB_FALSE)
      clear
      return

endclass