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

[ring-lang-081/ring.git] / applications / formdesigner / source / windowflags / windowflagsController.ring

diff --git a/applications/formdesigner/source/windowflags/windowflagsController.ring b/applications/formdesigner/source/windowflags/windowflagsController.ring
new file mode 100644 (file)
index 0000000..a34f7ca
--- /dev/null
+++ b/applications/formdesigner/source/windowflags/windowflagsController.ring
@@ -0,0 +1,83 @@
+/*
+**     Project : Form Designer 
+**     File Purpose :  Window Flags Window
+**     Date : 2017.04.27
+**     Author :  Mahmoud Fayed <msfclipper@yahoo.com>
+*/
+
+load "windowflagsView.ring"
+
+if IsMainSourceFile() { 
+       new qApp {
+               StyleFusion()
+               open_window(:windowflagsController)
+               exec()
+       }
+}
+
+class windowflagscontroller from windowsControllerParent
+
+       oView = new windowflagsView {
+               win.setwindowflags(Qt_CustomizeWindowHint | Qt_WindowTitleHint | Qt_WindowStaysOnTopHint )
+               ListHints.setselectionmode(QAbstractItemView_MultiSelection)
+               win.setwindowmodality(2)
+       }
+
+       aTypeList = [ "Qt_Window"  , "Qt_dialog"  , "Qt_sheet"  ,
+                       "Qt_Drawer"  , "Qt_popup"  , "Qt_Tool"  , "Qt_ToolTip"  ,
+                       "Qt_SplashScreen"  ]
+
+       aHintsList = ["Qt_WindowTitleHint"  ,
+                       "Qt_WindowSystemMenuHint"  ,
+                       "Qt_WindowMinimizeButtonHint"  ,
+                       "Qt_WindowMaximizeButtonHint"  ,
+                       "Qt_WindowCloseButtonHint" ,
+                       "Qt_WindowContextHelpButtonHint"  ,
+                       "Qt_WindowShadeButtonHint" ,
+                       "Qt_WindowStaysOnTopHint"  ,
+                       "Qt_WindowStaysOnBottomHint"  ,
+                       "Qt_CustomizeWindowHint" ]
+
+       cFlags = ""     # The window output
+
+       nPropertyIndex = 6
+
+       func LoadSelectedItems
+               oPropertiesTable = parent().oView.oPropertiesTable
+               cItems = oPropertiesTable.item(nPropertyIndex,1).Text()
+               aItems = split(cItems,"|")
+               for item in aItems {
+                       item = trim(item)       
+                       nPos = find(aTypeList,item)
+                       if nPos {
+                               oView.ListType.item(nPos).setSelected(True)
+                               loop 
+                       }       
+                       nPos = find(aHintsList,item)
+                       if nPos {
+                               oView.ListHints.item(nPos).setSelected(True)
+                               loop 
+                       }                                       
+               }
+
+       func OkAction
+               cFlags = ""
+               nType = oView.ListType.currentrow() 
+               cFlags += aTypeList[nType]
+               for x = 1 to len(aHintsList) {
+                       if oView.ListHints.item(x).isSelected() {
+                               cFlags += " | " + aHintsList[x]
+                       }
+               }
+               if isParent() {
+                       oPropertiesTable = parent().oView.oPropertiesTable
+                       # Set the Window Flags
+                               oPropertiesTable.Blocksignals(True)
+                               oPropertiesTable.item(nPropertyIndex,1).settext(cFlags)
+                               oPropertiesTable.Blocksignals(False)
+                       parent().oModel.FormObject().setWindowFlagsValue(cFlags)
+               }
+               oView.Close()
+
+       func CancelAction
+               oView.Close()