mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
FIX: Show caret under GTK2
This commit is contained in:
parent
509b1d508f
commit
27459aa040
1 changed files with 2 additions and 0 deletions
|
|
@ -1096,6 +1096,7 @@ var
|
|||
I, J, X, Y: Integer;
|
||||
Ch: TComTermChar;
|
||||
begin
|
||||
HideCaret;
|
||||
if (Rect.Bottom + FTopLeft.Y - 1) > FBuffer.Rows then
|
||||
Dec(Rect.Bottom);
|
||||
if (Rect.Right + FTopLeft.X - 1) > FBuffer.Columns then
|
||||
|
|
@ -1111,6 +1112,7 @@ begin
|
|||
DrawChar(I, J, Ch);
|
||||
end;
|
||||
end;
|
||||
ShowCaret;
|
||||
end;
|
||||
|
||||
procedure TCustomComTerminal.PaintDesign;
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue