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

gtk: call RecreateWnd in TGrkWsCustomForm.SetFormBorderStyle since default implementation is empty. Now runtime BorderStyle change in gtk perform change.

Browse Source 
git-svn-id: trunk@12455 -
This commit is contained in:
paul 2007-10-14 08:41:59 +00:00
parent 965569b5e8
commit 99436e3732
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/gtk/gtkwsforms.pp
View File

@ -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);