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

gtk2 intf: change BorderStyle for nested forms: do not recreatewnd

Browse Source 
git-svn-id: trunk@25373 -
This commit is contained in:
mattias 2010-05-13 16:36:17 +00:00
parent 6634dfe6aa
commit 0f03af74d5
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -290,9 +290,15 @@ begin
if (WidgetInfo^.FormBorderStyle <> Ord(AFormBorderStyle)) then
begin
if (AForm.Parent <> nil) or (AFormBorderStyle <> bsNone) then
RecreateWnd(AForm)
else
if (AForm.Parent<>nil) then
begin
// a nested form
// at the moment the gtk interface does not support any border for this
end else if (AFormBorderStyle <> bsNone) then
begin
// the borderstyle can be only set on creation
RecreateWnd(AForm);
end else
begin
// TODO: set window hint WindowType := FormStyleMap[AFormBorderStyle];
Resizable := FormResizableMap[AFormBorderStyle];