paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-26 15:14:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: CaretRespondsToFocus

Browse Source 
git-svn-id: trunk@27096 -
This commit is contained in:
martin 2010-08-14 19:09:25 +00:00
parent 76e6393192
commit abc928b804
2 changed files with 13 additions and 1 deletions

2
components/synedit/synedit.pp
View File

@ -7111,7 +7111,7 @@ begin
if (eoDropFiles in ChangedOptions) and not (csDesigning in ComponentState) and HandleAllocated then
; // ToDo DragAcceptFiles
if (eoPersistentCaret in ChangedOptions) and HandleAllocated then begin
SetCaretRespondToFocus(Handle,not (eoPersistentCaret in fOptions));
FScreenCaret.PersistentCaret := eoPersistentCaret in fOptions;
UpdateCaret;
end;
if (eoShowSpecialChars in ChangedOptions) and HandleAllocated then

12
components/synedit/syneditpointclasses.pas
View File

@ -268,6 +268,7 @@ type
procedure SetDisplayType(const AType: TSynCaretType);
procedure SetVisible(const AValue: Boolean);
private
FPersistentCaret: Boolean;
FPixelWidth, FPixelHeight: Integer;
FOffsetX, FOffsetY: Integer;
FCurrentPosX, FCurrentPosY: Integer;
@ -280,6 +281,7 @@ type
procedure SetClipRect(const AValue: TRect);
procedure SetClipTop(const AValue: Integer);
procedure SetHandle(const AValue: HWND);
procedure SetPersistentCaret(const AValue: Boolean);
procedure UpdateDisplayType;
procedure UpdateDisplay;
procedure ShowCaret;
@ -305,6 +307,7 @@ type
property ExtraLineChars: Integer read FExtraLineChars; // Extend the longest line by x chars
property OnExtraLineCharsChanged: TNotifyEvent
read FOnExtraLineCharsChanged write FOnExtraLineCharsChanged;
property PersistentCaret: Boolean read FPersistentCaret write SetPersistentCaret;
end;
implementation
@ -1682,6 +1685,14 @@ begin
UpdateDisplay;
end;
procedure TSynEditScreenCaret.SetPersistentCaret(const AValue: Boolean);
begin
if FPersistentCaret = AValue then exit;
FPersistentCaret := AValue;
if FCurrentCreated then
SetCaretRespondToFocus(Handle, not FPersistentCaret);
end;
procedure TSynEditScreenCaret.SetClipBottom(const AValue: Integer);
begin
if FClipBottom = AValue then exit;
@ -1752,6 +1763,7 @@ begin
FCurrentVisible := False;
FCurrentClippedWidth := w;
FCurrentPosX := x - 1;
SetCaretRespondToFocus(Handle, not FPersistentCaret);
end;
if (x <> FCurrentPosX) or (y <> FCurrentPosY) then
SetCaretPosEx(FHandle, x, y);