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

SynEdit: Multi-caret: On windows support none blinking system settings. issue #30513

Browse Source 
git-svn-id: trunk@58303 -
This commit is contained in:
martin 2018-06-18 10:17:10 +00:00
parent 2740f947c3
commit 22cab1ecb2
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
components/synedit/syneditpointclasses.pas
View File

@ -2508,8 +2508,10 @@ begin
end;
constructor TSynEditScreenCaretTimer.Create;
{$IFDEF windows}
var
i: UINT;
{$ENDIF}
begin
FTimerList := TMethodList.Create;
FAfterPaintList := TMethodList.Create;
@ -2517,8 +2519,14 @@ begin
FTimer.Enabled := False;
{$IFDEF windows}
i := GetCaretBlinkTime;
if (i = high(i)) or (i = 0) then i := 500; // TODO: none blinking caret. Not yet supported
FTimer.Interval := i;
if (i = high(i)) or (i = 0) then begin
FTimer.Enabled := False;
FDisplayCycle := True;
FTimer.Interval := 0;
end
else begin
FTimer.Interval := i;
end;
{$ELSE}
FTimer.Interval := 500;
{$ENDIF}
@ -2595,6 +2603,11 @@ begin
include(FLocFlags, lfRestart);
exit;
end;
if FTimer.Interval = 0 then begin
FTimerList.CallNotifyEvents(Self);
exit;
end;
if FTimerList.Count = 0 then exit;
FTimer.Enabled := False;
FDisplayCycle := False;