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

Fix to compreg.pp

Browse Source 
Shane

git-svn-id: trunk@80 -
This commit is contained in:
lazarus 2000-12-29 13:57:39 +00:00
parent d5b810aeae
commit 94237dcca2
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/compreg.pp
View File

@ -199,7 +199,6 @@ var NewPage:TRegisteredComponentPage;
a:integer;
NewComp:TRegisteredComponent;
begin
Writeln('REGISTERING COMPONENT');
NewPage:=FindPageByName(Page);
if NewPage=nil then begin
@ -230,7 +229,7 @@ var a:integer;
begin
Name:=uppercase(Name);
for a:=0 to FPages.Count-1 do begin
if uppercase(Pages.Name)=Name then begin
if uppercase(Pages[a].Name)=Name then begin
Result:=Pages[a];
exit;
end;

3
ide/idecomp.pp
View File

@ -251,6 +251,9 @@ begin
,TBevel,TRadioGroup]);
RegisterComponents('Additional','ComCtrls',[TStatusBar,TListView,TProgressBar
,TToolBar,TToolButton,TTrackBar]);
RegisterComponents('Samples','Spin',[TSpinEdit]);
RegisterComponentsProc:=nil;