1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
| ' Gambas class file
'Autheur: Fabien Bodard
'Tutoriel d'aide a l'utilisation de structures d'objets.
PRIVATE $aShapes AS NEW CShape[] ''Tableau de stockage des objets
''Variable stockant l'action en cour
''0 = Selection
''1 = Ligne
''2 = Rectangle
''3 = Ellipse
PRIVATE $iCurMode AS INTEGER
PRIVATE $bMouseD AS BOOLEAN ''Variable stockant le status du bouton gauche de la souris
PRIVATE $iCurShape AS INTEGER = -1 ''Variable indiquant si un objet est selectionné ... -1 si aucun
PRIVATE $hNewShape AS CShape ''Nouvel objet en cour
PRIVATE $iX AS INTEGER ''Ecart avant déplacement
PRIVATE $iY AS INTEGER ''Ecart avant déplacement
PRIVATE $fZoom AS FLOAT = 1 ''Ratio de zoom
''Tableau de convertion id<>texte
PRIVATE $aType AS String[] = ["", "Ligne", "Rectangle", "Ellipse", "Text"]
''Tableau de convertion id<>fichierimage
PRIVATE $aTypePic AS String[] = ["", "img/draw-line.png", "img/draw-rectangle.png", "img/draw-ellipse.png", "img/draw-text.png"]
PRIVATE $iCurPoin AS INTEGER = -1
PRIVATE $aobjEditableProperties AS NEW String[]
PRIVATE $allEditableProperties AS String[] = ["X", "Y", "Width", "Height", "Text"]
PUBLIC SUB _new()
'On définit le nombre de colonne du gridview a 1
GridView1.Columns.Count = 1
RefreshPropertyEditor
TableView1.Columns.Count = 2
TableView1.Rows.Count = $aobjEditableProperties.Count
VSplit1.Layout = [2, 1]
'On met a jour le label de zoom
Slider1_Change
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Boutons_Click()
'On initialise le mode de dessin
$iCurMode = LAST.Tag
'On desselectionne
$iCurShape = -1
'On vire les poignée a l'affichage
RefreshPropertyEditor
DrawingArea1.Refresh
END
PUBLIC SUB DrawingArea1_MouseDown()
'On retien que le bouton de souris est enfoncé (non dispos hors mouse events)
$bMouseD = TRUE
'Si on est en mode selection
IF $iCurMode = 0 THEN
'Si un objet est déja sélectionné
IF $iCurShape >= 0 THEN
'On regarde si on est sur une poignée
$iCurPoin = GetCurHandle(Mouse.x, Mouse.y)
IF $iCurPoin >= 0 THEN RETURN
ENDIF
'On récupère l'objet sous le pointeur
$iCurShape = GetShape(Mouse.x, Mouse.Y)
'Si aucun objet trouvé on sort
IF $iCurShape < 0 THEN GOTO Fin
'sinon On initialise les variables de d éplacement
'ici l'écart entre le pointeur et le coin haut gauche (en fonction du zoom)
$iX = Mouse.X - $aShapes[$iCurShape].X * $fZoom
$iY = Mouse.Y - $aShapes[$iCurShape].Y * $fZoom
'On selectionne l'entrée dans le gridview
GridView1.Rows[$iCurShape].Selected = TRUE
ELSE
'Dans les modes de dessins
'On créé un nouvel objet shape
IF $iCurMode = 4 THEN
$hNewShape = NEW CShapeText
ELSE
$hNewShape = NEW CShape
ENDIF
'On initialise le coin gauche en fonction de la sourie et du zoom
$hNewShape.x = Mouse.X / $fZoom
$hNewShape.y = Mouse.Y / $fZoom
'On stock le type de dessin dans l'objet shape
$hNewShape.Type = $iCurMode
ENDIF
Fin:
RefreshPropertyEditor
DrawingArea1.Refresh
END
PUBLIC SUB DrawingArea1_MouseUp()
DIM hBut AS ToolButton = HPanel1.Children[0]
'On stock le faite que le bouton de sourie n'est plus enfoncé
$bMouseD = FALSE
'Si un objet est sélectionné on quitte
IF $iCurShape >= 0 THEN RETURN
'si aucun nouvelle objet est en cour , on quitte
IF NOT $hNewShape THEN RETURN
'si on a une taille minimale pour l 'objet on le stock (il est effectivement créé)
IF $hNewShape.Width <> 0 OR $hNewShape.Height <> 0 THEN
'on ajoute l'objet a la table
$aShapes.Add($hNewShape)
'On met a jour le nombre de lignes du gridview
'Il s'occupera du reste tout seul
GridView1.Rows.Count = $aShapes.Count
ENDIF
'on vide la variable temporaire du shape en création
$hNewShape = NULL
'On selectionne le bouton de selection
hBut.Value = TRUE
END
PUBLIC SUB DrawingArea1_MouseMove()
DIM X2, Y2 AS INTEGER
'Si le bouton de la sourie est enfoncé
IF $bMouseD THEN
'si aucun objet n'est sélectionné
IF $iCurShape < 0 THEN
'et si un objet est en création
IF $hNewShape THEN
'On change la position du coin bas/droite de l'objet
'Les valeur Widh et Height sont automatiquement mises a jour
$hNewShape.X2 = Mouse.X / $fZoom
$hNewShape.y2 = Mouse.Y / $fZoom
ENDIF
ELSE
'Si un ojbet est sélectionné
'On change sa position en modifiant le coin haut gauche
'Comme l'objet retient width et height l'ensemble est déplacé
WITH $aShapes[$iCurShape]
IF $iCurPoin >= 0 THEN
SELECT CASE $iCurPoin
CASE 0
X2 = .X2 'on stock les valeurs extrèmes afint de pouvoir les restorer
Y2 = .Y2
.x = Mouse.x / $fZoom
.y = Mouse.y / $fZoom
.X2 = X2
.Y2 = Y2
CASE 1
Y2 = .Y2
.x2 = Mouse.x / $fZoom
.y = Mouse.y / $fZoom
.Y2 = Y2
CASE 2
.X2 = Mouse.X / $fZoom
.Y2 = Mouse.y / $fZoom
CASE 3
X2 = .X2
.X = Mouse.x / $fZoom
.Y2 = Mouse.y / $fZoom
.X2 = X2
END SELECT
ELSE
.X = (Mouse.X - $ix) / $fZoom
.y = (Mouse.Y - $iY) / $fZoom
ENDIF
END WITH
ENDIF
ENDIF
TableView1.Refresh
DrawingArea1.Refresh
END
PUBLIC SUB DrawingArea1_Draw()
DIM hShape AS CShape ''Objet temporaire
DIM i AS INTEGER
'Pour chaque objets
'On ne le remplis pas
Draw.FillStyle = Fill.None
FOR i = 0 TO $aShapes.Max
hshape = $aShapes[i]
IF i = $iCurShape THEN
Draw.Foreground = Color.Red
ELSE
Draw.Foreground = Color.Black
ENDIF
'On dessine l'objet
DrawShape(hshape)
NEXT
'Si un bojet est selectionné
IF $iCurShape >= 0 THEN
'On définit un tour et un remplissage
Draw.Foreground = Color.Black
Draw.FillColor = Color.Gray
Draw.FillStyle = Fill.Solid
'On dessinne les poignées
WITH $aShapes[$iCurShape]
SELECT CASE .Type
CASE 1
Draw.Rect(.x * $fZoom - 3, .y * $fZoom - 3, 6, 6)
Draw.Rect(.x2 * $fZoom - 3, .y2 * $fZoom - 3, 6, 6)
CASE 2, 3, 4
Draw.Rect(.x * $fZoom - 3, .y * $fZoom - 3, 6, 6)
Draw.Rect(.x2 * $fZoom - 3, .y * $fZoom - 3, 6, 6)
Draw.Rect(.x2 * $fZoom - 3, .y2 * $fZoom - 3, 6, 6)
Draw.Rect(.x * $fZoom - 3, .y2 * $fZoom - 3, 6, 6)
END SELECT
END WITH
ENDIF
'Si le bouton de la sourie est enfoncé
'et Qu'un objet est en création
IF $bMouseD AND $hNewShape <> NULL THEN
'On met une couleur verte au trait
Draw.Foreground = Color.Green
'et on dessine l 'objet
DrawShape($hNewShape)
ENDIF
END
''Fonction de dessin des objets
PRIVATE SUB DrawShape(hShape AS OBJECT)
'Si l'objet est partiellement visible sinon ça sert a rien et on perd de la vitesse
IF hShape.X * $fZoom < 0 AND IF hshape.X2 * $fZoom < 0 THEN RETURN
IF hShape.X2 * $fZoom > Draw.width AND IF hShape.X * $fZoom > Draw.Width THEN RETURN
IF hShape.Y * $fZoom < 0 AND IF hShape.Y2 * $fZoom < 0 THEN RETURN
IF hShape.Y2 * $fZoom > Draw.Height AND IF hShape.Y * $fZoom > Draw.Height THEN RETURN
'On dessinne l'objet en fonction de son type
SELECT CASE hShape.Type
CASE 1
Draw.Line(hShape.X * $fZoom, hShape.Y * $fZoom, hShape.X2 * $fZoom, hShape.Y2 * $fZoom)
CASE 2
Draw.Rect(hShape.X * $fZoom, hShape.Y * $fZoom, hShape.Width * $fZoom, hShape.Height * $fZoom)
CASE 3
Draw.Ellipse(hShape.X * $fZoom, hShape.Y * $fZoom, hShape.Width * $fZoom, hShape.Height * $fZoom)
CASE 4
TRY Draw.Font.Size = Max(1, DrawingArea1.Font.Size / (DrawingArea1.Font.TextWidth(hshape.Text) / hShape.width))
Draw.Text(hshape.Text, hshape.x, hShape.y, hshape.Width, hshape.Height, Align.Center)
END SELECT
END
''Retourne l'index de l'objet en cour en fonction de la position de la sourie
''Sinon retourne 0
PRIVATE FUNCTION GetShape(X AS INTEGER, Y AS INTEGER) AS INTEGER
DIM i AS INTEGER ''Index
DIM hshape AS CShape ''Objet temporaire
DIM m AS FLOAT
DIM fX, fY, fA, fB AS FLOAT
'Si le pointeur est dans le rectangle d'un des objet, alors je retourne l'objet
'Oui bon on pourrait affiner en prenant en compte le type d'objet
'et en testant enfonction de ce type
'Je teste en partant du haut de la pile , c'est a dire le bas du tableau
x = x / $fzoom
y = y / $fzoom
FOR i = $aShapes.Max TO 0 STEP -1
WITH $aShapes[i]
SELECT CASE .Type
CASE 1
TRY m = ((.y2 - .y) / (.x2 - .x)) / ((.y2 - Y) / (.x2 - X))
IF m > 0.95 AND m < 1.05 THEN
'M est sur la droite form ée par A-B
IF .x < .X2 THEN
IF (x <= .x2 AND x >= .x) THEN
'M est sur le segment A - B
RETURN i
ENDIF
ELSE
IF (x >= .x2 AND x <= .x) THEN
'M est sur le segment A - B
RETURN i
ENDIF
ENDIF
ENDIF
CASE 2, 4
IF x > .X AND Y > .Y AND X < .X2 AND Y < .Y2 THEN
RETURN i
ENDIF
CASE 3
fA = .Width / 2
fB = .Height / 2
fX = (X - (.X + fA)) ^ 2 / (fA) ^ 2
fY = (Y - (.Y + fb)) ^ 2 / (fB) ^ 2
IF fx + fy <= 1 THEN RETURN i
END SELECT
END WITH
NEXT
'Si pas trouvé on retourne l'indice de non selection
RETURN -1
END
PUBLIC SUB Slider1_Change()
'On gère le zoom, c'est un ratio donc de 0 a 1
$fZoom = Slider1.Value / 100
'On affiche dans le label
Label1.Text = "Zoom: " & Slider1.value & " %"
'Rafraichit le drawingarea pour pprendre en compte le zoom
DrawingArea1.Refresh
END
PUBLIC SUB Form_KeyPress()
'Si on enfonce suppr
IF Key.Code = Key.Delete THEN
'on essais de supprimer un element
TRY $aShapes.Remove($iCurShape)
'on met l'objet en cour a 0
$hNewShape = NULL
'On Déselectionne
$iCurShape = -1
'On met a jour le nombre de ligne du column view
GridView1.Rows.Count = $aShapes.Count
'On rafraichit l'affichage
DrawingArea1.Refresh
ENDIF
END
PUBLIC SUB GridView1_Data(Row AS INTEGER, Column AS INTEGER)
'Dans la cellule demandée
'On met le type (grace a un tableau je le transforme en texte)
GridView1.Data.Text = $aType[$aShapes[row].Type]
'On met une image (Bon je ne vait pas rentrer dans le fonctionnement interne de picture)
'Mais en gros lorsque picture charge une image le chemin est une clé vers l'image chargé en mémoire)
'comme si l'image était stockée dans une collection
'
GridView1.Data.Picture = Picture[$aTypePic[$aShapes[row].Type]]
END
PUBLIC SUB GridView1_MouseUp()
'On sélectionne l'objet
$iCurShape = LAST.row
'On rafraichit la vue pour afficher les poignées
DrawingArea1.Refresh
END
PRIVATE FUNCTION GetCurHandle(x AS INTEGER, y AS INTEGER) AS INTEGER
'teste des poignée communes
WITH $aShapes[$iCurShape]
IF x >= .x * $fZoom - 3 AND x <= .x * $fZoom + 3 AND IF y >= .y * $fZoom - 3 AND y <= .y * $fZoom + 3 THEN RETURN 0
IF x >= .x2 * $fZoom - 3 AND x <= .x2 * $fZoom + 3 AND IF y >= .y2 * $fZoom - 3 AND y <= .y2 * $fZoom + 3 THEN RETURN 2
IF $aShapes.Type > 1 THEN
IF x >= .x2 * $fZoom - 3 AND x <= .x2 * $fZoom + 3 AND IF y >= .y * $fZoom - 3 AND y <= .y * $fZoom + 3 THEN RETURN 1
IF x >= .x * $fZoom - 3 AND x <= .x * $fZoom + 3 AND IF y >= .y2 * $fZoom - 3 AND y <= .y2 * $fZoom + 3 THEN RETURN 3
ENDIF
END WITH
RETURN -1
END
PUBLIC SUB RefreshPropertyEditor()
IF $iCurShape < 0 THEN
TableView1.Enabled = FALSE
TableView1.Clear
ELSE
$aobjEditableProperties = DiffArrays($allEditableProperties, Object.Class($aShapes[$iCurShape]).Symbols)
TableView1.rows.Count = $aobjEditableProperties.Count
TableView1.Enabled = TRUE
TableView1.Refresh
ENDIF
END
PUBLIC SUB TableView1_Data(Row AS INTEGER, Column AS INTEGER)
IF Column = 0 THEN
LAST.Data.Text = $aobjEditableProperties[Row]
ENDIF
IF $iCurShape < 0 THEN RETURN
IF Column = 1 THEN
LAST.Data.text = Object.GetProperty($aShapes[$iCurShape], $aobjEditableProperties[row])
ENDIF
END
PUBLIC SUB TableView1_Click()
IF TableView1.Column = 1 THEN
TableView1.Edit()
ENDIF
END
PUBLIC SUB TableView1_Save(Row AS INTEGER, Column AS INTEGER, Value AS STRING)
TRY Object.SetProperty($aShapes[$iCurShape], $aobjEditableProperties[row], value)
TableView1.Cancel
DrawingArea1.Refresh
END
PUBLIC SUB DiffArrays(Array1 AS String[], Array2 AS String[]) AS String[]
DIM s AS STRING
DIM aRet AS NEW String[]
FOR EACH s IN Array1
IF Array2.Exist(s) THEN aRet.Add(s)
NEXT
RETURN aRet
END
|
