What is it you are trying to achieve?
A Clickable button.
What is the problem you are having?
When I make a button using the View.Set Parameter "offscreenonly", my buttons aren't clickable.
Describe what you have tried to solve this problem
I have tried calling View.Set again after I do my animations before I print my button, but this doesn't make it clickable. I'm not really sure what else to do since I'm still pretty novice with Turing.
Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
This is the code for my program. The button in question is found on line 70 of 75. My code is probably messy and has some imperfections, I'll clean it up later, you don't have to do that.
| Turing: |
import GUI var imageX : int := -700 var imageY : int := 400 var counter : int := 1 var Background1 : int := Pic.FileNew ("Background1.jpg") var TitleImage : int := Pic.FileNew ("TitleImage.bmp") var NameImage : int := Pic.FileNew ("NameImage.bmp") var half, done : boolean := false procedure NextSlide end NextSlide procedure MoveTitleIn (image, waitTime, halfX : int) if counter = 0 then half := true delay (waitTime) elsif imageX < halfX then counter := counter + 1 else counter := counter - 1 end if imageX := imageX + counter cls Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw (image, imageX, imageY, picMerge) View.Update end MoveTitleIn procedure MoveTitleOut (image : int) if imageX < 1265 then counter := counter + 1 else done := true end if imageX := imageX + counter cls Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw (image, imageX, imageY, picMerge) View.Update end MoveTitleOut procedure ImageInAndOut (image, waitTime, halfX : int) loop if half = false then MoveTitleIn (image, waitTime, halfX) else MoveTitleOut (image) end if if done = true then exit end if delay (4) end loop imageX := -900 counter := 1 half := false done := false end ImageInAndOut View.Set ("Graphics:1265;915, offscreenonly") Pic.Draw (Background1, 0, 0, picCopy) Pic.Draw (TitleImage, imageX, imageY, picMerge) ImageInAndOut (TitleImage, 2500, -225) ImageInAndOut (NameImage, 2500, -320) var button : int := GUI.CreateButton (1150, 865, 0, "Next Slide", NextSlide) View.Update loop exit when GUI.ProcessEvent end loop |
Please specify what version of Turing you are using
Turing 4.1
