How to save the default bitmap for a button when changed?

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Ted,
I used your & Stan's first idea of a table. Check it out - hope its not too buggy...

stepmenu.zip

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Stan,
I looked at property_to_string() yesterday and could not figure out how to get it to work for setting the button bitmaps.

[Ted Giles]

Re: How to save the default bitmap for a button when changed?

Looks good Robin, very good!
Will you be indicating what the colours mean?

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Actually, I haven't made a final decision about the colors yet. I've thought of disabling the buttons once a section is finished, which would be better indicated by gray or perhaps a check bitmap instead of the orange ball. I also haven't decided yet if using a small pop up type form or full screen makes more sense. But at least the visual effects are working... So far.

I am curious however in the scripts that change the btnbmp table - which only has the one record, I had to add a fetch_first and fetch-next to get it to work. Wouldn't the table once opened, automatically be on the first record?

[Stan Mathews]

Re: How to save the default bitmap for a button when changed?

Instead of parentform:buttonobjectname.fill.color you would use

parentform:Tool_select1.Default.Hbitmap.Bmplib = "<ADDIN>" 'discover the value here in the form object explorer
parentform:Tool_select1.Default.Hbitmap.Bmptag ="$$application.alpha" 'discover the value here in the form object explorer

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Stan,
I get that part. What I don't understand is how to parse the saved string back to the button's property. I am more than a bit weak on using lists in this fashion.

[Stan Mathews]

Re: How to save the default bitmap for a button when changed?

str = GET_FROM_FILE("c:\mydata\dot_variables.txt") 'replace txt file location with networked location
dim btncolors as P
btncolors.dummy = ""
property_from_string(btncolors, str)

Recreates the pointer variable just as it was when saved to the file.

lst = parentform.Child_Enum("button")
for each foo in lst
eval("parentform."+foo.value+".fill.color") = eval("btncolors."+foo.value)
next

Would do the reassignment to the buttons.

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Stan,
Did you look at my zip? Perhaps we could work with an example from the actual data I provided. Something I could try in the IW?

See post #16

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Finally, I have something that works in the IW - now how do I use the final btndata result?

?topparent.Name()
= "Step_Menu"
lst = topparent.Child_Enum("f=button")
lst = sortsubstr(lst,crlf())
dim str1 as c = ""
str1 = *for_each(btn,btn.value+".default.hbitmap.bmptag",lst)
?str1
= B_1.default.hbitmap.bmptag
B_2.default.hbitmap.bmptag
B_3.default.hbitmap.bmptag
B_4.default.hbitmap.bmptag
B_B1.default.hbitmap.bmptag
B_B2.default.hbitmap.bmptag
B_B3.default.hbitmap.bmptag
B_C1.default.hbitmap.bmptag
B_C2.default.hbitmap.bmptag
B_C3.default.hbitmap.bmptag
B_Close.default.hbitmap.bmptag
B_D1.default.hbitmap.bmptag
B_D2.default.hbitmap.bmptag
B_NewWeek.default.hbitmap.bmptag
B_PrevWeek.default.hbitmap.bmptag

dim str2 as c = ""
str2 = *for_each(bmp,quote(alltrim(eval(bmp.value))),str)
?str2
= "GrayRarrw"
"GrayRarrw"
"$$generic.orb.green"
"$$generic.orb.green"
"redchk"
"redchk"
"$$generic.orb.green"
"$$generic.orb.green"
"$$generic.orb.green"
"$$generic.orb.green"
"$$generic.exit"
"$$generic.orb.green"
"$$generic.orb.green"
"$a5_expand"
"a5_htmled_delete_cell"

dim btns[cnt] as c
dim bmps[cnt] as c
btns.initialize(str1)
bmps.initialize(str2)

dim btndata as c = ""
for i = 1 to cnt
btndata = btndata+alltrim(btns[i])+"="+bmps[i]+crlf()
next
msgbox("result",btndata,0)

?btndata
= B_1.default.hbitmap.bmptag="GrayRarrw"
B_2.default.hbitmap.bmptag="GrayRarrw"
B_3.default.hbitmap.bmptag="$$generic.orb.green"
B_4.default.hbitmap.bmptag="$$generic.orb.green"
B_B1.default.hbitmap.bmptag="redchk"
B_B2.default.hbitmap.bmptag="redchk"
B_B3.default.hbitmap.bmptag="$$generic.orb.green"
B_C1.default.hbitmap.bmptag="$$generic.orb.green"
B_C2.default.hbitmap.bmptag="$$generic.orb.green"
B_C3.default.hbitmap.bmptag="$$generic.orb.green"
B_Close.default.hbitmap.bmptag="$$generic.exit"
B_D1.default.hbitmap.bmptag="$$generic.orb.green"
B_D2.default.hbitmap.bmptag="$$generic.orb.green"
B_NewWeek.default.hbitmap.bmptag="$a5_expand"
B_PrevWeek.default.hbitmap.bmptag="a5_htmled_delete_cell"

[Stan Mathews]

Re: How to save the default bitmap for a button when changed?

Try

eval("btn.bmp"+ltrim(str(i))) = eval(foo.value+".default.hbitmap.bmptag")

The eval() on the left side of the equals is the trick.


As in

i = 3

"btn.bmp"+ltrim(str(i)) = "ABC"
? btn.bmp3
ERROR: Not found
btn not found.


eval("btn.bmp"+ltrim(str(i))) = "ABC"
? btn.bmp3
= "ABC"

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Stan! I knew you would be here
Notice the btndata text looks just like I would write it for a script. What I can't seem to figure out is if I save that to a text file in my close button, what must I do to get that back into the script that loads the form? I assume I will need evaluate_template to iterate thru the string to issue the commands. Would a For...Next loop do that ?

[Stan Mathews]

Re: How to save the default bitmap for a button when changed?

btndata is a string.

SAVE_TO_FILE() saves a string to a file.
GET_FROM_FILE() opens a text file and creates a variable from the contents of the file.
FOR EACH ... NEXT iterates through that variable
For...Next would probably do but would you require you to determine how many lines are in the variable and parse the variable into "words".

FOR EACH ... NEXT is expecting each line to be what you want to use, doesn't care how many there are, and exits when the last is processed.

[MoGrace]

Re: How to save the default bitmap for a button when changed?

If I type in the IW with Step Menu open

B_1.default.hbitmap.bmptag = "$$generic.orb.blue"

The bitmap is changed.

However if I try:

Evaluate_template(B_1.default.hbitmap.bmptag = "$$generic.orb.blue")

Nothing happens. Nor does changing it to "B_1.default.hbitmap.bmptag = "+"$generic.orb.blue" do anything. I also tried using quote(). What does this function expect?

Never mind, this works:
*for_each(foo,evaluate_template(foo.value),lst)

I'm trying too hard...

[Stan Mathews]

Re: How to save the default bitmap for a button when changed?

As should

for each foo in lst
evaluate_template(foo.value),lst)
next

[MoGrace]

Re: How to save the default bitmap for a button when changed?

Here's my working UDF to open the form with the last saved bitmaps.

FUNCTION Get_Btns AS C (txtfile = "btn_bmp.txt" as C )
'DESCRIPTION: Open Step Menu and read the btn_bmp.txt file and set the button bitmaps
'Used in calling script that opens the Step Menu form with last saved button bitmaps
	dim global co_path as c		
	dim bmpstr as c = ""
	dim btnlst as c = ""
	dim command as c
	dim frm as p 
	dim frmname as c = "Step Menu"
		
	vw_frm(frmname)  'my UDF to open the form or switch if active
	frm = obj(frmname)
	
	if txtfile = "" then	
		'Ex to prompt for file: get_btns("")
		txtfile = co_path+chr(92)+"btn_bmp.txt"
		getfile = ui_get_file("Select Txt File","*.txt",txtfile,"X")
		if getfile = "" then
			'user cancelled
			goto ENDIT
		end if		
	else
		'Ex to use defaults: get_btns()
		getfile = co_path+chr(92)+txtfile
	end if
	
	'Check the file exists and put contents into string
	if file.exists(getfile)
		bmpstr = get_from_file(getfile)
	end if					
	
	if bmpstr <> "" then		
		*for_each(bmp,evaluate_template("frm:"+bmp.value),bmpstr)			
	end if	
	
	btnlst = a5.Child_Enum("f=buttons")
	if btnlst <> "" then
		*for_each(btn,evaluate_template("frm:"+btn.value+"refresh()"),btnlst)						
	end if				
	
	ENDIT:
	trace.WriteLn("Get Btns: "+bmpstr)
	Get_Btns=bmpstr
	
END FUNCTION