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

set default form icon (issue #1457)

Browse Source 
git-svn-id: trunk@8197 -
This commit is contained in:
micha 2005-11-19 16:10:56 +00:00
parent 192b287775
commit 555edd3371
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -236,6 +236,8 @@ begin
end;
// create window
FinishCreateWindow(AWinControl, Params, false);
// TODO: proper icon, for now set default icon
SetIcon(TCustomForm(AWinControl), 0);
Result := Params.Window;
end;