From 5a32fcc6f679014c5f23312eea7f383beefa88e9 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Wed, 5 Nov 2008 02:42:32 +0000
Subject: [PATCH] win32: request frame invalidation after every icon change
 operation

git-svn-id: trunk@17228 -
---
 lcl/interfaces/win32/win32wsforms.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lcl/interfaces/win32/win32wsforms.pp b/lcl/interfaces/win32/win32wsforms.pp
index 4fbe69eb92..1d4a68e23b 100644
--- a/lcl/interfaces/win32/win32wsforms.pp
+++ b/lcl/interfaces/win32/win32wsforms.pp
@@ -425,6 +425,9 @@ begin
 
   SendMessage(Wnd, WM_SETICON, ICON_BIG, LPARAM(Big));
   SetClassLong(Wnd, GCL_HICON, LONG(Big));
+  // for some reason sometimes frame does not invalidate itself. lets ask it to invalidate always
+  Windows.RedrawWindow(Wnd, nil, 0,
+    RDW_INVALIDATE or RDW_FRAME or RDW_NOCHILDREN or RDW_ERASE);
 end;
 
 class procedure TWin32WSCustomForm.SetShowInTaskbar(const AForm: TCustomForm;