paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-26 11:12:08 +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; a:integer;
NewComp:TRegisteredComponent; NewComp:TRegisteredComponent;
begin begin
// the hidden page is the empty ''
if (High(ComponentClasses)-Low(ComponentClasses)<0) if (High(ComponentClasses)-Low(ComponentClasses)<0)
or (Page='') or (UnitName='') then exit; or (UnitName='') then exit;
if not IsValidIdent(UnitName) then begin if not IsValidIdent(UnitName) then begin
raise EComponentError.Create( raise EComponentError.Create(
'RegisterComponents: Invalid unitname "'+UnitName+'"'); 'RegisterComponents: Invalid unitname "'+UnitName+'"');

5
ide/exttooldialog.pas
View File

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

5
lcl/include/customform.inc
View File

@ -232,7 +232,7 @@ end;
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
Procedure TCustomForm.SetVisible(Value : boolean); Procedure TCustomForm.SetVisible(Value : boolean);
Begin 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 if Value then
Include(FFormState, fsVisible) Include(FFormState, fsVisible)
else else
@ -1200,6 +1200,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $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 Revision 1.70 2002/11/09 18:13:33 lazarus
MG: fixed gdkwindow checks MG: fixed gdkwindow checks