paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 03:00:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

gtk: fix some constants which makes bsDialog forms sizable

Browse Source 
git-svn-id: trunk@19582 -
This commit is contained in:
paul 2009-04-23 05:09:24 +00:00
parent 8c93dc5ffd
commit 66a22b1146
4 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/gtk/gtkglobals.pp
View File

@ -176,7 +176,7 @@ const
0, // bsNone
0, // bsSingle
1, // bsSizeable
1, // bsDialog
0, // bsDialog
0, // bsToolWindow
1 // bsSizeToolWin
);

4
lcl/interfaces/gtk/gtkproc.inc
View File

@ -9442,7 +9442,7 @@ begin
bsSizeable : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MAXIMIZE;
bsDialog : Result := GDK_FUNC_RESIZE or GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE
bsDialog : Result := GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE
or GDK_FUNC_MOVE;
bsToolWindow : Result := GDK_FUNC_MOVE or GDK_FUNC_CLOSE;
@ -9473,7 +9473,7 @@ begin
bsSizeable : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MAXIMIZE;
bsDialog : Result := GDK_FUNC_RESIZE or GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE
bsDialog : Result := GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE
or GDK_FUNC_MOVE;
bsToolWindow : Result := GDK_FUNC_MOVE or GDK_FUNC_CLOSE;

2
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -4,7 +4,7 @@
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* See the file COPYING.modifiedLGPL.txt, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *

6
lcl/interfaces/gtk2/gtk2wsforms.pp
View File

@ -165,8 +165,10 @@ begin
// Sets the window as resizable or not
// Depends on the WM supporting this
if (csDesigning in ACustomForm.ComponentState) then AResizable := 1
else AResizable := FormResizableMap[ABorderStyle];
if (csDesigning in ACustomForm.ComponentState) then
AResizable := 1
else
AResizable := FormResizableMap[ABorderStyle];
// gtk_window_set_policy is deprecated in Gtk2
gtk_window_set_resizable(GTK_WINDOW(P), gboolean(AResizable));