home *** CD-ROM | disk | FTP | other *** search
/ PC World Plus! (NZ) 2001 June / HDC50.iso / Runimage / Delphi50 / Source / Rtl / Win / DLGS.PAS < prev    next >
Pascal/Delphi Source File  |  1999-08-11  |  8KB  |  400 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Borland Delphi Runtime Library                  }
  5. {       Win32 API Interface Unit                        }
  6. {                                                       }
  7. {       Copyright (C) 1992,99 Inprise Corporation       }
  8. {                                                       }
  9. {*******************************************************}
  10.  
  11. unit Dlgs;
  12.  
  13. {$WEAKPACKAGEUNIT}
  14.  
  15. (*$HPPEMIT '#include <dlgs.h>'*)
  16.  
  17. interface
  18.  
  19. { Constants }
  20.  
  21. const
  22.   {$EXTERNALSYM ctlFirst}
  23.   ctlFirst = $0400;
  24.   {$EXTERNALSYM ctlLast}
  25.   ctlLast = $04ff;
  26.  
  27. { Push buttons }
  28.  
  29.   {$EXTERNALSYM psh1}
  30.   psh1 = $0400;
  31.   {$EXTERNALSYM psh2}
  32.   psh2 = $0401;
  33.   {$EXTERNALSYM psh3}
  34.   psh3 = $0402;
  35.   {$EXTERNALSYM psh4}
  36.   psh4 = $0403;
  37.   {$EXTERNALSYM psh5}
  38.   psh5 = $0404;
  39.   {$EXTERNALSYM psh6}
  40.   psh6 = $0405;
  41.   {$EXTERNALSYM psh7}
  42.   psh7 = $0406;
  43.   {$EXTERNALSYM psh8}
  44.   psh8 = $0407;
  45.   {$EXTERNALSYM psh9}
  46.   psh9 = $0408;
  47.   {$EXTERNALSYM psh10}
  48.   psh10 = $0409;
  49.   {$EXTERNALSYM psh11}
  50.   psh11 = $040a;
  51.   {$EXTERNALSYM psh12}
  52.   psh12 = $040b;
  53.   {$EXTERNALSYM psh13}
  54.   psh13 = $040c;
  55.   {$EXTERNALSYM psh14}
  56.   psh14 = $040d;
  57.   {$EXTERNALSYM psh15}
  58.   psh15 = $040e;
  59.   {$EXTERNALSYM pshHelp}
  60.   pshHelp = psh15;
  61.   {$EXTERNALSYM psh16}
  62.   psh16 = $040f;
  63.  
  64. { Checkboxes }
  65.  
  66.   {$EXTERNALSYM chx1}
  67.   chx1 = $0410;
  68.   {$EXTERNALSYM chx2}
  69.   chx2 = $0411;
  70.   {$EXTERNALSYM chx3}
  71.   chx3 = $0412;
  72.   {$EXTERNALSYM chx4}
  73.   chx4 = $0413;
  74.   {$EXTERNALSYM chx5}
  75.   chx5 = $0414;
  76.   {$EXTERNALSYM chx6}
  77.   chx6 = $0415;
  78.   {$EXTERNALSYM chx7}
  79.   chx7 = $0416;
  80.   {$EXTERNALSYM chx8}
  81.   chx8 = $0417;
  82.   {$EXTERNALSYM chx9}
  83.   chx9 = $0418;
  84.   {$EXTERNALSYM chx10}
  85.   chx10 = $0419;
  86.   {$EXTERNALSYM chx11}
  87.   chx11 = $041a;
  88.   {$EXTERNALSYM chx12}
  89.   chx12 = $041b;
  90.   {$EXTERNALSYM chx13}
  91.   chx13 = $041c;
  92.   {$EXTERNALSYM chx14}
  93.   chx14 = $041d;
  94.   {$EXTERNALSYM chx15}
  95.   chx15 = $041e;
  96.   {$EXTERNALSYM chx16}
  97.   chx16 = $041f;
  98.  
  99. { Radio buttons }
  100.  
  101.   {$EXTERNALSYM rad1}
  102.   rad1 = $0420;
  103.   {$EXTERNALSYM rad2}
  104.   rad2 = $0421;
  105.   {$EXTERNALSYM rad3}
  106.   rad3 = $0422;
  107.   {$EXTERNALSYM rad4}
  108.   rad4 = $0423;
  109.   {$EXTERNALSYM rad5}
  110.   rad5 = $0424;
  111.   {$EXTERNALSYM rad6}
  112.   rad6 = $0425;
  113.   {$EXTERNALSYM rad7}
  114.   rad7 = $0426;
  115.   {$EXTERNALSYM rad8}
  116.   rad8 = $0427;
  117.   {$EXTERNALSYM rad9}
  118.   rad9 = $0428;
  119.   {$EXTERNALSYM rad10}
  120.   rad10 = $0429;
  121.   {$EXTERNALSYM rad11}
  122.   rad11 = $042a;
  123.   {$EXTERNALSYM rad12}
  124.   rad12 = $042b;
  125.   {$EXTERNALSYM rad13}
  126.   rad13 = $042c;
  127.   {$EXTERNALSYM rad14}
  128.   rad14 = $042d;
  129.   {$EXTERNALSYM rad15}
  130.   rad15 = $042e;
  131.   {$EXTERNALSYM rad16}
  132.   rad16 = $042f;
  133.  
  134. { Groups, frames, rectangles, and icons }
  135.  
  136.   {$EXTERNALSYM grp1}
  137.   grp1 = $0430;
  138.   {$EXTERNALSYM grp2}
  139.   grp2 = $0431;
  140.   {$EXTERNALSYM grp3}
  141.   grp3 = $0432;
  142.   {$EXTERNALSYM grp4}
  143.   grp4 = $0433;
  144.   {$EXTERNALSYM frm1}
  145.   frm1 = $0434;
  146.   {$EXTERNALSYM frm2}
  147.   frm2 = $0435;
  148.   {$EXTERNALSYM frm3}
  149.   frm3 = $0436;
  150.   {$EXTERNALSYM frm4}
  151.   frm4 = $0437;
  152.   {$EXTERNALSYM rct1}
  153.   rct1 = $0438;
  154.   {$EXTERNALSYM rct2}
  155.   rct2 = $0439;
  156.   {$EXTERNALSYM rct3}
  157.   rct3 = $043a;
  158.   {$EXTERNALSYM rct4}
  159.   rct4 = $043b;
  160.   {$EXTERNALSYM ico1}
  161.   ico1 = $043c;
  162.   {$EXTERNALSYM ico2}
  163.   ico2 = $043d;
  164.   {$EXTERNALSYM ico3}
  165.   ico3 = $043e;
  166.   {$EXTERNALSYM ico4}
  167.   ico4 = $043f;
  168.  
  169. { Static text }
  170.  
  171.   {$EXTERNALSYM stc1}
  172.   stc1 = $0440;
  173.   {$EXTERNALSYM stc2}
  174.   stc2 = $0441;
  175.   {$EXTERNALSYM stc3}
  176.   stc3 = $0442;
  177.   {$EXTERNALSYM stc4}
  178.   stc4 = $0443;
  179.   {$EXTERNALSYM stc5}
  180.   stc5 = $0444;
  181.   {$EXTERNALSYM stc6}
  182.   stc6 = $0445;
  183.   {$EXTERNALSYM stc7}
  184.   stc7 = $0446;
  185.   {$EXTERNALSYM stc8}
  186.   stc8 = $0447;
  187.   {$EXTERNALSYM stc9}
  188.   stc9 = $0448;
  189.   {$EXTERNALSYM stc10}
  190.   stc10 = $0449;
  191.   {$EXTERNALSYM stc11}
  192.   stc11 = $044a;
  193.   {$EXTERNALSYM stc12}
  194.   stc12 = $044b;
  195.   {$EXTERNALSYM stc13}
  196.   stc13 = $044c;
  197.   {$EXTERNALSYM stc14}
  198.   stc14 = $044d;
  199.   {$EXTERNALSYM stc15}
  200.   stc15 = $044e;
  201.   {$EXTERNALSYM stc16}
  202.   stc16 = $044f;
  203.   {$EXTERNALSYM stc17}
  204.   stc17 = $0450;
  205.   {$EXTERNALSYM stc18}
  206.   stc18 = $0451;
  207.   {$EXTERNALSYM stc19}
  208.   stc19 = $0452;
  209.   {$EXTERNALSYM stc20}
  210.   stc20 = $0453;
  211.   {$EXTERNALSYM stc21}
  212.   stc21 = $0454;
  213.   {$EXTERNALSYM stc22}
  214.   stc22 = $0455;
  215.   {$EXTERNALSYM stc23}
  216.   stc23 = $0456;
  217.   {$EXTERNALSYM stc24}
  218.   stc24 = $0457;
  219.   {$EXTERNALSYM stc25}
  220.   stc25 = $0458;
  221.   {$EXTERNALSYM stc26}
  222.   stc26 = $0459;
  223.   {$EXTERNALSYM stc27}
  224.   stc27 = $045a;
  225.   {$EXTERNALSYM stc28}
  226.   stc28 = $045b;
  227.   {$EXTERNALSYM stc29}
  228.   stc29 = $045c;
  229.   {$EXTERNALSYM stc30}
  230.   stc30 = $045d;
  231.   {$EXTERNALSYM stc31}
  232.   stc31 = $045e;
  233.   {$EXTERNALSYM stc32}
  234.   stc32 = $045f;
  235.  
  236. { Listboxes }
  237.  
  238.   {$EXTERNALSYM lst1}
  239.   lst1 = $0460;
  240.   {$EXTERNALSYM lst2}
  241.   lst2 = $0461;
  242.   {$EXTERNALSYM lst3}
  243.   lst3 = $0462;
  244.   {$EXTERNALSYM lst4}
  245.   lst4 = $0463;
  246.   {$EXTERNALSYM lst5}
  247.   lst5 = $0464;
  248.   {$EXTERNALSYM lst6}
  249.   lst6 = $0465;
  250.   {$EXTERNALSYM lst7}
  251.   lst7 = $0466;
  252.   {$EXTERNALSYM lst8}
  253.   lst8 = $0467;
  254.   {$EXTERNALSYM lst9}
  255.   lst9 = $0468;
  256.   {$EXTERNALSYM lst10}
  257.   lst10 = $0469;
  258.   {$EXTERNALSYM lst11}
  259.   lst11 = $046a;
  260.   {$EXTERNALSYM lst12}
  261.   lst12 = $046b;
  262.   {$EXTERNALSYM lst13}
  263.   lst13 = $046c;
  264.   {$EXTERNALSYM lst14}
  265.   lst14 = $046d;
  266.   {$EXTERNALSYM lst15}
  267.   lst15 = $046e;
  268.   {$EXTERNALSYM lst16}
  269.   lst16 = $046f;
  270.  
  271. { Combo boxes }
  272.  
  273.   {$EXTERNALSYM cmb1}
  274.   cmb1 = $0470;
  275.   {$EXTERNALSYM cmb2}
  276.   cmb2 = $0471;
  277.   {$EXTERNALSYM cmb3}
  278.   cmb3 = $0472;
  279.   {$EXTERNALSYM cmb4}
  280.   cmb4 = $0473;
  281.   {$EXTERNALSYM cmb5}
  282.   cmb5 = $0474;
  283.   {$EXTERNALSYM cmb6}
  284.   cmb6 = $0475;
  285.   {$EXTERNALSYM cmb7}
  286.   cmb7 = $0476;
  287.   {$EXTERNALSYM cmb8}
  288.   cmb8 = $0477;
  289.   {$EXTERNALSYM cmb9}
  290.   cmb9 = $0478;
  291.   {$EXTERNALSYM cmb10}
  292.   cmb10 = $0479;
  293.   {$EXTERNALSYM cmb11}
  294.   cmb11 = $047a;
  295.   {$EXTERNALSYM cmb12}
  296.   cmb12 = $047b;
  297.   {$EXTERNALSYM cmb13}
  298.   cmb13 = $047c;
  299.   {$EXTERNALSYM cmb14}
  300.   cmb14 = $047d;
  301.   {$EXTERNALSYM cmb15}
  302.   cmb15 = $047e;
  303.   {$EXTERNALSYM cmb16}
  304.   cmb16 = $047f;
  305.  
  306. { Edit controls }
  307.  
  308.   {$EXTERNALSYM edt1}
  309.   edt1 = $0480;
  310.   {$EXTERNALSYM edt2}
  311.   edt2 = $0481;
  312.   {$EXTERNALSYM edt3}
  313.   edt3 = $0482;
  314.   {$EXTERNALSYM edt4}
  315.   edt4 = $0483;
  316.   {$EXTERNALSYM edt5}
  317.   edt5 = $0484;
  318.   {$EXTERNALSYM edt6}
  319.   edt6 = $0485;
  320.   {$EXTERNALSYM edt7}
  321.   edt7 = $0486;
  322.   {$EXTERNALSYM edt8}
  323.   edt8 = $0487;
  324.   {$EXTERNALSYM edt9}
  325.   edt9 = $0488;
  326.   {$EXTERNALSYM edt10}
  327.   edt10 = $0489;
  328.   {$EXTERNALSYM edt11}
  329.   edt11 = $048a;
  330.   {$EXTERNALSYM edt12}
  331.   edt12 = $048b;
  332.   {$EXTERNALSYM edt13}
  333.   edt13 = $048c;
  334.   {$EXTERNALSYM edt14}
  335.   edt14 = $048d;
  336.   {$EXTERNALSYM edt15}
  337.   edt15 = $048e;
  338.   {$EXTERNALSYM edt16}
  339.   edt16 = $048f;
  340.  
  341. { Scroll bars }
  342.  
  343.   {$EXTERNALSYM scr1}
  344.   scr1 = $0490;
  345.   {$EXTERNALSYM scr2}
  346.   scr2 = $0491;
  347.   {$EXTERNALSYM scr3}
  348.   scr3 = $0492;
  349.   {$EXTERNALSYM scr4}
  350.   scr4 = $0493;
  351.   {$EXTERNALSYM scr5}
  352.   scr5 = $0494;
  353.   {$EXTERNALSYM scr6}
  354.   scr6 = $0495;
  355.   {$EXTERNALSYM scr7}
  356.   scr7 = $0496;
  357.   {$EXTERNALSYM scr8}
  358.   scr8 = $0497;
  359.  
  360. { Dialog resource ordinals }
  361.  
  362.   {$EXTERNALSYM FILEOPENORD}
  363.   FILEOPENORD = 1536;
  364.   {$EXTERNALSYM MULTIFILEOPENORD}
  365.   MULTIFILEOPENORD = 1537;
  366.   {$EXTERNALSYM PRINTDLGORD}
  367.   PRINTDLGORD = 1538;
  368.   {$EXTERNALSYM PRNSETUPDLGORD}
  369.   PRNSETUPDLGORD = 1539;
  370.   {$EXTERNALSYM FINDDLGORD}
  371.   FINDDLGORD = 1540;
  372.   {$EXTERNALSYM REPLACEDLGORD}
  373.   REPLACEDLGORD = 1541;
  374.   {$EXTERNALSYM FONTDLGORD}
  375.   FONTDLGORD = 1542;
  376.   {$EXTERNALSYM FORMATDLGORD31}
  377.   FORMATDLGORD31 = 1543;
  378.   {$EXTERNALSYM FORMATDLGORD30}
  379.   FORMATDLGORD30 = 1544;
  380.   {$EXTERNALSYM PAGESETUPDLGORD}
  381.   PAGESETUPDLGORD = 1546;
  382.   {$EXTERNALSYM NEWFILEOPENORD}
  383.   NEWFILEOPENORD = 1547;
  384.  
  385. type
  386.   {$EXTERNALSYM tagCRGB}
  387.   tagCRGB = record    { RGB Color }
  388.     bRed: BYTE;
  389.     bGreen: BYTE;
  390.     bBlue: BYTE;
  391.     bExtra: BYTE;
  392.   end;
  393.   {$EXTERNALSYM CRGB}
  394.   CRGB = tagCRGB;
  395.  
  396. implementation
  397.  
  398. end.
  399.  
  400.