paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 19:20:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

added visiblechanging

Browse Source 
git-svn-id: trunk@2042 -
This commit is contained in:
mattias 2002-08-17 23:40:45 +00:00
parent 638395d2fc
commit f7dd7796e0
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk/gtkobject.inc
View File

@ -4790,7 +4790,7 @@ begin
LCLControl:=TWinControl(Sender);
if not LCLControl.HandleAllocated then exit;
SenderWidget:=PgtkWidget(LCLControl.Handle);
//if Sender is TForm then
//if (Sender is TForm) and (Sender.ClassName='TForm1') then
// writeln('[TgtkObject.ShowHide] START ',TControl(Sender).Name,':',Sender.ClassName,' Visible=',TControl(Sender).Visible,' GtkVisible=',gtk_widget_visible(SenderWidget));
if LCLControl.Visible
or ((csDesigning in LCLControl.ComponentState)
@ -6889,6 +6889,9 @@ end;
{ =============================================================================
$Log$
Revision 1.329 2003/03/11 22:56:41 mattias
added visiblechanging
Revision 1.328 2003/03/09 21:13:32 mattias
localized gtk interface