| Description | In x86_64 linux builds horizontal cursor position spelled incorrectly. Details on screenshot.
To fix the bug need to patch procedure file fpcsrc/ide/wcedit.pas
Patch:
procedure TIndicator.Draw;
var
Color: Byte;
Frame: Char;
L: array[0..1] of Longint;
S: String[15];
B: TDrawBuffer;
K: String; //[[[[[[[[[[[[[[[[[ patch
begin
if assigned(CodeOwner) and
(CodeOwner^.ELockFlag>0) then
begin
CodeOwner^.IndicatorDrawCalled:=true;
exit;
end;
if (State and sfDragging = 0) and (State and sfActive <> 0) then
begin
Color := GetColor(1);
Frame := 0000205;
end
else
begin
if (State and sfDragging)<>0 then
Color := GetColor(2)
else
Color := GetColor(3);
Frame := 0000196;
end;
MoveChar(B, Frame, Color, Size.X);
if State and sfActive<>0 then
begin
if Modified then
WordRec (B[0]).Lo := ord('*');
{$ifdef debug}
if StoreUndo then
WordRec (B[1]).Lo := ord('S');
if SyntaxComplete then
WordRec(B[2]).lo := ord('C');
if UseTabs then
WordRec(B[3]).lo := ord('T');
{$endif debug}
L[0] := Location.Y + 1;
L[1] := Location.X + 1;
//[[[[[[[[[[[[[[ FormatStr(S, ' %d:%d ', L); //patch
Str(L[0],S); //[[[[[[[[[[[[[[[[[[[[v patch
if Length(S)<6 then S:=' '+S;
S:=S+':';
Str(L[1],K);
if Length(K)<3 then K:=K+' ';
S:=S+K; //[[[[[[[[[[[[[[[[[[[[^ patch
MoveStr(B[8 - Pos(':', S)], S, Color);
end;
WriteBuf(0, 0, Size.X, 1, B);
end; |
|---|
