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

MG fixed hidden component page

Browse Source 
git-svn-id: trunk@3626 -
This commit is contained in:
lazarus 2002-11-12 16:18:46 +00:00
parent 7a9df7c439
commit dbcda8ed24
3 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/compreg.pp
View File

@ -255,8 +255,9 @@ var NewPage:TRegisteredComponentPage;
a:integer;
NewComp:TRegisteredComponent;
begin
// the hidden page is the empty ''
if (High(ComponentClasses)-Low(ComponentClasses)<0)
or (Page='') or (UnitName='') then exit;
or (UnitName='') then exit;
if not IsValidIdent(UnitName) then begin
raise EComponentError.Create(
'RegisterComponents: Invalid unitname "'+UnitName+'"');

5
ide/exttooldialog.pas
View File

@ -317,8 +317,11 @@ writeln('[TExternalToolList.Run] ',CmdLine);
Result:=mrOk;
except
on e: EOutputFilterError do begin
writeln('TExternalToolList.Run ',E.Message);
ErrorOccurred:=true;
end;
end
else
raise
end;
finally
if Assigned(OnFreeOutputFilter) then

5
lcl/include/customform.inc
View File

@ -232,7 +232,7 @@ end;
{------------------------------------------------------------------------------}
Procedure TCustomForm.SetVisible(Value : boolean);
Begin
//writeln('[TCustomForm.SetVisible] START ',Name,':',ClassName,' ',Value,' ',(fsCreating in FFormState),' ',FormUpdating);
//writeln('[TCustomForm.SetVisible] START2 ',Name,':',ClassName,' ',Value,' ',(fsCreating in FFormState),' ',FormUpdating);
if Value then
Include(FFormState, fsVisible)
else
@ -1200,6 +1200,9 @@ end;
{ =============================================================================
$Log$
Revision 1.71 2002/11/12 16:18:46 lazarus
MG fixed hidden component page
Revision 1.70 2002/11/09 18:13:33 lazarus
MG: fixed gdkwindow checks