author | Wuzzy <Wuzzy2@mail.ru> |
Wed, 14 Mar 2018 17:50:21 +0100 | |
changeset 13207 | 2fe85d497e0f |
parent 13082 | c213645ff848 |
child 13390 | ec1491bb5acc |
child 13462 | b587cdb03bac |
permissions | -rw-r--r-- |
942 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
11046 | 3 |
* Copyright (c) 2004-2015 Andrey Korotaev <unC0Rr@gmail.com> |
942 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
10108
c68cf030eded
update FSF address. note: two sdl include files (by Sam Lantinga) still have the old FSF address in their copyright - but I ain't gonna touch their copyright headers
sheepluva
parents:
10104
diff
changeset
|
16 |
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA |
942 | 17 |
*) |
18 |
||
2630 | 19 |
{$INCLUDE "options.inc"} |
20 |
||
942 | 21 |
unit uChat; |
22 |
||
23 |
interface |
|
9699
fab319c85a39
Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents:
9697
diff
changeset
|
24 |
uses SDLh; |
942 | 25 |
|
3038 | 26 |
procedure initModule; |
27 |
procedure freeModule; |
|
6379 | 28 |
procedure ReloadLines; |
8738 | 29 |
procedure CleanupInput; |
942 | 30 |
procedure AddChatString(s: shortstring); |
31 |
procedure DrawChat; |
|
11356 | 32 |
procedure KeyPressChat(keysym: TSDL_Keysym); |
9669 | 33 |
procedure SendHogSpeech(s: shortstring); |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
34 |
procedure CopyToClipboard(var newContent: shortstring); |
9699
fab319c85a39
Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents:
9697
diff
changeset
|
35 |
procedure TextInput(var event: TSDL_TextInputEvent); |
fab319c85a39
Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents:
9697
diff
changeset
|
36 |
|
942 | 37 |
implementation |
11342 | 38 |
uses uInputHandler, uTypes, uVariables, uCommands, uUtils, uTextures, uRender, uIO, uScript, uRenderUtils; |
942 | 39 |
|
990
dfa6a6fe1542
Implement history for chat (27 entries), no key binding yet
unc0rr
parents:
988
diff
changeset
|
40 |
const MaxStrIndex = 27; |
10921 | 41 |
MaxInputStrLen = 200; |
942 | 42 |
|
946 | 43 |
type TChatLine = record |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
44 |
Tex: PTexture; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
45 |
Time: Longword; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
46 |
Width: LongInt; |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
47 |
s: shortstring; |
10303 | 48 |
Color: TSDL_Color; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
49 |
end; |
12415
8b971d8944d6
Remove the buggy /finish chat command
Wuzzy <almikes@aol.com>
parents:
12107
diff
changeset
|
50 |
TChatCmd = (ccQuit, ccPause, ccShowHistory, ccFullScreen); |
942 | 51 |
|
946 | 52 |
var Strs: array[0 .. MaxStrIndex] of TChatLine; |
3539 | 53 |
MStrs: array[0 .. MaxStrIndex] of shortstring; |
8740
3eb1891f81ef
use a local storage for chat history which prevents mix ups in netgame and simplifies code
koda
parents:
8739
diff
changeset
|
54 |
LocalStrs: array[0 .. MaxStrIndex] of shortstring; |
3539 | 55 |
missedCount: LongWord; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
56 |
lastStr: LongWord; |
9145 | 57 |
localLastStr: LongInt; |
58 |
history: LongInt; |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
59 |
visibleCount: LongWord; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
60 |
InputStr: TChatLine; |
4814
e19791f08443
smaller rearrangement of (non stereo related) variables
koda
parents:
4467
diff
changeset
|
61 |
ChatReady: boolean; |
e19791f08443
smaller rearrangement of (non stereo related) variables
koda
parents:
4467
diff
changeset
|
62 |
showAll: boolean; |
10312 | 63 |
liveLua: boolean; |
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
64 |
ChatHidden: boolean; |
10842
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
65 |
firstDraw: boolean; |
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
66 |
InputLinePrefix: TChatLine; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
67 |
// cursor |
10836 | 68 |
cursorPos, cursorX, selectedPos, selectionDx: LongInt; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
69 |
LastKeyPressTick: LongWord; |
942 | 70 |
|
71 |
||
8152 | 72 |
const |
11840 | 73 |
colors: array[#0..#9] of TSDL_Color = ( |
11022 | 74 |
(r:$FF; g:$FF; b:$FF; a:$FF), // #0 unused, feel free to take it for anything |
75 |
(r:$FF; g:$FF; b:$FF; a:$FF), // #1 chat message [White] |
|
76 |
(r:$FF; g:$00; b:$FF; a:$FF), // #2 action message [Purple] |
|
77 |
(r:$90; g:$FF; b:$90; a:$FF), // #3 join/leave message [Lime] |
|
78 |
(r:$FF; g:$FF; b:$A0; a:$FF), // #4 team message [Light Yellow] |
|
79 |
(r:$FF; g:$00; b:$00; a:$FF), // #5 error messages [Red] |
|
80 |
(r:$00; g:$FF; b:$FF; a:$FF), // #6 input line [Light Blue] |
|
81 |
(r:$FF; g:$80; b:$80; a:$FF), // #7 team gone [Light Red] |
|
82 |
(r:$FF; g:$D0; b:$80; a:$FF), // #8 team back [Light Orange] |
|
11840 | 83 |
(r:$DF; g:$DF; b:$DF; a:$FF) // #9 hog speech [Light Gray] |
8152 | 84 |
); |
85 |
ChatCommandz: array [TChatCmd] of record |
|
86 |
ChatCmd: string[31]; |
|
87 |
ProcedureCallChatCmd: string[31]; |
|
88 |
end = ( |
|
89 |
(ChatCmd: '/quit'; ProcedureCallChatCmd: 'halt'), |
|
90 |
(ChatCmd: '/pause'; ProcedureCallChatCmd: 'pause'), |
|
9569 | 91 |
(ChatCmd: '/history'; ProcedureCallChatCmd: 'history'), |
8152 | 92 |
(ChatCmd: '/fullscreen'; ProcedureCallChatCmd: 'fullscr') |
93 |
); |
|
2396 | 94 |
|
10303 | 95 |
|
96 |
const Padding = 2; |
|
97 |
ClHeight = 2 * Padding + 16; // font height |
|
98 |
||
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
99 |
// relevant for UTF-8 handling |
10921 | 100 |
function IsFirstCharByte(c: char): boolean; inline; |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
101 |
begin |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
102 |
// based on https://en.wikipedia.org/wiki/UTF-8#Description |
10921 | 103 |
IsFirstCharByte:= (byte(c) and $C0) <> $80; |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
104 |
end; |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
105 |
|
10866 | 106 |
function charIsForHogSpeech(c: char): boolean; |
107 |
begin |
|
108 |
exit((c = '"') or (c = '''') or (c = '-')); |
|
109 |
end; |
|
110 |
||
10836 | 111 |
procedure ResetSelection(); |
942 | 112 |
begin |
10836 | 113 |
selectedPos:= -1; |
114 |
end; |
|
115 |
||
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
116 |
procedure UpdateCursorCoords(); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
117 |
var font: THWFont; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
118 |
str : shortstring; |
10836 | 119 |
coff, soff: LongInt; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
120 |
begin |
10836 | 121 |
if cursorPos = selectedPos then |
122 |
ResetSelection(); |
|
2396 | 123 |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
124 |
// calculate cursor offset |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
125 |
|
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
126 |
str:= InputStr.s; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
127 |
font:= CheckCJKFont(ansistring(str), fnt16); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
128 |
|
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
129 |
// get only substring before cursor to determine length |
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
130 |
// SetLength(str, cursorPos); // makes pas2c unhappy |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
131 |
str[0]:= char(cursorPos); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
132 |
// get render size of text |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
133 |
TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @coff, nil); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
134 |
|
10842
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
135 |
cursorX:= 2 + coff; |
990
dfa6a6fe1542
Implement history for chat (27 entries), no key binding yet
unc0rr
parents:
988
diff
changeset
|
136 |
|
10836 | 137 |
// calculate selection width on screen |
138 |
if selectedPos >= 0 then |
|
139 |
begin |
|
140 |
if selectedPos > cursorPos then |
|
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
141 |
str:= InputStr.s; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
142 |
// SetLength(str, selectedPos); // makes pas2c unhappy |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
143 |
str[0]:= char(selectedPos); |
10836 | 144 |
TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @soff, nil); |
145 |
selectionDx:= soff - coff; |
|
146 |
end |
|
147 |
else |
|
148 |
selectionDx:= 0; |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
149 |
end; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
150 |
|
10836 | 151 |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
152 |
procedure ResetCursor(); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
153 |
begin |
10836 | 154 |
ResetSelection(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
155 |
cursorPos:= 0; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
156 |
UpdateCursorCoords(); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
157 |
end; |
2396 | 158 |
|
10985
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
159 |
(* This procedure [re]renders a texture showing str for the chat line cl. |
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
160 |
* It will use the color stored in cl and update width |
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
161 |
*) |
10303 | 162 |
procedure RenderChatLineTex(var cl: TChatLine; var str: shortstring); |
12107
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
163 |
var strSurface, tmpSurface, |
10303 | 164 |
resSurface: PSDL_Surface; |
165 |
dstrect : TSDL_Rect; // destination rectangle for blitting |
|
166 |
font : THWFont; |
|
167 |
const |
|
168 |
shadowint = $80 shl AShift; |
|
169 |
begin |
|
170 |
||
10985
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
171 |
FreeAndNilTexture(cl.Tex); |
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
172 |
|
10303 | 173 |
font:= CheckCJKFont(ansistring(str), fnt16); |
174 |
||
175 |
// get render size of text |
|
176 |
TTF_SizeUTF8(Fontz[font].Handle, Str2PChar(str), @cl.Width, nil); |
|
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
942
diff
changeset
|
177 |
|
10303 | 178 |
// calculate and save size |
179 |
cl.Width := cl.Width + 2 * Padding; |
|
180 |
||
181 |
// create surface to draw on |
|
182 |
resSurface:= SDL_CreateRGBSurface( |
|
183 |
0, toPowerOf2(cl.Width), toPowerOf2(ClHeight), |
|
184 |
32, RMask, GMask, BMask, AMask); |
|
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
942
diff
changeset
|
185 |
|
10303 | 186 |
// define area we want to draw in |
187 |
dstrect.x:= 0; |
|
188 |
dstrect.y:= 0; |
|
189 |
dstrect.w:= cl.Width; |
|
190 |
dstrect.h:= ClHeight; |
|
191 |
||
192 |
// draw background |
|
193 |
SDL_FillRect(resSurface, @dstrect, shadowint); |
|
194 |
||
195 |
// create and blit text |
|
12107
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
196 |
tmpSurface:= nil; |
10370 | 197 |
strSurface:= TTF_RenderUTF8_Blended(Fontz[font].Handle, Str2PChar(str), cl.color); |
12107
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
198 |
// fix format |
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
199 |
if strSurface <> nil then tmpSurface:= SDL_ConvertSurface(strSurface, resSurface^.format, 0); |
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
200 |
SDL_FreeSurface(strSurface); |
10737 | 201 |
//SDL_UpperBlit(strSurface, nil, resSurface, @dstrect); |
12107
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
202 |
if tmpSurface <> nil then copyToXY(tmpSurface, resSurface, Padding, Padding); |
51596d30a724
fix chat SDL surfaces being in wrong color format (didn't play well with copyToXY's new quick pixel copies)
sheepluva
parents:
11840
diff
changeset
|
203 |
SDL_FreeSurface(tmpSurface); |
1118 | 204 |
|
2290
bf87ca44782e
Selectively enable clamping - seeing if this helps avoid weird flake problems while still fixing vertical lines in waves and sky
nemo
parents:
2161
diff
changeset
|
205 |
cl.Tex:= Surface2Tex(resSurface, false); |
1431 | 206 |
|
1118 | 207 |
SDL_FreeSurface(resSurface) |
946 | 208 |
end; |
209 |
||
10303 | 210 |
const ClDisplayDuration = 12500; |
2396 | 211 |
|
990
dfa6a6fe1542
Implement history for chat (27 entries), no key binding yet
unc0rr
parents:
988
diff
changeset
|
212 |
procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean); |
10303 | 213 |
var color : TSDL_Color; |
942 | 214 |
begin |
2396 | 215 |
if isInput then |
6379 | 216 |
begin |
10303 | 217 |
cl.s:= str; |
5392 | 218 |
color:= colors[#6]; |
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
219 |
str:= str + ' '; |
6379 | 220 |
end |
2664
949c189ba568
powerpc and gameserver compilation disabled temporarily
koda
parents:
2630
diff
changeset
|
221 |
else |
6379 | 222 |
begin |
10863
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
223 |
if str[1] <= High(colors) then |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
224 |
begin |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
225 |
color:= colors[str[1]]; |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
226 |
delete(str, 1, 1); |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
227 |
end |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
228 |
// fallback if invalid color |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
229 |
else |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
230 |
color:= colors[Low(colors)]; |
9d3e1123bd43
fallback to first color in colors array if there is no valid color specified
sheepluva
parents:
10853
diff
changeset
|
231 |
|
10303 | 232 |
cl.s:= str; |
6379 | 233 |
end; |
2396 | 234 |
|
10303 | 235 |
cl.color:= color; |
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
942
diff
changeset
|
236 |
|
10303 | 237 |
// set texture, note: variables cl.s and str will be different here if isInput |
238 |
RenderChatLineTex(cl, str); |
|
1118 | 239 |
|
11840 | 240 |
cl.Time:= RealTicks + ClDisplayDuration; |
946 | 241 |
end; |
242 |
||
6379 | 243 |
// For uStore texture recreation |
244 |
procedure ReloadLines; |
|
10985
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
245 |
var i: LongWord; |
6379 | 246 |
begin |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
247 |
if InputStr.s <> '' then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
248 |
SetLine(InputStr, InputStr.s, true); |
6381 | 249 |
for i:= 0 to MaxStrIndex do |
250 |
if Strs[i].s <> '' then |
|
251 |
begin |
|
10985
c5348fe9077c
fix chat lines losing color information on texture reload
sheepluva
parents:
10926
diff
changeset
|
252 |
RenderChatLineTex(Strs[i], Strs[i].s); |
6381 | 253 |
end; |
6379 | 254 |
end; |
255 |
||
946 | 256 |
procedure AddChatString(s: shortstring); |
257 |
begin |
|
3539 | 258 |
if not ChatReady then |
259 |
begin |
|
260 |
if MissedCount < MaxStrIndex - 1 then |
|
261 |
MStrs[MissedCount]:= s |
|
262 |
else if MissedCount < MaxStrIndex then |
|
263 |
MStrs[MissedCount]:= #5 + '[...]'; |
|
264 |
inc(MissedCount); |
|
265 |
exit |
|
266 |
end; |
|
267 |
||
946 | 268 |
lastStr:= (lastStr + 1) mod (MaxStrIndex + 1); |
269 |
||
990
dfa6a6fe1542
Implement history for chat (27 entries), no key binding yet
unc0rr
parents:
988
diff
changeset
|
270 |
SetLine(Strs[lastStr], s, false); |
945
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
942
diff
changeset
|
271 |
|
4ead9cde4e14
- Start chat implementation: chat strings are on the screen
unc0rr
parents:
942
diff
changeset
|
272 |
inc(visibleCount) |
942 | 273 |
end; |
274 |
||
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
275 |
procedure UpdateInputLinePrefix(); |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
276 |
begin |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
277 |
if liveLua then |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
278 |
begin |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
279 |
InputLinePrefix.color:= colors[#1]; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
280 |
InputLinePrefix.s:= '[Lua] >'; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
281 |
end |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
282 |
else |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
283 |
begin |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
284 |
InputLinePrefix.color:= colors[#6]; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
285 |
InputLinePrefix.s:= UserNick + '>'; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
286 |
end; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
287 |
|
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
288 |
FreeAndNilTexture(InputLinePrefix.Tex); |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
289 |
end; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
290 |
|
942 | 291 |
procedure DrawChat; |
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
292 |
var i, t, left, top, cnt: LongInt; |
10836 | 293 |
selRect: TSDL_Rect; |
10866 | 294 |
c: char; |
942 | 295 |
begin |
3539 | 296 |
ChatReady:= true; // maybe move to somewhere else? |
1431 | 297 |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
298 |
if ChatHidden and (not showAll) then |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
299 |
visibleCount:= 0; |
1431 | 300 |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
301 |
// draw chat lines with some distance from screen border |
10303 | 302 |
left:= 4 - cScreenWidth div 2; |
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
303 |
top := 10 + visibleCount * ClHeight; // we start with input line (if any) |
1431 | 304 |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
305 |
// draw chat input line first and under all other lines |
13082 | 306 |
if isInChatMode and (InputStr.Tex <> nil) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
307 |
begin |
10850
c76ea22ea249
copy to/paste from system clipboard (via frontend)
sheepluva
parents:
10849
diff
changeset
|
308 |
|
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
309 |
if InputLinePrefix.Tex = nil then |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
310 |
RenderChatLineTex(InputLinePrefix, InputLinePrefix.s); |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
311 |
|
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
312 |
DrawTexture(left, top, InputLinePrefix.Tex); |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
313 |
inc(left, InputLinePrefix.Width); |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
314 |
DrawTexture(left, top, InputStr.Tex); |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
315 |
|
10842
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
316 |
if firstDraw then |
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
317 |
begin |
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
318 |
UpdateCursorCoords(); |
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
319 |
firstDraw:= false; |
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
320 |
end; |
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
321 |
|
10836 | 322 |
if selectedPos < 0 then |
323 |
begin |
|
324 |
// draw cursor |
|
325 |
if ((RealTicks - LastKeyPressTick) and 512) < 256 then |
|
10839
aa0ceb47da1d
make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents:
10837
diff
changeset
|
326 |
DrawLineOnScreen(left + cursorX, top + 2, left + cursorX, top + ClHeight - 2, 2.0, $00, $FF, $FF, $FF); |
10836 | 327 |
end |
328 |
else // draw selection |
|
329 |
begin |
|
330 |
selRect.y:= top + 2; |
|
331 |
selRect.h:= clHeight - 4; |
|
332 |
if selectionDx < 0 then |
|
333 |
begin |
|
10839
aa0ceb47da1d
make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents:
10837
diff
changeset
|
334 |
selRect.x:= left + cursorX + selectionDx; |
10836 | 335 |
selRect.w:= -selectionDx; |
336 |
end |
|
337 |
else |
|
338 |
begin |
|
10839
aa0ceb47da1d
make sure cursor drawing position does not get messed up by screen resize
sheepluva
parents:
10837
diff
changeset
|
339 |
selRect.x:= left + cursorX; |
10836 | 340 |
selRect.w:= selectionDx; |
341 |
end; |
|
1431 | 342 |
|
10836 | 343 |
DrawRect(selRect, $FF, $FF, $FF, $40, true); |
344 |
end; |
|
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
345 |
|
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
346 |
dec(left, InputLinePrefix.Width); |
10866 | 347 |
|
1431 | 348 |
|
10866 | 349 |
if (Length(InputStr.s) > 0) and ((CursorPos = 1) or (CursorPos = 2)) then |
350 |
begin |
|
351 |
c:= InputStr.s[1]; |
|
352 |
if charIsForHogSpeech(c) then |
|
353 |
begin |
|
10868
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
354 |
SpeechHogNumber:= 0; |
10866 | 355 |
if Length(InputStr.s) > 1 then |
356 |
begin |
|
357 |
c:= InputStr.s[2]; |
|
358 |
if (c > '0') and (c < '9') then |
|
359 |
SpeechHogNumber:= byte(c) - 48; |
|
360 |
end; |
|
10868
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
361 |
// default to current hedgehog (if own) or first hedgehog |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
362 |
if SpeechHogNumber = 0 then |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
363 |
begin |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
364 |
if not CurrentTeam^.ExtDriven then |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
365 |
SpeechHogNumber:= CurrentTeam^.CurrHedgehog + 1 |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
366 |
else |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
367 |
SpeechHogNumber:= 1; |
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
368 |
end; |
10866 | 369 |
end; |
370 |
end |
|
371 |
else |
|
10868
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
372 |
SpeechHogNumber:= -1; |
10866 | 373 |
end |
374 |
else |
|
10868
acb03a9712c3
show correct default if current team is local team
sheepluva
parents:
10866
diff
changeset
|
375 |
SpeechHogNumber:= -1; |
1431 | 376 |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
377 |
// draw chat lines |
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
378 |
if ((not ChatHidden) or showAll) and (UIDisplay <> uiNone) then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
379 |
begin |
10375 | 380 |
if MissedCount <> 0 then // there are chat strings we missed, so print them now |
381 |
begin |
|
382 |
for i:= 0 to MissedCount - 1 do |
|
383 |
AddChatString(MStrs[i]); |
|
384 |
MissedCount:= 0; |
|
385 |
end; |
|
386 |
i:= lastStr; |
|
10303 | 387 |
|
10375 | 388 |
cnt:= 0; // count of lines displayed |
389 |
t := 1; // # of current line processed |
|
2376 | 390 |
|
10375 | 391 |
// draw lines in reverse order |
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
392 |
while (((t < 7) and (Strs[i].Time > RealTicks)) or ((t <= MaxStrIndex + 1) and showAll)) |
10375 | 393 |
and (Strs[i].Tex <> nil) do |
394 |
begin |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
395 |
top:= top - ClHeight; |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
396 |
// draw chatline only if not offscreen |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
397 |
if top > 0 then |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
398 |
DrawTexture(left, top, Strs[i].Tex); |
8745 | 399 |
|
10375 | 400 |
if i = 0 then |
401 |
i:= MaxStrIndex |
|
402 |
else |
|
403 |
dec(i); |
|
404 |
||
405 |
inc(cnt); |
|
406 |
inc(t) |
|
407 |
end; |
|
408 |
||
409 |
visibleCount:= cnt; |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
410 |
end; |
942 | 411 |
end; |
412 |
||
4467 | 413 |
procedure SendHogSpeech(s: shortstring); |
414 |
begin |
|
415 |
SendIPC('h' + s); |
|
416 |
ParseCommand('/hogsay '+s, true) |
|
417 |
end; |
|
418 |
||
10392 | 419 |
procedure SendConsoleCommand(s: shortstring); |
420 |
begin |
|
421 |
Delete(s, 1, 1); |
|
422 |
SendIPC('~' + s) |
|
423 |
end; |
|
424 |
||
1033 | 425 |
procedure AcceptChatString(s: shortstring); |
1035 | 426 |
var i: TWave; |
8152 | 427 |
j: TChatCmd; |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4404
diff
changeset
|
428 |
c, t: LongInt; |
4467 | 429 |
x: byte; |
1033 | 430 |
begin |
10513
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
431 |
if s <> LocalStrs[localLastStr] then |
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
432 |
begin |
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
433 |
// put in input history |
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
434 |
localLastStr:= (localLastStr + 1) mod MaxStrIndex; |
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
435 |
LocalStrs[localLastStr]:= s; |
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
436 |
end; |
58fa783e0cfd
fixes to chat input history: remember all inputs, don not remember duplicates
sheepluva
parents:
10396
diff
changeset
|
437 |
|
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4404
diff
changeset
|
438 |
t:= LocalTeam; |
4467 | 439 |
x:= 0; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
440 |
if (s[1] = '"') and (s[Length(s)] = '"') |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
441 |
then x:= 1 |
8745 | 442 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
443 |
else if (s[1] = '''') and (s[Length(s)] = '''') then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
444 |
x:= 2 |
8745 | 445 |
|
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
446 |
else if (s[1] = '-') and (s[Length(s)] = '-') then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
447 |
x:= 3; |
8745 | 448 |
|
8026
4a4f21070479
merge xymeng's gsoc engine with a few updates (and further checks on symbol definitions)
koda
parents:
7722
diff
changeset
|
449 |
if (not CurrentTeam^.ExtDriven) and (x <> 0) then |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4404
diff
changeset
|
450 |
for c:= 0 to Pred(TeamsCount) do |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
451 |
if (TeamsArray[c] = CurrentTeam) then |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
452 |
t:= c; |
4467 | 453 |
|
454 |
if x <> 0 then |
|
2017 | 455 |
begin |
4465
743673c67d0c
Allow hog speech when not your turn. Currently is set to 40% opacity (could be fainter) and drawn behind the hogs instead of in front. Also allows hog targetting using a number.
nemo
parents:
4404
diff
changeset
|
456 |
if t = -1 then |
2111 | 457 |
ParseCommand('/say ' + copy(s, 2, Length(s)-2), true) |
458 |
else |
|
4467 | 459 |
SendHogSpeech(char(x) + char(t) + copy(s, 2, Length(s)-2)); |
2017 | 460 |
exit |
461 |
end; |
|
4467 | 462 |
|
9669 | 463 |
if (s[1] = '/') then |
2017 | 464 |
begin |
9676 | 465 |
// These 3 are same as above, only are to make the hedgehog say it on next attack |
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
466 |
if (copy(s, 2, 4) = 'hsa ') then |
9669 | 467 |
begin |
468 |
if CurrentTeam^.ExtDriven then |
|
469 |
ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
|
470 |
else |
|
471 |
SendHogSpeech(#4 + copy(s, 6, Length(s)-5)); |
|
472 |
exit |
|
473 |
end; |
|
474 |
||
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
475 |
if (copy(s, 2, 4) = 'hta ') then |
9669 | 476 |
begin |
477 |
if CurrentTeam^.ExtDriven then |
|
478 |
ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
|
479 |
else |
|
480 |
SendHogSpeech(#5 + copy(s, 6, Length(s)-5)); |
|
481 |
exit |
|
482 |
end; |
|
483 |
||
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
484 |
if (copy(s, 2, 4) = 'hya ') then |
9669 | 485 |
begin |
486 |
if CurrentTeam^.ExtDriven then |
|
487 |
ParseCommand('/say ' + copy(s, 6, Length(s)-5), true) |
|
488 |
else |
|
489 |
SendHogSpeech(#6 + copy(s, 6, Length(s)-5)); |
|
490 |
exit |
|
491 |
end; |
|
2111 | 492 |
|
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
493 |
if (copy(s, 2, 5) = 'team ') and (length(s) > 6) then |
9669 | 494 |
begin |
495 |
ParseCommand(s, true); |
|
496 |
exit |
|
497 |
end; |
|
498 |
||
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
499 |
if (copy(s, 2, 3) = 'me ') then |
9669 | 500 |
begin |
9680 | 501 |
ParseCommand('/say ' + s, true); |
502 |
exit |
|
503 |
end; |
|
2376 | 504 |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
505 |
if (copy(s, 2, 10) = 'togglechat') then |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
506 |
begin |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
507 |
ChatHidden:= (not ChatHidden); |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
508 |
if ChatHidden then |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
509 |
showAll:= false; |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
510 |
exit |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
511 |
end; |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
512 |
|
10304
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
513 |
// debugging commands |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
514 |
if (copy(s, 2, 7) = 'debugvl') then |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
515 |
begin |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
516 |
cViewLimitsDebug:= (not cViewLimitsDebug); |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
517 |
UpdateViewLimits(); |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
518 |
exit |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
519 |
end; |
7e40820b7ed6
fix gl2 build, further rendering cleanup WIP, also new chat command: /debugvl
sheepluva
parents:
10303
diff
changeset
|
520 |
|
10312 | 521 |
if (copy(s, 2, 3) = 'lua') then |
522 |
begin |
|
523 |
AddFileLog('/lua issued'); |
|
524 |
if gameType <> gmtNet then |
|
525 |
begin |
|
526 |
liveLua:= (not liveLua); |
|
527 |
if liveLua then |
|
528 |
begin |
|
529 |
AddFileLog('[Lua] chat input string parsing enabled'); |
|
530 |
AddChatString(#3 + 'Lua parsing: ON'); |
|
531 |
end |
|
532 |
else |
|
533 |
begin |
|
534 |
AddFileLog('[Lua] chat input string parsing disabled'); |
|
535 |
AddChatString(#3 + 'Lua parsing: OFF'); |
|
536 |
end; |
|
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
537 |
UpdateInputLinePrefix(); |
10312 | 538 |
end; |
539 |
exit |
|
540 |
end; |
|
541 |
||
542 |
// hedghog animations/taunts and engine commands |
|
9680 | 543 |
if (not CurrentTeam^.ExtDriven) and (CurrentTeam^.Hedgehogs[0].BotLevel = 0) then |
544 |
begin |
|
9669 | 545 |
for i:= Low(TWave) to High(TWave) do |
546 |
if (s = Wavez[i].cmd) then |
|
547 |
begin |
|
548 |
ParseCommand('/taunt ' + char(i), true); |
|
549 |
exit |
|
550 |
end; |
|
10588
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
551 |
end; |
8152 | 552 |
|
10588
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
553 |
for j:= Low(TChatCmd) to High(TChatCmd) do |
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
554 |
if (s = ChatCommandz[j].ChatCmd) then |
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
555 |
begin |
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
556 |
ParseCommand(ChatCommandz[j].ProcedureCallChatCmd, true); |
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
557 |
exit |
6189bb1c903d
don't forbid running regular chat commands during turns of other teams. that was probably only meant for emotes to begin with
sheepluva
parents:
10514
diff
changeset
|
558 |
end; |
10392 | 559 |
|
560 |
if (gameType = gmtNet) then |
|
561 |
SendConsoleCommand(s) |
|
2017 | 562 |
end |
10312 | 563 |
else |
564 |
begin |
|
565 |
if liveLua then |
|
566 |
LuaParseString(s) |
|
9676 | 567 |
else |
568 |
ParseCommand('/say ' + s, true); |
|
2017 | 569 |
end; |
1033 | 570 |
end; |
571 |
||
8738 | 572 |
procedure CleanupInput; |
573 |
begin |
|
574 |
FreezeEnterKey; |
|
575 |
history:= 0; |
|
9697 | 576 |
SDL_StopTextInput(); |
11356 | 577 |
//SDL_EnableKeyRepeat(0,0); |
13082 | 578 |
isInChatMode:= false; |
8738 | 579 |
ResetKbd; |
580 |
end; |
|
581 |
||
10836 | 582 |
procedure DelBytesFromInputStrBack(endIdx: integer; count: byte); |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
583 |
var startIdx: integer; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
584 |
begin |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
585 |
// nothing to do if count is 0 |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
586 |
if count = 0 then |
4121 | 587 |
exit; |
2376 | 588 |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
589 |
// first byte to delete |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
590 |
startIdx:= endIdx - (count - 1); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
591 |
|
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
592 |
// delete bytes from string |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
593 |
Delete(InputStr.s, startIdx, count); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
594 |
|
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
595 |
SetLine(InputStr, InputStr.s, true); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
596 |
end; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
597 |
|
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
598 |
procedure MoveCursorToPreviousChar(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
599 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
600 |
if cursorPos > 0 then |
10926
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
601 |
repeat |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
602 |
dec(cursorPos); |
10926
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
603 |
until ((cursorPos = 0) or IsFirstCharByte(InputStr.s[cursorPos + 1])); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
604 |
end; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
605 |
|
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
606 |
procedure MoveCursorToNextChar(); |
10926
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
607 |
var len: integer; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
608 |
begin |
10926
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
609 |
len:= Length(InputStr.s); |
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
610 |
if cursorPos < len then |
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
611 |
repeat |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
612 |
inc(cursorPos); |
10926
43612076e989
chat: simplify some code and fix bugs I noticed during testing
sheepluva
parents:
10921
diff
changeset
|
613 |
until ((cursorPos = len) or IsFirstCharByte(InputStr.s[cursorPos + 1])); |
10836 | 614 |
end; |
615 |
||
10921 | 616 |
procedure DeleteLastUTF8CharFromStr(var s: shortstring); |
617 |
var l: byte; |
|
618 |
begin |
|
619 |
l:= Length(s); |
|
620 |
||
621 |
while (l > 1) and (not IsFirstCharByte(s[l])) do |
|
622 |
begin |
|
623 |
dec(l); |
|
624 |
end; |
|
625 |
||
626 |
if l > 0 then |
|
627 |
dec(l); |
|
628 |
||
629 |
s[0]:= char(l); |
|
630 |
end; |
|
631 |
||
10836 | 632 |
procedure DeleteSelected(); |
633 |
begin |
|
634 |
if (selectedPos >= 0) and (cursorPos <> selectedPos) then |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
635 |
begin |
10836 | 636 |
DelBytesFromInputStrBack(max(cursorPos, selectedPos), abs(selectedPos-cursorPos)); |
637 |
cursorPos:= min(cursorPos, selectedPos); |
|
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
638 |
end; |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
639 |
ResetSelection(); |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
640 |
UpdateCursorCoords(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
641 |
end; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
642 |
|
10836 | 643 |
procedure HandleSelection(enabled: boolean); |
644 |
begin |
|
645 |
if enabled then |
|
646 |
begin |
|
647 |
if selectedPos < 0 then |
|
648 |
selectedPos:= cursorPos; |
|
2017 | 649 |
end |
10836 | 650 |
else |
651 |
ResetSelection(); |
|
652 |
end; |
|
653 |
||
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
654 |
type TCharSkip = ( none, wspace, numalpha, special ); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
655 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
656 |
function GetInputCharSkipClass(index: LongInt): TCharSkip; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
657 |
var c: char; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
658 |
begin |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
659 |
c:= InputStr.s[index]; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
660 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
661 |
// non-ascii counts as letter |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
662 |
if c > #127 then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
663 |
exit(numalpha); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
664 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
665 |
// low-ascii whitespaces and DEL |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
666 |
if (c < #33) or (c = #127) then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
667 |
exit(wspace); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
668 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
669 |
// low-ascii special chars |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
670 |
if c < #48 then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
671 |
exit(special); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
672 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
673 |
// digits |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
674 |
if c < #58 then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
675 |
exit(numalpha); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
676 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
677 |
// make c upper-case |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
678 |
if c > #96 then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
679 |
c:= char(byte(c) - 32); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
680 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
681 |
// letters |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
682 |
if (c > #64) and (c < #90) then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
683 |
exit(numalpha); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
684 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
685 |
// remaining ascii are special chars |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
686 |
exit(special); |
1033 | 687 |
end; |
688 |
||
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
689 |
// skip from word to word, similar to Qt |
10845
1dbd50690951
quick word deletion while holding ctrl (qt style)
sheepluva
parents:
10844
diff
changeset
|
690 |
procedure SkipInputChars(skip: TCharSkip; backwards: boolean); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
691 |
begin |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
692 |
if backwards then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
693 |
begin |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
694 |
// skip trailing whitespace, similar to Qt |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
695 |
while (skip = wspace) and (cursorPos > 0) do |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
696 |
begin |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
697 |
skip:= GetInputCharSkipClass(cursorPos); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
698 |
if skip = wspace then |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
699 |
MoveCursorToPreviousChar(); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
700 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
701 |
// skip same-type chars |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
702 |
while (cursorPos > 0) and (GetInputCharSkipClass(cursorPos) = skip) do |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
703 |
MoveCursorToPreviousChar(); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
704 |
end |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
705 |
else |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
706 |
begin |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
707 |
// skip same-type chars |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
708 |
while cursorPos < Length(InputStr.s) do |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
709 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
710 |
MoveCursorToNextChar(); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
711 |
if (GetInputCharSkipClass(cursorPos) <> skip) then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
712 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
713 |
MoveCursorToPreviousChar(); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
714 |
break; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
715 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
716 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
717 |
// skip trailing whitespace, similar to Qt |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
718 |
while cursorPos < Length(InputStr.s) do |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
719 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
720 |
MoveCursorToNextChar(); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
721 |
if (GetInputCharSkipClass(cursorPos) <> wspace) then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
722 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
723 |
MoveCursorToPreviousChar(); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
724 |
break; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
725 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
726 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
727 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
728 |
end; |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
729 |
|
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
730 |
procedure CopyToClipboard(var newContent: shortstring); |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
731 |
begin |
11344 | 732 |
// SDL2 clipboard |
733 |
SDL_SetClipboardText(Str2PChar(newContent)); |
|
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
734 |
end; |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
735 |
|
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
736 |
procedure CopySelectionToClipboard(); |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
737 |
var selection: shortstring; |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
738 |
begin |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
739 |
if selectedPos >= 0 then |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
740 |
begin |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
741 |
selection:= copy(InputStr.s, min(CursorPos, selectedPos) + 1, abs(CursorPos - selectedPos)); |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
742 |
CopyToClipboard(selection); |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
743 |
end; |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
744 |
end; |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
745 |
|
10853 | 746 |
procedure InsertIntoInputStr(s: shortstring); |
10921 | 747 |
var limit: integer; |
946 | 748 |
begin |
10921 | 749 |
// we check limit for trailing stuff before insertion limit for a reason |
750 |
// (possible remaining space after too long UTF8-insertion has been shortened) |
|
751 |
||
752 |
// length limit for stuff to that will trail the insertion |
|
753 |
limit:= max(cursorPos, MaxInputStrLen-Length(s)); |
|
754 |
||
755 |
while Length(InputStr.s) > limit do |
|
756 |
begin |
|
757 |
DeleteLastUTF8CharFromStr(InputStr.s); |
|
758 |
end; |
|
759 |
||
760 |
// length limit for stuff to insert |
|
761 |
limit:= max(0, MaxInputStrLen-cursorPos); |
|
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
762 |
|
10921 | 763 |
if limit = 0 then |
764 |
s:= '' |
|
765 |
else while Length(s) > limit do |
|
766 |
begin |
|
767 |
DeleteLastUTF8CharFromStr(s); |
|
768 |
end; |
|
10851
f25dad9c3136
chat/copypaste: some adjustments and sanity checks
sheepluva
parents:
10850
diff
changeset
|
769 |
|
10921 | 770 |
if Length(s) > 0 then |
771 |
begin |
|
772 |
// insert string truncated to safe length |
|
773 |
Insert(s, InputStr.s, cursorPos + 1); |
|
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
774 |
|
10921 | 775 |
if Length(InputStr.s) > MaxInputStrLen then |
776 |
InputStr.s[0]:= char(MaxInputStrLen); |
|
777 |
||
778 |
SetLine(InputStr, InputStr.s, true); |
|
779 |
||
780 |
// move cursor to end of inserted string |
|
781 |
inc(cursorPos, Length(s)); |
|
782 |
UpdateCursorCoords(); |
|
783 |
end; |
|
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
784 |
end; |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
785 |
|
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
786 |
procedure PasteFromClipboard(); |
11343 | 787 |
var clip: PChar; |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
788 |
begin |
11343 | 789 |
// use SDL2 clipboard functions |
790 |
if SDL_HasClipboardText() then |
|
10850
c76ea22ea249
copy to/paste from system clipboard (via frontend)
sheepluva
parents:
10849
diff
changeset
|
791 |
begin |
11343 | 792 |
clip:= SDL_GetClipboardText(); |
793 |
// returns NULL if not enough memory for a copy of clipboard content |
|
794 |
if clip <> nil then |
|
795 |
begin |
|
796 |
InsertIntoInputStr(shortstring(clip)); |
|
797 |
SDL_free(Pointer(clip)); |
|
798 |
end; |
|
10850
c76ea22ea249
copy to/paste from system clipboard (via frontend)
sheepluva
parents:
10849
diff
changeset
|
799 |
end; |
9699
fab319c85a39
Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents:
9697
diff
changeset
|
800 |
end; |
fab319c85a39
Accept SDL_TEXTINPUT events for chat (why first and only first chat invocation receives event for 't' key?)
unc0rr
parents:
9697
diff
changeset
|
801 |
|
11356 | 802 |
procedure KeyPressChat(keysym: TSDL_Keysym); |
11377 | 803 |
const nonStateMask = (not (KMOD_NUM or KMOD_CAPS)); |
804 |
var i, index: integer; |
|
805 |
selMode, ctrl, ctrlonly: boolean; |
|
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
806 |
skip: TCharSkip; |
11356 | 807 |
Scancode: TSDL_Scancode; |
808 |
Modifier: Word; |
|
946 | 809 |
begin |
11356 | 810 |
Scancode:= keysym.scancode; |
811 |
Modifier:= keysym.modifier; |
|
812 |
||
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
813 |
LastKeyPressTick:= RealTicks; |
10836 | 814 |
|
815 |
selMode:= (modifier and (KMOD_LSHIFT or KMOD_RSHIFT)) <> 0; |
|
816 |
ctrl:= (modifier and (KMOD_LCTRL or KMOD_RCTRL)) <> 0; |
|
11004
bd62cdbea391
chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents:
10985
diff
changeset
|
817 |
ctrlonly:= ctrl and ((modifier and nonStateMask and (not (KMOD_LCTRL or KMOD_RCTRL))) = 0); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
818 |
skip:= none; |
10836 | 819 |
|
11356 | 820 |
case Scancode of |
821 |
SDL_SCANCODE_BACKSPACE: |
|
8743 | 822 |
begin |
10836 | 823 |
if selectedPos < 0 then |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
824 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
825 |
HandleSelection(true); |
10845
1dbd50690951
quick word deletion while holding ctrl (qt style)
sheepluva
parents:
10844
diff
changeset
|
826 |
|
1dbd50690951
quick word deletion while holding ctrl (qt style)
sheepluva
parents:
10844
diff
changeset
|
827 |
// delete more if ctrl is held |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
828 |
if ctrl then |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
829 |
SkipInputChars(GetInputCharSkipClass(cursorPos), true) |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
830 |
else |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
831 |
MoveCursorToPreviousChar(); |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
832 |
|
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
833 |
end; |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
834 |
|
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
835 |
DeleteSelected(); |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
836 |
UpdateCursorCoords(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
837 |
end; |
11356 | 838 |
SDL_SCANCODE_DELETE: |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
839 |
begin |
10836 | 840 |
if selectedPos < 0 then |
5100 | 841 |
begin |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
842 |
HandleSelection(true); |
10845
1dbd50690951
quick word deletion while holding ctrl (qt style)
sheepluva
parents:
10844
diff
changeset
|
843 |
|
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
844 |
// delete more if ctrl is held |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
845 |
if ctrl then |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
846 |
SkipInputChars(GetInputCharSkipClass(cursorPos), false) |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
847 |
else |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
848 |
MoveCursorToNextChar(); |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
849 |
|
5100 | 850 |
end; |
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
851 |
|
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
852 |
DeleteSelected(); |
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
853 |
UpdateCursorCoords(); |
8743 | 854 |
end; |
11356 | 855 |
SDL_SCANCODE_ESCAPE: |
8743 | 856 |
begin |
8745 | 857 |
if Length(InputStr.s) > 0 then |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
858 |
begin |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
859 |
SetLine(InputStr, '', true); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
860 |
ResetCursor(); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
861 |
end |
8743 | 862 |
else CleanupInput |
863 |
end; |
|
11356 | 864 |
SDL_SCANCODE_RETURN, SDL_SCANCODE_KP_ENTER: |
8743 | 865 |
begin |
866 |
if Length(InputStr.s) > 0 then |
|
8742
b7b8bd398c1b
Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents:
8741
diff
changeset
|
867 |
begin |
8743 | 868 |
AcceptChatString(InputStr.s); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
869 |
SetLine(InputStr, '', false); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
870 |
ResetCursor(); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
871 |
end; |
8743 | 872 |
CleanupInput |
873 |
end; |
|
11356 | 874 |
SDL_SCANCODE_UP, SDL_SCANCODE_DOWN: |
8743 | 875 |
begin |
11356 | 876 |
if (Scancode = SDL_SCANCODE_UP) and (history < localLastStr) then inc(history); |
877 |
if (Scancode = SDL_SCANCODE_DOWN) and (history > 0) then dec(history); |
|
8743 | 878 |
index:= localLastStr - history + 1; |
879 |
if (index > localLastStr) then |
|
10835
8ac09cd322b7
fix chat input history not restoring utf8-related info
sheepluva
parents:
10834
diff
changeset
|
880 |
begin |
8ac09cd322b7
fix chat input history not restoring utf8-related info
sheepluva
parents:
10834
diff
changeset
|
881 |
SetLine(InputStr, '', true); |
8ac09cd322b7
fix chat input history not restoring utf8-related info
sheepluva
parents:
10834
diff
changeset
|
882 |
end |
8ac09cd322b7
fix chat input history not restoring utf8-related info
sheepluva
parents:
10834
diff
changeset
|
883 |
else |
8ac09cd322b7
fix chat input history not restoring utf8-related info
sheepluva
parents:
10834
diff
changeset
|
884 |
begin |
8ac09cd322b7
fix chat input history not restoring utf8-related info
sheepluva
parents:
10834
diff
changeset
|
885 |
SetLine(InputStr, LocalStrs[index], true); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
886 |
end; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
887 |
cursorPos:= Length(InputStr.s); |
10836 | 888 |
ResetSelection(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
889 |
UpdateCursorCoords(); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
890 |
end; |
11356 | 891 |
SDL_SCANCODE_HOME: |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
892 |
begin |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
893 |
if cursorPos > 0 then |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
894 |
begin |
10836 | 895 |
HandleSelection(selMode); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
896 |
cursorPos:= 0; |
10846
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
897 |
end |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
898 |
else if (not selMode) then |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
899 |
ResetSelection(); |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
900 |
|
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
901 |
UpdateCursorCoords(); |
8745 | 902 |
end; |
11356 | 903 |
SDL_SCANCODE_END: |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
904 |
begin |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
905 |
i:= Length(InputStr.s); |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
906 |
if cursorPos < i then |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
907 |
begin |
10836 | 908 |
HandleSelection(selMode); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
909 |
cursorPos:= i; |
10846
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
910 |
end |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
911 |
else if (not selMode) then |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
912 |
ResetSelection(); |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
913 |
|
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
914 |
UpdateCursorCoords(); |
8745 | 915 |
end; |
11356 | 916 |
SDL_SCANCODE_LEFT: |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
917 |
begin |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
918 |
if cursorPos > 0 then |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
919 |
begin |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
920 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
921 |
if ctrl then |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
922 |
skip:= GetInputCharSkipClass(cursorPos); |
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
923 |
|
10836 | 924 |
if selMode or (selectedPos < 0) then |
925 |
begin |
|
926 |
HandleSelection(selMode); |
|
927 |
// go to end of previous utf8-char |
|
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
928 |
MoveCursorToPreviousChar(); |
10836 | 929 |
end |
930 |
else // if we're leaving selection mode, jump to its left end |
|
931 |
begin |
|
932 |
cursorPos:= min(cursorPos, selectedPos); |
|
933 |
ResetSelection(); |
|
934 |
end; |
|
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
935 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
936 |
if ctrl then |
10845
1dbd50690951
quick word deletion while holding ctrl (qt style)
sheepluva
parents:
10844
diff
changeset
|
937 |
SkipInputChars(skip, true); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
938 |
|
10846
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
939 |
end |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
940 |
else if (not selMode) then |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
941 |
ResetSelection(); |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
942 |
|
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
943 |
UpdateCursorCoords(); |
2948
3f21a9dc93d0
Replace tabs with spaces using 'expand -t 4' command
unc0rr
parents:
2716
diff
changeset
|
944 |
end; |
11356 | 945 |
SDL_SCANCODE_RIGHT: |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
946 |
begin |
10836 | 947 |
if cursorPos < Length(InputStr.s) then |
948 |
begin |
|
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
949 |
|
10836 | 950 |
if selMode or (selectedPos < 0) then |
951 |
begin |
|
952 |
HandleSelection(selMode); |
|
10920
11a28d22985f
different implementation for utf-8 char detection/handling
sheepluva
parents:
10919
diff
changeset
|
953 |
MoveCursorToNextChar(); |
10836 | 954 |
end |
955 |
else // if we're leaving selection mode, jump to its right end |
|
956 |
begin |
|
957 |
cursorPos:= max(cursorPos, selectedPos); |
|
958 |
ResetSelection(); |
|
959 |
end; |
|
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
960 |
|
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
961 |
if ctrl then |
10845
1dbd50690951
quick word deletion while holding ctrl (qt style)
sheepluva
parents:
10844
diff
changeset
|
962 |
SkipInputChars(GetInputCharSkipClass(cursorPos), false); |
10844
953d85b7d529
holding ctrl will now make cursor skip words/etc in a fashion similar to Qt
sheepluva
parents:
10843
diff
changeset
|
963 |
|
10846
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
964 |
end |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
965 |
else if (not selMode) then |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
966 |
ResetSelection(); |
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
967 |
|
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
968 |
UpdateCursorCoords(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
969 |
end; |
11356 | 970 |
SDL_SCANCODE_PAGEUP, SDL_SCANCODE_PAGEDOWN: |
8745 | 971 |
begin |
972 |
// ignore me!!! |
|
973 |
end; |
|
11356 | 974 |
// TODO: figure out how to determine those keys better |
975 |
SDL_SCANCODE_a: |
|
10836 | 976 |
begin |
977 |
// select all |
|
11004
bd62cdbea391
chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents:
10985
diff
changeset
|
978 |
if ctrlonly then |
10836 | 979 |
begin |
980 |
ResetSelection(); |
|
10846
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
981 |
cursorPos:= 0; |
10836 | 982 |
HandleSelection(true); |
10846
c76fd416eff6
attempt to move cursor now removes selection even if cursor cannot actually move in the specified direction
sheepluva
parents:
10845
diff
changeset
|
983 |
cursorPos:= Length(InputStr.s); |
10836 | 984 |
UpdateCursorCoords(); |
985 |
end |
|
986 |
end; |
|
11356 | 987 |
SDL_SCANCODE_c: |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
988 |
begin |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
989 |
// copy |
11004
bd62cdbea391
chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents:
10985
diff
changeset
|
990 |
if ctrlonly then |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
991 |
CopySelectionToClipboard() |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
992 |
end; |
11356 | 993 |
SDL_SCANCODE_v: |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
994 |
begin |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
995 |
// paste |
11004
bd62cdbea391
chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents:
10985
diff
changeset
|
996 |
if ctrlonly then |
10921 | 997 |
begin |
998 |
DeleteSelected(); |
|
999 |
PasteFromClipboard(); |
|
1000 |
end |
|
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1001 |
end; |
11356 | 1002 |
SDL_SCANCODE_x: |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1003 |
begin |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1004 |
// cut |
11004
bd62cdbea391
chat: make sure that CTRL is the /only/ modifier key pressed when detecting ctrl+a etc
sheepluva
parents:
10985
diff
changeset
|
1005 |
if ctrlonly then |
10849
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1006 |
begin |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1007 |
CopySelectionToClipboard(); |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1008 |
DeleteSelected(); |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1009 |
end |
a772d342066a
copy&paste (wip), currently using only a local clipboard
sheepluva
parents:
10846
diff
changeset
|
1010 |
end; |
8742
b7b8bd398c1b
Key returned 0 for arrows under linux. Sym works, clearer anyway.
nemo
parents:
8741
diff
changeset
|
1011 |
end; |
946 | 1012 |
end; |
1013 |
||
11356 | 1014 |
procedure TextInput(var event: TSDL_TextInputEvent); |
1015 |
var s: shortstring; |
|
1016 |
l: byte; |
|
11702
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1017 |
isl: integer; |
11356 | 1018 |
begin |
1019 |
DeleteSelected(); |
|
1020 |
||
1021 |
l:= 0; |
|
11702
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1022 |
// fetch all bytes of character/input |
11356 | 1023 |
while event.text[l] <> #0 do |
1024 |
begin |
|
1025 |
s[l + 1]:= event.text[l]; |
|
1026 |
inc(l) |
|
1027 |
end; |
|
1028 |
||
1029 |
if l > 0 then |
|
1030 |
begin |
|
11702
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1031 |
isl:= Length(InputStr.s); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1032 |
// check if user is typing a redundant closing hog-speech quotation mark |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1033 |
if (l = 1) and (isl >= 2) and (cursorPos = isl - 1) and charIsForHogSpeech(s[1]) |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1034 |
and (s[1] = InputStr.s[1]) and (s[1] = InputStr.s[isl]) then |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1035 |
begin |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1036 |
MoveCursorToNextChar(); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1037 |
UpdateCursorCoords(); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1038 |
end |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1039 |
else |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1040 |
begin |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1041 |
// don't add input that doesn't fit |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1042 |
if isl + l > MaxInputStrLen then exit; |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1043 |
s[0]:= char(l); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1044 |
InsertIntoInputStr(s); |
11701
fa4bc078e509
restore closing hog speech quotation marks being added automatically (lost in SDL2 transition... I think)
sheepluva
parents:
11481
diff
changeset
|
1045 |
|
11702
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1046 |
// add closing hog speech quotation marks automagically |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1047 |
if (l = 1) and (Length(InputStr.s) = 1) and charIsForHogSpeech(s[1]) then |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1048 |
begin |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1049 |
InsertIntoInputStr(s); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1050 |
MoveCursorToPreviousChar(); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1051 |
UpdateCursorCoords(); |
446ce60700dd
some more dark magic regarding hog speech input
sheepluva
parents:
11701
diff
changeset
|
1052 |
end; |
11701
fa4bc078e509
restore closing hog speech quotation marks being added automatically (lost in SDL2 transition... I think)
sheepluva
parents:
11481
diff
changeset
|
1053 |
end; |
fa4bc078e509
restore closing hog speech quotation marks being added automatically (lost in SDL2 transition... I think)
sheepluva
parents:
11481
diff
changeset
|
1054 |
|
11356 | 1055 |
end |
1056 |
end; |
|
1057 |
||
1058 |
||
4404 | 1059 |
procedure chChatMessage(var s: shortstring); |
1060 |
begin |
|
1061 |
AddChatString(s) |
|
1062 |
end; |
|
1063 |
||
4402 | 1064 |
procedure chSay(var s: shortstring); |
1065 |
begin |
|
1066 |
SendIPC('s' + s); |
|
1067 |
||
1068 |
if copy(s, 1, 4) = '/me ' then |
|
6453
11c578d30bd3
Countless imporvements to the parser and countless help to the parser in sources.
unc0rr
parents:
6381
diff
changeset
|
1069 |
s:= #2 + '* ' + UserNick + ' ' + copy(s, 5, Length(s) - 4) |
4402 | 1070 |
else |
1071 |
s:= #1 + UserNick + ': ' + s; |
|
1072 |
||
1073 |
AddChatString(s) |
|
1074 |
end; |
|
1075 |
||
1076 |
procedure chTeamSay(var s: shortstring); |
|
1077 |
begin |
|
1078 |
SendIPC('b' + s); |
|
1079 |
||
1080 |
s:= #4 + '[Team] ' + UserNick + ': ' + s; |
|
1081 |
||
1082 |
AddChatString(s) |
|
1083 |
end; |
|
1084 |
||
1085 |
procedure chHistory(var s: shortstring); |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1086 |
var i: LongInt; |
4402 | 1087 |
begin |
1088 |
s:= s; // avoid compiler hint |
|
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1089 |
showAll:= not showAll; |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1090 |
// immediatly recount |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1091 |
visibleCount:= 0; |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1092 |
if showAll or (not ChatHidden) then |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1093 |
for i:= 0 to MaxStrIndex do |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1094 |
begin |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1095 |
if (Strs[i].Tex <> nil) and (showAll or (Strs[i].Time > RealTicks)) then |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1096 |
inc(visibleCount); |
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1097 |
end; |
4402 | 1098 |
end; |
1099 |
||
1100 |
procedure chChat(var s: shortstring); |
|
12851
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1101 |
var i: Integer; |
4402 | 1102 |
begin |
1103 |
s:= s; // avoid compiler hint |
|
13082 | 1104 |
isInChatMode:= true; |
11356 | 1105 |
SDL_StopTextInput(); |
9697 | 1106 |
SDL_StartTextInput(); |
12851
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1107 |
//Make REALLY sure unexpected events are flushed (1 time is insufficient as of SDL 2.0.7) |
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1108 |
for i := 1 to 2 do |
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1109 |
begin |
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1110 |
SDL_PumpEvents(); |
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1111 |
SDL_FlushEvent(SDL_TEXTINPUT); |
e5c461729fe3
Fix chat input key being sometimes registered twice
alfadur
parents:
12415
diff
changeset
|
1112 |
end; |
11356 | 1113 |
//SDL_EnableKeyRepeat(200,45); |
4402 | 1114 |
if length(s) = 0 then |
5100 | 1115 |
SetLine(InputStr, '', true) |
4402 | 1116 |
else |
1117 |
begin |
|
10843 | 1118 |
SetLine(InputStr, '/team ', true); |
10841 | 1119 |
cursorPos:= 6; |
1120 |
UpdateCursorCoords(); |
|
1121 |
end; |
|
4402 | 1122 |
end; |
1123 |
||
3038 | 1124 |
procedure initModule; |
4925 | 1125 |
var i: ShortInt; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1126 |
begin |
6898 | 1127 |
RegisterVariable('chatmsg', @chChatMessage, true); |
1128 |
RegisterVariable('say', @chSay, true); |
|
1129 |
RegisterVariable('team', @chTeamSay, true); |
|
1130 |
RegisterVariable('history', @chHistory, true ); |
|
1131 |
RegisterVariable('chat', @chChat, true ); |
|
4402 | 1132 |
|
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1133 |
lastStr:= 0; |
8740
3eb1891f81ef
use a local storage for chat history which prevents mix ups in netgame and simplifies code
koda
parents:
8739
diff
changeset
|
1134 |
localLastStr:= 0; |
8737
0d56265dd60a
implement up and down keys to navigate in the chat history, needs testing over network
koda
parents:
8736
diff
changeset
|
1135 |
history:= 0; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1136 |
visibleCount:= 0; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1137 |
showAll:= false; |
3539 | 1138 |
ChatReady:= false; |
1139 |
missedCount:= 0; |
|
10312 | 1140 |
liveLua:= false; |
10514
a1423588a4e4
chat: fix some glitches, add /togglechat command for changing chat visibility
sheepluva
parents:
10513
diff
changeset
|
1141 |
ChatHidden:= false; |
10842
a039464cbb4a
since fonts can be loaded in late, update cursor position before first chat display
sheepluva
parents:
10841
diff
changeset
|
1142 |
firstDraw:= true; |
4925 | 1143 |
|
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
1144 |
InputLinePrefix.Tex:= nil; |
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
1145 |
UpdateInputLinePrefix(); |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
1146 |
inputStr.s:= ''; |
4925 | 1147 |
inputStr.Tex := nil; |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
1148 |
for i:= 0 to MaxStrIndex do |
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
1149 |
Strs[i].Tex := nil; |
10834
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
1150 |
|
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
1151 |
LastKeyPressTick:= 0; |
2e83f33dfe5b
engine: moveable chat cursor. note: discovered bug that utf8 char info is lost/corrupted when input history is used
sheepluva
parents:
10737
diff
changeset
|
1152 |
ResetCursor(); |
11356 | 1153 |
SDL_StopTextInput(); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1154 |
end; |
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1155 |
|
3038 | 1156 |
procedure freeModule; |
4901 | 1157 |
var i: ShortInt; |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1158 |
begin |
10852
9e5763cb805e
render input prefix independent of inputstr so that e.g. a username will not lead to weirdnesses
sheepluva
parents:
10851
diff
changeset
|
1159 |
FreeAndNilTexture(InputLinePrefix.Tex); |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10588
diff
changeset
|
1160 |
FreeAndNilTexture(InputStr.Tex); |
6580
6155187bf599
A partial reformatting of the pascal code to have consistent syntax. Things that are still inconsistent.
lovelacer
parents:
6453
diff
changeset
|
1161 |
for i:= 0 to MaxStrIndex do |
10634
35d059bd0932
Use FreeAndNil across the board. Even if we are immediately assigning after, probably avoids accidental mistakes. Also free neglected owner tex on shutdown, and delete hog gears using the normal deletion procedure if for any reason they still exist (EndGame call?).
nemo
parents:
10588
diff
changeset
|
1162 |
FreeAndNilTexture(Strs[i].Tex); |
2716
b9ca1bfca24f
complete the replacement of init/free wrappers for every unit
koda
parents:
2699
diff
changeset
|
1163 |
end; |
946 | 1164 |
|
942 | 1165 |
end. |