Graphics 800,600

tbar_x = LoadImage ("titlebar_s1.png")
tbar_y = LoadImage ("titlebar_s2.png")
tbar_z = LoadImage ("titlebar_s3.png")

b_mini = LoadImage ("hide.png")
b_close = LoadImage ("close.png")



Repeat
Cls

window("testfenster",5,5,3)

Flip
Until AppTerminate()

'-------------------------

Function window(title:String,posx:Int=0,posy:Int=0,size:Int=1,on:Int=1)

If size = 1 Then
   DrawImage tbar_x,posx,posy
   b_min = 100
   b_close = 120
EndIf
If size = 2 Then
   DrawImage tBar_y,posx,posy
   b_min = 160
   b_close = 180
EndIf
If size = 3 Then
   DrawImage tBar_z,posx,posy
   b_min = 460
   b_close = 480
EndIf

DrawImage b_mini,b_min,posy,b_min_mouse
DrawImage b_close,b_close,posy,b_close_mouse
DrawText title,posx +3,posy+4

EndFunction