Author |
Topic: Grid of Textboxes using Windows API (Read 75 times) |
|
Alincon
Full Member
member is offline
Posts: 147
|
 |
Re: Grid of Textboxes using Windows API
« Reply #27 on: Aug 21st, 2016, 01:35am » |
|
Richard's code works on my machine and produces the same result as my code, which works and is shorter.
My whole reason for using maphandle is to avoid coding a stylebits command for every textbox to limit characters to numbers since LBB cannot do this: (it works in LB)
Code:
for x = 1 to lmt
var$ = pfx$+right$("0"+str$(x),2)
stylebits #var$, _ES_NUMBER, 0, 0, 0
next
I'm thinking now that requiring so many commands to use maphandle is more trouble than coding all the stylebits commands.
regards, r.m.
|
|
 Logged
|
|
|
|
Richard Russell
Administrator
member is offline
Posts: 1348
|
|
Re: Grid of Textboxes using Windows API
« Reply #28 on: Aug 21st, 2016, 09:28am » |
|
on Aug 21st, 2016, 01:35am, Alincon wrote:| Richard's code works on my machine and produces the same result as my code, which works and is shorter. |
|
Yours may be a little shorter, but it relies on undocumented behavior. It's up to you whether you want to take the risk.
Quote:| LBB cannot do this: (it works in LB) |
|
Hmm, interesting! That's an incompatibility I was unaware of: I didn't know that LB 4 would accept a handle variable in a STYLEBITS statement. I'll try to fix this in a future release of LBB (it could only work if the STYLEBITS comes after the TEXTBOX).
Quote:| I'm thinking now that requiring so many commands to use maphandle is more trouble than coding all the stylebits commands. |
|
I would still expect the LBB solution to be shorter, because you can create the controls in a loop (and put the STYLEBITS in the loop), something that you cannot do in LB:
LB solution (STYLEBITS in a loop) Code: textbox #w.tb01, 10, 10, 100, 25
textbox #w.tb02, 10, 40, 100, 25
textbox #w.tb03, 10, 70, 100, 25
textbox #w.tb04, 10, 100, 100, 25
textbox #w.tb05, 10, 130, 100, 25
textbox #w.tb06, 10, 160, 100, 25
for x = 1 to 6
var$ = "#w.tb0" + right$(str$(x),2)
stylebits #var$, _ES_NUMBER, 0, 0, 0
next x
open "Test" for dialog as #w
wait
LBB solution (using MAPHANDLE) Code: for x = 1 to 6
textbox #w.tb, 10, x*30-20, 100, 25
stylebits #w.tb, _ES_NUMBER, 0, 0, 0
var$ = "#w.tb0" + right$(str$(x),2)
maphandle #w.tb, var$
next x
open "Test" for dialog as #w
wait
Richard.
|
|
Logged
|
|
|
|
CryptoMan
New Member
member is offline
Gender: 
Posts: 46
|
|
Re: Grid of Textboxes using Windows API
« Reply #29 on: Aug 21st, 2016, 4:34pm » |
|
Richard,
What I am missing in LB and LBB is using arrays on these and also passing arrays and structs to SUBs and FUNCTIONs and returning ARRAYSs or STRUCTs. And ARRAYS of STRUCTS. And STRUCTS like PASCAL and C.
Is this too difficult to implement in LBB?
Ofcourse, it will not be compatible with LBB but if anybody wants to use a SUPER LB can use it with LBB.
What stops us from
textbox #w.tb[i], 10, x*30-20, 100, 25 ?
I realize that this MAPHANDLE emulates this objective quite elegantly but why not arrays?
Or, like create a syntax like this but hidden in the BBC conversion translate it into MAPHANDLEs behind the scene.
Maybe, too much stunt?
But, I really liked the MAPHANDLE trick. Quite awesome.
|
| « Last Edit: Aug 21st, 2016, 4:38pm by CryptoMan » |
Logged
|
|
|
|
Richard Russell
Administrator
member is offline
Posts: 1348
|
|
Re: Grid of Textboxes using Windows API
« Reply #30 on: Aug 21st, 2016, 5:24pm » |
|
on Aug 21st, 2016, 4:34pm, CryptoMan wrote:| Is this too difficult to implement in LBB? |
|
Two of the features you asked for are already implemented (and documented) in LBB: passing arrays into SUBs and FUNCTIONs, and arrays of STRUCTS:
Passing Arrays Code: dim MyArray$(100)
MyArray$(50) = "Fifty"
call MySub MyArray$()
dummy = MyFunc(MyArray$())
end
sub MySub localarray1$()
print localarray1$(50)
end sub
function MyFunc(localarray2$())
print localarray2$(50)
end function
Array of Structures Code: struct MyStructArray(100) one as long, two as ptr, three as char[13]
MyStructArray(50).three.struct = "Hello world!"
print MyStructArray(50).three.struct
Richard.
|
|
Logged
|
|
|
|
|
