mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-31 10:00:32 +02:00
synedit: added note
git-svn-id: trunk@18163 -
This commit is contained in:
parent
63d5f54f09
commit
1f1aa8a31a
@ -1313,6 +1313,7 @@ var
|
||||
begin
|
||||
//debugln('TSynCompletion.Validate ',dbgsName(Sender),' ',dbgs(Shift),' Position=',dbgs(Position));
|
||||
F := Sender as TSynBaseCompletionForm;
|
||||
// Note: Form.Visible can be false, for example when completion only contains one item
|
||||
if F.CurrentEditor is TCustomSynEdit then
|
||||
with TCustomSynEdit(F.CurrentEditor) do begin
|
||||
BeginUndoBlock;
|
||||
|
Loading…
Reference in New Issue
Block a user