paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 13:39:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

win32: request frame invalidation after every icon change operation

Browse Source 
git-svn-id: trunk@17228 -
This commit is contained in:
paul 2008-11-05 02:42:32 +00:00
parent 6353e4b2da
commit 5a32fcc6f6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/win32/win32wsforms.pp
View File

@ -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;