paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 00:19:22 +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 }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------
{ TCustomForm ClientWndProc } TCustomForm ClientWndProc
{------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
Procedure TCustomForm.ClientWndProc(var Message: TLMessage); Procedure TCustomForm.ClientWndProc(var Message: TLMessage);
procedure CallDefault; procedure CallDefault;
@ -283,7 +283,7 @@ end;
function TCustomForm.GetIconHandle: HICON; function TCustomForm.GetIconHandle: HICON;
begin begin
//DebugLn('[TCustomForm.GetIconHandle] ',ClassName,' ',FIcon<>nil); //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 Result := FIcon.Handle
else else
Result := Application.GetIconHandle; Result := Application.GetIconHandle;

1
lcl/include/wincontrol.inc
View File

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