tein nyt huvikseni uuden ulkoasun tuohon.(Ateeksi lupaa kysymätön koodin muokkaus)
Code: Select all
Function DrawWindows(n = 0)
If currentid = 1 Then Return False
height = TextHeight("A")
For w.window = Each window
If n = 0 Then
//fill the area black
Color cbblack
Box w\x, w\y, w\w, w\h
//draw the window
Color cbdark
Box w\x,w\y,w\w,w\h,0
Box w\x-2,w\y-2,w\w+4,w\h+4,0
Box w\x,w\y,w\w,TITLE_HEIGHT-1
Line w\x,w\y + TITLE_HEIGHT,w\x+w\w,w\y + TITLE_HEIGHT
Color cbsilver
Box w\x-1,w\y-1,w\w+2,w\h+2,0
Line w\x,w\y + TITLE_HEIGHT-1,w\x+w\w,w\y + TITLE_HEIGHT-1
//draw window title
Text w\x + 5, w\y + (TITLE_HEIGHT - height - 2), w\title$
//draw the X buttonbox
Color cbdarkred
Box w\x+w\w+2-TITLE_HEIGHT,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbred
Box w\x+w\w+2-TITLE_HEIGHT+1,w\y+1+1,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
Line w\x + w\w-3, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4 //x2
//mouse over X button draw
If MouseX() > w\x + w\w - TITLE_HEIGHT And MouseX() < w\x + w\w And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
Line w\x + w\w-3, w\y+2+1,w\x + w\w - TITLE_HEIGHT+3+1,w\y + TITLE_HEIGHT-4
Line w\x + w\w-3-1, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4-1
Line w\x + w\w - TITLE_HEIGHT+3+1, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4-1 //x2
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2+1, w\x + w\w-3-1, w\y + TITLE_HEIGHT-4
If MouseUp(1) Then DeleteWindow(w\ID)
EndIf
DrawImage w\img, w\x + 1, w\y + 1 + TITLE_HEIGHT
ElseIf n <> 0 Then
If w\ID = active_window Then
//fill the area black
Color cbblack
Box w\x, w\y, w\w, w\h
//draw the window
Color cbdark
Box w\x,w\y,w\w,w\h,0
Box w\x-2,w\y-2,w\w+4,w\h+4,0
Box w\x,w\y,w\w,TITLE_HEIGHT-1
Line w\x,w\y + TITLE_HEIGHT,w\x+w\w,w\y + TITLE_HEIGHT
Color cbsilver
Box w\x-1,w\y-1,w\w+2,w\h+2,0
Line w\x,w\y + TITLE_HEIGHT-1,w\x+w\w,w\y + TITLE_HEIGHT-1
Color cbwhite
//draw window title
Text w\x + 5, w\y + (TITLE_HEIGHT - height - 2), w\title$
//draw the X buttonbox
Color cbdarkred
Box w\x+w\w+2-TITLE_HEIGHT,w\y+1,TITLE_HEIGHT-3,TITLE_HEIGHT-3
Color cbred
Box w\x+w\w+2-TITLE_HEIGHT+1,w\y+1+1,TITLE_HEIGHT-5,TITLE_HEIGHT-5
Color cbwhite
Line w\x + w\w-3, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4 //x2
//mouse over X button draw
If MouseX() > w\x + w\w - TITLE_HEIGHT And MouseX() < w\x + w\w And MouseY() > w\y And MouseY() < w\y + TITLE_HEIGHT Then
Line w\x + w\w-3, w\y+2+1,w\x + w\w - TITLE_HEIGHT+3+1,w\y + TITLE_HEIGHT-4
Line w\x + w\w-3-1, w\y+2,w\x + w\w - TITLE_HEIGHT+3,w\y + TITLE_HEIGHT-4-1
Line w\x + w\w - TITLE_HEIGHT+3+1, w\y+2, w\x + w\w-3, w\y + TITLE_HEIGHT-4-1 //x2
Line w\x + w\w - TITLE_HEIGHT+3, w\y+2+1, w\x + w\w-3-1, w\y + TITLE_HEIGHT-4
If MouseUp(1) Then DeleteWindow(w\ID)
EndIf
DrawImage w\img, w\x + 1, w\y + 1 + TITLE_HEIGHT
EndIf
EndIf
Next w
If n = 0 Then DrawWindows(active_window)
EndFunction