paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-04 12:40:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

LCL, Win32: don't check for zero in TWin32WidgetSet.SetAppHandle, requested by accSone

Browse Source 
git-svn-id: trunk@43986 -
This commit is contained in:
maxim 2014-02-09 19:54:57 +00:00
parent d5e1ced666
commit 1bea33f5ba
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32object.inc
View File

@ -728,9 +728,7 @@ end;
procedure TWin32WidgetSet.SetAppHandle(const AValue: THandle);
begin
// Do it only if handle is not yet created (for example for DLL initialization)
// if handle is already created we can't reassign it
if AppHandle = 0 then
FAppHandle := AValue;
FAppHandle := AValue;
end;
function TWin32WidgetSet.GetDotsPatternBitmap: HBitmap;