paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-24 22:19:12 +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; procedure ValidateRename(AComponent: TComponent;
const CurName, NewName: string);override; const CurName, NewName: string);override;
Procedure SetZOrder(Topmost: Boolean); override; Procedure SetZOrder(Topmost: Boolean); override;
procedure VisibleChanging; override;
procedure WndProc(var TheMessage : TLMessage); override; procedure WndProc(var TheMessage : TLMessage); override;
public public
// properties // properties

16
lcl/include/customform.inc
View File

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