git-svn-id: https://spexeah.com:8443/svn/Asuro@667 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/console.pas

@@ -200,6 +200,8 @@ procedure _MouseDown();
 procedure _MouseUp();
 procedure _MouseClick(left : boolean);
 
+procedure setWindowColors(colors : uint32);
+
 implementation
 
 uses
@@ -317,6 +319,11 @@ var
    MouseCursorEnabled : Boolean = true;
    OpenTerminal       : Boolean = false;
 
+procedure setWindowColors(colors : uint32);
+begin
+    Window_Border.Attributes:= colors;
+end;
+
 procedure mouseEnabled(b : boolean);
 begin
     MouseCursorEnabled:= b;