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

SynEdit: Fixed eoNoCaret

Browse Source 
git-svn-id: trunk@35689 -
This commit is contained in:
martin 2012-03-03 20:14:11 +00:00
parent 994179a76f
commit 6ade22b5c6
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/synedit.pp
View File

@ -4456,7 +4456,7 @@ begin
DebugLn(['[TCustomSynEdit.WMSetFocus] A ',Name,':',ClassName, ' time=', dbgs(Now*86640)]);
{$ENDIF}
FScreenCaret.DestroyCaret; // Ensure recreation. On Windows only one caret exists, and it must be moved to the focused editor
FScreenCaret.Visible := True;
FScreenCaret.Visible := not(eoNoCaret in FOptions);
//if FHideSelection and SelAvail then
// Invalidate;
inherited;
@ -7220,10 +7220,12 @@ begin
// (un)register HWND as drop target
if (eoDropFiles in ChangedOptions) and not (csDesigning in ComponentState) and HandleAllocated then
; // ToDo DragAcceptFiles
if (eoPersistentCaret in ChangedOptions) and HandleAllocated then begin
if (ChangedOptions * [eoPersistentCaret, eoNoCaret] <> []) and HandleAllocated then begin
UpdateCaret;
if not Focused then
FScreenCaret.Visible := (eoPersistentCaret in FOptions);
if Focused then
FScreenCaret.Visible := not(eoNoCaret in FOptions)
else
FScreenCaret.Visible := (eoPersistentCaret in FOptions) and not(eoNoCaret in FOptions);
end;
if (eoShowSpecialChars in ChangedOptions) then begin
if eoShowSpecialChars in FOptions