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

lcl: gtk2: clean up

Browse Source 
git-svn-id: trunk@39203 -
This commit is contained in:
mattias 2012-10-30 11:35:26 +00:00
parent 9bf373c62d
commit 08a1b43b4f
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/alllclunits.pp
View File

@ -15,7 +15,7 @@ uses
IniPropStorage, InterfaceBase, IntfGraphics, LazConfigStorage, LazHelpHTML,
LazHelpIntf, LazLinkedList, LCLClasses, LCLIntf, LCLMemManager,
LCLMessageGlue, LCLProc, LCLResCache, LCLStrConsts, LCLType, Menus,
LCLUnicodeData, LCLVersion, LMessages, LResources, maps, MaskEdit,
LCLUnicodeData, LCLVersion, LMessages, LResources, maps, maskedit,
PairSplitter, PopupNotifier, PostScriptCanvas, PostScriptPrinter,
postscriptunicode, Printers, PropertyStorage, RubberBand, ShellCtrls, Spin,
StdActns, StdCtrls, StringHashList, TextStrings, Themes, TmSchema, Toolwin,

2
lcl/interfaces/gtk2/gtk2winapi.inc
View File

@ -4362,7 +4362,7 @@ function TGtk2WidgetSet.GetClientRect(handle : HWND; var ARect : TRect) : Boolea
begin
Result := false;
if Handle = 0 then Exit;
ARect := GetWidgetClientRect(PGtkWidget(Handle));
ARect := GetWidgetClientRect({%H-}PGtkWidget(Handle));
Result := True;
end;