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

implemented default package for custom IDE components

Browse Source 
git-svn-id: trunk@3078 -
This commit is contained in:
mattias 2002-08-18 08:57:31 +00:00
parent 2debad35f2
commit 7ba2d1fab6
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/uniteditor.pp
View File

@ -2581,6 +2581,7 @@ Begin
end; end;
CurCompletionControl.ItemList := S; CurCompletionControl.ItemList := S;
S.Free;
CurCompletionControl.CurrentString:=Prefix; CurCompletionControl.CurrentString:=Prefix;
// set colors // set colors
if (ActiveEditor<>nil) and (CurCompletionControl.TheForm<>nil) then begin if (ActiveEditor<>nil) and (CurCompletionControl.TheForm<>nil) then begin