开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 查看源码
JwaDlgs.pas
资源名称：win32api.zip　[点击查看]
上传用户：davidchvip
上传日期：2009-07-28
资源大小：1749k
文件大小：12k
源码类别：

Windows编程

开发平台：

Delphi

JwaDlgs.pas：源码内容
  1. {******************************************************************************}
  2. {                                                                       }
  3. { UI dialog header information API interface unit for Object Pascal            }
  4. {                                                                       }
  5. { Portions created by Microsoft are Copyright (C) 1995-2001 Microsoft          }
  6. { Corporation. All Rights Reserved.                                            }
  7. {                 }
  8. { The original file is: dlgs.h, released June 2000. The original Pascal        }
  9. { code is: Dlgs.pas, released December 2000. The initial developer of the      }
  10. { Pascal code is Marcel van Brakel (brakelm@chello.nl).                        }
  11. {                                                                              }
  12. { Portions created by Marcel van Brakel are Copyright (C) 1999-2001            }
  13. { Marcel van Brakel. All Rights Reserved.                                      }
  14. {                 }
  15. { Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI)        }
  16. {                }
  17. { You may retrieve the latest version of this file at the Project JEDI home    }
  18. { page, located at http://delphi-jedi.org or my personal homepage located at   }
  19. { http://members.chello.nl/m.vanbrakel2                                        }
  20. {                }
  21. { The contents of this file are used with permission, subject to the Mozilla   }
  22. { Public License Version 1.1 (the "License"); you may not use this file except }
  23. { in compliance with the License. You may obtain a copy of the License at      }
  24. { http://www.mozilla.org/MPL/MPL-1.1.html                                      }
  25. {                                                                              }
  26. { Software distributed under the License is distributed on an "AS IS" basis,   }
  27. { WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
  28. { the specific language governing rights and limitations under the License.    }
  29. {                                                                              }
  30. { Alternatively, the contents of this file may be used under the terms of the  }
  31. { GNU Lesser General Public License (the  "LGPL License"), in which case the   }
  32. { provisions of the LGPL License are applicable instead of those above.        }
  33. { If you wish to allow use of your version of this file only under the terms   }
  34. { of the LGPL License and not to allow others to use your version of this file }
  35. { under the MPL, indicate your decision by deleting  the provisions above and  }
  36. { replace  them with the notice and other provisions required by the LGPL      }
  37. { License.  If you do not delete the provisions above, a recipient may use     }
  38. { your version of this file under either the MPL or the LGPL License.          }
  39. {                 }
  40. { For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
  41. {                 }
  42. {******************************************************************************}
  44. unit JwaDlgs;
  46. {$WEAKPACKAGEUNIT}
  48. {$HPPEMIT ''}
  49. {$HPPEMIT '#include "dlgs.h"'}
  50. {$HPPEMIT ''}
  52. {$I WINDEFINES.INC}
  54. interface
  56. //
  57. //  Constant Declarations.
  58. //
  60. const
  61.   ctlFirst = $0400;
  62.   {$EXTERNALSYM ctlFirst}
  63.   ctlLast  = $04ff;
  64.   {$EXTERNALSYM ctlLast}
  66. //
  67. //  Push buttons.
  68. //
  70.   psh1    = $0400;
  71.   {$EXTERNALSYM psh1}
  72.   psh2    = $0401;
  73.   {$EXTERNALSYM psh2}
  74.   psh3    = $0402;
  75.   {$EXTERNALSYM psh3}
  76.   psh4    = $0403;
  77.   {$EXTERNALSYM psh4}
  78.   psh5    = $0404;
  79.   {$EXTERNALSYM psh5}
  80.   psh6    = $0405;
  81.   {$EXTERNALSYM psh6}
  82.   psh7    = $0406;
  83.   {$EXTERNALSYM psh7}
  84.   psh8    = $0407;
  85.   {$EXTERNALSYM psh8}
  86.   psh9    = $0408;
  87.   {$EXTERNALSYM psh9}
  88.   psh10   = $0409;
  89.   {$EXTERNALSYM psh10}
  90.   psh11   = $040a;
  91.   {$EXTERNALSYM psh11}
  92.   psh12   = $040b;
  93.   {$EXTERNALSYM psh12}
  94.   psh13   = $040c;
  95.   {$EXTERNALSYM psh13}
  96.   psh14   = $040d;
  97.   {$EXTERNALSYM psh14}
  98.   psh15   = $040e;
  99.   {$EXTERNALSYM psh15}
  100.   pshHelp = psh15;
  101.   {$EXTERNALSYM pshHelp}
  102.   psh16   = $040f;
  103.   {$EXTERNALSYM psh16}
  105. //
  106. //  Checkboxes.
  107. //
  109.   chx1  = $0410;
  110.   {$EXTERNALSYM chx1}
  111.   chx2  = $0411;
  112.   {$EXTERNALSYM chx2}
  113.   chx3  = $0412;
  114.   {$EXTERNALSYM chx3}
  115.   chx4  = $0413;
  116.   {$EXTERNALSYM chx4}
  117.   chx5  = $0414;
  118.   {$EXTERNALSYM chx5}
  119.   chx6  = $0415;
  120.   {$EXTERNALSYM chx6}
  121.   chx7  = $0416;
  122.   {$EXTERNALSYM chx7}
  123.   chx8  = $0417;
  124.   {$EXTERNALSYM chx8}
  125.   chx9  = $0418;
  126.   {$EXTERNALSYM chx9}
  127.   chx10 = $0419;
  128.   {$EXTERNALSYM chx10}
  129.   chx11 = $041a;
  130.   {$EXTERNALSYM chx11}
  131.   chx12 = $041b;
  132.   {$EXTERNALSYM chx12}
  133.   chx13 = $041c;
  134.   {$EXTERNALSYM chx13}
  135.   chx14 = $041d;
  136.   {$EXTERNALSYM chx14}
  137.   chx15 = $041e;
  138.   {$EXTERNALSYM chx15}
  139.   chx16 = $041f;
  140.   {$EXTERNALSYM chx16}
  142. //
  143. //  Radio buttons.
  144. //
  146.   rad1  = $0420;
  147.   {$EXTERNALSYM rad1}
  148.   rad2  = $0421;
  149.   {$EXTERNALSYM rad2}
  150.   rad3  = $0422;
  151.   {$EXTERNALSYM rad3}
  152.   rad4  = $0423;
  153.   {$EXTERNALSYM rad4}
  154.   rad5  = $0424;
  155.   {$EXTERNALSYM rad5}
  156.   rad6  = $0425;
  157.   {$EXTERNALSYM rad6}
  158.   rad7  = $0426;
  159.   {$EXTERNALSYM rad7}
  160.   rad8  = $0427;
  161.   {$EXTERNALSYM rad8}
  162.   rad9  = $0428;
  163.   {$EXTERNALSYM rad9}
  164.   rad10 = $0429;
  165.   {$EXTERNALSYM rad10}
  166.   rad11 = $042a;
  167.   {$EXTERNALSYM rad11}
  168.   rad12 = $042b;
  169.   {$EXTERNALSYM rad12}
  170.   rad13 = $042c;
  171.   {$EXTERNALSYM rad13}
  172.   rad14 = $042d;
  173.   {$EXTERNALSYM rad14}
  174.   rad15 = $042e;
  175.   {$EXTERNALSYM rad15}
  176.   rad16 = $042f;
  177.   {$EXTERNALSYM rad16}
  179. //
  180. //  Groups, frames, rectangles, and icons.
  181. //
  183.   grp1 = $0430;
  184.   {$EXTERNALSYM grp1}
  185.   grp2 = $0431;
  186.   {$EXTERNALSYM grp2}
  187.   grp3 = $0432;
  188.   {$EXTERNALSYM grp3}
  189.   grp4 = $0433;
  190.   {$EXTERNALSYM grp4}
  191.   frm1 = $0434;
  192.   {$EXTERNALSYM frm1}
  193.   frm2 = $0435;
  194.   {$EXTERNALSYM frm2}
  195.   frm3 = $0436;
  196.   {$EXTERNALSYM frm3}
  197.   frm4 = $0437;
  198.   {$EXTERNALSYM frm4}
  199.   rct1 = $0438;
  200.   {$EXTERNALSYM rct1}
  201.   rct2 = $0439;
  202.   {$EXTERNALSYM rct2}
  203.   rct3 = $043a;
  204.   {$EXTERNALSYM rct3}
  205.   rct4 = $043b;
  206.   {$EXTERNALSYM rct4}
  207.   ico1 = $043c;
  208.   {$EXTERNALSYM ico1}
  209.   ico2 = $043d;
  210.   {$EXTERNALSYM ico2}
  211.   ico3 = $043e;
  212.   {$EXTERNALSYM ico3}
  213.   ico4 = $043f;
  214.   {$EXTERNALSYM ico4}
  216. //
  217. //  Static text.
  218. //
  220.   stc1  = $0440;
  221.   {$EXTERNALSYM stc1}
  222.   stc2  = $0441;
  223.   {$EXTERNALSYM stc2}
  224.   stc3  = $0442;
  225.   {$EXTERNALSYM stc3}
  226.   stc4  = $0443;
  227.   {$EXTERNALSYM stc4}
  228.   stc5  = $0444;
  229.   {$EXTERNALSYM stc5}
  230.   stc6  = $0445;
  231.   {$EXTERNALSYM stc6}
  232.   stc7  = $0446;
  233.   {$EXTERNALSYM stc7}
  234.   stc8  = $0447;
  235.   {$EXTERNALSYM stc8}
  236.   stc9  = $0448;
  237.   {$EXTERNALSYM stc9}
  238.   stc10 = $0449;
  239.   {$EXTERNALSYM stc10}
  240.   stc11 = $044a;
  241.   {$EXTERNALSYM stc11}
  242.   stc12 = $044b;
  243.   {$EXTERNALSYM stc12}
  244.   stc13 = $044c;
  245.   {$EXTERNALSYM stc13}
  246.   stc14 = $044d;
  247.   {$EXTERNALSYM stc14}
  248.   stc15 = $044e;
  249.   {$EXTERNALSYM stc15}
  250.   stc16 = $044f;
  251.   {$EXTERNALSYM stc16}
  252.   stc17 = $0450;
  253.   {$EXTERNALSYM stc17}
  254.   stc18 = $0451;
  255.   {$EXTERNALSYM stc18}
  256.   stc19 = $0452;
  257.   {$EXTERNALSYM stc19}
  258.   stc20 = $0453;
  259.   {$EXTERNALSYM stc20}
  260.   stc21 = $0454;
  261.   {$EXTERNALSYM stc21}
  262.   stc22 = $0455;
  263.   {$EXTERNALSYM stc22}
  264.   stc23 = $0456;
  265.   {$EXTERNALSYM stc23}
  266.   stc24 = $0457;
  267.   {$EXTERNALSYM stc24}
  268.   stc25 = $0458;
  269.   {$EXTERNALSYM stc25}
  270.   stc26 = $0459;
  271.   {$EXTERNALSYM stc26}
  272.   stc27 = $045a;
  273.   {$EXTERNALSYM stc27}
  274.   stc28 = $045b;
  275.   {$EXTERNALSYM stc28}
  276.   stc29 = $045c;
  277.   {$EXTERNALSYM stc29}
  278.   stc30 = $045d;
  279.   {$EXTERNALSYM stc30}
  280.   stc31 = $045e;
  281.   {$EXTERNALSYM stc31}
  282.   stc32 = $045f;
  283.   {$EXTERNALSYM stc32}
  285. //
  286. //  Listboxes.
  287. //
  289.   lst1  = $0460;
  290.   {$EXTERNALSYM lst1}
  291.   lst2  = $0461;
  292.   {$EXTERNALSYM lst2}
  293.   lst3  = $0462;
  294.   {$EXTERNALSYM lst3}
  295.   lst4  = $0463;
  296.   {$EXTERNALSYM lst4}
  297.   lst5  = $0464;
  298.   {$EXTERNALSYM lst5}
  299.   lst6  = $0465;
  300.   {$EXTERNALSYM lst6}
  301.   lst7  = $0466;
  302.   {$EXTERNALSYM lst7}
  303.   lst8  = $0467;
  304.   {$EXTERNALSYM lst8}
  305.   lst9  = $0468;
  306.   {$EXTERNALSYM lst9}
  307.   lst10 = $0469;
  308.   {$EXTERNALSYM lst10}
  309.   lst11 = $046a;
  310.   {$EXTERNALSYM lst11}
  311.   lst12 = $046b;
  312.   {$EXTERNALSYM lst12}
  313.   lst13 = $046c;
  314.   {$EXTERNALSYM lst13}
  315.   lst14 = $046d;
  316.   {$EXTERNALSYM lst14}
  317.   lst15 = $046e;
  318.   {$EXTERNALSYM lst15}
  319.   lst16 = $046f;
  320.   {$EXTERNALSYM lst16}
  322. //
  323. //  Combo boxes.
  324. //
  326.   cmb1  = $0470;
  327.   {$EXTERNALSYM cmb1}
  328.   cmb2  = $0471;
  329.   {$EXTERNALSYM cmb2}
  330.   cmb3  = $0472;
  331.   {$EXTERNALSYM cmb3}
  332.   cmb4  = $0473;
  333.   {$EXTERNALSYM cmb4}
  334.   cmb5  = $0474;
  335.   {$EXTERNALSYM cmb5}
  336.   cmb6  = $0475;
  337.   {$EXTERNALSYM cmb6}
  338.   cmb7  = $0476;
  339.   {$EXTERNALSYM cmb7}
  340.   cmb8  = $0477;
  341.   {$EXTERNALSYM cmb8}
  342.   cmb9  = $0478;
  343.   {$EXTERNALSYM cmb9}
  344.   cmb10 = $0479;
  345.   {$EXTERNALSYM cmb10}
  346.   cmb11 = $047a;
  347.   {$EXTERNALSYM cmb11}
  348.   cmb12 = $047b;
  349.   {$EXTERNALSYM cmb12}
  350.   cmb13 = $047c;
  351.   {$EXTERNALSYM cmb13}
  352.   cmb14 = $047d;
  353.   {$EXTERNALSYM cmb14}
  354.   cmb15 = $047e;
  355.   {$EXTERNALSYM cmb15}
  356.   cmb16 = $047f;
  357.   {$EXTERNALSYM cmb16}
  359. //
  360. //  Edit controls.
  361. //
  363.   edt1  = $0480;
  364.   {$EXTERNALSYM edt1}
  365.   edt2  = $0481;
  366.   {$EXTERNALSYM edt2}
  367.   edt3  = $0482;
  368.   {$EXTERNALSYM edt3}
  369.   edt4  = $0483;
  370.   {$EXTERNALSYM edt4}
  371.   edt5  = $0484;
  372.   {$EXTERNALSYM edt5}
  373.   edt6  = $0485;
  374.   {$EXTERNALSYM edt6}
  375.   edt7  = $0486;
  376.   {$EXTERNALSYM edt7}
  377.   edt8  = $0487;
  378.   {$EXTERNALSYM edt8}
  379.   edt9  = $0488;
  380.   {$EXTERNALSYM edt9}
  381.   edt10 = $0489;
  382.   {$EXTERNALSYM edt10}
  383.   edt11 = $048a;
  384.   {$EXTERNALSYM edt11}
  385.   edt12 = $048b;
  386.   {$EXTERNALSYM edt12}
  387.   edt13 = $048c;
  388.   {$EXTERNALSYM edt13}
  389.   edt14 = $048d;
  390.   {$EXTERNALSYM edt14}
  391.   edt15 = $048e;
  392.   {$EXTERNALSYM edt15}
  393.   edt16 = $048f;
  394.   {$EXTERNALSYM edt16}
  396. //
  397. //  Scroll bars.
  398. //
  400.   scr1 = $0490;
  401.   {$EXTERNALSYM scr1}
  402.   scr2 = $0491;
  403.   {$EXTERNALSYM scr2}
  404.   scr3 = $0492;
  405.   {$EXTERNALSYM scr3}
  406.   scr4 = $0493;
  407.   {$EXTERNALSYM scr4}
  408.   scr5 = $0494;
  409.   {$EXTERNALSYM scr5}
  410.   scr6 = $0495;
  411.   {$EXTERNALSYM scr6}
  412.   scr7 = $0496;
  413.   {$EXTERNALSYM scr7}
  414.   scr8 = $0497;
  415.   {$EXTERNALSYM scr8}
  417. //
  418. //  Controls
  419. //
  421.   ctl1 = $04A0;
  422.   {$EXTERNALSYM ctl1}
  424. //
  425. //  These dialog resource ordinals really start at 0x0600, but the
  426. //  RC Compiler can't handle hex for resource IDs, hence the decimal.
  427. //
  429. {$IFDEF UNIX}
  431.   MW_BIG_FILEOPENORD      = 10000;
  432.   {$EXTERNALSYM MW_BIG_FILEOPENORD}
  433.   MW_BIG_MULTIFILEOPENORD = 10001;
  434.   {$EXTERNALSYM MW_BIG_MULTIFILEOPENORD}
  436.   FILEOPENORDMOTIF = 10003;
  437.   {$EXTERNALSYM FILEOPENORDMOTIF}
  438.   PRINTDLGORDMOTIF = 10004;
  439.   {$EXTERNALSYM PRINTDLGORDMOTIF}
  440.   FINDDLGORDMOTIF  = 10005;
  441.   {$EXTERNALSYM FINDDLGORDMOTIF}
  443. {$ENDIF}
  445.   FILEOPENORD      = 1536;
  446.   {$EXTERNALSYM FILEOPENORD}
  447.   MULTIFILEOPENORD = 1537;
  448.   {$EXTERNALSYM MULTIFILEOPENORD}
  449.   PRINTDLGORD      = 1538;
  450.   {$EXTERNALSYM PRINTDLGORD}
  451.   PRNSETUPDLGORD   = 1539;
  452.   {$EXTERNALSYM PRNSETUPDLGORD}
  453.   FINDDLGORD       = 1540;
  454.   {$EXTERNALSYM FINDDLGORD}
  455.   REPLACEDLGORD    = 1541;
  456.   {$EXTERNALSYM REPLACEDLGORD}
  457.   FONTDLGORD       = 1542;
  458.   {$EXTERNALSYM FONTDLGORD}
  459.   FORMATDLGORD31   = 1543;
  460.   {$EXTERNALSYM FORMATDLGORD31}
  461.   FORMATDLGORD30   = 1544;
  462.   {$EXTERNALSYM FORMATDLGORD30}
  463.   RUNDLGORD        = 1545;
  464.   {$EXTERNALSYM RUNDLGORD}
  466.   PAGESETUPDLGORD      = 1546;
  467.   {$EXTERNALSYM PAGESETUPDLGORD}
  468.   NEWFILEOPENORD       = 1547;
  469.   {$EXTERNALSYM NEWFILEOPENORD}
  470.   PRINTDLGEXORD        = 1549;
  471.   {$EXTERNALSYM PRINTDLGEXORD}
  472.   PAGESETUPDLGORDMOTIF = 1550;
  473.   {$EXTERNALSYM PAGESETUPDLGORDMOTIF}
  474.   COLORMGMTDLGORD      = 1551;
  475.   {$EXTERNALSYM COLORMGMTDLGORD}
  476.   NEWFILEOPENV2ORD     = 1552;
  477.   {$EXTERNALSYM NEWFILEOPENV2ORD}
  479. //
  480. //  Typedef Declarations.
  481. //
  483. type
  484.   tagCRGB = record
  485.     bRed: BYTE;
  486.     bGreen: BYTE;
  487.     bBlue: BYTE;
  488.     bExtra: BYTE;
  489.   end;
  490.   {$EXTERNALSYM tagCRGB}
  491.   CRGB = tagCRGB;
  492.   {$EXTERNALSYM CRGB}
  494. implementation
  496. end.