equal
deleted
inserted
replaced
20 |
20 |
21 unit uChat; |
21 unit uChat; |
22 |
22 |
23 interface |
23 interface |
24 |
24 |
25 procedure init_uChat; |
25 procedure initModule; |
26 procedure free_uChat; |
26 procedure freeModule; |
27 |
27 |
28 procedure AddChatString(s: shortstring); |
28 procedure AddChatString(s: shortstring); |
29 procedure DrawChat; |
29 procedure DrawChat; |
30 procedure KeyPressChat(Key: Longword); |
30 procedure KeyPressChat(Key: Longword); |
31 |
31 |
282 InputStrL[byte(InputStr.s[0]) + btw]:= InputStr.s[0]; |
282 InputStrL[byte(InputStr.s[0]) + btw]:= InputStr.s[0]; |
283 SetLine(InputStr, InputStr.s + utf8, true) |
283 SetLine(InputStr, InputStr.s + utf8, true) |
284 end |
284 end |
285 end; |
285 end; |
286 |
286 |
287 procedure init_uChat; |
287 procedure initModule; |
288 begin |
288 begin |
289 lastStr:= 0; |
289 lastStr:= 0; |
290 visibleCount:= 0; |
290 visibleCount:= 0; |
291 UserNick:= ''; |
291 UserNick:= ''; |
292 showAll:= false; |
292 showAll:= false; |
293 end; |
293 end; |
294 |
294 |
295 procedure free_uChat; |
295 procedure freeModule; |
296 begin |
296 begin |
297 |
297 |
298 end; |
298 end; |
299 |
299 |
300 end. |
300 end. |