OSDN Git Service

Ring 1.10 以来となる開発環境の日本語ローカライズ版 (評価版) を追加 (ノートパッド、フォームデザイナー、対話型実行環境、ファイルの検索)。
[ring-lang-081/ring.git] / applications / formdesigner / source / common / objectcorners.ring
1 /*
2 **      Project : Form Designer 
3 **      File Purpose :  Object Corners
4 **      Date : 2017.04.29
5 **      Author :  Mahmoud Fayed <msfclipper@yahoo.com>
6 */
7
8 package formdesigner
9
10 class ObjectCorners
11
12         oCorner1 oCorner2 oCorner3 oCorner4
13
14         lCornersCreated = False
15
16         func init oParent
17
18                 lCornersCreated = True
19
20                 oCorner1 = new qPushButton(oParent.ParentWidget()) {
21                         move(oParent.x()-5,oParent.y()-5)
22                         resize(5,5)
23                         setStyleSheet("background-color:black;")
24                         setEnabled(False)
25                         setMouseTracking(False)
26                         show()
27                 }
28
29                 oCorner2 = new qPushButton(oParent.ParentWidget()) {
30                         move(oParent.x()-5,oParent.y()+oParent.height())
31                         resize(5,5)
32                         setStyleSheet("background-color:black;")
33                         setEnabled(False)
34                         setMouseTracking(False)
35                         show()
36                 }
37
38                 oCorner3 = new qPushButton(oParent.ParentWidget()) {
39                         move(oParent.x()+oParent.Width(),oParent.y()-5)
40                         resize(5,5)
41                         setStyleSheet("background-color:black;")
42                         setEnabled(False)
43                         setMouseTracking(False)
44                         show()
45                 }
46
47                 oCorner4 = new qPushButton(oParent.ParentWidget()) {
48                         move(oParent.x()+oParent.width(),oParent.y()+oParent.height())
49                         resize(5,5)
50                         setStyleSheet("background-color:black;")
51                         setEnabled(False)
52                         setMouseTracking(False)
53                         show()
54                 }
55
56         func CheckInit oParent
57                 if lCornersCreated = False {
58                         init(oParent)
59                 }
60
61         func refresh  oParent
62
63                 CheckInit(oParent)
64
65                 oCorner1  {
66                         move(oParent.x()-5,oParent.y()-5)
67                         resize(5,5)
68                 }
69
70                 oCorner2  {
71                         move(oParent.x()-5,oParent.y()+oParent.height())
72                         resize(5,5)
73                 }
74
75                 oCorner3  {
76                         move(oParent.x()+oParent.Width(),oParent.y()-5)
77                         resize(5,5)
78                 }
79
80                 oCorner4 {
81                         move(oParent.x()+oParent.width(),oParent.y()+oParent.height())
82                         resize(5,5)
83                 }
84
85         func show
86                 oCorner1.show()
87                 oCorner2.show()
88                 oCorner3.show()
89                 oCorner4.show()
90
91         func hide
92                 oCorner1.hide()
93                 oCorner2.hide()
94                 oCorner3.hide()
95                 oCorner4.hide()
96
97         func close
98                 oCorner1.close()
99                 oCorner2.close()
100                 oCorner3.close()
101                 oCorner4.close()
102
103         func delete 
104                 oCorner1.delete()
105                 oCorner2.delete()
106                 oCorner3.delete()
107                 oCorner4.delete()