Re: To Insolor and those interested in dos rescue programme
- Posted by andi49 Jan 05, 2013
- 2165 views
Hello Selgor
Andreas . Selgor here.
I was wondering ?? . In euwingui. What is the code for the background colour of the window?.
I have used each of the following in previous progammes.
setWindowBackColor(Win,Yellow).
constant canvas = create( Pixmap, "", 0, 0,0, 1, 1, 0 ).
setBackColor(canvas, Parchment).
bk_color(kolr).
And.
This one is new to me .
SetPic(backpic,Picture,blackback).
So, I wonder if you can help ??.
I can't seem to find similar code in the euwingui.ew.
Look forward to a solution.
Cheers.
Selgor.
Basicly there is no special code for setting the Window Background Color in euwingui.
For your Mistify Program you can use something like this in your procedure colour()
kolr= rand(#FFFFFF) SetPenColor(kolr) SetDrawingMB(canvas) DrawPolygon({0,0,xmax,0,xmax,ymax,0,ymax,0,0},True)
Just make sure the screen is updated before you change the color.
The codeline below must appear before you change the color in Poly_Pattern()
CopyMBToControl(canvas,0,0,xmax,ymax,backpic,0,0)
Don't forget to use your new color when erasing the lines in Poly_Pattern()
-- change this line polygon(0, solid, history[i][1]) -- to polygon(kolr, solid, history[i][1])
btw SetPic() is not needed in the program ;) the Picture Control is permanently overwritten by CopyMBToControl().
I just inserted it automaticly during converting the program ;)
Hope this helps
Andreas
