Win32-GUI
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
SwitchBit(perlcs->cs.style, BS_TOP, 1);
SwitchBit(perlcs->cs.style, BS_BOTTOM, 1);
} else if(strcmp(SvPV_nolen(value), "bottom") == 0) {
SwitchBit(perlcs->cs.style, BS_TOP, 0);
SwitchBit(perlcs->cs.style, BS_BOTTOM, 1);
} else {
W32G_WARN("Win32::GUI: Invalid value for -valign!");
}
} else if(strcmp(option, "-ok") == 0) {
if(SvIV(value) != 0) {
perlcs->cs.hMenu = (HMENU) IDOK;
}
} else if(strcmp(option, "-cancel") == 0) {
if(SvIV(value) != 0) {
perlcs->cs.hMenu = (HMENU) IDCANCEL;
}
} else if BitmaskOptionValue("-3state", perlcs->cs.style, BS_3STATE)
} else if BitmaskOptionValue("-default", perlcs->cs.style, BS_DEFPUSHBUTTON)
} else if BitmaskOptionValue("-flat", perlcs->cs.style, BS_FLAT)
} else if BitmaskOptionValue("-multiline", perlcs->cs.style, BS_MULTILINE)
} else if BitmaskOptionValue("-notify", perlcs->cs.style, BS_NOTIFY)
} else if BitmaskOptionValue("-pushlike", perlcs->cs.style, BS_PUSHLIKE)
} else if BitmaskOptionValue("-rightbutton", perlcs->cs.style, BS_RIGHTBUTTON)
} else if(strcmp(option, "-bitmap") == 0 || strcmp(option, "-picture") == 0) {
SwitchBit(perlcs->cs.style, BS_BITMAP, 1);
GENERATED/Win32/GUI/MDIClient.pod view on Meta::CPAN
=for comment $Id: per_package_method.tpl,v 1.3 2006/03/16 21:11:13 robertemay Exp $
=head2 Previous
B<Previous([MDICHILD])>
Activate the previous child window.
=for comment $Id: per_package_method.tpl,v 1.3 2006/03/16 21:11:13 robertemay Exp $
=head2 RefreshMenu
B<RefreshMenu()>
Activate the previous child window.
=for comment $Id: per_package_method.tpl,v 1.3 2006/03/16 21:11:13 robertemay Exp $
=head2 Restore
B<Restore(MDICHILD)>
Restore a child window.
GENERATED/Win32/GUI/Reference/Options.pod view on Meta::CPAN
=head2 -menu
=over
=item B<-menu> => MENU
=back
Specifies a L<Win32::GUI::Menu|Win32::GUI::Menu> object or a
Windows HMENU handle for a window menu to be associated with the
window. Only top-level windows can display window menus
=head2 -name
=over
=item B<-name> => STRING
=back
/*
* an extension to Window's CREATESTRUCT structure
*/
typedef struct tagPERLWIN32GUI_CREATESTRUCT {
CREATESTRUCT cs;
/*
CREATESTRUCT has the following members:
LPVOID lpCreateParams;
HINSTANCE hInstance;
HMENU hMenu;
HWND hwndParent;
int cy;
int cx;
int y;
int x;
LONG style;
LPCTSTR lpszName;
LPCTSTR lpszClass;
DWORD dwExStyle;
*/
GUI_Helpers.cpp view on Meta::CPAN
hv_store(hv, "-handle", 7, newSViv(PTR2IV(handle)), 0);
SV* cv = sv_2mortal(newRV((SV*)hv));
sv_bless(cv, gv_stashpv(class_name, 0));
SvREFCNT_dec(hv);
return cv;
}
/*
##########################################################################
# (@)INTERNAL:GetMenuFromID(ID, *name)
# Gets the menu handle (HMENU) from the ID, searching in Perl's global
# %Win32::GUI::Menus hash; returns NULL if the handle is not found.
*/
HMENU GetMenuFromID(NOTXSPROC int nID) {
HV* hash;
SV** handle;
char temp[80];
hash = perl_get_hv("Win32::GUI::Menus", FALSE);
itoa(nID, temp, 10);
handle = hv_fetch(hash, temp, strlen(temp), FALSE);
if(handle == NULL) return NULL;
return INT2PTR(HMENU,SvIV(*handle));
}
/*
##########################################################################
# (@)INTERNAL:GetMenuName(ID, *name)
# Gets the menu name from the ID;
# returns FALSE if no name found.
*/
BOOL GetMenuName(NOTXSPROC HWND hwnd, int nID, char *Name) {
MENUITEMINFO mii;
HMENU hmenu;
LPPERLWIN32GUI_MENUITEMDATA perlmid;
ZeroMemory(&mii, sizeof(MENUITEMINFO));
mii.cbSize = sizeof(MENUITEMINFO);
mii.fMask = MIIM_DATA;
/* HEURISTIC: assume the message was from the window's own menu */
hmenu = GetMenu(hwnd);
/* HEURISTIC: no, it wasn't, search in Perl's global hash */
if(hmenu == NULL) hmenu = GetMenuFromID( NOTXSCALL nID );
/* HEURISTIC: if we can get to the item, it's ok, otherwise search in Perl's global hash */
if(GetMenuItemInfo( hmenu, nID, 0, &mii ) == 0) {
hmenu = GetMenuFromID( NOTXSCALL nID );
}
if(GetMenuItemInfo( hmenu, nID, 0, &mii )) {
perlmid = (LPPERLWIN32GUI_MENUITEMDATA) mii.dwItemData;
if(perlmid != NULL && perlmid->dwSize == sizeof(PERLWIN32GUI_MENUITEMDATA)) {
strcpy(Name, perlmid->szName);
return TRUE;
} else {
return FALSE;
}
} else {
return FALSE;
}
GUI_Options.cpp view on Meta::CPAN
next_i = i + 1;
perlcs->cs.cy = (int) SvIV(ST(next_i));
} else if(strcmp(option, "-parent") == 0) {
next_i = i + 1;
perlcs->cs.hwndParent = (HWND) handle_From(NOTXSCALL ST(next_i));
if(SvROK(ST(next_i))) {
perlcs->hvParent = (HV*) SvRV(ST(next_i));
}
} else if(strcmp(option, "-menu") == 0) {
next_i = i + 1;
perlcs->cs.hMenu = (HMENU) handle_From(NOTXSCALL ST(next_i));
} else if(strcmp(option, "-instance") == 0) {
next_i = i + 1;
perlcs->cs.hInstance = INT2PTR(HINSTANCE,SvIV(ST(next_i)));
} else if(strcmp(option, "-name") == 0) {
next_i = i + 1;
perlcs->szWindowName = SvPV_nolen(ST(next_i));
} else if(strcmp(option, "-font") == 0) {
next_i = i + 1;
perlcs->hFont = (HFONT) handle_From(NOTXSCALL ST(next_i));
} else if(strcmp(option, "-foreground") == 0) {
Win32-GUI_Constants/Constants.PL view on Meta::CPAN
WM_MDINEXT 0x0224
WM_MDIMAXIMIZE 0x0225
WM_MDITILE 0x0226
WM_MDICASCADE 0x0227
WM_MDIICONARRANGE 0x0228
WM_MDIGETACTIVE 0x0229
WM_MDISETMENU 0x0230
WM_ENTERSIZEMOVE 0x0231
WM_EXITSIZEMOVE 0x0232
WM_DROPFILES 0x0233
WM_MDIREFRESHMENU 0x0234
WM_IME_SETCONTEXT 0x0281
WM_IME_NOTIFY 0x0282
WM_IME_CONTROL 0x0283
WM_IME_COMPOSITIONFULL 0x0284
WM_IME_SELECT 0x0285
WM_IME_CHAR 0x0286
WM_IME_REQUEST 0x0288
WM_IME_KEYDOWN 0x0290
WM_IME_KEYUP 0x0291
WM_MOUSEHOVER 0x02A1
Win32-GUI_Constants/t/52_tags.t view on Meta::CPAN
NM_NCHITTEST NM_RETURN NM_KEYDOWN RDW_NOINTERNALPAINT RDW_ERASENOW RDW_UPDATENOW
RDW_NOCHILDREN RDW_NOFRAME RDW_VALIDATE RDW_ERASE RDW_INVALIDATE RDW_NOERASE
RDW_FRAME RDW_INTERNALPAINT RDW_ALLCHILDREN SIZE_MAXIMIZED SIZE_RESTORED
SIZE_MAXSHOW SIZE_MINIMIZED SIZE_MAXHIDE SW_SHOWNORMAL SW_HIDE SW_NORMAL
SW_SHOWMINIMIZED SW_SHOWMAXIMIZED SW_SHOW SW_FORCEMINIMIZE SW_RESTORE SW_SHOWDEFAULT
SW_MAXIMIZE SW_MINIMIZE SW_SHOWNOACTIVATE SW_SHOWMINNOACTIVE SW_SHOWNA WA_INACTIVE
WA_ACTIVE WA_CLICKACTIVE WM_NCACTIVATE WM_SYSKEYUP WM_ERASEBKGND WM_CHANGEUISTATE
WM_USERCHANGED WM_NOTIFYFORMAT WM_CHARTOITEM WM_MDIICONARRANGE WM_QUERYENDSESSION
WM_APPCOMMAND WM_NCMOUSELEAVE WM_MOUSEMOVE WM_SETCURSOR WM_TIMER WM_WININICHANGE
WM_MDINEXT WM_IME_CONTROL WM_COMPACTING WM_DRAWCLIPBOARD WM_FONTCHANGE WM_PRINTCLIENT
WM_MDIMAXIMIZE WM_MDISETMENU WM_MDIREFRESHMENU WM_SHOWWINDOW WM_XBUTTONUP
WM_SYSCOLORCHANGE WM_UNDO WM_CTLCOLORDLG WM_RBUTTONDBLCLK WM_INPUT WM_CTLCOLORSTATIC
WM_MDICREATE WM_PAINTCLIPBOARD WM_CHILDACTIVATE WM_MEASUREITEM WM_DESTROY WM_NCCREATE
WM_MOUSEFIRST WM_MOUSELAST WM_TABLET_LAST WM_QUIT WM_MENUCOMMAND
WM_IME_STARTCOMPOSITION WM_MDIACTIVATE WM_SYSDEADCHAR WM_USER WM_SYNCPAINT
WM_MOVING WM_NCMOUSEHOVER WM_KEYFIRST WM_MBUTTONDOWN WM_SYSCHAR WM_MBUTTONDBLCLK
WM_CHANGECBCHAIN WM_PALETTECHANGED WM_GETTEXT WM_CLOSE WM_RENDERFORMAT WM_SETFONT
WM_SIZING WM_RBUTTONUP WM_CTLCOLORBTN WM_INPUTLANGCHANGEREQUEST WM_CONTEXTMENU
WM_WINDOWPOSCHANGING WM_CTLCOLORSCROLLBAR WM_KILLFOCUS WM_DROPFILES
WM_WTSSESSION_CHANGE WM_MDIDESTROY WM_VSCROLLCLIPBOARD WM_NCHITTEST WM_ENDSESSION
WM_IME_KEYLAST WM_HELP WM_TABLET_FIRST WM_IME_KEYDOWN WM_ACTIVATE WM_MOUSEHOVER
docs/GUI/Reference/Options.pod view on Meta::CPAN
=head2 -menu
=over
=item B<-menu> => MENU
=back
Specifies a L<Win32::GUI::Menu|Win32::GUI::Menu> object or a
Windows HMENU handle for a window menu to be associated with the
window. Only top-level windows can display window menus
=head2 -name
=over
=item B<-name> => STRING
=back
# $Id: TYPEMAP,v 1.10 2007/07/15 18:56:25 robertemay Exp $
TYPEMAP
HWND T_HANDLE
HMENU T_HANDLE
HICON T_HANDLE
HCURSOR T_HANDLE
HBITMAP T_HANDLE
HFONT T_HANDLE
HGDIOBJ T_HANDLE
HIMAGELIST T_HANDLE
HDC T_HANDLE
HBRUSH T_HANDLE
HPEN T_HANDLE
HRGN T_HANDLE
view release on metacpan - search on metacpan
( run in 0.609 second using v1.00-cache-2.02-grep-82fe00e-cpan-1925d2aa809 )