paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 02:28:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

Block insert cursor. Block cursor for overwrite mode in xterm

Browse Source
This commit is contained in:
Margers 2024-09-01 20:04:20 +00:00 committed by Michael Van Canneyt
parent 2cc454da26
commit ae81a69cb1
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/ide/weditor.pas
View File

@ -3943,13 +3943,17 @@ begin
end;
procedure TCustomCodeEditor.DrawCursor;
var InsertMode : boolean;
begin
if Elockflag>0 then
DrawCursorCalled:=true
else
begin
SetCursor(GetReservedColCount+CurPos.X-Delta.X,EditorToViewLine(CurPos.Y)-Delta.Y);
SetState(sfCursorIns,Overwrite);
InsertMode:=Overwrite;
if IsFlagSet (efBlockInsCursor) then
InsertMode:=not InsertMode; {revers insert and overwrite mode cursor shapes}
SetState(sfCursorIns,InsertMode);
end;
end;

6
packages/rtl-console/src/unix/video.pp
View File

@ -147,8 +147,8 @@ const term_codes_ansi:Ttermcodes=
#$1B#$5B#$48#$1B#$5B#$32#$4A, {clear_screen}
#$1B#$5B#$48, {cursor_home}
#$1B#$5B#$3F#$31#$32#$6C#$1B#$5B#$3F#$32#$35#$68, {cursor_normal}
#$1B#$5B#$3F#$31#$32#$3B#$32#$35#$68, {cursor visible, underline}
#$1B#$5B#$3F#$31#$32#$3B#$32#$35#$68, {cursor visible, block}
#27'[?25h'#27'[4 q', {cursor visible, underline}
#27'[?25h'#27'[2 q', {cursor visible, block}
#$1B#$5B#$3F#$32#$35#$6C, {cursor_invisible}
#$1B#$5B#$3F#$31#$30#$34#$39#$68, {enter_ca_mode}
#$1B#$5B#$3F#$31#$30#$34#$39#$6C, {exit_ca_mode}
@ -1283,6 +1283,8 @@ begin
case NewType of
crBlock:
SendEscapeSeqNdx(cursor_visible_block);
crUnderLine:
SendEscapeSeqNdx(cursor_visible_underline);
crHidden:
SendEscapeSeqNdx(cursor_invisible);
else