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

fixed registering codemakros

Browse Source 
git-svn-id: trunk@8087 -
This commit is contained in:
mattias 2005-11-07 09:35:13 +00:00
parent 5bf19dd85b
commit e08d298756
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/codetemplatesdlg.pas
View File

@ -658,7 +658,7 @@ begin
i:=Count-1; i:=Count-1;
while (i>=0) do begin while (i>=0) do begin
Result:=Items[i]; Result:=Items[i];
if (CompareText(Result.Name,AName)<>0) then exit; if (CompareText(Result.Name,AName)=0) then exit;
dec(i); dec(i);
end; end;
Result:=nil; Result:=nil;

1
ideintf/macrointf.pas
View File

@ -137,6 +137,7 @@ begin
Result.LongDescription:=LongDescription; Result.LongDescription:=LongDescription;
Result.OnGetValueProc:=OnGetValueProc; Result.OnGetValueProc:=OnGetValueProc;
Result.OnGetValueMethod:=OnGetValueMethod; Result.OnGetValueMethod:=OnGetValueMethod;
IDECodeMacros.Add(Result);
end; end;
{ TIDEMacros } { TIDEMacros }