Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 9196 → Rev 9197

/programs/develop/cedit/SRC/EditBox.ob07
19,9 → 19,13
 
MODULE EditBox;
 
IMPORT sys := SYSTEM, KOSAPI;
IMPORT SYSTEM, KOSAPI, Encodings;
 
CONST
 
MAX_LENGTH = 1024;
 
 
TYPE
 
tEditBox* = POINTER TO RECORD
52,12 → 56,12
key_proc: EditBoxKey;
paint *: PROCEDURE (eb: tEditBox);
mouse *: PROCEDURE (eb: tEditBox);
setValue *: PROCEDURE (eb: tEditBox; text: INTEGER);
_setValue : PROCEDURE (eb: tEditBox; text: INTEGER);
 
 
PROCEDURE _key (key: INTEGER; key_proc: EditBoxKey; text: tEditBox);
BEGIN
sys.CODE(
SYSTEM.CODE(
08BH, 045H, 008H, (* mov eax, dword [ebp + 8] *)
08BH, 055H, 00CH, (* mov edx, dword [ebp + 12] *)
08BH, 04DH, 010H, (* mov ecx, dword [ebp + 16] *)
83,7 → 87,7
ASSERT(max < LEN(str));
i := 0;
REPEAT
sys.GET(ptr, str[i]);
SYSTEM.GET(ptr, str[i]);
INC(i);
INC(ptr)
UNTIL (str[i - 1] = 0X) OR (i = max);
91,6 → 95,21
END getValue;
 
 
PROCEDURE setValue* (text: tEditBox; str: ARRAY OF WCHAR);
VAR
i: INTEGER;
temp: ARRAY MAX_LENGTH OF CHAR;
BEGIN
ASSERT(LENGTH(str) < LEN(temp));
i := 0;
REPEAT
temp[i] := CHR(Encodings.UNI[ORD(str[i]), Encodings.CP866] MOD 256);
INC(i)
UNTIL str[i - 1] = 0X;
_setValue(text, SYSTEM.ADR(temp[0]))
END setValue;
 
 
PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; editbox_interlock: tEditBox): tEditBox;
VAR
new_textbox: tEditBox;
122,7 → 141,7
BEGIN
a := KOSAPI.GetProcAdr(name, Lib);
ASSERT(a # 0);
sys.PUT(v, a)
SYSTEM.PUT(v, a)
END GetProc;
 
 
132,10 → 151,10
BEGIN
Lib := KOSAPI.LoadLib("/rd/1/lib/box_lib.obj");
ASSERT(Lib # 0);
GetProc(Lib, sys.ADR(paint), "edit_box");
GetProc(Lib, sys.ADR(key_proc), "edit_box_key");
GetProc(Lib, sys.ADR(mouse), "edit_box_mouse");
GetProc(Lib, sys.ADR(setValue), "edit_box_set_text");
GetProc(Lib, SYSTEM.ADR(paint), "edit_box");
GetProc(Lib, SYSTEM.ADR(key_proc), "edit_box_key");
GetProc(Lib, SYSTEM.ADR(mouse), "edit_box_mouse");
GetProc(Lib, SYSTEM.ADR(_setValue), "edit_box_set_text");
END main;