Subversion Repositories Kolibri OS

Rev

Rev 9208 | Rev 9577 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9208 Rev 9210
Line 26... Line 26...
26 
	MAX_LENGTH = 1024;
 26 
	MAX_LENGTH = 1024;
Line 27... Line 27...
27 
 
 27 
 
Line 28... Line 28...
28 
 
 28 
 
29 
TYPE
 29 
TYPE
30 
 
 30 
 
31 
	tEditBox* = POINTER TO RECORD
 31 
	tEditBox* = RECORD
32 
		width*,
 32 
		width*,
33 
		left*,
 33 
		left*,
34 
		top*,
 34 
		top*,
35 
		color*,
 35 
		color*,
36 
		shift_color,
 36 
		shift_color,
37 
		focus_border_color,
 37 
		focus_border_color,
38 
		blur_border_color,
 38 
		blur_border_color,
39 
		text_color*,
 39 
		text_color*,
40 
		max: INTEGER;
 40 
		max: INTEGER;
Line 41... Line 41...
41 
		text*: INTEGER;
 41 
		text*: INTEGER;
42 
		mouse_variable: tEditBox;
 42 
		mouse_variable: INTEGER;
43 
		flags*: SET;
 43 
		flags*: SET;
Line 108... Line 108...
108 
	UNTIL str[i - 1] = 0X;
 108 
	UNTIL str[i - 1] = 0X;
109 
	_setValue(text, SYSTEM.ADR(temp[0]))
 109 
	_setValue(text, SYSTEM.ADR(temp[0]))
110 
END setValue;
 110 
END setValue;
Line 111... Line 111...
111 
 
 111 
 
112 
 
 - 
 
113 
PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; editbox_interlock: tEditBox): tEditBox;
 - 
 
114 
VAR
 - 
 
115 
    new_textbox: tEditBox;
 112 
 
116 
 
 - 
 
117 
BEGIN
 - 
 
118 
    NEW(new_textbox);
 113 
PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; VAR editbox: tEditBox);
119 
 
 114 
BEGIN
120 
    new_textbox.width := width;
 115 
    editbox.width := width;
121 
    new_textbox.left := tlx;
 116 
    editbox.left := tlx;
122 
    new_textbox.top := tly;
 117 
    editbox.top := tly;
123 
    new_textbox.color := 0FFFFFFH;
 118 
    editbox.color := 0FFFFFFH;
124 
    new_textbox.shift_color := 06A9480H;
 119 
    editbox.shift_color := 06A9480H;
125 
    new_textbox.focus_border_color := 0;
 120 
    editbox.focus_border_color := 0;
126 
    new_textbox.blur_border_color := 06A9480H;
 121 
    editbox.blur_border_color := 06A9480H;
127 
    new_textbox.text_color := 0;
 122 
    editbox.text_color := 30000000H;
128 
    new_textbox.max := max_chars;
 123 
    editbox.max := max_chars;
129 
    new_textbox.text := KOSAPI.malloc(max_chars + 2);
 124 
    editbox.text := KOSAPI.malloc(max_chars + 2);
130 
    ASSERT(new_textbox.text # 0);
 125 
    ASSERT(editbox.text # 0);
131 
    new_textbox.mouse_variable := editbox_interlock;
 - 
 
132 
    new_textbox.flags := {}
 - 
 
133 
 
 126 
    editbox.mouse_variable := 0;
Line 134... Line 127...
134 
    RETURN new_textbox
 127 
    editbox.flags := {14}
135 
END create;
 128 
END create;