forked from KolibriOS/kolibrios
CEdit: minor fix
git-svn-id: svn://kolibrios.org@9906 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Anton Krotov
@@ -23,33 +23,33 @@ IMPORT SYSTEM, KOSAPI, Lines, Languages, E := Encodings;
|
||||
|
||||
CONST
|
||||
|
||||
modeCOPY = 0;
|
||||
modeNOT = 1;
|
||||
modeXOR = 2;
|
||||
modeCOPY = 0;
|
||||
modeNOT = 1;
|
||||
modeXOR = 2;
|
||||
|
||||
triUp* = FALSE;
|
||||
triDown* = TRUE;
|
||||
triLeft* = FALSE;
|
||||
triRight* = TRUE;
|
||||
triUp* = FALSE;
|
||||
triDown* = TRUE;
|
||||
triLeft* = FALSE;
|
||||
triRight* = TRUE;
|
||||
|
||||
TYPE
|
||||
|
||||
tFont* = POINTER TO RECORD
|
||||
handle*: INTEGER;
|
||||
height*: INTEGER;
|
||||
width*: INTEGER;
|
||||
size: INTEGER;
|
||||
flags: INTEGER;
|
||||
name*: ARRAY 256 OF WCHAR
|
||||
END;
|
||||
tFont* = POINTER TO RECORD
|
||||
handle*: INTEGER;
|
||||
height*: INTEGER;
|
||||
width*: INTEGER;
|
||||
size: INTEGER;
|
||||
flags: INTEGER;
|
||||
name*: ARRAY 256 OF WCHAR
|
||||
END;
|
||||
|
||||
tCanvas* = POINTER TO RECORD
|
||||
bitmap: INTEGER;
|
||||
width*, height*, sizeY: INTEGER;
|
||||
color, backColor, textColor: INTEGER;
|
||||
font*: tFont;
|
||||
mode: INTEGER
|
||||
END;
|
||||
tCanvas* = POINTER TO RECORD
|
||||
bitmap: INTEGER;
|
||||
width*, height*, sizeY: INTEGER;
|
||||
color, backColor, textColor: INTEGER;
|
||||
font*: tFont;
|
||||
mode: INTEGER
|
||||
END;
|
||||
|
||||
VAR
|
||||
|
||||
@@ -66,101 +66,101 @@ END getRGB;
|
||||
|
||||
PROCEDURE DrawCanvas* (canvas: tCanvas; x, y: INTEGER);
|
||||
BEGIN
|
||||
KOSAPI.sysfunc7(65, canvas.bitmap, canvas.width*65536 + canvas.height, x*65536 + y, 32, 0, 0)
|
||||
KOSAPI.sysfunc7(65, canvas.bitmap, canvas.width*65536 + canvas.height, x*65536 + y, 32, 0, 0)
|
||||
END DrawCanvas;
|
||||
|
||||
|
||||
PROCEDURE SetColor* (canvas: tCanvas; color: INTEGER);
|
||||
BEGIN
|
||||
canvas.color := color
|
||||
canvas.color := color
|
||||
END SetColor;
|
||||
|
||||
|
||||
PROCEDURE SetTextColor* (canvas: tCanvas; color: INTEGER);
|
||||
BEGIN
|
||||
canvas.textColor := color
|
||||
canvas.textColor := color
|
||||
END SetTextColor;
|
||||
|
||||
|
||||
PROCEDURE SetBkColor* (canvas: tCanvas; color: INTEGER);
|
||||
BEGIN
|
||||
canvas.backColor := color
|
||||
canvas.backColor := color
|
||||
END SetBkColor;
|
||||
|
||||
|
||||
PROCEDURE CreateFont (size: INTEGER; name: ARRAY OF WCHAR; attr: SET): tFont;
|
||||
VAR
|
||||
font: tFont;
|
||||
font: tFont;
|
||||
BEGIN
|
||||
ASSERT(size IN {0, 1, 2});
|
||||
NEW(font);
|
||||
font.size := size;
|
||||
IF size = 0 THEN
|
||||
font.width := 6;
|
||||
font.height := 9;
|
||||
font.flags := 08000000H
|
||||
ELSE
|
||||
font.width := size*8;
|
||||
font.height := size*16;
|
||||
IF size = 1 THEN
|
||||
font.flags := 28000000H
|
||||
ELSIF size = 2 THEN
|
||||
font.flags := 29000000H
|
||||
END
|
||||
END;
|
||||
font.name := name
|
||||
RETURN font
|
||||
NEW(font);
|
||||
font.size := size;
|
||||
IF size = 0 THEN
|
||||
font.width := 6;
|
||||
font.height := 9;
|
||||
font.flags := 08000000H
|
||||
ELSE
|
||||
font.width := size*8;
|
||||
font.height := size*16;
|
||||
IF size = 1 THEN
|
||||
font.flags := 28000000H
|
||||
ELSIF size = 2 THEN
|
||||
font.flags := 29000000H
|
||||
END
|
||||
END;
|
||||
font.name := name
|
||||
RETURN font
|
||||
END CreateFont;
|
||||
|
||||
|
||||
PROCEDURE SetFont* (canvas: tCanvas; font: tFont);
|
||||
BEGIN
|
||||
canvas.font := font
|
||||
canvas.font := font
|
||||
END SetFont;
|
||||
|
||||
|
||||
PROCEDURE HLine* (canvas: tCanvas; y, x1, x2: INTEGER);
|
||||
VAR
|
||||
X1, X2, i: INTEGER;
|
||||
ptr: INTEGER;
|
||||
color: INTEGER;
|
||||
X1, X2, i: INTEGER;
|
||||
ptr: INTEGER;
|
||||
color: INTEGER;
|
||||
BEGIN
|
||||
X1 := MAX(MIN(x1, x2), 0);
|
||||
X2 := MIN(MAX(x1, x2), canvas.width - 1);
|
||||
IF (0 <= y) & (y < canvas.height) THEN
|
||||
color := canvas.color;
|
||||
ptr := canvas.bitmap + 4*(y*canvas.width + X1);
|
||||
FOR i := X1 TO X2 DO
|
||||
SYSTEM.PUT32(ptr, color);
|
||||
INC(ptr, 4)
|
||||
END
|
||||
END
|
||||
X1 := MAX(MIN(x1, x2), 0);
|
||||
X2 := MIN(MAX(x1, x2), canvas.width - 1);
|
||||
IF (0 <= y) & (y < canvas.height) THEN
|
||||
color := canvas.color;
|
||||
ptr := canvas.bitmap + 4*(y*canvas.width + X1);
|
||||
FOR i := X1 TO X2 DO
|
||||
SYSTEM.PUT32(ptr, color);
|
||||
INC(ptr, 4)
|
||||
END
|
||||
END
|
||||
END HLine;
|
||||
|
||||
|
||||
PROCEDURE VLine* (canvas: tCanvas; x, y1, y2: INTEGER);
|
||||
VAR
|
||||
Y1, Y2, i: INTEGER;
|
||||
ptr: INTEGER;
|
||||
color: INTEGER;
|
||||
Y1, Y2, i: INTEGER;
|
||||
ptr: INTEGER;
|
||||
color: INTEGER;
|
||||
BEGIN
|
||||
Y1 := MAX(MIN(y1, y2), 0);
|
||||
Y2 := MIN(MAX(y1, y2), canvas.height - 1);
|
||||
IF (0 <= x) & (x < canvas.width) THEN
|
||||
color := canvas.color;
|
||||
ptr := canvas.bitmap + 4*(Y1*canvas.width + x);
|
||||
FOR i := Y1 TO Y2 DO
|
||||
IF canvas.mode = modeNOT THEN
|
||||
SYSTEM.GET32(ptr, color);
|
||||
color := ORD(-BITS(color)*{0..23})
|
||||
ELSIF canvas.mode = modeXOR THEN
|
||||
SYSTEM.GET32(ptr, color);
|
||||
color := ORD((BITS(color)/BITS(canvas.color))*{0..23})
|
||||
END;
|
||||
SYSTEM.PUT32(ptr, color);
|
||||
INC(ptr, canvas.width*4)
|
||||
END
|
||||
END
|
||||
Y1 := MAX(MIN(y1, y2), 0);
|
||||
Y2 := MIN(MAX(y1, y2), canvas.height - 1);
|
||||
IF (0 <= x) & (x < canvas.width) THEN
|
||||
color := canvas.color;
|
||||
ptr := canvas.bitmap + 4*(Y1*canvas.width + x);
|
||||
FOR i := Y1 TO Y2 DO
|
||||
IF canvas.mode = modeNOT THEN
|
||||
SYSTEM.GET32(ptr, color);
|
||||
color := ORD(-BITS(color)*{0..23})
|
||||
ELSIF canvas.mode = modeXOR THEN
|
||||
SYSTEM.GET32(ptr, color);
|
||||
color := ORD((BITS(color)/BITS(canvas.color))*{0..23})
|
||||
END;
|
||||
SYSTEM.PUT32(ptr, color);
|
||||
INC(ptr, canvas.width*4)
|
||||
END
|
||||
END
|
||||
END VLine;
|
||||
|
||||
|
||||
@@ -183,19 +183,19 @@ END xorVLine;
|
||||
|
||||
PROCEDURE DLine* (canvas: tCanvas; x1, x2, y: INTEGER; k: INTEGER);
|
||||
VAR
|
||||
ptr: INTEGER;
|
||||
color: INTEGER;
|
||||
d: INTEGER;
|
||||
ptr: INTEGER;
|
||||
color: INTEGER;
|
||||
d: INTEGER;
|
||||
BEGIN
|
||||
ASSERT(ABS(k) = 1);
|
||||
color := canvas.color;
|
||||
ptr := canvas.bitmap + 4*(y*canvas.width + x1);
|
||||
d := 4*(1 - canvas.width*k);
|
||||
WHILE x1 <= x2 DO
|
||||
SYSTEM.PUT32(ptr, color);
|
||||
INC(ptr, d);
|
||||
INC(x1)
|
||||
END
|
||||
color := canvas.color;
|
||||
ptr := canvas.bitmap + 4*(y*canvas.width + x1);
|
||||
d := 4*(1 - canvas.width*k);
|
||||
WHILE x1 <= x2 DO
|
||||
SYSTEM.PUT32(ptr, color);
|
||||
INC(ptr, d);
|
||||
INC(x1)
|
||||
END
|
||||
END DLine;
|
||||
|
||||
|
||||
@@ -230,123 +230,123 @@ END Triangle;
|
||||
|
||||
PROCEDURE FillRect* (canvas: tCanvas; left, top, right, bottom: INTEGER);
|
||||
VAR
|
||||
y: INTEGER;
|
||||
y: INTEGER;
|
||||
BEGIN
|
||||
FOR y := top TO bottom DO
|
||||
HLine(canvas, y, left, right)
|
||||
END
|
||||
FOR y := top TO bottom DO
|
||||
HLine(canvas, y, left, right)
|
||||
END
|
||||
END FillRect;
|
||||
|
||||
|
||||
PROCEDURE Rect* (canvas: tCanvas; left, top, right, bottom: INTEGER);
|
||||
BEGIN
|
||||
HLine(canvas, top, left, right);
|
||||
HLine(canvas, bottom, left, right);
|
||||
VLine(canvas, left, top, bottom);
|
||||
VLine(canvas, right, top, bottom)
|
||||
HLine(canvas, top, left, right);
|
||||
HLine(canvas, bottom, left, right);
|
||||
VLine(canvas, left, top, bottom);
|
||||
VLine(canvas, right, top, bottom)
|
||||
END Rect;
|
||||
|
||||
|
||||
PROCEDURE clear* (canvas: tCanvas);
|
||||
VAR
|
||||
ptr, ptr2, w, i: INTEGER;
|
||||
ptr, ptr2, w, i: INTEGER;
|
||||
BEGIN
|
||||
HLine(canvas, 0, 0, canvas.width - 1);
|
||||
w := canvas.width*4;
|
||||
ptr := canvas.bitmap;
|
||||
ptr2 := ptr;
|
||||
i := canvas.sizeY - 1;
|
||||
WHILE i > 0 DO
|
||||
INC(ptr2, w);
|
||||
SYSTEM.MOVE(ptr, ptr2, w);
|
||||
DEC(i)
|
||||
END
|
||||
HLine(canvas, 0, 0, canvas.width - 1);
|
||||
w := canvas.width*4;
|
||||
ptr := canvas.bitmap;
|
||||
ptr2 := ptr;
|
||||
i := canvas.sizeY - 1;
|
||||
WHILE i > 0 DO
|
||||
INC(ptr2, w);
|
||||
SYSTEM.MOVE(ptr, ptr2, w);
|
||||
DEC(i)
|
||||
END
|
||||
END clear;
|
||||
|
||||
|
||||
PROCEDURE TextOut* (canvas: tCanvas; x, y: INTEGER; text: INTEGER; n: INTEGER; delimColor: INTEGER);
|
||||
CONST
|
||||
WCHAR_SIZE = 2;
|
||||
WCHAR_SIZE = 2;
|
||||
VAR
|
||||
color, i: INTEGER;
|
||||
font: tFont;
|
||||
c: WCHAR;
|
||||
color, i: INTEGER;
|
||||
font: tFont;
|
||||
c: WCHAR;
|
||||
BEGIN
|
||||
font := canvas.font;
|
||||
IF (0 <= y) & (y <= canvas.sizeY - font.height - 1) THEN
|
||||
IF x < 0 THEN
|
||||
i := -(x DIV font.width);
|
||||
INC(x, i*font.width);
|
||||
DEC(n, i)
|
||||
ELSE
|
||||
i := 0
|
||||
END;
|
||||
IF n > 0 THEN
|
||||
n := MAX(MIN(n, (canvas.width - x) DIV font.width), 0);
|
||||
color := canvas.color;
|
||||
canvas.color := canvas.backColor;
|
||||
FillRect(canvas, x, y, x + n*font.width - 1, y + font.height);
|
||||
canvas.color := color;
|
||||
WHILE n > 0 DO
|
||||
SYSTEM.GET(text + i*WCHAR_SIZE, c);
|
||||
IF ~Lines.isSpace(c) THEN
|
||||
IF Languages.isDelim(c) THEN
|
||||
color := delimColor
|
||||
ELSE
|
||||
color := canvas.textColor
|
||||
END;
|
||||
IF (0 <= y) & (y <= canvas.sizeY - font.height - 1) THEN
|
||||
IF x < 0 THEN
|
||||
i := -(x DIV font.width);
|
||||
INC(x, i*font.width);
|
||||
DEC(n, i)
|
||||
ELSE
|
||||
i := 0
|
||||
END;
|
||||
IF n > 0 THEN
|
||||
n := MAX(MIN(n, (canvas.width - x) DIV font.width), 0);
|
||||
color := canvas.color;
|
||||
canvas.color := canvas.backColor;
|
||||
FillRect(canvas, x, y, x + n*font.width - 1, y + font.height);
|
||||
canvas.color := color;
|
||||
WHILE n > 0 DO
|
||||
SYSTEM.GET(text + i*WCHAR_SIZE, c);
|
||||
IF ~Lines.isSpace(c) THEN
|
||||
IF Languages.isDelim(c) THEN
|
||||
color := delimColor
|
||||
ELSE
|
||||
color := canvas.textColor
|
||||
END;
|
||||
IF c = Lines.NUL THEN
|
||||
c := 0X
|
||||
c := 0X
|
||||
END;
|
||||
IF font = fonts[0] THEN
|
||||
c := WCHR(E.UNI[ORD(c), E.CP866])
|
||||
END;
|
||||
KOSAPI.sysfunc6(4, x*65536 + y, font.flags + color, SYSTEM.ADR(c), 1, canvas.bitmap - 8)
|
||||
END;
|
||||
INC(x, font.width);
|
||||
INC(i);
|
||||
DEC(n)
|
||||
END
|
||||
END
|
||||
END
|
||||
KOSAPI.sysfunc6(4, x*65536 + y, font.flags + color, SYSTEM.ADR(c), 1, canvas.bitmap - 8)
|
||||
END;
|
||||
INC(x, font.width);
|
||||
INC(i);
|
||||
DEC(n)
|
||||
END
|
||||
END
|
||||
END
|
||||
END TextOut;
|
||||
|
||||
|
||||
PROCEDURE TextOut2* (canvas: tCanvas; x, y: INTEGER; text: ARRAY OF WCHAR; n: INTEGER);
|
||||
BEGIN
|
||||
TextOut(canvas, x, y, SYSTEM.ADR(text[0]), n, canvas.textColor)
|
||||
TextOut(canvas, x, y, SYSTEM.ADR(text[0]), n, canvas.textColor)
|
||||
END TextOut2;
|
||||
|
||||
|
||||
PROCEDURE CreateCanvas* (width, height: INTEGER): tCanvas;
|
||||
VAR
|
||||
canvas: tCanvas;
|
||||
canvas: tCanvas;
|
||||
BEGIN
|
||||
NEW(canvas);
|
||||
canvas.bitmap := KOSAPI.malloc(width*height*4 + 8);
|
||||
ASSERT(canvas.bitmap # 0);
|
||||
SYSTEM.PUT32(canvas.bitmap, width);
|
||||
SYSTEM.PUT32(canvas.bitmap + 4, height);
|
||||
INC(canvas.bitmap, 8);
|
||||
canvas.width := width;
|
||||
canvas.height := height;
|
||||
canvas.sizeY := height;
|
||||
canvas.mode := modeCOPY
|
||||
RETURN canvas
|
||||
NEW(canvas);
|
||||
canvas.bitmap := KOSAPI.malloc(width*height*4 + 8);
|
||||
ASSERT(canvas.bitmap # 0);
|
||||
SYSTEM.PUT32(canvas.bitmap, width);
|
||||
SYSTEM.PUT32(canvas.bitmap + 4, height);
|
||||
INC(canvas.bitmap, 8);
|
||||
canvas.width := width;
|
||||
canvas.height := height;
|
||||
canvas.sizeY := height;
|
||||
canvas.mode := modeCOPY
|
||||
RETURN canvas
|
||||
END CreateCanvas;
|
||||
|
||||
|
||||
PROCEDURE destroy* (VAR canvas: tCanvas);
|
||||
BEGIN
|
||||
IF canvas # NIL THEN
|
||||
canvas.bitmap := KOSAPI.free(canvas.bitmap - 8);
|
||||
DISPOSE(canvas)
|
||||
END
|
||||
IF canvas # NIL THEN
|
||||
canvas.bitmap := KOSAPI.free(canvas.bitmap - 8);
|
||||
DISPOSE(canvas)
|
||||
END
|
||||
END destroy;
|
||||
|
||||
|
||||
BEGIN
|
||||
fonts[0] := CreateFont(0, "", {});
|
||||
fonts[1] := CreateFont(1, "", {});
|
||||
fonts[2] := CreateFont(2, "", {});
|
||||
fonts[0] := CreateFont(0, "", {});
|
||||
fonts[1] := CreateFont(1, "", {});
|
||||
fonts[2] := CreateFont(2, "", {});
|
||||
END Graph.
|
||||
Reference in New Issue
Block a user