Creating a Shortcut Font-Attributes Menu

The example in this section contains portions of code from an application that creates and displays a shortcut menu that enables the user to set fonts and font attributes. The application displays the menu in the client area of its main window whenever the user clicks the left mouse button.

Here is the menu template for the shortcut menu that is provided in the application's resource-definition file.

PopupMenu MENU

BEGIN

POPUP "Dummy Popup"

BEGIN

POPUP "Fonts"

BEGIN

MENUITEM "Courier", IDM_FONT_COURIER

MENUITEM "Times Roman", IDM_FONT_TMSRMN

MENUITEM "Swiss", IDM_FONT_SWISS

MENUITEM "Helvetica", IDM_FONT_HELV

MENUITEM "Old English", IDM_FONT_OLDENG

END

POPUP "Sizes"

BEGIN

MENUITEM "7", IDM_SIZE_7

MENUITEM "8", IDM_SIZE_8

MENUITEM "9", IDM_SIZE_9

MENUITEM "10", IDM_SIZE_10

MENUITEM "11", IDM_SIZE_11

MENUITEM "12", IDM_SIZE_12

MENUITEM "14", IDM_SIZE_14

END

POPUP "Styles"

BEGIN

MENUITEM "Bold", IDM_STYLE_BOLD

MENUITEM "Italic", IDM_STYLE_ITALIC

MENUITEM "Strike Out", IDM_STYLE_SO

MENUITEM "Superscript", IDM_STYLE_SUPER

MENUITEM "Subscript", IDM_STYLE_SUB

END

END

END

The following example gives the window procedure and supporting functions used to create and display the shortcut menu.

LRESULT APIENTRY MenuWndProc(hwnd, uMsg, wParam, lParam)

HWND hwnd;

UINT uMsg;

WPARAM wParam;

LPARAM lParam;

{

RECT rc; // client area

POINT pt; // location of mouse click

switch (uMsg) {

case WM_LBUTTONDOWN:

// Get the bounding rectangle of the client area.

GetClientRect(hwnd, (LPRECT) &rc);

// Get the client coordinates for the mouse click.

pt.x = LOWORD(lParam);

pt.y = HIWORD(lParam);

// If the mouse click took place inside the client

// area, execute the application-defined function

// that displays the shortcut menu.

if (PtInRect((LPRECT) &rc, pt))

HandlePopupMenu(hwnd, pt);

break;

.

. // Process other window messages.

.

default:

return DefWindowProc(hwnd, uMsg, wParam, lParam);

}

return NULL;

}

VOID APIENTRY HandlePopupMenu(hwnd, pt)

HWND hwnd;

POINT pt;

{

HMENU hmenu; // menu template

HMENU hmenuTrackPopup; // shortcut menu

// Load the menu template containing the shortcut menu from the

// application's resources.

hmenu = LoadMenu(hinst, "PopupMenu");

if (hmenu == NULL)

return;

// Get the first shortcut menu in the menu template. This is the

// menu that TrackPopupMenu displays.

hmenuTrackPopup = GetSubMenu(hmenu, 0);

// TrackPopup uses screen coordinates, so convert the

// coordinates of the mouse click to screen coordinates.

ClientToScreen(hwnd, (LPPOINT) &pt);

// Draw and track the shortcut menu.

TrackPopupMenu(hmenuTrackPopup, TPM_LEFTALIGN | TPM_LEFTBUTTON,

pt.x, pt.y, 0, hwnd, NULL);

// Destroy the menu.

DestroyMenu(hmenu);

}

Software for developers
Delphi Components
.Net Components
Software for Android Developers
More information resources
MegaDetailed.Net
Unix Manual Pages
Delphi Examples
Databases for Amazon shops developers
Amazon Categories Database
Browse Nodes Database