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

src/console.pas

@@ -201,6 +201,7 @@ procedure _MouseUp();
 procedure _MouseClick(left : boolean);
 
 procedure setWindowColors(colors : uint32);
+function getWindowColorPtr : puint32;
 
 implementation
 
@@ -319,6 +320,11 @@ var
    MouseCursorEnabled : Boolean = true;
    OpenTerminal       : Boolean = false;
 
+function getWindowColorPtr : puint32;
+begin
+    getWindowColorPtr:= @Window_Border.Attributes;
+end;
+
 procedure setWindowColors(colors : uint32);
 begin
     Window_Border.Attributes:= colors;
@@ -1087,6 +1093,7 @@ begin
     if (key_info.CTRL_DOWN) and (key_info.ALT_DOWN) then begin
         case key_info.key_code of
             uint8('c'):OpenTerminal:=true;
+            uint8('r'):resetSystem;
         end;
     end else begin
         if WindowManager.Z_Order[0] <> MAX_WINDOWS then begin

src/include/asuro.pas

@@ -9,14 +9,14 @@ const
      VERSION_SUB   = '1';
      REVISION      = '664';
      RELEASE       = 'ia';
-     LINE_COUNT    = 27151;
+     LINE_COUNT    = 27361;
-     FILE_COUNT    = 83;
+     FILE_COUNT    = 84;
      DRIVER_COUNT  = 28;
      FPC_VERSION   = '2.6.4';
      NASM_VERSION  = '2.10.09';
      MAKE_VERSION  = '3.81';
      COMPILE_DATE  = '06/05/18';
-     COMPILE_TIME  = '00:38:59';
+     COMPILE_TIME  = '06:55:52';
  
 implementation
  

src/kernel.pas

@@ -41,7 +41,8 @@ uses
      shell,
      memview,
      splash,
-     cpu;
+     cpu,
+     themer;
  
 procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall;
  
@@ -200,6 +201,7 @@ begin
      { Init Progs }
      shell.init();
      memview.init();
+     themer.init();
 
      { Init Splash }
      splash.init();

src/prog/shell.pas

@@ -6,6 +6,9 @@ uses
     Console, RTC, terminal, strings, asuro;
 
 procedure init();
+function getTaskbarColorsPtr : puint32;
+function getExploreColorsPtr : puint32;
+function getDesktopColorsPtr : puint32;
 
 implementation
 
@@ -16,6 +19,21 @@ var
     Explore_Colors : uint32;
     Desktop_Colors : uint32;
 
+function getTaskbarColorsPtr : puint32;
+begin
+    getTaskbarColorsPtr:= @Takbar_Colors;
+end;
+
+function getExploreColorsPtr : puint32;
+begin
+    getExploreColorsPtr:= @Explore_Colors;
+end;
+
+function getDesktopColorsPtr : puint32;
+begin
+    getDesktopColorsPtr:= @Desktop_Colors;
+end;
+
 procedure Draw();
 var
     DateTime : TDateTime;