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

synedit: undo 18141: completion can work when not visible

Browse Source 
git-svn-id: trunk@18160 -
This commit is contained in:
mattias 2009-01-06 10:36:52 +00:00
parent ff9a4a9b4f
commit 13b54cba9a
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/synedit/syncompletion.pas
View File

@ -1313,8 +1313,6 @@ var
begin begin
//debugln('TSynCompletion.Validate ',dbgsName(Sender),' ',dbgs(Shift),' Position=',dbgs(Position)); //debugln('TSynCompletion.Validate ',dbgsName(Sender),' ',dbgs(Shift),' Position=',dbgs(Position));
F := Sender as TSynBaseCompletionForm; F := Sender as TSynBaseCompletionForm;
if not F.Visible then
Exit;
if F.CurrentEditor is TCustomSynEdit then if F.CurrentEditor is TCustomSynEdit then
with TCustomSynEdit(F.CurrentEditor) do begin with TCustomSynEdit(F.CurrentEditor) do begin
BeginUndoBlock; BeginUndoBlock;