home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / PCTV3N3.ZIP / MDITOOL.ZIP / MDITOOL.RC < prev    next >
Encoding:
Text File  |  1992-05-29  |  1.6 KB  |  75 lines
  1. #include "wobjects.h"
  2. #include "ids.pas"
  3.  
  4. id_Menu MENU 
  5. BEGIN
  6.     POPUP "&File"
  7.     BEGIN
  8.         MENUITEM "&New\tF3", cm_CreateChild
  9.         MENUITEM SEPARATOR
  10.         MENUITEM "E&xit\tAlt+X", cm_FileExit
  11.     END
  12.  
  13.     POPUP "&Window"
  14.     BEGIN
  15.         MENUITEM "&Cascade\tShift+F5", cm_CascadeChildren
  16.         MENUITEM "&Tile\tShift+F4", cm_TileChildren
  17.         MENUITEM "Arrange &Icons", cm_ArrangeIcons
  18.         MENUITEM "C&lose All", cm_CloseChildren
  19.     END
  20.  
  21.     POPUP "&Help"
  22.     BEGIN
  23.         MENUITEM "&About\tF1", cm_HelpAbout
  24.     END
  25.  
  26. END
  27.  
  28. id_Acc ACCELERATORS 
  29. BEGIN
  30.     VK_F3, cm_CreateChild, VIRTKEY
  31.     "x", cm_FileExit, ASCII, ALT
  32.     "X", cm_FileExit, ASCII, ALT
  33.     VK_F5, cm_CascadeChildren, VIRTKEY, SHIFT
  34.     VK_F4, cm_TileChildren, VIRTKEY, SHIFT
  35.     VK_F1, cm_HelpAbout, VIRTKEY
  36. END
  37.  
  38. tb_Exit BITMAP "toolbar\exit.bmp"
  39. tb_Help BITMAP "toolbar\help.bmp"
  40. tb_Cascade BITMAP "cascade.bmp"
  41. tb_Tile BITMAP "tile.bmp"
  42.  
  43. ids_ToolBar ToolBarData LOADONCALL MOVEABLE DISCARDABLE 
  44. BEGIN
  45. 0
  46. tb_Help
  47. cm_HelpAbout
  48. 1
  49. tb_Exit
  50. cm_FileExit
  51. 2
  52. tb_Cascade
  53. cm_CascadeChildren
  54. 3
  55. tb_Tile
  56. cm_TileChildren
  57. 0
  58. 0
  59.  
  60. END
  61. id_About DIALOG 48, 39, 173, 102
  62. STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
  63. CAPTION "About MDITool"
  64. BEGIN
  65.     CTEXT "Toolbar Demonstration", -1, 2, 14, 169, 8, WS_CHILD | WS_VISIBLE | WS_GROUP
  66.     CTEXT "Written in Turbo Pascal for Windows 1.5", -1, 2, 27, 169, 10, WS_CHILD | WS_VISIBLE | WS_GROUP
  67.     CTEXT "Version 1.00", -1, 70, 47, 89, 9
  68.     CTEXT "Copyright \251 1992 by Tom Swan", -1, 2, 64, 169, 9, WS_CHILD | WS_VISIBLE | WS_GROUP
  69.     ICON id_Icon, -1, 44, 43, 13, 13, WS_CHILD | WS_VISIBLE
  70.     PUSHBUTTON "O&k", 1, 110, 81, 37, 15
  71. END
  72.  
  73. id_Icon ICON "mditool.ico"
  74.  
  75.