Ring 1.10 以来となる開発環境の日本語ローカライズ版 (評価版) を追加 (ノートパッド、フォームデザイナー、対話型実行環境、ファイルの検索)。

[ring-lang-081/ring.git] / applications / build / ja-jp / formdesigner / controls / qdial.ring

diff --git a/applications/build/ja-jp/formdesigner/controls/qdial.ring b/applications/build/ja-jp/formdesigner/controls/qdial.ring
new file mode 100644 (file)
index 0000000..5539da5
--- /dev/null
+++ b/applications/build/ja-jp/formdesigner/controls/qdial.ring
@@ -0,0 +1,129 @@
+/*
+**     Project : Form Designer 
+**     File Purpose :  QDial Control
+**     Date : 2017.04.29
+**     Author :  Mahmoud Fayed <msfclipper@yahoo.com>
+*/
+
+package formdesigner
+
+class FormDesigner_QDial from QDial
+
+       CreateCommonAttributes()
+       CreateMoveResizeCornersAttributes()
+
+       cMinimum = ""
+       cMaximum = ""
+       cRange = ""
+       cValue = ""
+
+       cvalueChangedEvent = ""
+
+       func MinimumValue
+               return cMinimum
+
+       func SetMinimumValue Value
+               cMinimum = Value
+
+       func MaximumValue
+               return cMaximum
+
+       func SetMaximumValue Value
+               cMaximum = Value
+
+       func RangeValue
+               return cRange
+
+       func SetRangeValue Value
+               cRange = Value
+
+       func ValueValue
+               return cValue
+
+       func SetValueValue Value
+               cValue = Value
+
+       func SetvalueChangedEventCode cValue
+               cvalueChangedEvent = cValue
+
+       func valueChangedEventCode
+               return cvalueChangedEvent
+
+       func AddObjectProperties  oDesigner
+               AddObjectCommonProperties(oDesigner)
+               oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_SETMINIMUM,False)                   # "Set Minimum"
+               oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_SETMAXIMUM,False)                   # "Set Maximum"
+               oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_SETRANGE,False)                     # "Set Range"
+               oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_SETVALUE,False)                     # "Set Value"
+               oDesigner.oView.AddProperty(T_FORMDESIGNER_ATTRIBUTE_VALUECHANGEDEVENT,False)            # "valueChangedEvent"
+
+       func DisplayProperties oDesigner
+               DisplayCommonProperties(oDesigner)
+               oPropertiesTable = oDesigner.oView.oPropertiesTable
+               oPropertiesTable.Blocksignals(True)
+               # Minimum, Maximum, Range and Value
+                       oPropertiesTable.item(C_AFTERCOMMON,1).settext(MinimumValue())
+                       oPropertiesTable.item(C_AFTERCOMMON+1,1).settext(MaximumValue())
+                       oPropertiesTable.item(C_AFTERCOMMON+2,1).settext(RangeValue())
+                       oPropertiesTable.item(C_AFTERCOMMON+3,1).settext(ValueValue())
+               oPropertiesTable.item(C_AFTERCOMMON+4,1).settext(valueChangedEventcode())
+               oPropertiesTable.Blocksignals(False)
+
+       func UpdateProperties oDesigner,nRow,nCol,cValue
+               UpdateCommonProperties(oDesigner,nRow,nCol,cValue)
+               if nCol = 1 {
+                       switch nRow {
+                               case C_AFTERCOMMON
+                                       setMinimumValue(cValue)
+                               case C_AFTERCOMMON+1
+                                       setMaximumValue(cValue)
+                               case C_AFTERCOMMON+2
+                                       setRangeValue(cValue)
+                               case C_AFTERCOMMON+3
+                                       setValueValue(cValue)
+                               case C_AFTERCOMMON+4
+                                       setvalueChangedEventCode(cValue)
+                       }
+               }
+
+       func ObjectDataAsString oDesigner,nTabsCount
+               cOutput = ObjectDataAsString2(oDesigner,nTabsCount)
+               cTabs = std_copy(char(9),nTabsCount)
+               cOutput += "," + nl + cTabs + ' :minimum =  "' + oDesigner.PrepareStringForFormFile(MinimumValue())  + '"'
+               cOutput += "," + nl + cTabs + ' :maximum =  "' + oDesigner.PrepareStringForFormFile(MaximumValue())  + '"'
+               cOutput += "," + nl + cTabs + ' :range =  "' + oDesigner.PrepareStringForFormFile(RangeValue())  + '"'
+               cOutput += "," + nl + cTabs + ' :value =  "' + oDesigner.PrepareStringForFormFile(ValueValue())  + '"'
+               cOutput += "," + nl + cTabs + ' :setvalueChangedEvent =  "' + oDesigner.PrepareStringForFormFile(valueChangedEventCode()) + '"'
+               return cOutput
+
+       func GenerateCustomCode oDesigner
+               cOutput = ""
+               if Minimumvalue() != NULL {
+                       cOutput += 'setMinimum(#{f1})' + nl
+                       cOutput = substr(cOutput,"#{f1}",""+MinimumValue())
+               }
+               if Maximumvalue() != NULL {
+                       cOutput += 'setMaximum(#{f1})' + nl
+                       cOutput = substr(cOutput,"#{f1}",""+MaximumValue())
+               }
+               if Rangevalue() != NULL {
+                       cOutput += 'setRange(#{f1})' + nl
+                       cOutput = substr(cOutput,"#{f1}",""+RangeValue())
+               }
+               if ValueValue() != NULL {
+                       cOutput += 'setValue(#{f1})' + nl
+                       cOutput = substr(cOutput,"#{f1}",""+ValueValue())
+               }
+               cOutput += 'setvalueChangedEvent("#{f1}")' + nl
+               cOutput = PrepareEvent(cOutput,valueChangedEventCode(),"#{f1}")
+               cOutput = substr(cOutput,"#{f1}",valueChangedEventCode())
+               return cOutput
+
+       func RestoreProperties oDesigner,Item
+               RestoreCommonProperties(oDesigner,item)
+               itemdata = item[:data]
+               setMinimumValue(itemdata[:minimum])
+               setMaximumValue(itemdata[:maximum])
+               setRangeValue(itemdata[:range])
+               setValueValue(itemdata[:value])
+               SetvalueChangedEventCode(itemdata[:setvalueChangedEvent])