From 68755c278e10c54c8fc69ae8c5bbca23792274f9 Mon Sep 17 00:00:00 2001 From: mattias Date: Wed, 4 Jan 2006 12:36:40 +0000 Subject: [PATCH] removed unneeded invalidate git-svn-id: trunk@8435 - --- lcl/include/customform.inc | 8 ++++---- lcl/include/wincontrol.inc | 1 - 2 files changed, 4 insertions(+), 5 deletions(-) diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 7ad75de2bb..28fe103bd7 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -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; diff --git a/lcl/include/wincontrol.inc b/lcl/include/wincontrol.inc index f2af2026e9..48786ed378 100644 --- a/lcl/include/wincontrol.inc +++ b/lcl/include/wincontrol.inc @@ -4998,7 +4998,6 @@ begin if HandleAllocated then begin FinalizeWnd; TWSWinControlClass(WidgetSetClass).DestroyHandle(Self); - InvalidatePreferredSize; Handle := 0; end; end;