FIX: Show caret under GTK2

This commit is contained in:
Alexander Koblov 2022-01-02 20:20:14 +03:00
commit 27459aa040

View file

@ -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;