;************************************************************************************
;*								Login Window										*
;************************************************************************************




;Graphics
Graphics(800,600,32,1) 
SetBuffer BackBuffer()

;Loading Main Graphics
Global	Wallpaper			=	LoadImage	(\"welcome.bmp\")
Global	WindowBg			=	LoadImage	(\"loginwinbg.bmp\")
Global	MousePointer		=	LoadImage	(\"pointer.bmp\")
Global	MouseShadow			=	LoadImage	(\"pointershadow.bmp\")

;Loading Window Graphics
Global	Window				=	LoadImage	(\"loginwindow.bmp\")
Global 	ShadowX				=	LoadImage	(\"loginshadowx.bmp\")
Global 	ShadowY				=	LoadImage	(\"loginshadowy.bmp\")


;Masking Images
MaskImage 	MousePointer,		255,255,255
MaskImage 	MouseShadow,		255,255,255
MaskImage 	shadowY,			255,255,255
MaskImage 	shadowX,			255,255,255

;*************************************************************************************

;Variables

Global	WindowX			=	400-80
Global	WindowY			=	220


;*************************************************************************************

;MainLoop Start

While Not KeyHit(1)
Cls

Main()




Flip
Wend

End

;MainLoop End

;*************************************************************************************

;Functions


Function 	Main()

MausSpeedX = 0
MausSpeedY = 0
MausSpeedX = MouseXSpeed()
MausSpeedY = MouseYSpeed()
MausCatchY = MouseY()
MausCatchX = MouseX()
RelAbstandX = MausCatchX  - WindowX
RelAbstandY = MausCatchY  - WindowY

TileImage	Wallpaper,		0,0
DrawImage 	MouseShadow,	MouseX()+4,MouseY()+4
DrawImage	Window,			WindowX,WindowY
DrawImage	WindowBg,		WindowX,WindowY+16

DrawImage	ShadowX,		WindowX+4,WindowY+66+16
DrawImage	ShadowY,		WindowX+160,WindowY+5

DrawImage MousePointer, MouseX(), MouseY()


If RectsOverlap(MouseX(),MouseY(),1,1,WindowX,WindowY,160,16)= 1 And MouseDown(1)= 1 Then
	WindowY=MausCatchY - RelAbstandY + MausspeedY 
	WindowX=MausCatchX - RelAbstandX + MausspeedX
EndIf

End Function

Graphics 640,480,16,1
SetBuffer BackBuffer()
bild=LoadImage(\"hier-kommt-dein-dateiname-rein.bmp\")
;ResizeImage bild,40,40


;dimfeld
Const objanz=5
Dim dinge(objanz,1)
For a=0 To objanz
 ;zufällige positionen
 dinge(a,0)=Rand(600)
 dinge(a,1)=Rand(440)
Next

;breite/höhe des bildes schon mal berechnen
br=ImageWidth(bild)/2
ho=ImageHeight(bild)/2


Repeat


 Cls

 ;x+y zwischenspeichern => schneller
 x=MouseX()
 y=MouseY()

 ;Verschieben
 For a=1 To objanz
   ;mlinke maustaste gedrückt?
   If MouseDown(1)Then
       ;zeigt man auf ein obj. , ist schon eins markiert?
     If (markiert=0)And(RectsOverlap(dinge(a,0),dinge(a,1),br*2,ho*2,x,y,2,2))Then
       ;objekt jetzt ausgewählt
       markiert=a
       ;verschieben
       dinge(a,0)=x-br
       dinge(a,1)=y-ho
     Else
       ;schon markiert
       If markiert=a Then
         ;verschieben
         dinge(a,0)=x-br
         dinge(a,1)=y-ho
       EndIf
     EndIf
   Else
     markiert=0
   EndIf
   DrawImage bild,dinge(a,0),dinge(a,1)
 Next

 ;mauszeiger
 Rect x,y,2,2

 ;buffer vertauschen
 Flip


Until KeyDown(1)
End