QB64.org Forum

QB64 Team Software => InForm Discussion => Topic started by: TempodiBasic on December 17, 2019, 08:06:36 pm

Title: Graphic in Inform's Canvas object Picturebox
Post by: TempodiBasic on December 17, 2019, 08:06:36 pm

Hi Fellippe
very good advance in developing Inform.
The superlative next (not so next but when you think that it is useful to implement) feature is the possibility to choose a control by a listbox (that can save user when object are on stack) and/or to select multiple objects designing a rectangle or square by mouse (like in Command / Conquer or Age of Empire for your people) and/or to group/ungroup a set of object selected so to move and edit in one time.

In this time I have decided to learn more about graphic, so I have started to use Picturebox control as a canvas and not only like a container of images.
Following the info in the wiki of Inform I find the method BeginDraw PictureID ..... EndDraw PictureID
reading your 2 examples InformFireworks2 and InformSimplePaint you use both the above method both to direct the graphic operation of QB64 to a _DEST canvas(picturebox)... moreover I find this property about that I have found no informations into Inform wiki.
Please tell me where I can get more informations without robbing time to you.
Trying to use PictureBox I have got strange results using VIEW and WINDOW  ( QB64 instructions) to define new cohordinates for Picturebox and to select an area of Picturebox: in summary using method BeginDraw /EndDraw  the instruction WINDOW works while VIEW no. While using the _DEST Control(ID).HelperCanvas method I got result of altering the surface of window of application with moving of all controls on it. The buttons are moved but they react to mouse at the old position.
I attach file to see my experiences. It maybe I have made a bad work.

Thanks for answers!

Title: Re: Graphic in Inform's Canvas object Picturebox
Post by: TempodiBasic on December 30, 2019, 07:19:09 pm

Errata corrige:
if you use in this manner BEGINDRAW canvas1 and ENDDRAW canvas1 both VIEW both WINDOW  work.

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - v1.1
3. ': Fellippe Heitor, 2016-2019 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED Form1 AS LONG
9. DIM SHARED PictureBox1 AS LONG
10. DIM SHARED SetAreaBT AS LONG
11. DIM SHARED clsBT AS LONG
12. DIM SHARED LineBT AS LONG
13. DIM SHARED ChangeCohordinatesBT AS LONG
14.  
15. DIM SHARED col AS _UNSIGNED LONG, col2 AS _UNSIGNED LONG, col3 AS _UNSIGNED LONG
16. col = _RGBA32(0, 200, 200, 255)
17. col2 = _RGBA32(0, 0, 0, 255) 'black
18. col3 = _RGBA32(0, 200, 0, 255)
19. '$INCLUDE:'InForm\InForm.ui'
20. '$INCLUDE:'InForm\xp.uitheme'
21. '$INCLUDE:'window_test.frm'
22.  
23. ': Event procedures: ---------------------------------------------------------------
24. SUB __UI_BeforeInit
25.  
26. END SUB
27.  
28. SUB __UI_OnLoad
29.  
30. END SUB
31.  
32. SUB __UI_BeforeUpdateDisplay
33.     'This event occurs at approximately 30 frames per second.
34.     'You can change the update frequency by calling SetFrameRate DesiredRate%
35.  
36. END SUB
37.  
38. SUB __UI_BeforeUnload
39.     'If you set __UI_UnloadSignal = False here you can
40.     'cancel the user's request to close.
41.  
42. END SUB
43.  
44. SUB __UI_Click (id AS LONG)
45.  
46.     SELECT CASE id
47.         CASE Form1
48.  
49.         CASE PictureBox1
50.  
51.         CASE SetAreaBT
52.             BeginDraw PictureBox1
53.             IF Caption(SetAreaBT) = "Set Area" THEN
54.                 VIEW (20, 20)-(100, 100), , col
55.                 Caption(SetAreaBT) = "RestoreArea"
56.             ELSE
57.                 VIEW
58.                 Caption(SetAreaBT) = "Set Area"
59.             END IF
60.             EndDraw PictureBox1
61.  
62.  
63.         CASE clsBT
64.             BeginDraw PictureBox1
65.             CLS , col
66.  
67.             EndDraw PictureBox1
68.         CASE LineBT
69.             BeginDraw PictureBox1
70.             LINE (1, 1)-(100, 100), col2
71.  
72.             EndDraw PictureBox1
73.  
74.  
75.         CASE ChangeCohordinatesBT
76.             BeginDraw PictureBox1
77.             IF Caption(ChangeCohordinatesBT) = "Change cohordinates" THEN
78.                 WINDOW (1, 1)-(150, 250)
79.  
80.                 Caption(ChangeCohordinatesBT) = " Restore Cohor"
81.             ELSE
82.                 WINDOW
83.  
84.                 Caption(ChangeCohordinatesBT) = "Change cohordinates"
85.             END IF
86.             EndDraw PictureBox1
87.     END SELECT
88. END SUB
89.  
90. SUB __UI_MouseEnter (id AS LONG)
91.     SELECT CASE id
92.         CASE Form1
93.  
94.         CASE PictureBox1
95.  
96.         CASE SetAreaBT
97.  
98.         CASE clsBT
99.  
100.         CASE LineBT
101.  
102.         CASE ChangeCohordinatesBT
103.  
104.     END SELECT
105. END SUB
106.  
107. SUB __UI_MouseLeave (id AS LONG)
108.     SELECT CASE id
109.         CASE Form1
110.  
111.         CASE PictureBox1
112.  
113.         CASE SetAreaBT
114.  
115.         CASE clsBT
116.  
117.         CASE LineBT
118.  
119.         CASE ChangeCohordinatesBT
120.  
121.     END SELECT
122. END SUB
123.  
124. SUB __UI_FocusIn (id AS LONG)
125.     SELECT CASE id
126.         CASE SetAreaBT
127.  
128.         CASE clsBT
129.  
130.         CASE LineBT
131.  
132.         CASE ChangeCohordinatesBT
133.  
134.     END SELECT
135. END SUB
136.  
137. SUB __UI_FocusOut (id AS LONG)
138.     'This event occurs right before a control loses focus.
139.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
140.     SELECT CASE id
141.         CASE SetAreaBT
142.  
143.         CASE clsBT
144.  
145.         CASE LineBT
146.  
147.         CASE ChangeCohordinatesBT
148.  
149.     END SELECT
150. END SUB
151.  
152. SUB __UI_MouseDown (id AS LONG)
153.     SELECT CASE id
154.         CASE Form1
155.  
156.         CASE PictureBox1
157.  
158.         CASE SetAreaBT
159.  
160.         CASE clsBT
161.  
162.         CASE LineBT
163.  
164.         CASE ChangeCohordinatesBT
165.  
166.     END SELECT
167. END SUB
168.  
169. SUB __UI_MouseUp (id AS LONG)
170.     SELECT CASE id
171.         CASE Form1
172.  
173.         CASE PictureBox1
174.  
175.         CASE SetAreaBT
176.  
177.         CASE clsBT
178.  
179.         CASE LineBT
180.  
181.         CASE ChangeCohordinatesBT
182.  
183.     END SELECT
184. END SUB
185.  
186. SUB __UI_KeyPress (id AS LONG)
187.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
188.     'You can change it and even cancel it by making it = 0
189.     SELECT CASE id
190.         CASE SetAreaBT
191.  
192.         CASE clsBT
193.  
194.         CASE LineBT
195.  
196.         CASE ChangeCohordinatesBT
197.  
198.     END SELECT
199. END SUB
200.  
201. SUB __UI_TextChanged (id AS LONG)
202.     SELECT CASE id
203.     END SELECT
204. END SUB
205.  
206. SUB __UI_ValueChanged (id AS LONG)
207.     SELECT CASE id
208.     END SELECT
209. END SUB
210.  
211. SUB __UI_FormResized
212.  
213. END SUB
214.  

Title: Re: Graphic in Inform's Canvas object Picturebox
Post by: FellippeHeitor on December 30, 2019, 07:32:29 pm

I'm sorry I missed this post when you originally wrote it.

I'm glad you figured it out :-)

Fellippe.

Title: Re: Graphic in Inform's Canvas object Picturebox
Post by: TempodiBasic on January 02, 2020, 06:30:28 pm

Thanks Fellippe

about

Quote

While using the _DEST Control(ID).HelperCanvas method I got result of altering the surface of window of application with moving of all controls on it. The buttons are moved but they react to mouse at the old position.

I have found no solution or more documentations about this.
So it lasts to you in the future development of Inform to choose what and how can survive and what must go away.

Happy New Year to QB64 and also Inform & vWatch.

Title: Re: Graphic in Inform's Canvas object Picturebox
Post by: FellippeHeitor on January 02, 2020, 06:39:02 pm

Yeah. You’re not supposed to alter _dest manually especially not to a control’s helper surface, which is why I added Begin/EndDraw.

Text Only | Text with Attachments