paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-30 11:10:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

SYnEdit: multi caret, paint - fixed wrong coordinates / added some properties

Browse Source 
git-svn-id: trunk@48196 -
This commit is contained in:
martin 2015-03-10 11:50:39 +00:00
parent a7775e6cc5
commit 699277a76d
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/synedit/syneditpointclasses.pas
View File

@ -226,11 +226,13 @@ type
function GetBytePos: Integer;
function GetBytePosOffset: Integer;
function GetCharPos: Integer;
function GetFullLogicalPos: TLogCaretPoint;
function GetLineBytePos: TPoint;
function GetLineCharPos: TPoint;
procedure SetBytePos(AValue: Integer);
procedure SetBytePosOffset(AValue: Integer);
procedure SetCharPos(AValue: Integer);
procedure SetFullLogicalPos(AValue: TLogCaretPoint);
procedure SetLineBytePos(AValue: TPoint);
procedure SetLineCharPos(AValue: TPoint);
procedure SetLinePos(AValue: Integer);
@ -262,6 +264,7 @@ type
property BytePos: Integer read GetBytePos write SetBytePos;
property BytePosOffset: Integer read GetBytePosOffset write SetBytePosOffset;
property LineBytePos: TPoint read GetLineBytePos write SetLineBytePos;
property FullLogicalPos: TLogCaretPoint read GetFullLogicalPos write SetFullLogicalPos;
property LineText: string read GetLineText write SetLineText;
end;
@ -292,6 +295,7 @@ type
function GetOldLineCharPos: TPoint;
function GetOldLineBytePos: TPoint;
function GetOldFullLogicalPos: TLogCaretPoint;
procedure SetAllowPastEOL(const AValue: Boolean);
procedure SetSkipTabs(const AValue: Boolean);
@ -330,6 +334,7 @@ type
property OldCharPos: Integer read FOldCharPos;
property OldLineCharPos: TPoint read GetOldLineCharPos;
property OldLineBytePos: TPoint read GetOldLineBytePos;
property OldFullLogicalPos: TLogCaretPoint read GetOldFullLogicalPos;
property AdjustToNextChar: Boolean read FAdjustToNextChar write FAdjustToNextChar; deprecated;
property SkipTabs: Boolean read FSkipTabs write SetSkipTabs;
@ -610,6 +615,14 @@ begin
Result := FCharPos;
end;
function TSynEditBaseCaret.GetFullLogicalPos: TLogCaretPoint;
begin
ValidateBytePos;
Result.X := FLinePos;
Result.Y := FBytePos;
Result.Offs := FBytePosOffset;
end;
function TSynEditBaseCaret.GetLineBytePos: TPoint;
begin
ValidateBytePos;
@ -638,6 +651,11 @@ begin
InternalSetLineCharPos(FLinePos, AValue, [scuChangedX]);
end;
procedure TSynEditBaseCaret.SetFullLogicalPos(AValue: TLogCaretPoint);
begin
InternalSetLineByterPos(AValue.y, AValue.x, AValue.Offs, [scuChangedX, scuChangedY]);
end;
procedure TSynEditBaseCaret.SetLineBytePos(AValue: TPoint);
begin
InternalSetLineByterPos(AValue.y, AValue.x, 0, [scuChangedX, scuChangedY]);
@ -1237,6 +1255,12 @@ begin
Result := FLines.PhysicalToLogicalPos(OldLineCharPos);
end;
function TSynEditCaret.GetOldFullLogicalPos: TLogCaretPoint;
begin
Result.Y := FOldLinePos;
Result.X := FLines.LogPhysConvertor.PhysicalToLogical(ToIdx(FOldLinePos), FOldCharPos, Result.Offs);
end;
procedure TSynEditCaret.SetAllowPastEOL(const AValue: Boolean);
begin
if FAllowPastEOL = AValue then exit;
@ -2722,15 +2746,15 @@ begin
am := ACanvas.AntialiasingMode;
FSavePen.Assign(ACanvas.Pen);
l := Left + Width div 2;
ACanvas.MoveTo(l, Top);
l := X + W div 2;
ACanvas.MoveTo(l, Y);
ACanvas.Pen.Mode := pmNotXOR;
ACanvas.Pen.Style := psSolid;
ACanvas.Pen.Color := FColor;
ACanvas.AntialiasingMode := amOff;
ACanvas.pen.EndCap := pecFlat;
ACanvas.pen.Width := Width;
ACanvas.LineTo(l, Top+Height);
ACanvas.LineTo(l, Y+H);
ACanvas.Pen.Assign(FSavePen);
ACanvas.AntialiasingMode := am;