applications/build/ja-jp/formdesigner/controls/qradiobutton.ring

   1 /*
   2 **      Project : Form Designer
   3 **      File Purpose :  QRadioButton Control
   4 **      Date : 2017.04.29
   5 **      Author :  Mahmoud Fayed <msfclipper@yahoo.com>
   6 */
   7
   8 package formdesigner
   9
  10 class FormDesigner_QRadioButton from QRadioButton
  11
  12         CreateCommonAttributes()
  13         CreateMoveResizeCornersAttributes()
  14
  15         cclickedEvent = ""
  16         cpressedEvent = ""
  17         creleasedEvent = ""
  18         ctoggledEvent = ""
  19
  20         func SetclickedEventCode cValue
  21                 cclickedEvent = cValue
  22
  23         func clickedEventCode
  24                 return cclickedEvent
  25
  26         func SetpressedEventCode cValue
  27                 cpressedEvent = cValue
  28
  29         func pressedEventCode
  30                 return cpressedEvent
  31
  32         func SetreleasedEventCode cValue
  33                 creleasedEvent = cValue
  34
  35         func releasedEventCode
  36                 return creleasedEvent
  37
  38         func SettoggledEventCode cValue
  39                 ctoggledEvent = cValue
  40
  41         func toggledEventCode
  42                 return ctoggledEvent
  43
  44         func AddObjectProperties  oDesigner
  45                 AddObjectCommonProperties(oDesigner)
  46                 oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_TEXT,False)                        # "Text"
  47                 oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_CLICKEDEVENT,False)                # "clickedEvent"
  48                 oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_PRESSEDEVENT,False)                # "pressedEvent"
  49                 oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_RELEASEDEVENT,False)               # "releasedEvent"
  50                 oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_TOGGLEDEVENT,False)                # "toggledEvent"
  51
  52         func DisplayProperties oDesigner
  53                 DisplayCommonProperties(oDesigner)
  54                 oPropertiesTable = oDesigner.oView.oPropertiesTable
  55                 oPropertiesTable.Blocksignals(True)
  56                 # Set the Text
  57                         oPropertiesTable.item(C_AFTERCOMMON,1).settext(text())
  58                 oPropertiesTable.item(C_AFTERCOMMON+1,1).settext(clickedEventcode())
  59                 oPropertiesTable.item(C_AFTERCOMMON+2,1).settext(pressedEventcode())
  60                 oPropertiesTable.item(C_AFTERCOMMON+3,1).settext(releasedEventcode())
  61                 oPropertiesTable.item(C_AFTERCOMMON+4,1).settext(toggledEventcode())
  62                 oPropertiesTable.Blocksignals(False)
  63
  64         func UpdateProperties oDesigner,nRow,nCol,cValue
  65                 UpdateCommonProperties(oDesigner,nRow,nCol,cValue)
  66                 if nCol = 1 {
  67                         switch nRow {
  68                                 case C_AFTERCOMMON
  69                                         setText(cValue)
  70                                 case C_AFTERCOMMON+1
  71                                         setclickedEventCode(cValue)
  72                                 case C_AFTERCOMMON+2
  73                                         setpressedEventCode(cValue)
  74                                 case C_AFTERCOMMON+3
  75                                         setreleasedEventCode(cValue)
  76                                 case C_AFTERCOMMON+4
  77                                         settoggledEventCode(cValue)
  78
  79                         }
  80                 }
  81
  82         func ObjectDataAsString oDesigner,nTabsCount
  83                 cOutput = ObjectDataAsString2(oDesigner,nTabsCount)
  84                 cTabs = std_copy(char(9),nTabsCount)
  85                 cOutput += "," + nl + cTabs + ' :text =  "' + oDesigner.PrepareStringForFormFile(Text()) + '"'
  86                 cOutput += "," + nl + cTabs + ' :setclickedEvent =  "' + oDesigner.PrepareStringForFormFile(clickedEventCode()) + '"'
  87                 cOutput += "," + nl + cTabs + ' :setpressedEvent =  "' + oDesigner.PrepareStringForFormFile(pressedEventCode()) + '"'
  88                 cOutput += "," + nl + cTabs + ' :setreleasedEvent =  "' + oDesigner.PrepareStringForFormFile(releasedEventCode()) + '"'
  89                 cOutput += "," + nl + cTabs + ' :settoggledEvent =  "' + oDesigner.PrepareStringForFormFile(toggledEventCode()) + '"'
  90                 return cOutput
  91
  92         func GenerateCustomCode oDesigner
  93                 cOutput = 'setText("#{f1}")' + nl
  94                 cOutput = substr(cOutput,"#{f1}",oDesigner.PrepareStringForFormFile(text()))
  95                 cOutput += 'setclickedEvent("#{f1}")' + nl
  96                 cOutput = PrepareEvent(cOutput,clickedEventCode(),"#{f1}")
  97                 cOutput = substr(cOutput,"#{f1}",clickedEventCode())
  98                 cOutput += 'setpressedEvent("#{f1}")' + nl
  99                 cOutput = PrepareEvent(cOutput,pressedEventCode(),"#{f1}")
 100                 cOutput = substr(cOutput,"#{f1}",pressedEventCode())
 101                 cOutput += 'setreleasedEvent("#{f1}")' + nl
 102                 cOutput = PrepareEvent(cOutput,releasedEventCode(),"#{f1}")
 103                 cOutput = substr(cOutput,"#{f1}",releasedEventCode())
 104                 cOutput += 'settoggledEvent("#{f1}")' + nl
 105                 cOutput = PrepareEvent(cOutput,toggledEventCode(),"#{f1}")
 106                 cOutput = substr(cOutput,"#{f1}",toggledEventCode())
 107                 return cOutput
 108
 109         func RestoreProperties oDesigner,Item
 110                 RestoreCommonProperties(oDesigner,item)
 111                 itemdata = item[:data]
 112                 setText(itemdata[:text])
 113                 SetclickedEventCode(itemdata[:setclickedEvent])
 114                 SetpressedEventCode(itemdata[:setpressedEvent])
 115                 SetreleasedEventCode(itemdata[:setreleasedEvent])
 116                 SettoggledEventCode(itemdata[:settoggledEvent])