paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-29 15:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: reduced showing forms during creation

Browse Source 
git-svn-id: trunk@1191 -
This commit is contained in:
lazarus 2002-02-09 01:48:04 +00:00
parent 40b4816ac1
commit 89f9ebb318
1 changed files with 20 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -183,6 +183,7 @@ procedure TgtkObject.SetWindowSizeAndPosition(Window: PGtkWindow;
AWinControl: TWinControl);
var
Width, Height: integer;
//Info: PGtkWindowGeometryInfo;
begin
Width:=AWinControl.Width;
if Width<0 then
@ -190,9 +191,22 @@ begin
Height:=AWinControl.Height;
if Height<0 then
Height:=0;
gtk_window_set_default_size(Window,Width,Height);
gtk_widget_set_usize(PGtkWidget(Window), -1,-1);
gtk_widget_set_usize(PGtkWidget(Window),Width,Height);
//writeln('TgtkObject.SetWindowSizeAndPosition ',AWinControl.Name,':',AWinControl.ClassName,' ',AWinControl.Visible,' Old=',PGtkWidget(Window)^.allocation.Width,',',PGtkWidget(Window)^.allocation.Width,' New=',Width,',',Height);
// set geometry default size
//Info:=gtk_window_get_geometry_info(Window, TRUE);
//if (Info^.default_width<>Width) or (Info^.default_height<>Height) then
gtk_window_set_default_size(Window,Width,Height);
// resize
if (PGtkWidget(Window)^.allocation.Width<>Width)
and (PGtkWidget(Window)^.allocation.Height<>Height) then begin
gtk_widget_set_usize(PGtkWidget(Window), -1,-1);
gtk_widget_set_usize(PGtkWidget(Window),Width,Height);
end;
// reposition
//writeln('TgtkObject.SetWindowSizeAndPosition B ',AWinControl.Name,':',AWinControl.ClassName,' ',AWinControl.Visible,' Old=',PGtkWidget(Window)^.allocation.X,',',PGtkWidget(Window)^.allocation.Y,' New=',AWinControl.Left,',',AWinControl.Top);
gtk_widget_set_uposition(PGtkWidget(Window),AWinControl.Left,AWinControl.Top);
end;
@ -6532,6 +6546,9 @@ end;
{ =============================================================================
$Log$
Revision 1.279 2002/11/06 17:46:36 lazarus
MG: reduced showing forms during creation
Revision 1.278 2002/11/04 19:49:36 lazarus
MG: added persistent hints for main ide bar