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

set default icon instead of lcl icon which actually is a bitmap

Browse Source 
git-svn-id: trunk@6184 -
This commit is contained in:
micha 2004-11-01 18:20:21 +00:00
parent 6c926a1b4c
commit f34ec6eeb5
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/win32/win32object.inc
View File

@ -181,6 +181,9 @@ begin
0, 0, HWND(nil), HMENU(nil), HInstance, nil);
AllocWindowInfo(FAppHandle);
// set nice main icon
SendMessage(FAppHandle, WM_SETICON, ICON_BIG,
Windows.LoadIcon(MainInstance, 'MAINICON'));
// remove useless menuitems from sysmenu
SysMenu := Windows.GetSystemMenu(FAppHandle, False);
Windows.DeleteMenu(SysMenu, SC_MAXIMIZE, MF_BYCOMMAND);
@ -733,6 +736,9 @@ end;
{
$Log$
Revision 1.296 2004/11/01 18:20:21 micha
set default icon instead of lcl icon which actually is a bitmap
Revision 1.295 2004/10/29 09:52:08 micha
fix crash on showing tabpage
fix painting of radiobutton in groupbox (non-tabpage-parent)

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

@ -237,7 +237,7 @@ end;
procedure TWin32WSCustomForm.SetIcon(const AForm: TCustomForm; const AIcon: HICON);
begin
SendMessage(AForm.Handle, WM_SETICON, ICON_BIG, AIcon);
SendMessage(AForm.Handle, WM_SETICON, ICON_BIG, Windows.LoadIcon(MainInstance, 'MAINICON'));
end;
procedure TWin32WSCustomForm.ShowModal(const ACustomForm: TCustomForm);