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

mark non constraint windows resizeable, otherwise X warns

Browse Source 
git-svn-id: trunk@8028 -
This commit is contained in:
mattias 2005-11-02 00:09:55 +00:00
parent 9dc5379f89
commit be57b722e5
2 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8101,15 +8101,15 @@ begin
ABorderStyle:=bsSizeable; ABorderStyle:=bsSizeable;
Case ABorderStyle of Case ABorderStyle of
bsNone : Result := GDK_FUNC_MOVE or GDK_FUNC_CLOSE; bsNone : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or GDK_FUNC_CLOSE;
bsSingle : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or bsSingle : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE; GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE;
bsSizeable : Result := GDK_FUNC_ALL; bsSizeable : Result := GDK_FUNC_ALL;
bsDialog : Result := GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE or bsDialog : Result := GDK_FUNC_RESIZE or GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE
GDK_FUNC_MOVE; or GDK_FUNC_MOVE;
bsToolWindow : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or bsToolWindow : Result := GDK_FUNC_RESIZE or GDK_FUNC_MOVE or
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE; GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE;
@ -8118,6 +8118,15 @@ begin
GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or GDK_FUNC_MINIMIZE or GDK_FUNC_CLOSE or
GDK_FUNC_RESIZE; GDK_FUNC_RESIZE;
end; end;
// X warns if marking a fixed size window resizeable:
if ((AForm.Constraints.MinWidth>0)
and (AForm.Constraints.MinWidth=AForm.Constraints.MaxWidth))
or ((AForm.Constraints.MinHeight>0)
and (AForm.Constraints.MinHeight=AForm.Constraints.MaxHeight)) then
Result:=Result-GDK_FUNC_RESIZE;
//debugln('GetWindowFunction A ',DbgSName(AForm),' ',dbgs(ord(ABorderStyle)));
end; end;
function GetGDKMouseCursor(Cursor: TCursor): PGdkCursor; function GetGDKMouseCursor(Cursor: TCursor): PGdkCursor;