Показать сообщение отдельно
Старый 22.11.2008, 00:07   #1
JVSh
Оператор ЭВМ
 
Регистрация: 16.11.2006
Сообщений: 42
Написано одно полезное сообщение
(для 7 участников)
Проблема с MaskImage на полный экран

Привет всем!

Кто может помочь с такой траблой - не работатает MaskImage на полный экран, только в окне...

Вот код:

Graphics3D 800,600,32,3
SetBuffer BackBuffer()
SeedRnd(MilliSecs())

myFont58 = LoadFont("Arial CYR", 58, True, False, False)
SetFont myFont58

Global w=GraphicsWidth()
Global h=GraphicsHeight()

Global img1=CreateImage(w,h)
Global img2=CreateImage(w,h)

MaskImage img2,255,0,255

SetBuffer ImageBuffer(img1)
Color 0,0,255
Rect 0,0,w,h,1
Color 0,0,0
Text 100,100,"IMAGE 1"
SetBuffer BackBuffer()

SetBuffer ImageBuffer(img2)
Color 255,0,0
Rect 0,0,w,h,1
Color 255,255,255
Text 100,100,"IMAGE 2"
SetBuffer BackBuffer()

Global n=10

While Not KeyHit(1)

    If KeyDown(28) n=n+2 : DRAWMASK()    ; press and hold "ENTER"

UpdateWorld
RenderWorld

    DrawImage img1,0,0
    DrawImage img2,0,0

Flip
Wend

Function DRAWMASK()
    SetBuffer ImageBuffer(img2)
    Color 255,0,255
    Rect w*0.5-n*2,h*0.5-n*1.5,n*4,n*3,1
    SetBuffer BackBuffer()
End Function
Заранее спасибо за помощь!
(Offline)
 
Ответить с цитированием