TPoint X and Y values are swapped
Original Reporter info from Mantis: DonAlfredo @DonAlfredo
-
Reporter name: Alfred
Original Reporter info from Mantis: DonAlfredo @DonAlfredo
- Reporter name: Alfred
Description:
When assigning values to a TPoint, sometimes the values x and y are swapped.
Unfortunately, I could not isolate this problem.
Inside the Lazarus sourceeditor.pp:
function TSourceNotebook.EditorGetIndent(Sender: TObject; Editor: TObject;
LogCaret, OldLogCaret: TPoint; FirstLinePos, LastLinePos: Integer;
Reason: TSynEditorCommand; SetIndentProc: TSynBeautifierSetIndentProc
): Boolean;
..........
begin
..........
SrcEdit.CursorScreenXY:=Point(Indent+1,SrcEdit.CursorScreenXY.Y);
end;
After this assignment, SrcEdit.CursorScreenXY.x has the value of SrcEdit.CursorScreenXY.y and SrcEdit.CursorScreenXY.y has the value of (Indent+1).
Included assembler, sourcefile and log.
Additional information:
Part of ongoing efforts to get Lazarus running on Aarch64.
Mantis conversion info:
- Mantis ID: 29933
- OS: Linux
- OS Build: Linux Aarch64
- Build: REV 33382
- Platform: Odroid-C2
- Version: 3.1.1
- Fixed in version: 3.1.1
- Fixed in revision: 33498 (#2a1f2b9f)