InForm Beta 7 is out now

[TempodiBasic]

Hi Friends

@Fellippe
sorry I must post this error, an old issue that was present in previous version...(many other issues  are been fixed)
see image Inform7.jpeg


@Bplus
Yes I agree that the great mind is your, mine is just medium...but I can increase it by coding and talking wiht great coders like you, Fellippe, Steve, Pete,   CodeGuy, SkyCharger,.... (oh damn I fall in the error of the list that is always uncomplete...)...
I apologize for all those other QB64 coders, very strong that for my poor memory and lazyness I have put out of this list

[FellippeHeitor]

@Tempo:
It is an old known issue but it's a QB64 issue, not InForm's. I understand that chances of it happening are higher with InForm generated programs because of the minimum of 3 mandatory includes, but it's still an issue of QB64 that we are yet to be able to track down.

@bplus:
I understand you had the feeling that Text() was a function but it's clearly stated to be an array in the wiki, with even a link to a dedicated page explaining its use (https://github.com/FellippeHeitor/InForm/wiki/Text). I hope it's all clear now.

[bplus]

Yes, Fellippe, I guess I missed Text() as an array thing in my first readings...

I do think I over compensated by imaging control.property was gone... too early in morning...

So as far as being clear, ha! but practice does make more perfect... I am glad for your help!

Append: err, ah, control(controlID).property, man half the battle is getting that understood. That, and then realizing Text() is not a property.

[TempodiBasic]

Hi Fellippe
sorry but I think to need help about DropDownlist....
as in wiki  https://github.com/FellippeHeitor/InForm/wiki/Value value brings the index of the item selected....but
when I click on a Dropdownlist I am NOT able to get the value (index) of the item leftclicked on...
here my code_example

Code: QB64: [Select]

1. ': This program uses
2. ': InForm - GUI library for QB64 - Beta version 7
3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6.  
7. ': Controls' IDs: ------------------------------------------------------------------
8. DIM SHARED coccoprova AS LONG
9. DIM SHARED DropdownList1 AS LONG
10. DIM SHARED DropdownList2 AS LONG
11.  
12. ': External modules: ---------------------------------------------------------------
13. '$INCLUDE:'InForm\InForm.ui'
14. '$INCLUDE:'InForm\xp.uitheme'
15. '$INCLUDE:'coccoprova.frm'
16.  
17. ': Event procedures: ---------------------------------------------------------------
18. SUB __UI_BeforeInit
19.  
20. END SUB
21.  
22. SUB __UI_OnLoad
23.     '
24.     AddItem DropdownList1, "Traslation simple fixed" 'a->d = a+3, b->e = b+3, c->f = c+3...z->c z+3-(maxletters=26)
25.     AddItem DropdownList1, "Traslation simple progressive" 'a->d = a+3, b->f = b+4, c->h = c+5...z->c z+29-(maxletters=26)
26.     AddItem DropdownList1, "Traslation alternate fixed" 'a->d = a+3, b->f = b+4, c->f = c+3,d->h= d+4...z->d z+4-(maxletters=26)
27.     AddItem DropdownList1, "Traslation alternate progressive" 'a->d = a+3, b->f = b+4, c->f = c+3, d->i = i+5...z->d z+13-(maxletters=26)
28.     AddItem DropdownList1, "Traslation bidirectional fixed" ' a->d = a+3, b->y = b-3+26, c->f = c+3,d->a= d-3....z->w= z-3
29.  
30.     '
31.     AddItem DropdownList2, "Traslation simple fixed" 'a->d = a+3, b->e = b+3, c->f = c+3...z->c z+3-(maxletters=26)
32.     AddItem DropdownList2, "Traslation simple progressive" 'a->d = a+3, b->f = b+4, c->h = c+5...z->c z+29-(maxletters=26)
33.     AddItem DropdownList2, "Traslation alternate fixed" 'a->d = a+3, b->f = b+4, c->f = c+3,d->h= d+4...z->d z+4-(maxletters=26)
34.     AddItem DropdownList2, "Traslation alternate progressive" 'a->d = a+3, b->f = b+4, c->f = c+3, d->i = i+5...z->d z+13-(maxletters=26)
35.     AddItem DropdownList2, "Traslation bidirectional fixed" ' a->d = a+3, b->y = b-3+26, c->f = c+3,d->a= d-3....z->w= z-3
36.  
37. END SUB
38.  
39. SUB __UI_BeforeUpdateDisplay
40.     'This event occurs at approximately 30 frames per second.
41.     'You can change the update frequency by calling SetFrameRate DesiredRate%
42.  
43. END SUB
44.  
45. SUB __UI_BeforeUnload
46.     'If you set __UI_UnloadSignal = False here you can
47.     'cancel the user's request to close.
48.  
49. END SUB
50.  
51. SUB __UI_Click (id AS LONG)
52.     SELECT CASE id
53.         CASE coccoprova
54.  
55.         CASE DropdownList1
56.             Caption(coccoprova) = STR$(value(DropdownList1)) + "-1"
57.         CASE DropdownList2
58.             Caption(coccoprova) = STR$(value(DropdownList2)) + " -2"
59.     END SELECT
60. END SUB
61.  
62. SUB __UI_MouseEnter (id AS LONG)
63.     SELECT CASE id
64.         CASE coccoprova
65.  
66.         CASE DropdownList1
67.  
68.         CASE DropdownList2
69.  
70.     END SELECT
71. END SUB
72.  
73. SUB __UI_MouseLeave (id AS LONG)
74.     SELECT CASE id
75.         CASE coccoprova
76.  
77.         CASE DropdownList1
78.  
79.         CASE DropdownList2
80.  
81.     END SELECT
82. END SUB
83.  
84. SUB __UI_FocusIn (id AS LONG)
85.     SELECT CASE id
86.         CASE DropdownList1
87.  
88.         CASE DropdownList2
89.  
90.     END SELECT
91. END SUB
92.  
93. SUB __UI_FocusOut (id AS LONG)
94.     'This event occurs right before a control loses focus.
95.     'To prevent a control from losing focus, set __UI_KeepFocus = True below.
96.     SELECT CASE id
97.         CASE DropdownList1
98.  
99.         CASE DropdownList2
100.  
101.     END SELECT
102. END SUB
103.  
104. SUB __UI_MouseDown (id AS LONG)
105.     SELECT CASE id
106.         CASE coccoprova
107.  
108.         CASE DropdownList1
109.  
110.         CASE DropdownList2
111.  
112.     END SELECT
113. END SUB
114.  
115. SUB __UI_MouseUp (id AS LONG)
116.     SELECT CASE id
117.         CASE coccoprova
118.  
119.         CASE DropdownList1
120.  
121.         CASE DropdownList2
122.  
123.     END SELECT
124. END SUB
125.  
126. SUB __UI_KeyPress (id AS LONG)
127.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
128.     'You can change it and even cancel it by making it = 0
129.     SELECT CASE id
130.         CASE DropdownList1
131.  
132.         CASE DropdownList2
133.  
134.     END SELECT
135. END SUB
136.  
137. SUB __UI_TextChanged (id AS LONG)
138.     SELECT CASE id
139.     END SELECT
140. END SUB
141.  
142. SUB __UI_ValueChanged (id AS LONG)
143.     SELECT CASE id
144.         CASE DropdownList1
145.  
146.         CASE DropdownList2
147.  
148.     END SELECT
149. END SUB
150.  
151. SUB __UI_FormResized
152.  
153. END SUB
154.  

and .FRM file

Code: QB64: [Select]

1. ': This form was generated by
2. ': InForm - GUI library for QB64 - Beta version 7
3. ': Fellippe Heitor, 2016-2018 - fellippe@qb64.org - @fellippeheitor
4. ': https://github.com/FellippeHeitor/InForm
5. '-----------------------------------------------------------
6. SUB __UI_LoadForm
7.  
8.     DIM __UI_NewID AS LONG
9.  
10.     __UI_NewID = __UI_NewControl(__UI_Type_Form, "coccoprova", 300, 300, 0, 0, 0)
11.     SetCaption __UI_NewID, "coccoprova"
12.     Control(__UI_NewID).Stretch = False
13.     Control(__UI_NewID).Font = SetFont("segoeui.ttf", 12)
14.  
15.     __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList1", 200, 23, 50, 138, 0)
16.     AddItem __UI_NewID, "coccobello"
17.     Control(__UI_NewID).Stretch = False
18.     Control(__UI_NewID).HasBorder = True
19.     Control(__UI_NewID).CanHaveFocus = True
20.  
21.     __UI_NewID = __UI_NewControl(__UI_Type_DropdownList, "DropdownList2", 200, 23, 50, 191, 0)
22.     Control(__UI_NewID).Stretch = False
23.     Control(__UI_NewID).HasBorder = True
24.     Control(__UI_NewID).CanHaveFocus = True
25.  
26. END SUB
27.  
28. SUB __UI_AssignIDs
29.     coccoprova = __UI_GetID("coccoprova")
30.     DropdownList1 = __UI_GetID("DropdownList1")
31.     DropdownList2 = __UI_GetID("DropdownList2")
32. END SUB
33.  

I think you needn't  the other two files:
'$INCLUDE:'InForm\InForm.ui'
'$INCLUDE:'InForm\xp.uitheme'.

Thank's for Inform and for your help

[FellippeHeitor]

@Tempo:

If you want to know which item index was selected by the user:

    theItem% = Control(DropdownList1).Value

It you want to know the contents/text of the item selected:

    theItem$ = GetItem(DropdownList1, thisItem%)

Also, the best place for that would be the ValueChanged event instead of the Click event, but that's up to you.

Let me know how it goes.

[bplus]

Hi Fellippe,

I started planning a less trivial app that requires one giant picture box 1200 x 700 and a number of controls: buttons, frames with radio buttons... on the right side of the screen. Is there a way to access the right side of the form to drag and drop controls and move them around? It seems the Frm window is stuck always to the right of the properties window.

[FellippeHeitor]

In the View menu -> untick "Keep preview window attached".

[bplus]

Thanks, I have program worked out where everything should go.

[bplus]

Here is some more testing / experimenting / demonstrating with InForm:

+ My first interest was to test the new undocumented MessageBox&() function, so I have notes included with code for copy/paste or reference later on in convenient place. While testing this function, I became curious how to get a really long title to display. I found an answer!

+ I also wanted to do more testing with the __UI_KEYHIT values being returned and make a handy utility for those numbers. So in this code I used code I found in Wiki under _KEYHIT and added modification of that to message box messages when you hit a key or key combination.

+ I also want to help Fellippe promote this marvelous effort, because I think it is an important step forward with QB and I think it should be supported with interest and questions and practice using.

Snips of important parts:

Code: QB64: [Select]

1. 'Key_Message.bas for QB64 v1.1(last before number change to 1.2) B+ 2018-06-07
2.  
3. 'testing:
4. ' 1. Message box - and how to get a really long title to show completely?
5. '    answer: a really long string in message string that word wrap can't split!
6. ' 2. SETFOCUS demo how it works and allows key presses to be acknowldeged (only my left hand is dyslexic!)
7. '    maybe it is better used in repaint er ah,  BeforeUpdateDisplay event
8. '    by setting focus on a control once on OnLoad event
9. ' 3. What are the __UI_KeyHit values  being returned?
10. '    Are they the same as code found under _KEYHIT at Wiki?
11.  

This starts key press messages from get go but, if you take focus off button, you need to click it again (or just mouse over it).

Code: QB64: [Select]

1. SUB __UI_OnLoad
2.     SetFocus Button1
3. END SUB
4.  

And this is main event, so to speak:

Code: QB64: [Select]

1. SUB __UI_KeyPress (id AS LONG)
2.     'When this event is fired, __UI_KeyHit will contain the code of the key hit.
3.     'You can change it and even cancel it by making it = 0
4.  
5.  
6.     'test the not yet documented messageBox&
7.     ' FUNCTION MessageBox& (Message$, Title$, Setup AS LONG)
8.     'You can change it and even cancel it by making it = 0 <<<<<<<<<< oops ignore this repeated line from above
9.  
10.     'Setup is a combination (button + icon) of:
11.     'Buttons, which can be MsgBox_OkOnly, MsgBox_OkCancel, MsgBox_AbortRetryIgnore, MsgBox_YesNoCancel,
12.     'MsgBox_YesNo, MsgBox_RetryCancel, MsgBox_CancelTryagainContinue, MsgBox_CancelTryagainContinue.
13.  
14.     'Icons, which can be MsgBox_Critical, MsgBox_Question, MsgBox_Exclamation, MsgBox_Information
15.  
16.     'The possible return values are: MsgBox_Ok, MsgBox_Cancel, MsgBox_Abort, MsgBox_Retry, MsgBox_Ignore,
17.     ' MsgBox_Yes, MsgBox_No, MsgBox_Tryagain, MsgBox_Continue.
18.     DIM x AS LONG
19.     x = __UI_KeyHit
20.     m$ = STR$(x) + " = __UI_KeyHit Value," + CHR$(10) + "_KEYHIT Code from wiki came up with this:" + CHR$(10)
21.  
22.     '====   reference: https://www.qb64.org/wiki/KEYHIT
23.     IF x < 0 THEN 'negative value means key released
24.         m$ = m$ + "Released "
25.         x = -x
26.     ELSE
27.         m$ = m$ + "Pressed " 'positive value means key pressed
28.     END IF
29.     IF x < 256 THEN 'ASCII code values
30.         m$ = m$ + "ASCII" + STR$(x) + " "
31.         IF x >= 32 AND x <= 255 THEN m$ = m$ + " [" + CHR$(x) + "] "
32.     END IF
33.     IF x >= 256 AND x < 65536 THEN '2 byte key codes
34.         m$ = m$ + "2-BYTE-COMBO" + STR$(x AND 255) + " " + STR$(x \ 256) + " "
35.         x2 = x \ 256
36.         IF x2 >= 32 AND x2 <= 255 THEN m$ = m$ + " [" + CHR$(x2) + "] "
37.     END IF
38.  
39.     'this helpful?  I can't get a small b difference with a B
40.     IF x >= 100000 AND x < 200000 THEN 'QB84 Virtual Key codes
41.         m$ = m$ + "SDL VK" + STR$(x - 100000) + " "
42.     END IF
43.     IF x >= 200000 AND x < &H40000000 THEN
44.         m$ = m$ + "QB64 VK" + STR$(x - 200000) + " "
45.     END IF
46.     IF x >= &H40000000 THEN 'Unicode values (IME Input mode)
47.         m$ = m$ + "UNICODE" + STR$(x - &H40000000) + " 0x" + HEX$(x - &H40000000) + " ..."
48.     END IF
49.  
50.     'OK simple message box, also testing how to display a really long title in message box
51.     ans& = MessageBox&(m$ + CHR$(10) + STRING$(150, "+"), "Testing __UI_KeyHit and message box and Wiki code for _KEYHIT.", MsgBox_OkCancel)
52.     IF ans& = MsgBox_Ok THEN
53.         'OK then
54.     ELSE
55.         END
56.     END IF
57.  
58.     SELECT CASE id
59.         CASE Button1
60.  
61.     END SELECT
62. END SUB
63.  

I was not expecting so many responses from one key press or key combo.

I am concerned about getting a capital B distinguished from a little b and similar combinations of keys eg Ctrl, Alt as well as Shift.

BTW, in this test program, if you click Cancel in the MessageBox, you will end the program.

[TempodiBasic]

Hi Fellippe
you are always very gentle...

yes I must miss the wikipage where I can get this manner to access to index value....

"  theItem% = Control(DropdownList1).Value"  while I have been able to capture the second formula that you have posted....

Following your suggestions about DropDownlList .... how can I get the value of this object in ValueChanged event?
The code example, posted by me, uses the click event only to get a fast feedback on caption of the form.
As you can see in code I have missed the way to access to value because I have imaged that it (property value) was like property text() and I am able to access to it directly as an array.
But that thought is wrong! Now, thank's to you I know how access to value of DropDownList.

As soon as I'll post the Inform version of a simple CryptoProgram

Thank's for help and for Inform

[FellippeHeitor]

Just move the code you wrote in the Click event to the ValueChanged event. Because a user may click a list box but not change its contents, the ValueChanged event is more suitable as it will only be triggered when a new item is actually selected, so that makes more sense in your case.

[TempodiBasic]

Thank's Fellippe

I agree  and as soon as I'll post the new educational program that I have coded in Inform version....
for now in another thread I post the ASCII version

Thank's

[TempodiBasic]

Hi Fellippe

1. I need help:
label has an autosize property?
On run, changing the caption of a label
both directly using Caption(MyLabelLB)= "MyString"
both using SetCaption MyLabelLB, "MyString"
the label doesn't contain all the new string.

It is possible to do this in InForm?

2. Feedback on WIKI of Inform....
the link to WordWrap in this page https://github.com/FellippeHeitor/InForm/wiki/Label bring me to the main page of wiki of Inform and not to the page "https://github.com/FellippeHeitor/InForm/wiki/WordWrap" that is pointed by the link

Thank's

[FellippeHeitor]

1. Labels will only autosize at design time (a feature I added after your request), but not at run time. I recommend that you make them big enough so that no text will be clipped. Or even better, make it not only long, but also tall, and set the .WordWrap feature to True.

2. You'll notice that the link to the WordWrap page is colored red for now, which means I didn't write that page yet. Thanks for reporting. I will be updating the wiki soon after your feedback (and also bplus's feedback).

Is this the text encoder you're writing?

[TempodiBasic]

Hi Fellippe
Thank's for answers...
I have tried also to setting to true the property WordWrap, Multiline and CanResize....

Code: QB64: [Select]

1.     ' enlarging label of results
2.     Control(MessageAtStartAsWrittenByUserLB).WordWrap = True
3.     Control(MessageAtStartAsWrittenByUserLB).Multiline = True
4.     Control(MessageAtStartAsWrittenByUserLB).CanResize = True
5.  
6.     Control(EncryptedMessageLB).WordWrap = True
7.     Control(EncryptedMessageLB).CanResize = True
8.     Control(EncryptedMessageLB).Multiline = True
9.  
10.     Control(DecryptedMessageLB).WordWrap = True
11.     Control(DecryptedMessageLB).Multiline = True
12.     Control(DecryptedMessageLB).CanResize = True
13.  

but as you already knows it is unuseful.... OK I must program a good space/size of Label that I use for output at design time....
Thank's again

Yes I'm porting in  Inform the core of encrypt/decrypt ver 0.2 but I'm still learning to use with most efficacy Inform!
Thank's for this wonderful tool