From 99436e37320f3c8456e4fb7010636919527573e9 Mon Sep 17 00:00:00 2001 From: paul Date: Sun, 14 Oct 2007 08:41:59 +0000 Subject: [PATCH] gtk: call RecreateWnd in TGrkWsCustomForm.SetFormBorderStyle since default implementation is empty. Now runtime BorderStyle change in gtk perform change. git-svn-id: trunk@12455 - --- lcl/interfaces/gtk/gtkwsforms.pp | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lcl/interfaces/gtk/gtkwsforms.pp b/lcl/interfaces/gtk/gtkwsforms.pp index 9b9676e97d..312b31c40f 100644 --- a/lcl/interfaces/gtk/gtkwsforms.pp +++ b/lcl/interfaces/gtk/gtkwsforms.pp @@ -322,11 +322,7 @@ begin if not WSCheckHandleAllocated(AForm, 'SetFormBorderStyle') then Exit; - inherited SetFormBorderStyle(AForm, AFormBorderStyle); - // the form border style can only be set at creation time. - // This is Delphi compatible, so no Recreatewnd needed. - {$note check if this implies that the lcl recreates the handle here} - // otherwise the lcl recreatewnd call should be removed and placed here. + RecreateWnd(AForm); end; class procedure TGtkWSCustomForm.SetIcon(const AForm: TCustomForm; const AIcon: HICON);