-----------------------------------

22

Fri Jan 13, 2017 9:29 am


My Image Will Not Stay On The Screen

-----------------------------------

What is it you are trying to achieve?
Make my image stay on the screen.


What is the problem you are having?
When my program moves to a new page, the image on that page will not stay on the screen. It disappears after about 2 seconds.


Describe what you have tried to solve this problem
I tried using delay, but it still didn't work.


Post any relevant code (You may choose to attach the file instead of posting the code if it is too long)
 var name:string (1)
var name1:string := ""
var nameX:int :=320
var answer:int
var enter : string (1) := chr (13) 
var counter,score:int :=0
var fontid,fontid2:int
var introCount:int :=0
fontid:=Font.New("Broadway:40:Bold")
fontid2:=Font.New("Times New Roman:15:Bold")
var fontid3:=Font.New("Palatino:20:bold")
var fontid4:=Font.New("Arial:20:bold")
var picID:int :=Pic.FileNew("1deab7e6c0b2947a17343d3d0efee99c.jpg")
var scaledPicID:=Pic.Scale(picID,130,200)
var picID2:int :=Pic.FileNew("Image #2.jpeg")
var scaledPicID2:=Pic.Scale(picID2,400,100)
var picID3:int :=Pic.FileNew("icecream.jpg")
var scaledPicID3:=Pic.Scale(picID3,150,200)
var picID4:int :=Pic.FileNew("amadeus.jpg")
var scaledPicID4:=Pic.Scale(picID4,55,80)
var x,y,button:int 
var gameTittle:int :=1



colourback(39)
for row:1..25
for column:1..80
locate (row,column)
put " " 
end for
end for

drawfillbox(10,10,630,390,58)

Pic.Draw(scaledPicID,20,180,picCopy)
Pic.Draw(scaledPicID2,20,50,picCopy)
Pic.Draw(scaledPicID3,475,50,picCopy)

process welcomePage 
loop
Font.Draw("FunQuiz",180,290,fontid,11)
delay(500)
Font.Draw("FunQuiz",180,290,fontid,black)
delay(500)
Font.Draw("FunQuiz",180,290,fontid,11) 
mousewhere(x,y,button)
exit when gameTittle=0
end loop
cls
end welcomePage

fork welcomePage 
Font.Draw("Enter your name: ",170,230,fontid2,48)
loop
locatexy(320,230)
colorback(58)
getch(name)
Font.Draw(name,nameX,230,fontid2,48)
nameX:=nameX+10
exit when (ord(name)=10)
name1:=name1+name
end loop 


Font.Draw("Welcome",170,200,fontid3,red)
Font.Draw(name1,300,200,fontid3,red)
drawbox(475,15,624,45,red)
Font.Draw("Next",520,20,fontid3,red)
loop
mousewhere(x,y,button)
if (button=1) and x>=520 and x=15 and y