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

started Menu icons for win32 intf from Martin Smat

Browse Source 
git-svn-id: trunk@4789 -
This commit is contained in:
mattias 2003-11-09 10:35:19 +00:00
parent f0b04df808
commit 27e1973d80
2 changed files with 15 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -853,7 +853,7 @@ activate_time : the time at which the activation event occurred.
End;
LM_SETFORMICON:
Begin
SetClassLong(Handle, GCL_HIcon, (Sender As TCustomForm).GetIconHandle);
SetClassLong(Handle, GCL_HIcon, integer(Data));
End;
LM_GETITEMS :
Begin
@ -1312,6 +1312,7 @@ Begin
Pixmap := CreatePixmapIndirect(PixmapData, 0);
DrawIcon(DC, TWinControl(Surface).Left, TWinControl(Surface).Top, Pixmap);
ReleaseDC(TWinControl(Surface).Handle, DC);
DeleteObject(Pixmap);
End;
{------------------------------------------------------------------------------
@ -2765,14 +2766,14 @@ Begin
cbsize:=sizeof(MENUITEMINFO);
fMask:=Mask;
fType:=Style;
{fState:=MFS_ENABLED;} {not needed}
wID:=TMenuItem(Sender).Command; {value may only be 16 bit wide!}
hSubmenu:=MenuHandle;
{hbmpChecked:=0;
hbmpUnchecked:=0;} {not needed}
dwItemData:=integer(Sender);
{dwTypeData:=LPSTR(TMenuItem(Sender).Caption);}
{cch:=length(TMenuItem(Sender).Caption);} {not needed}
if assigned(TmenuItem(Sender).Graphic) then {adds the menuitem icon}
begin
fMask:=fMask or MIIM_CHECKMARKS;
hbmpUnchecked:=(TMenuItem(Sender).Graphic as TBitmap).Handle;
end;
end;
InsertMenuItem(ParentMenuHandle, High(UINT), true, @MenuInfo);
if TMenuItem(Sender).ShortCut <> 0 then
@ -2806,6 +2807,9 @@ End;
{
$Log$
Revision 1.127 2003/11/09 10:35:19 mattias
started Menu icons for win32 intf from Martin Smat
Revision 1.126 2003/11/08 17:41:03 micha
compiler warning cleanups

8
lcl/interfaces/win32/win32winapi.inc
View File

@ -223,13 +223,11 @@ End;
------------------------------------------------------------------------------}
Function TWin32Object.CheckMenuItem(HndMenu: HMENU; uIDEnableItem: Integer; BChecked: Boolean): Boolean;
var CheckFlag: integer;
PrevState: integer;
Begin
if BChecked then CheckFlag := MF_CHECKED
else CheckFlag := MF_UNCHECKED;
CheckFlag := CheckFlag or MF_BYCOMMAND;
PrevState := Windows.CheckMenuItem(FMenu, UIDEnableItem, CheckFlag);
Result := PrevState = MF_ENABLED;
Result := Windows.CheckMenuItem(FMenu, UIDEnableItem, CheckFlag)=MF_ENABLED;
End;
{------------------------------------------------------------------------------
@ -718,6 +716,7 @@ Begin
CreateColorMap;
DoDrawBitmap;
DestroyColorMap;
SelectObject(hdcBitmap, OldObject);
ReleaseDC(GetDesktopWindow, hdcScreen);
SelectObject(hdcBitmap, OldObject);
DeleteDC(hdcBitmap);
@ -2534,6 +2533,9 @@ end;
{ =============================================================================
$Log$
Revision 1.70 2003/11/09 10:35:19 mattias
started Menu icons for win32 intf from Martin Smat
Revision 1.69 2003/11/08 17:41:03 micha
compiler warning cleanups