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

removed unneeded invalidate

Browse Source 
git-svn-id: trunk@8435 -
This commit is contained in:
mattias 2006-01-04 12:36:40 +00:00
parent 8c284f3daa
commit 68755c278e
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/customform.inc
View File

@ -22,9 +22,9 @@
{ TCustomForm }
{------------------------------------------------------------------------------}
{ TCustomForm ClientWndProc }
{------------------------------------------------------------------------------}
{------------------------------------------------------------------------------
TCustomForm ClientWndProc
------------------------------------------------------------------------------}
Procedure TCustomForm.ClientWndProc(var Message: TLMessage);
procedure CallDefault;
@ -283,7 +283,7 @@ end;
function TCustomForm.GetIconHandle: HICON;
begin
//DebugLn('[TCustomForm.GetIconHandle] ',ClassName,' ',FIcon<>nil);
if (FIcon<>nil) and not Icon.Empty then
if (FIcon<>nil) and (not Icon.Empty) then
Result := FIcon.Handle
else
Result := Application.GetIconHandle;

1
lcl/include/wincontrol.inc
View File

@ -4998,7 +4998,6 @@ begin
if HandleAllocated then begin
FinalizeWnd;
TWSWinControlClass(WidgetSetClass).DestroyHandle(Self);
InvalidatePreferredSize;
Handle := 0;
end;
end;