| 28,7 → 28,7 |
|---|
| |
| TYPE |
| |
| tEditBox* = POINTER TO RECORD |
| tEditBox* = RECORD |
| width*, |
| left*, |
| top*, |
| 39,7 → 39,7 |
|---|
| text_color*, |
| max: INTEGER; |
| text*: INTEGER; |
| mouse_variable: tEditBox; |
| mouse_variable: INTEGER; |
| flags*: SET; |
| |
| size, |
| 110,28 → 110,21 |
|---|
| END setValue; |
| |
| |
| PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; editbox_interlock: tEditBox): tEditBox; |
| VAR |
| new_textbox: tEditBox; |
| |
| PROCEDURE create* (tlx, tly, width, max_chars: INTEGER; VAR editbox: tEditBox); |
| BEGIN |
| NEW(new_textbox); |
| |
| new_textbox.width := width; |
| new_textbox.left := tlx; |
| new_textbox.top := tly; |
| new_textbox.color := 0FFFFFFH; |
| new_textbox.shift_color := 06A9480H; |
| new_textbox.focus_border_color := 0; |
| new_textbox.blur_border_color := 06A9480H; |
| new_textbox.text_color := 0; |
| new_textbox.max := max_chars; |
| new_textbox.text := KOSAPI.malloc(max_chars + 2); |
| ASSERT(new_textbox.text # 0); |
| new_textbox.mouse_variable := editbox_interlock; |
| new_textbox.flags := {} |
| |
| RETURN new_textbox |
| editbox.width := width; |
| editbox.left := tlx; |
| editbox.top := tly; |
| editbox.color := 0FFFFFFH; |
| editbox.shift_color := 06A9480H; |
| editbox.focus_border_color := 0; |
| editbox.blur_border_color := 06A9480H; |
| editbox.text_color := 30000000H; |
| editbox.max := max_chars; |
| editbox.text := KOSAPI.malloc(max_chars + 2); |
| ASSERT(editbox.text # 0); |
| editbox.mouse_variable := 0; |
| editbox.flags := {14} |
| END create; |
| |
| |