git-svn-id: https://spexeah.com:8443/svn/Asuro@643 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
+6
-6
@@ -249,15 +249,15 @@ type
|
||||
|
||||
THooks = record
|
||||
OnDraw : TDrawHook; //Implemented
|
||||
OnMouseClick : TMouseClickHook;
|
||||
OnMouseClick : TMouseClickHook; //Implemented
|
||||
OnMouseMove : TMouseMoveHook;
|
||||
OnMouseDown : TMouseDownHook;
|
||||
OnMouseUp : TMouseUpHook;
|
||||
OnKeyPressed : TKeyPressedHook;
|
||||
OnClose : TCloseHook; //Implemented
|
||||
OnMinimize : TMinimizeHook;
|
||||
OnFocus : TFocusHook; //Implemented
|
||||
OnLoseFocus : TLoseFocusHook; //Implemented
|
||||
OnKeyPressed : TKeyPressedHook; //Implemented
|
||||
OnClose : TCloseHook; //Implemented
|
||||
OnMinimize : TMinimizeHook;
|
||||
OnFocus : TFocusHook; //Implemented
|
||||
OnLoseFocus : TLoseFocusHook; //Implemented
|
||||
end;
|
||||
|
||||
TWindow = record
|
||||
|
||||
@@ -3,11 +3,11 @@ unit asuro;
|
||||
interface
|
||||
|
||||
const
|
||||
VERSION = '1.0.0-634a';
|
||||
VERSION = '1.0.0-642a';
|
||||
VERSION_MAJOR = '1';
|
||||
VERSION_MINOR = '0';
|
||||
VERSION_SUB = '0';
|
||||
REVISION = '634';
|
||||
REVISION = '642';
|
||||
RELEASE = 'a';
|
||||
|
||||
implementation
|
||||
|
||||
@@ -60,6 +60,11 @@ begin
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure onBaseDraw();
|
||||
begin
|
||||
clearWNDEx(0, console.combinecolors($01C3, $A55F));
|
||||
end;
|
||||
|
||||
procedure init();
|
||||
begin
|
||||
colors:= console.combinecolors($0000, $FFFF);
|
||||
@@ -70,6 +75,7 @@ begin
|
||||
console.setShellWindow(Handle, false);
|
||||
console.registerEventHandler(Handle, EVENT_DRAW, void(@Draw));
|
||||
console.registerEventHandler(Handle, EVENT_MOUSE_CLICK, void(@OnMouseClick));
|
||||
console.registerEventHandler(0, EVENT_DRAW, void(@onBaseDraw));
|
||||
end;
|
||||
|
||||
end.
|
||||
Reference in New Issue
Block a user