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

added visiblechanging

Browse Source 
git-svn-id: trunk@3912 -
This commit is contained in:
mattias 2003-03-11 22:56:41 +00:00
parent b0caf8f20a
commit e6d4462a96
2 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/forms.pp
View File

@ -316,6 +316,7 @@ type
procedure ValidateRename(AComponent: TComponent;
const CurName, NewName: string);override;
Procedure SetZOrder(Topmost: Boolean); override;
procedure VisibleChanging; override;
procedure WndProc(var TheMessage : TLMessage); override;
public
// properties

16
lcl/include/customform.inc
View File

@ -241,6 +241,7 @@ Begin
Exclude(FFormState, fsVisible);
//writeln('TCustomForm.SetVisible ',Name,':',ClassName,' ',FormUpdating);
if (fsCreating in FFormState) {or FormUpdating} then
// will be done when finished loading
else
begin
inherited Visible := Value;
@ -609,6 +610,15 @@ begin
inherited SetZOrder(Topmost);
end;
{------------------------------------------------------------------------------
procedure TCustomForm.VisibleChanging;
------------------------------------------------------------------------------}
procedure TCustomForm.VisibleChanging;
begin
//if (FormStyle = fsMDIChild) and Visible then
// raise EInvalidOperation.Create(SMDIChildNotVisible);
end;
{------------------------------------------------------------------------------
TCustomForm WndProc
------------------------------------------------------------------------------}
@ -1028,8 +1038,7 @@ end;
{------------------------------------------------------------------------------}
procedure TCustomForm.Hide;
begin
If (fsModal in FormState)
and (ModalResult=0) then
If (fsModal in FormState) and (ModalResult=0) then
ModalResult := mrCancel;
Visible := False;
end;
@ -1298,6 +1307,9 @@ end;
{ =============================================================================
$Log$
Revision 1.88 2003/03/11 22:56:41 mattias
added visiblechanging
Revision 1.87 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl