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

added visiblechanging

Browse Source 
git-svn-id: trunk@2308 -
This commit is contained in:
mattias 2002-08-17 23:41:14 +00:00
parent a83c649818
commit 3b58aec9ab
1 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/include/control.inc
View File

@ -765,6 +765,14 @@ begin
OnShowHint(Self,HintInfo);
end;
{------------------------------------------------------------------------------
procedure TControl.VisibleChanging;
------------------------------------------------------------------------------}
procedure TControl.VisibleChanging;
begin
end;
{------------------------------------------------------------------------------
TControl GetClientRect
------------------------------------------------------------------------------}
@ -1346,10 +1354,10 @@ end;
procedure TControl.Show;
begin
if Parent <> nil then Parent.ShowControl(Self);
if not (csDesigning in ComponentState)
or (csNoDesignVisible in ControlStyle) then begin
Visible := true;
end;
if (csDesigning in ComponentState) and (csNoDesignVisible in ControlStyle)
then
exit;
Visible := true;
end;
{------------------------------------------------------------------------------
@ -1362,7 +1370,6 @@ begin
if AComponent = PopupMenu then PopupMenu := nil;
end;
{------------------------------------------------------------------------------
TControl GetText
------------------------------------------------------------------------------}
@ -1746,6 +1753,7 @@ procedure TControl.SetVisible(Value : Boolean);
begin
if FVisible <> Value then
begin
VisibleChanging;
FVisible := Value;
Perform(CM_VISIBLECHANGED, Ord(Value), 0);
RequestAlign;
@ -2055,6 +2063,9 @@ end;
{ =============================================================================
$Log$
Revision 1.116 2003/03/11 22:56:41 mattias
added visiblechanging
Revision 1.115 2003/01/18 21:31:43 mattias
fixed scrolling offset of TScrollingWinControl