/programs/develop/cedit/BUILD.SH |
---|
0,0 → 1,3 |
#SHS |
/kolibrios/develop/oberon07/compiler.kex ./src/cedit.ob07 kosexe -out /tmp0/1/cedit.kex -stk 1 -nochk a |
exit |
/programs/develop/cedit/CEDIT |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
/programs/develop/cedit/RUN.SH |
---|
0,0 → 1,3 |
#SHS |
/tmp0/1/cedit.kex |
exit |
/programs/develop/cedit/SRC/CEdit.ob07 |
---|
182,7 → 182,7 |
winWidth, winHeight: INTEGER; |
SkinHeight: INTEGER; |
AppPath, runScript, buildScript, debugScript: RW.tFileName; |
AppPath, runScript, buildScript, debugScript, CurFolder: RW.tFileName; |
OD: OpenDlg.Dialog; |
confirm, notFound, menuFindClicked, search, searchOpened: BOOLEAN; |
243,7 → 243,7 |
EXCL(edit.flags, 1) |
END; |
IF search & searchOpened THEN |
EB.paint(edit) |
EB.draw(edit) |
END |
END EditBox_SetFocus; |
367,7 → 367,7 |
scroll.left := left; |
scroll.top := top; |
Scroll.setValue(scroll, value); |
Scroll.paint(scroll) |
Scroll.draw(scroll) |
END DrawScroll; |
400,9 → 400,9 |
DrawScroll(vScroll, LEFT + canvas.width, TOP - 1, scrollY, text.count - 1); |
DrawScroll(hScroll, LEFT, TOP + canvas.height, scrollX, text.maxLength); |
IF search & searchOpened THEN |
CheckBox.paint(BKW); |
CheckBox.paint(CS); |
CheckBox.paint(WH); |
CheckBox.draw(BKW); |
CheckBox.draw(CS); |
CheckBox.draw(WH); |
END; |
G.SetColor(canvas, K.colors.line); |
485,9 → 485,9 |
FindEdit.left := left; |
ReplaceEdit.left := left; |
GotoEdit.left := left; |
EB.paint(FindEdit); |
EB.paint(ReplaceEdit); |
EB.paint(GotoEdit); |
EB.draw(FindEdit); |
EB.draw(ReplaceEdit); |
EB.draw(GotoEdit); |
y := top + 200; |
K.CreateButton(btnFindNext, left, y, btnWidth, btnHeight, K.colors.button, "next"); INC(y, btnHeight + 10); |
K.CreateButton(btnReplace, left, y, btnWidth, btnHeight, K.colors.button, "replace"); INC(y, btnHeight + 10); |
948,6 → 948,8 |
PROCEDURE Script (script: ARRAY OF CHAR); |
BEGIN |
IF script # "" THEN |
U.getPath(script, CurFolder); |
K.SetCurFolder(CurFolder); |
K.Run("/sys/@open", script) |
END |
END Script; |
/programs/develop/cedit/SRC/CheckBox.ob07 |
---|
42,7 → 42,7 |
END; |
PROCEDURE paint* (chkbox: tCheckBox); |
PROCEDURE draw* (chkbox: tCheckBox); |
VAR |
canvas: G.tCanvas; |
BEGIN |
70,7 → 70,7 |
G.TextOut2(canvas, fontHeight + padding, 0, chkbox.text, LENGTH(chkbox.text)); |
G.DrawCanvas(canvas, chkbox.left, chkbox.top) |
END |
END paint; |
END draw; |
PROCEDURE create* (text: ARRAY OF WCHAR; VAR chkbox: tCheckBox); |
104,7 → 104,7 |
IF U.between(0, x, chkbox.width - 1) & U.between(0, y, chkbox.height - 1) THEN |
chkbox.value := ~chkbox.value; |
END; |
paint(chkbox) |
draw(chkbox) |
END |
ELSE |
chkbox.mouse := FALSE |
/programs/develop/cedit/SRC/EditBox.ob07 |
---|
51,7 → 51,7 |
VAR |
paint *: PROCEDURE (eb: tEditBox); |
draw *: PROCEDURE (eb: tEditBox); |
mouse *: PROCEDURE (eb: tEditBox); |
_setValue : PROCEDURE (eb: tEditBox; text: INTEGER); |
key *: PROCEDURE (eb: tEditBox; key: INTEGER); |
124,7 → 124,7 |
BEGIN |
Lib := KOSAPI.LoadLib("/sys/lib/box_lib.obj"); |
ASSERT(Lib # 0); |
GetProc(Lib, SYSTEM.ADR(paint), "edit_box_draw"); |
GetProc(Lib, SYSTEM.ADR(draw), "edit_box_draw"); |
GetProc(Lib, SYSTEM.ADR(key), "edit_box_key_safe"); |
GetProc(Lib, SYSTEM.ADR(mouse), "edit_box_mouse"); |
GetProc(Lib, SYSTEM.ADR(_setValue), "edit_box_set_text"); |
/programs/develop/cedit/SRC/KolibriOS.ob07 |
---|
268,6 → 268,12 |
END Run; |
PROCEDURE SetCurFolder* (folder: ARRAY OF CHAR); |
BEGIN |
KOSAPI.sysfunc3(30, 1, SYSTEM.ADR(folder[0])); |
END SetCurFolder; |
PROCEDURE DrawRect* (x, y, width, height, color: INTEGER); |
BEGIN |
KOSAPI.sysfunc4(13, x*65536 + width, y*65536 + height, color) |
/programs/develop/cedit/SRC/scroll.ob07 |
---|
81,7 → 81,7 |
END Rect; |
PROCEDURE _paint (scroll: tScroll); |
PROCEDURE _draw (scroll: tScroll); |
VAR |
canvas: G.tCanvas; |
x, y, d, x1, x2, y1, y2, |
164,15 → 164,15 |
G.Triangle(canvas, x, y1 - 1, x, y2, G.triRight); |
END; |
G.DrawCanvas(scroll.canvas, scroll.left, scroll.top) |
END _paint; |
END _draw; |
PROCEDURE paint* (scroll: tScroll); |
PROCEDURE draw* (scroll: tScroll); |
BEGIN |
IF scroll.canvas # NIL THEN |
_paint(scroll) |
_draw(scroll) |
END |
END paint; |
END draw; |
PROCEDURE resize* (VAR scroll: tScroll; width, height: INTEGER); |
181,7 → 181,7 |
scroll.canvas := G.CreateCanvas(width, height); |
scroll.width := width; |
scroll.height := height; |
paint(scroll) |
draw(scroll) |
END resize; |
226,7 → 226,7 |
ELSIF scroll.Dec THEN |
setValue(scroll, scroll.value - 1) |
END; |
paint(scroll) |
draw(scroll) |
END change; |
302,7 → 302,7 |
c := x - scroll.left |
END; |
setPos(scroll, scroll.pos0 + c - scroll.Slider); |
paint(scroll) |
draw(scroll) |
END MouseMove; |
368,7 → 368,7 |
setPos(scroll, c - scroll.btnSize - scroll.sliderSize DIV 2); |
scroll.pos0 := scroll.pos; |
scroll.Slider := c; |
paint(scroll) |
draw(scroll) |
END |
END |
END MouseDown; |
388,7 → 388,7 |
END |
ELSIF scroll.mouse THEN |
MouseUp(scroll); |
paint(scroll) |
draw(scroll) |
END |
END mouse; |