paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

Gtk2: TGtk2WidgetSet.SetWindowPos() implemented SWP_NOMOVE & SWP_NOSIZE

Browse Source 
git-svn-id: trunk@27280 -
This commit is contained in:
zeljko 2010-09-07 19:06:59 +00:00
parent bfa8ee5124
commit 5100ba4cda
1 changed files with 38 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -8710,6 +8710,7 @@ function TGtk2WidgetSet.SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
var
Widget: PGTKWidget;
FixedWidget: PGtkWidget;
Allocation: TGTKAllocation;
begin
Result:=false;
Widget:=PGtkWidget(hWnd);
@ -8719,14 +8720,49 @@ begin
' SWP_NOSIZE=',(SWP_NOSIZE and uFlags)<>0,
' SWP_NOMOVE=',(SWP_NOMOVE and uFlags)<>0,
'');}
if GtkWidgetIsA(Widget,GTK_TYPE_WINDOW) then begin
if GtkWidgetIsA(Widget,GTK_TYPE_WINDOW) then
begin
Result := True;
exit;
{ case hWndInsertAfter of
HWND_BOTTOM: ; //gdk_window_lower(Widget^.Window);
HWND_TOP: gtk_window_set_position(PGtkWindow(hWnd),GTK_WIN_POS_CENTER);
//gdk_window_raise(Widget^.Window);
end;
}
end else if (SWP_NOZORDER and uFlags)=0 then begin
end;
if (SWP_NOMOVE and uFlags = 0) and (SWP_NOSIZE and uFlags = 0) then
begin
// optimize if pos & size needed, so we allocate in one shot.
Allocation.X := X;
Allocation.Y := Y;
Allocation.Width := cx;
Allocation.Height := cy;
gtk_widget_size_allocate(Widget, @Allocation);
end else
begin
if (SWP_NOMOVE and uFlags = 0) then
begin
Allocation.X := X;
Allocation.Y := Y;
Allocation.Width := Widget^.Allocation.Width;
Allocation.Height := Widget^.Allocation.Height;
gtk_widget_size_allocate(Widget, @Allocation);
end;
if (SWP_NOSIZE and uFlags = 0) then
begin
Allocation.X := Widget^.Allocation.x;
Allocation.Y := Widget^.Allocation.y;
Allocation.Width := cx;
Allocation.Height := cy;
gtk_widget_size_allocate(Widget, @Allocation);
end;
end;
if (SWP_NOZORDER and uFlags)=0 then
begin
FixedWidget:=Widget^.Parent;
if FixedWidget=nil then exit;