paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-18 14:08:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed TForm ShowHide repositioning

Browse Source 
git-svn-id: trunk@703 -
This commit is contained in:
lazarus 2002-02-09 01:45:30 +00:00
parent fcddafbdae
commit b42094816b
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3216,7 +3216,8 @@ begin
// writeln('[TgtkObject.ShowHide] START ',Sender.ClassName,' Visible=',TControl(Sender).Visible,' Window=',FormWidget^.Window<>nil); // writeln('[TgtkObject.ShowHide] START ',Sender.ClassName,' Visible=',TControl(Sender).Visible,' Window=',FormWidget^.Window<>nil);
if TControl(Sender).Visible then begin if TControl(Sender).Visible then begin
{$IFDEF ClientRectBugFix} {$IFDEF ClientRectBugFix}
if (Sender is TCustomForm) then begin if (Sender is TCustomForm) and (not gtk_widget_visible(FormWidget)) then
begin
gtk_window_set_default_size(PgtkWindow(FormWidget), gtk_window_set_default_size(PgtkWindow(FormWidget),
TControl(Sender).Width,TControl(Sender).Height); TControl(Sender).Width,TControl(Sender).Height);
gtk_widget_set_uposition(PgtkWidget(FormWidget), gtk_widget_set_uposition(PgtkWidget(FormWidget),
@ -4310,6 +4311,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.125 2002/05/16 15:42:54 lazarus
MG: fixed TForm ShowHide repositioning
Revision 1.124 2002/05/15 05:58:17 lazarus Revision 1.124 2002/05/15 05:58:17 lazarus
MG: added TMainMenu.Parent MG: added TMainMenu.Parent