|
@@ -3,7 +3,7 @@ IMPORT Out, G := Graph;
|
|
|
|
|
|
CONST
|
|
CONST
|
|
charW = 8; charH = 16;
|
|
charW = 8; charH = 16;
|
|
-
|
|
|
|
|
|
+
|
|
(* redrawState *)
|
|
(* redrawState *)
|
|
redrawNone* = 0;
|
|
redrawNone* = 0;
|
|
redrawAll* = 1;
|
|
redrawAll* = 1;
|
|
@@ -22,7 +22,7 @@ TYPE
|
|
OnDrawHandler = PROCEDURE (c: Component; bmp: G.Bitmap; x0, y0: INTEGER);
|
|
OnDrawHandler = PROCEDURE (c: Component; bmp: G.Bitmap; x0, y0: INTEGER);
|
|
OnMouseDownHandler = PROCEDURE (c: Component; x, y, btn: INTEGER);
|
|
OnMouseDownHandler = PROCEDURE (c: Component; x, y, btn: INTEGER);
|
|
OnKeyDownHandler = PROCEDURE (c: Component; key: INTEGER);
|
|
OnKeyDownHandler = PROCEDURE (c: Component; key: INTEGER);
|
|
-
|
|
|
|
|
|
+
|
|
MethodDesc* = RECORD
|
|
MethodDesc* = RECORD
|
|
draw*: OnDrawHandler;
|
|
draw*: OnDrawHandler;
|
|
mouseDown*: OnMouseDownHandler;
|
|
mouseDown*: OnMouseDownHandler;
|
|
@@ -43,13 +43,13 @@ TYPE
|
|
setOnKeyDown*: PROCEDURE (c: Component; hn: OnKeyDownHandler);
|
|
setOnKeyDown*: PROCEDURE (c: Component; hn: OnKeyDownHandler);
|
|
END;
|
|
END;
|
|
ComponentDesc* = RECORD
|
|
ComponentDesc* = RECORD
|
|
- x-, y-, w-, h-: INTEGER;
|
|
|
|
- visible-: BOOLEAN;
|
|
|
|
- redrawState-: INTEGER; (* see constants with prefix 'redraw' *)
|
|
|
|
|
|
+ x*, y*, w*, h*: INTEGER;
|
|
|
|
+ visible*: BOOLEAN;
|
|
|
|
+ redrawState*: INTEGER; (* see constants with prefix 'redraw' *)
|
|
do*: Method;
|
|
do*: Method;
|
|
- onDraw-: OnDrawHandler;
|
|
|
|
- onMouseDown-: OnMouseDownHandler;
|
|
|
|
- onKeyDown-: OnKeyDownHandler;
|
|
|
|
|
|
+ onDraw*: OnDrawHandler;
|
|
|
|
+ onMouseDown*: OnMouseDownHandler;
|
|
|
|
+ onKeyDown*: OnKeyDownHandler;
|
|
parent*: Component;
|
|
parent*: Component;
|
|
next*: Component
|
|
next*: Component
|
|
END;
|
|
END;
|
|
@@ -60,17 +60,17 @@ TYPE
|
|
bgColor*: INTEGER
|
|
bgColor*: INTEGER
|
|
END;
|
|
END;
|
|
ButtonDesc* = RECORD(ComponentDesc)
|
|
ButtonDesc* = RECORD(ComponentDesc)
|
|
- caption-: ARRAY 100 OF CHAR
|
|
|
|
|
|
+ caption*: ARRAY 100 OF CHAR
|
|
END;
|
|
END;
|
|
EditDesc* = RECORD(ComponentDesc)
|
|
EditDesc* = RECORD(ComponentDesc)
|
|
- text-: ARRAY 4096 OF CHAR;
|
|
|
|
- selStart-: INTEGER;
|
|
|
|
- selLen-: INTEGER
|
|
|
|
|
|
+ text*: ARRAY 4096 OF CHAR;
|
|
|
|
+ selStart*: INTEGER;
|
|
|
|
+ selLen*: INTEGER
|
|
END;
|
|
END;
|
|
CircleDesc* = RECORD(ComponentDesc)
|
|
CircleDesc* = RECORD(ComponentDesc)
|
|
color*: INTEGER
|
|
color*: INTEGER
|
|
END;
|
|
END;
|
|
-
|
|
|
|
|
|
+
|
|
VAR
|
|
VAR
|
|
screen: G.Bitmap;
|
|
screen: G.Bitmap;
|
|
font: G.Font;
|
|
font: G.Font;
|