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

gtk intf: clean up

Browse Source 
git-svn-id: trunk@25798 -
This commit is contained in:
mattias 2010-05-31 08:02:58 +00:00
parent 03ad994dfc
commit f60167a4e3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -432,7 +432,7 @@ begin
exit;
above := AFormStyle in fsAllStayOnTop;
Widget := PGtkWidget(AForm.Handle);
gtk_window_set_keep_above(PGtkWindow(AForm.Handle), above);
gtk_window_set_keep_above(PGtkWindow(Widget), above);
end;
{class function TGtk2WSCustomForm.GetDefaultClientRect(