API tools faq
paste
Advertisement
Guest User

iup.pas

a guest
May 4th, 2016
93
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 49.61 KB | None | 0 0
raw download clone embed print report
  1.  
  2. unit iup;
  3. {$mode objfpc}
  4. {$macro on}
  5. //{$linklib c}
  6. //{$linklib /home/tom/Desktop/iup/lib/Linux45_64/libiup.a}
  7.  
  8. interface
  9. uses iupkey, iupdef;
  10. {
  11.   Automatically converted by H2Pas 1.0.0 from ../../include/iup.h
  12.   The following command line parameters were used:
  13.     ../../include/iup.h
  14.     -o
  15.     ./iup.pas
  16. }
  17.  
  18.     Type
  19.     Ihandle = record end;
  20.     Pbyte  = ^byte;
  21.     Pchar  = ^char;
  22.     PIhandle  = ^Ihandle;
  23.     PPIhandle = ^PIhandle;
  24.     Plongint  = ^longint;
  25. {$IFDEF FPC}
  26. {$PACKRECORDS C}
  27. {$ENDIF}
  28.  
  29.  
  30.   {* \file
  31.    * \brief User API
  32.    * IUP - A Portable User Interface Toolkit
  33.    * Tecgraf: Computer Graphics Technology Group, PUC-Rio, Brazil
  34.    * http://www.tecgraf.puc-rio.br/iup  mailto:iup@tecgraf.puc-rio.br
  35.    *
  36.    * See Copyright Notice at the end of this file
  37.     }
  38. {$ifndef __IUP_H }
  39. {$define __IUP_H}  
  40. { C++ extern C conditionnal removed }
  41.  
  42.   const
  43.     IUP_NAME = 'IUP - Portable User Interface';    
  44.     IUP_DESCRIPTION = 'Multi-platform Toolkit for Building Graphical User Interfaces';    
  45.     IUP_COPYRIGHT = 'Copyright (C) 1994-2016 Tecgraf/PUC-Rio';    
  46.   { bug fixes are reported only by IupVersion functions  }
  47.     IUP_VERSION = '3.18';    
  48.     IUP_VERSION_NUMBER = 318000;    
  49.   { does not include bug fix releases  }
  50.     IUP_VERSION_DATE = '2016/03/21';    
  51.  
  52.   type
  53.     Ihandle_ = Ihandle;
  54.  
  55.     Icallback = function (_para1:PIhandle):longint;cdecl;
  56.  
  57. {$define liup:= cdecl; external 'libiup'}
  58.   function IupOpen(argc:Pinteger; argv:PPPchar):longint;liup;
  59.  
  60.   procedure IupClose;liup;
  61.  
  62.   procedure IupImageLibOpen;liup;
  63.  
  64.   function IupMainLoop:longint;liup;
  65.  
  66.   function IupLoopStep:longint;liup;
  67.  
  68.   function IupLoopStepWait:longint;liup;
  69.  
  70.   function IupMainLoopLevel:longint;liup;
  71.  
  72.   procedure IupFlush;liup;
  73.  
  74.   procedure IupExitLoop;liup;
  75.  
  76. (* Const before type ignored *)
  77.   function IupRecordInput(filename:Pchar; mode:longint):longint;liup;
  78.  
  79. (* Const before type ignored *)
  80.   function IupPlayInput(filename:Pchar):longint;liup;
  81.  
  82.   procedure IupUpdate(ih:PIhandle);liup;
  83.  
  84.   procedure IupUpdateChildren(ih:PIhandle);liup;
  85.  
  86.   procedure IupRedraw(ih:PIhandle; children:longint);liup;
  87.  
  88.   procedure IupRefresh(ih:PIhandle);liup;
  89.  
  90.   procedure IupRefreshChildren(ih:PIhandle);liup;
  91.  
  92. (* Const before type ignored *)
  93. (* Const before type ignored *)
  94.   function IupExecute(filename:Pchar; parameters:Pchar):longint;liup;
  95.  
  96. (* Const before type ignored *)
  97.   function IupHelp(url:Pchar):longint;liup;
  98.  
  99. (* Const before type ignored *)
  100.   function IupLoad(filename:Pchar):pchar;liup;
  101.  
  102. (* Const before type ignored *)
  103.   function IupLoadBuffer(buffer:Pchar):pchar;liup;
  104.  
  105.   function IupVersion:pchar;liup;
  106.  
  107.   function IupVersionDate:pchar;liup;
  108.  
  109.   function IupVersionNumber:longint;liup;
  110.  
  111. (* Const before type ignored *)
  112.   procedure IupSetLanguage(lng:Pchar);liup;
  113.  
  114.   function IupGetLanguage:pchar;liup;
  115.  
  116. (* Const before type ignored *)
  117. (* Const before type ignored *)
  118.   procedure IupSetLanguageString(name:Pchar; str:Pchar);liup;
  119.  
  120. (* Const before type ignored *)
  121. (* Const before type ignored *)
  122.   procedure IupStoreLanguageString(name:Pchar; str:Pchar);liup;
  123.  
  124. (* Const before type ignored *)
  125.   function IupGetLanguageString(name:Pchar):pchar;liup;
  126.  
  127.   procedure IupSetLanguagePack(ih:PIhandle);liup;
  128.  
  129.   procedure IupDestroy(ih:PIhandle);liup;
  130.  
  131.   procedure IupDetach(child:PIhandle);liup;
  132.  
  133.   function IupAppend(ih:PIhandle; child:PIhandle):PIhandle;liup;
  134.  
  135.   function IupInsert(ih:PIhandle; ref_child:PIhandle; child:PIhandle):PIhandle;liup;
  136.  
  137.   function IupGetChild(ih:PIhandle; pos:longint):PIhandle;liup;
  138.  
  139.   function IupGetChildPos(ih:PIhandle; child:PIhandle):longint;liup;
  140.  
  141.   function IupGetChildCount(ih:PIhandle):longint;liup;
  142.  
  143.   function IupGetNextChild(ih:PIhandle; child:PIhandle):PIhandle;liup;
  144.  
  145.   function IupGetBrother(ih:PIhandle):PIhandle;liup;
  146.  
  147.   function IupGetParent(ih:PIhandle):PIhandle;liup;
  148.  
  149.   function IupGetDialog(ih:PIhandle):PIhandle;liup;
  150.  
  151. (* Const before type ignored *)
  152.   function IupGetDialogChild(ih:PIhandle; name:Pchar):PIhandle;liup;
  153.  
  154.   function IupReparent(ih:PIhandle; new_parent:PIhandle; ref_child:PIhandle):longint;liup;
  155.  
  156.   function IupPopup(ih:PIhandle; x:longint; y:longint):longint;liup;
  157.  
  158.   function IupShow(ih:PIhandle):longint;liup;
  159.  
  160.   function IupShowXY(ih:PIhandle; x:longint; y:longint):longint;liup;
  161.  
  162.   function IupHide(ih:PIhandle):longint;liup;
  163.  
  164.   function IupMap(ih:PIhandle):longint;liup;
  165.  
  166.   procedure IupUnmap(ih:PIhandle);liup;
  167.  
  168. (* Const before type ignored *)
  169.   procedure IupResetAttribute(ih:PIhandle; name:Pchar);liup;
  170.  
  171.   function IupGetAllAttributes(ih:PIhandle; names:PPchar; n:longint):longint;liup;
  172.  
  173. (* Const before type ignored *)
  174. (* Const before type ignored *)
  175.   function IupSetAtt(handle_name:Pchar; ih:PIhandle; name:Pchar; args:array of const):PIhandle;liup;
  176.  
  177. (* Const before type ignored *)
  178.   function IupSetAttributes(ih:PIhandle; str:Pchar):PIhandle;liup;
  179.  
  180.   function IupGetAttributes(ih:PIhandle):pchar;liup;
  181.  
  182. (* Const before type ignored *)
  183. (* Const before type ignored *)
  184.   procedure IupSetAttribute(ih:PIhandle; name:Pchar; value:Pchar);liup;
  185.  
  186. (* Const before type ignored *)
  187. (* Const before type ignored *)
  188.   procedure IupSetStrAttribute(ih:PIhandle; name:Pchar; value:Pchar);liup;
  189.  
  190. (* Const before type ignored *)
  191. (* Const before type ignored *)
  192.   procedure IupSetStrf(ih:PIhandle; name:Pchar; format:Pchar; args:array of const);liup;
  193.  
  194. (* Const before type ignored *)
  195.   procedure IupSetInt(ih:PIhandle; name:Pchar; value:longint);liup;
  196.  
  197. (* Const before type ignored *)
  198.   procedure IupSetFloat(ih:PIhandle; name:Pchar; value:single);liup;
  199.  
  200. (* Const before type ignored *)
  201.   procedure IupSetDouble(ih:PIhandle; name:Pchar; value:double);liup;
  202.  
  203. (* Const before type ignored *)
  204.   procedure IupSetRGB(ih:PIhandle; name:Pchar; r:byte; g:byte; b:byte);liup;
  205.  
  206. (* Const before type ignored *)
  207.   function IupGetAttribute(ih:PIhandle; name:Pchar):pchar;liup;
  208.  
  209. (* Const before type ignored *)
  210.   function IupGetInt(ih:PIhandle; name:Pchar):longint;liup;
  211.  
  212. (* Const before type ignored *)
  213.   function IupGetInt2(ih:PIhandle; name:Pchar):longint;liup;
  214.  
  215. (* Const before type ignored *)
  216.   function IupGetIntInt(ih:PIhandle; name:Pchar; i1:Plongint; i2:Plongint):longint;liup;
  217.  
  218. (* Const before type ignored *)
  219.   function IupGetFloat(ih:PIhandle; name:Pchar):single;liup;
  220.  
  221. (* Const before type ignored *)
  222.   function IupGetDouble(ih:PIhandle; name:Pchar):double;liup;
  223.  
  224. (* Const before type ignored *)
  225.   procedure IupGetRGB(ih:PIhandle; name:Pchar; r:Pbyte; g:Pbyte; b:Pbyte);liup;
  226.  
  227. (* Const before type ignored *)
  228. (* Const before type ignored *)
  229.   procedure IupSetAttributeId(ih:PIhandle; name:Pchar; id:longint; value:Pchar);liup;
  230.  
  231. (* Const before type ignored *)
  232. (* Const before type ignored *)
  233.   procedure IupSetStrAttributeId(ih:PIhandle; name:Pchar; id:longint; value:Pchar);liup;
  234.  
  235. (* Const before type ignored *)
  236. (* Const before type ignored *)
  237.   procedure IupSetStrfId(ih:PIhandle; name:Pchar; id:longint; format:Pchar; args:array of const);liup;
  238.  
  239. (* Const before type ignored *)
  240.   procedure IupSetIntId(ih:PIhandle; name:Pchar; id:longint; value:longint);liup;
  241.  
  242. (* Const before type ignored *)
  243.   procedure IupSetFloatId(ih:PIhandle; name:Pchar; id:longint; value:single);liup;
  244.  
  245. (* Const before type ignored *)
  246.   procedure IupSetDoubleId(ih:PIhandle; name:Pchar; id:longint; value:double);liup;
  247.  
  248. (* Const before type ignored *)
  249.   procedure IupSetRGBId(ih:PIhandle; name:Pchar; id:longint; r:byte; g:byte;
  250.               b:byte);liup;
  251.  
  252. (* Const before type ignored *)
  253.   function IupGetAttributeId(ih:PIhandle; name:Pchar; id:longint):pchar;liup;
  254.  
  255. (* Const before type ignored *)
  256.   function IupGetIntId(ih:PIhandle; name:Pchar; id:longint):longint;liup;
  257.  
  258. (* Const before type ignored *)
  259.   function IupGetFloatId(ih:PIhandle; name:Pchar; id:longint):single;liup;
  260.  
  261. (* Const before type ignored *)
  262.   function IupGetDoubleId(ih:PIhandle; name:Pchar; id:longint):double;liup;
  263.  
  264. (* Const before type ignored *)
  265.   procedure IupGetRGBId(ih:PIhandle; name:Pchar; id:longint; r:Pbyte; g:Pbyte;
  266.               b:Pbyte);liup;
  267.  
  268. (* Const before type ignored *)
  269. (* Const before type ignored *)
  270.   procedure IupSetAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:Pchar);liup;
  271.  
  272. (* Const before type ignored *)
  273. (* Const before type ignored *)
  274.   procedure IupSetStrAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:Pchar);liup;
  275.  
  276. (* Const before type ignored *)
  277. (* Const before type ignored *)
  278.   procedure IupSetStrfId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; format:Pchar;
  279.               args:array of const);liup;
  280.  
  281. (* Const before type ignored *)
  282.   procedure IupSetIntId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:longint);liup;
  283.  
  284. (* Const before type ignored *)
  285.   procedure IupSetFloatId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:single);liup;
  286.  
  287. (* Const before type ignored *)
  288.   procedure IupSetDoubleId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:double);liup;
  289.  
  290. (* Const before type ignored *)
  291.   procedure IupSetRGBId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; r:byte;
  292.               g:byte; b:byte);liup;
  293.  
  294. (* Const before type ignored *)
  295.   function IupGetAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):pchar;liup;
  296.  
  297. (* Const before type ignored *)
  298.   function IupGetIntId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):longint;liup;
  299.  
  300. (* Const before type ignored *)
  301.   function IupGetFloatId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):single;liup;
  302.  
  303. (* Const before type ignored *)
  304.   function IupGetDoubleId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):double;liup;
  305.  
  306. (* Const before type ignored *)
  307.   procedure IupGetRGBId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; r:Pbyte;
  308.               g:Pbyte; b:Pbyte);liup;
  309.  
  310. (* Const before type ignored *)
  311. (* Const before type ignored *)
  312.   procedure IupSetGlobal(name:Pchar; value:Pchar);liup;
  313.  
  314. (* Const before type ignored *)
  315. (* Const before type ignored *)
  316.   procedure IupSetStrGlobal(name:Pchar; value:Pchar);liup;
  317.  
  318. (* Const before type ignored *)
  319.   function IupGetGlobal(name:Pchar):pchar;liup;
  320.  
  321.   function IupSetFocus(ih:PIhandle):PIhandle;liup;
  322.  
  323.   function IupGetFocus:PIhandle;liup;
  324.  
  325.   function IupPreviousField(ih:PIhandle):PIhandle;liup;
  326.  
  327.   function IupNextField(ih:PIhandle):PIhandle;liup;
  328.  
  329. (* Const before type ignored *)
  330.   function IupGetCallback(ih:PIhandle; name:Pchar):Icallback;liup;
  331.  
  332. (* Const before type ignored *)
  333.   function IupSetCallback(ih:PIhandle; name:Pchar; func:Icallback):Icallback;liup;
  334.  
  335. (* Const before type ignored *)
  336.   function IupSetCallbacks(ih:PIhandle; name:Pchar; func:Icallback; args:array of const):PIhandle;liup;
  337.  
  338. (* Const before type ignored *)
  339.   function IupGetFunction(name:Pchar):Icallback;liup;
  340.  
  341. (* Const before type ignored *)
  342.   function IupSetFunction(name:Pchar; func:Icallback):Icallback;liup;
  343.  
  344. (* Const before type ignored *)
  345.   function IupGetHandle(name:Pchar):PIhandle;liup;
  346.  
  347. (* Const before type ignored *)
  348.   function IupSetHandle(name:Pchar; ih:PIhandle):PIhandle;liup;
  349.  
  350.   function IupGetAllNames(names:PPchar; n:longint):longint;liup;
  351.  
  352.   function IupGetAllDialogs(names:PPchar; n:longint):longint;liup;
  353.  
  354.   function IupGetName(ih:PIhandle):pchar;liup;
  355.  
  356. (* Const before type ignored *)
  357.   procedure IupSetAttributeHandle(ih:PIhandle; name:Pchar; ih_named:PIhandle);liup;
  358.  
  359. (* Const before type ignored *)
  360.   function IupGetAttributeHandle(ih:PIhandle; name:Pchar):PIhandle;liup;
  361.  
  362.   function IupGetClassName(ih:PIhandle):pchar;liup;
  363.  
  364.   function IupGetClassType(ih:PIhandle):pchar;liup;
  365.  
  366.   function IupGetAllClasses(names:PPchar; n:longint):longint;liup;
  367.  
  368. (* Const before type ignored *)
  369.   function IupGetClassAttributes(classname:Pchar; names:PPchar; n:longint):longint;liup;
  370.  
  371. (* Const before type ignored *)
  372.   function IupGetClassCallbacks(classname:Pchar; names:PPchar; n:longint):longint;liup;
  373.  
  374.   procedure IupSaveClassAttributes(ih:PIhandle);liup;
  375.  
  376.   procedure IupCopyClassAttributes(src_ih:PIhandle; dst_ih:PIhandle);liup;
  377.  
  378. (* Const before type ignored *)
  379. (* Const before type ignored *)
  380. (* Const before type ignored *)
  381.   procedure IupSetClassDefaultAttribute(classname:Pchar; name:Pchar; value:Pchar);liup;
  382.  
  383. (* Const before type ignored *)
  384.   function IupClassMatch(ih:PIhandle; classname:Pchar):longint;liup;
  385.  
  386. (* Const before type ignored *)
  387.   function IupCreate(classname:Pchar):PIhandle;liup;
  388.  
  389. (* Const before type ignored *)
  390.   function IupCreatev(classname:Pchar; params:Ppointer):PIhandle;liup;
  391.  
  392. (* Const before type ignored *)
  393.   function IupCreatep(classname:Pchar; first:pointer; args:array of const):PIhandle;liup;
  394.  
  395.   function IupFill:PIhandle;liup;
  396.  
  397.   function IupRadio(child:PIhandle):PIhandle;liup;
  398.  
  399.   function IupVbox(child:PIhandle; args:array of const):PIhandle;liup;
  400.  
  401.   function IupVboxv(children:PPIhandle):PIhandle;liup;
  402.  
  403.   function IupZbox(child:PIhandle; args:array of const):PIhandle;liup;
  404.  
  405.   function IupZboxv(children:PPIhandle):PIhandle;liup;
  406.  
  407.   function IupHbox(child:PIhandle; args:array of const):PIhandle;liup;
  408.  
  409.   function IupHboxv(children:PPIhandle):PIhandle;liup;
  410.  
  411.   function IupNormalizer(ih_first:PIhandle; args:array of const):PIhandle;liup;
  412.  
  413.   function IupNormalizerv(ih_list:PPIhandle):PIhandle;liup;
  414.  
  415.   function IupCbox(child:PIhandle; args:array of const):PIhandle;liup;
  416.  
  417.   function IupCboxv(children:PPIhandle):PIhandle;liup;
  418.  
  419.   function IupSbox(child:PIhandle):PIhandle;liup;
  420.  
  421.   function IupSplit(child1:PIhandle; child2:PIhandle):PIhandle;liup;
  422.  
  423.   function IupScrollBox(child:PIhandle):PIhandle;liup;
  424.  
  425.   function IupGridBox(child:PIhandle; args:array of const):PIhandle;liup;
  426.  
  427.   function IupGridBoxv(children:PPIhandle):PIhandle;liup;
  428.  
  429.   function IupExpander(child:PIhandle):PIhandle;liup;
  430.  
  431.   function IupDetachBox(child:PIhandle):PIhandle;liup;
  432.  
  433.   function IupBackgroundBox(child:PIhandle):PIhandle;liup;
  434.  
  435.   function IupFrame(child:PIhandle):PIhandle;liup;
  436.  
  437. (* Const before type ignored *)
  438.   function IupImage(width:longint; height:longint; pixmap:Pbyte):PIhandle;liup;
  439.  
  440. (* Const before type ignored *)
  441.   function IupImageRGB(width:longint; height:longint; pixmap:Pbyte):PIhandle;liup;
  442.  
  443. (* Const before type ignored *)
  444.   function IupImageRGBA(width:longint; height:longint; pixmap:Pbyte):PIhandle;liup;
  445.  
  446. (* Const before type ignored *)
  447. (* Const before type ignored *)
  448.   function IupItem(title:Pchar; action:Pchar):PIhandle;liup;
  449.  
  450. (* Const before type ignored *)
  451.   function IupSubmenu(title:Pchar; child:PIhandle):PIhandle;liup;
  452.  
  453.   function IupSeparator:PIhandle;liup;
  454.  
  455.   function IupMenu(child:PIhandle; args:array of const):PIhandle;liup;
  456.  
  457.   function IupMenuv(children:PPIhandle):PIhandle;liup;
  458.  
  459. (* Const before type ignored *)
  460. (* Const before type ignored *)
  461.   function IupButton(title:Pchar; action:Pchar):PIhandle;liup;
  462.  
  463. (* Const before type ignored *)
  464.   function IupCanvas(action:Pchar):PIhandle;liup;
  465.  
  466.   function IupDialog(child:PIhandle):PIhandle;liup;
  467.  
  468.   function IupUser:PIhandle;liup;
  469.  
  470. (* Const before type ignored *)
  471.   function IupLabel(title:Pchar):PIhandle;liup;
  472.  
  473. (* Const before type ignored *)
  474.   function IupList(action:Pchar):PIhandle;liup;
  475.  
  476. (* Const before type ignored *)
  477.   function IupText(action:Pchar):PIhandle;liup;
  478.  
  479. (* Const before type ignored *)
  480.   function IupMultiLine(action:Pchar):PIhandle;liup;
  481.  
  482. (* Const before type ignored *)
  483. (* Const before type ignored *)
  484.   function IupToggle(title:Pchar; action:Pchar):PIhandle;liup;
  485.  
  486.   function IupTimer:PIhandle;liup;
  487.  
  488.   function IupClipboard:PIhandle;liup;
  489.  
  490.   function IupProgressBar:PIhandle;liup;
  491.  
  492. (* Const before type ignored *)
  493.   function IupVal(_type:Pchar):PIhandle;liup;
  494.  
  495.   function IupTabs(child:PIhandle; args:array of const):PIhandle;liup;
  496.  
  497.   function IupTabsv(children:PPIhandle):PIhandle;liup;
  498.  
  499.   function IupTree:PIhandle;liup;
  500.  
  501. (* Const before type ignored *)
  502. (* Const before type ignored *)
  503.   function IupLink(url:Pchar; title:Pchar):PIhandle;liup;
  504.  
  505. (* Const before type ignored *)
  506.   function IupFlatButton(title:Pchar):PIhandle;liup;
  507.  
  508.   function IupAnimatedLabel(animation:PIhandle):PIhandle;liup;
  509.  
  510.   function IupDatePick:PIhandle;liup;
  511.  
  512.   function IupCalendar:PIhandle;liup;
  513.  
  514.   (* Old controls, use SPIN attribute of IupText  *)
  515.   function IupSpin:PIhandle;liup;
  516.  
  517.   function IupSpinbox(child:PIhandle):PIhandle;liup;
  518.  
  519.  
  520. (* Const before type ignored *)
  521. (* Const before type ignored *)
  522.   function IupStringCompare(str1:Pchar; str2:Pchar; casesensitive:longint; lexicographic:longint):longint;liup;
  523.  
  524.  
  525. (* Const before type ignored *)
  526. (* Const before type ignored *)
  527. (* Const before type ignored *)
  528.   function IupSaveImageAsText(ih:PIhandle; file_name:Pchar; format:Pchar; name:Pchar):longint;liup;
  529.  
  530.  
  531.   procedure IupTextConvertLinColToPos(ih:PIhandle; lin:longint; col:longint; pos:Plongint);liup;
  532.  
  533.   procedure IupTextConvertPosToLinCol(ih:PIhandle; pos:longint; lin:Plongint; col:Plongint);liup;
  534.  
  535.  
  536.   function IupConvertXYToPos(ih:PIhandle; x:longint; y:longint):longint;liup;
  537.  
  538. (* Const before type ignored *)
  539. (* Const before type ignored *)
  540.   procedure IupStoreGlobal(name:Pchar; value:Pchar);liup;
  541.  
  542. (* Const before type ignored *)
  543. (* Const before type ignored *)
  544.   procedure IupStoreAttribute(ih:PIhandle; name:Pchar; value:Pchar);liup;
  545.  
  546. (* Const before type ignored *)
  547. (* Const before type ignored *)
  548.   procedure IupSetfAttribute(ih:PIhandle; name:Pchar; format:Pchar; args:array of const);liup;
  549.  
  550. (* Const before type ignored *)
  551. (* Const before type ignored *)
  552.   procedure IupStoreAttributeId(ih:PIhandle; name:Pchar; id:longint; value:Pchar);liup;
  553.  
  554. (* Const before type ignored *)
  555. (* Const before type ignored *)
  556.   procedure IupSetfAttributeId(ih:PIhandle; name:Pchar; id:longint; f:Pchar; args:array of const);liup;
  557.  
  558. (* Const before type ignored *)
  559. (* Const before type ignored *)
  560.   procedure IupStoreAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:Pchar);liup;
  561.  
  562. (* Const before type ignored *)
  563. (* Const before type ignored *)
  564.   procedure IupSetfAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; format:Pchar;
  565.               args:array of const);liup;
  566.  
  567.   function IupTreeSetUserId(ih:PIhandle; id:longint; userid:pointer):longint;liup;
  568.  
  569.   function IupTreeGetUserId(ih:PIhandle; id:longint):pointer;liup;
  570.  
  571.   function IupTreeGetId(ih:PIhandle; userid:pointer):longint;liup;
  572.  
  573. (* Const before type ignored *)
  574.   procedure IupTreeSetAttributeHandle(ih:PIhandle; name:Pchar; id:longint; ih_named:PIhandle);liup;
  575.  
  576.  
  577. (* Const before type ignored *)
  578. (* Const before type ignored *)
  579.   procedure IupTreeSetAttribute(ih:PIhandle; name:Pchar; id:longint; value:Pchar);liup;
  580.  
  581. (* Const before type ignored *)
  582. (* Const before type ignored *)
  583.   procedure IupTreeStoreAttribute(ih:PIhandle; name:Pchar; id:longint; value:Pchar);liup;
  584.  
  585. (* Const before type ignored *)
  586.   function IupTreeGetAttribute(ih:PIhandle; name:Pchar; id:longint):pchar;liup;
  587.  
  588. (* Const before type ignored *)
  589.   function IupTreeGetInt(ih:PIhandle; name:Pchar; id:longint):longint;liup;
  590.  
  591. (* Const before type ignored *)
  592.   function IupTreeGetFloat(ih:PIhandle; name:Pchar; id:longint):single;liup;
  593.  
  594. (* Const before type ignored *)
  595. (* Const before type ignored *)
  596.   procedure IupTreeSetfAttribute(ih:PIhandle; name:Pchar; id:longint; format:Pchar; args:array of const);liup;
  597.  
  598. (* Const before type ignored *)
  599.   function IupGetActionName:pchar;liup;
  600.  
  601. (* Const before type ignored *)
  602.   function IupMapFont(iupfont:Pchar):pchar;liup;
  603.  
  604. (* Const before type ignored *)
  605.   function IupUnMapFont(driverfont:Pchar):pchar;liup;
  606.  
  607.   function IupFileDlg:PIhandle;liup;
  608.  
  609.   function IupMessageDlg:PIhandle;liup;
  610.  
  611.   function IupColorDlg:PIhandle;liup;
  612.  
  613.   function IupFontDlg:PIhandle;liup;
  614.  
  615.   function IupProgressDlg:PIhandle;liup;
  616.  
  617.   function IupGetFile(arq:Pchar):longint;liup;
  618.  
  619. (* Const before type ignored *)
  620. (* Const before type ignored *)
  621.  
  622.   procedure IupMessage(title:Pchar; msg:Pchar);liup;
  623.  
  624. (* Const before type ignored *)
  625. (* Const before type ignored *)
  626.   procedure IupMessagef(title:Pchar; format:Pchar; args:array of const);liup;
  627.  
  628. (* Const before type ignored *)
  629. (* Const before type ignored *)
  630. (* Const before type ignored *)
  631. (* Const before type ignored *)
  632. (* Const before type ignored *)
  633.   function IupAlarm(title:Pchar; msg:Pchar; b1:Pchar; b2:Pchar; b3:Pchar):longint;liup;
  634.  
  635. (* Const before type ignored *)
  636.   function IupScanf(format:Pchar; args:array of const):longint;liup;
  637.  
  638. (* Const before type ignored *)
  639. (* Const before type ignored *)
  640.   function IupListDialog(_type:longint; title:Pchar; size:longint; list:PPchar; op:longint;
  641.              max_col:longint; max_lin:longint; marks:Plongint):longint;liup;
  642.  
  643. (* Const before type ignored *)
  644.   function IupGetText(title:Pchar; text:Pchar; maxsize:longint):longint;liup;
  645.  
  646.   function IupGetColor(x:longint; y:longint; r:Pbyte; g:Pbyte; b:Pbyte):longint;liup;
  647.  
  648.  
  649.   type
  650.  
  651.     Iparamcb = function (dialog:PIhandle; param_index:longint; user_data:pointer):longint;
  652. (* Const before type ignored *)
  653. (* Const before type ignored *)
  654.  
  655.   function IupGetParam(title:Pchar; action:Iparamcb; user_data:pointer; format:Pchar; args:array of const):longint;liup;
  656.  
  657. (* Const before type ignored *)
  658. (* Const before type ignored *)
  659.   function IupGetParamv(title:Pchar; action:Iparamcb; user_data:pointer; format:Pchar; param_count:longint;
  660.              param_extra:longint; param_data:Ppointer):longint;liup;
  661.  
  662. (* Const before type ignored *)
  663.   function IupParamf(format:Pchar):PIhandle;liup;
  664.  
  665.   function IupParamBox(parent:PIhandle; params:PPIhandle; count:longint):PIhandle;liup;
  666.  
  667.   function IupLayoutDialog(dialog:PIhandle):PIhandle;liup;
  668.  
  669.   function IupElementPropertiesDialog(elem:PIhandle):PIhandle;liup;
  670.  
  671. { C++ end of extern C conditionnal removed }
  672.   {********************************************************************** }
  673.   {                   Common Flags and Return Values                      }
  674.   {********************************************************************** }
  675.   const
  676.     IUP_ERROR = 1;    
  677.     IUP_NOERROR = 0;    
  678.     IUP_OPENED = -(1);    
  679.     IUP_INVALID = -(1);    
  680.     IUP_INVALID_ID = -(10);    
  681.   {********************************************************************** }
  682.   {                   Callback Return Values                              }
  683.   {********************************************************************** }
  684.     IUP_IGNORE = -(1);    
  685.     IUP_DEFAULT = -(2);    
  686.     IUP_CLOSE = -(3);    
  687.     IUP_CONTINUE = -(4);    
  688.   {********************************************************************** }
  689.   {           IupPopup and IupShowXY Parameter Values                     }
  690.   {********************************************************************** }
  691.   { 65535  }
  692.     IUP_CENTER = $FFFF;    
  693.   { 65534  }
  694.     IUP_LEFT = $FFFE;    
  695.   { 65533  }
  696.     IUP_RIGHT = $FFFD;    
  697.   { 65532  }
  698.     IUP_MOUSEPOS = $FFFC;    
  699.   { 65531  }
  700.     IUP_CURRENT = $FFFB;    
  701.   { 65530  }
  702.     IUP_CENTERPARENT = $FFFA;    
  703.     IUP_TOP = IUP_LEFT;    
  704.     IUP_BOTTOM = IUP_RIGHT;    
  705.   {********************************************************************** }
  706.   {               SHOW_CB Callback Values                                 }
  707.   {********************************************************************** }
  708. (* error
  709. enum{IUP_SHOW, IUP_RESTORE, IUP_MINIMIZE, IUP_MAXIMIZE, IUP_HIDE};
  710. in declaration at line 363 *)
  711.     {********************************************************************** }
  712.     {               SCROLL_CB Callback Values                               }
  713.     {********************************************************************** }
  714. (* error
  715. enum{IUP_SBUP,   IUP_SBDN,    IUP_SBPGUP,   IUP_SBPGDN,    IUP_SBPOSV, IUP_SBDRAGV,
  716. in declaration at line 369 *)
  717.     {********************************************************************** }
  718.     {               Mouse Button Values and Macros                          }
  719.     {********************************************************************** }
  720.       IUP_BUTTON1 = '1';      
  721.       IUP_BUTTON2 = '2';      
  722.       IUP_BUTTON3 = '3';      
  723.       IUP_BUTTON4 = '4';      
  724.       IUP_BUTTON5 = '5';      
  725.     { was #define dname(params) para_def_expr }
  726.     { argument types are unknown }
  727.     { return type might be wrong }  
  728.  
  729.     function iup_isshift(_s : string) : boolean;    
  730.  
  731.   { was #define dname(params) para_def_expr }
  732.   { argument types are unknown }
  733.   { return type might be wrong }  
  734.   function iup_iscontrol(_s : string) : boolean;  
  735.  
  736.   { was #define dname(params) para_def_expr }
  737.   { argument types are unknown }
  738.   { return type might be wrong }  
  739.   function iup_isbutton1(_s : string) : boolean;  
  740.  
  741.   { was #define dname(params) para_def_expr }
  742.   { argument types are unknown }
  743.   { return type might be wrong }  
  744.   function iup_isbutton2(_s : string) : boolean;  
  745.  
  746.   { was #define dname(params) para_def_expr }
  747.   { argument types are unknown }
  748.   { return type might be wrong }  
  749.   function iup_isbutton3(_s : string) : boolean;  
  750.  
  751.   { was #define dname(params) para_def_expr }
  752.   { argument types are unknown }
  753.   { return type might be wrong }  
  754.   function iup_isdouble(_s : string) : boolean;  
  755.  
  756.   { was #define dname(params) para_def_expr }
  757.   { argument types are unknown }
  758.   { return type might be wrong }  
  759.   function iup_isalt(_s : string) : boolean;  
  760.  
  761.   { was #define dname(params) para_def_expr }
  762.   { argument types are unknown }
  763.   { return type might be wrong }  
  764.   function iup_issys(_s : string) : boolean;  
  765.  
  766.   { was #define dname(params) para_def_expr }
  767.   { argument types are unknown }
  768.   { return type might be wrong }  
  769.   function iup_isbutton4(_s : string) : boolean;  
  770.  
  771.   { was #define dname(params) para_def_expr }
  772.   { argument types are unknown }
  773.   { return type might be wrong }  
  774.   function iup_isbutton5(_s : string) : boolean;  
  775.  
  776.   { Old definitions for backward compatibility  }
  777.   const
  778.     {isshift = iup_isshift;    
  779.     iscontrol = iup_iscontrol;    
  780.     isbutton1 = iup_isbutton1;    
  781.     isbutton2 = iup_isbutton2;    
  782.     isbutton3 = iup_isbutton3;    
  783.     isdouble = iup_isdouble;    
  784.     isalt = iup_isalt;    
  785.     issys = iup_issys;    
  786.     isbutton4 = iup_isbutton4;    
  787.     isbutton5 = iup_isbutton5;  }  
  788.   {********************************************************************** }
  789.   {                      Pre-Defined Masks                                }
  790.   {********************************************************************** }
  791.     IUP_MASK_FLOAT = '[+/-]?(/d+/.?/d*|/./d+)';    
  792.     IUP_MASK_UFLOAT = '(/d+/.?/d*|/./d+)';    
  793.     IUP_MASK_EFLOAT = '[+/-]?(/d+/.?/d*|/./d+)([eE][+/-]?/d+)?';    
  794.     IUP_MASK_FLOATCOMMA = '[+/-]?(/d+/,?/d*|/,/d+)';    
  795.     IUP_MASK_UFLOATCOMMA = '(/d+/,?/d*|/,/d+)';    
  796.     IUP_MASK_INT = '[+/-]?/d+';    
  797.     IUP_MASK_UINT = '/d+';    
  798.   { Old definitions for backward compatibility  }
  799.     IUPMASK_FLOAT = IUP_MASK_FLOAT;    
  800.     IUPMASK_UFLOAT = IUP_MASK_UFLOAT;    
  801.     IUPMASK_EFLOAT = IUP_MASK_EFLOAT;    
  802.     IUPMASK_INT = IUP_MASK_INT;    
  803.     IUPMASK_UINT = IUP_MASK_UINT;    
  804.   {********************************************************************** }
  805.   {                   IupGetParam Callback situations                     }
  806.   {********************************************************************** }
  807.     IUP_GETPARAM_BUTTON1 = -(1);    
  808.     IUP_GETPARAM_INIT = -(2);    
  809.     IUP_GETPARAM_BUTTON2 = -(3);    
  810.     IUP_GETPARAM_BUTTON3 = -(4);    
  811.     IUP_GETPARAM_CLOSE = -(5);    
  812.     IUP_GETPARAM_OK = IUP_GETPARAM_BUTTON1;    
  813.     IUP_GETPARAM_CANCEL = IUP_GETPARAM_BUTTON2;    
  814.     IUP_GETPARAM_HELP = IUP_GETPARAM_BUTTON3;    
  815.   {********************************************************************** }
  816.   {                   Record Input Modes                                  }
  817.   {********************************************************************** }
  818. (* error
  819. enum {IUP_RECBINARY, IUP_RECTEXT};
  820. in declaration at line 439 *)
  821.     {********************************************************************** }
  822.     {              Replacement for the WinMain in Windows,                  }
  823.     {        this allows the application to start from "main".              }
  824.     {        Used only for Watcom.                                          }
  825.     {********************************************************************** }
  826. {$if defined (__WATCOMC__)}
  827.     { this is the trick for Watcom and MetroWerks  }
  828.  
  829.     const
  830.       main = IupMain;      
  831. {$endif}
  832.     {*****************************************************************************
  833.     * Copyright (C) 1994-2016 Tecgraf/PUC-Rio.
  834.     *
  835.     * Permission is hereby granted, free of charge, to any person obtaining
  836.     * a copy of this software and associated documentation files (the
  837.     * "Software"), to deal in the Software without restriction, including
  838.     * without limitation the rights to use, copy, modify, merge, publish,
  839.     * distribute, sublicense, and/or sell copies of the Software, and to
  840.     * permit persons to whom the Software is furnished to do so, subject to
  841.     * the following conditions:
  842.     *
  843.     * The above copyright notice and this permission notice shall be
  844.     * included in all copies or substantial portions of the Software.
  845.     *
  846.     * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  847.     * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  848.     * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  849.     * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  850.     * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  851.     * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  852.     * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  853.     ***************************************************************************** }
  854. {$endif}
  855.  
  856. implementation
  857.  
  858.   {function IupOpen(argc:Plongint; argv:PPPchar):longint;
  859.   begin
  860.    
  861.   end;
  862.   procedure IupClose;
  863.   begin
  864.    
  865.   end;
  866.   procedure IupImageLibOpen;
  867.   begin
  868.    
  869.   end;
  870.   function IupMainLoop:longint;
  871.   begin
  872.    
  873.   end;
  874.   function IupLoopStep:longint;
  875.   begin
  876.    
  877.   end;
  878.   function IupLoopStepWait:longint;
  879.   begin
  880.    
  881.   end;
  882.   function IupMainLoopLevel:longint;
  883.   begin
  884.    
  885.   end;
  886.   procedure IupFlush;
  887.   begin
  888.    
  889.   end;
  890.   procedure IupExitLoop;
  891.   begin
  892.    
  893.   end;
  894.   function IupRecordInput(filename:Pchar; mode:longint):longint;
  895.   begin
  896.    
  897.   end;
  898.   function IupPlayInput(filename:Pchar):longint;
  899.   begin
  900.    
  901.   end;
  902.   procedure IupUpdate(ih:PIhandle);
  903.   begin
  904.    
  905.   end;
  906.   procedure IupUpdateChildren(ih:PIhandle);
  907.   begin
  908.    
  909.   end;
  910.   procedure IupRedraw(ih:PIhandle; children:longint);
  911.   begin
  912.    
  913.   end;
  914.   procedure IupRefresh(ih:PIhandle);
  915.   begin
  916.    
  917.   end;
  918.   procedure IupRefreshChildren(ih:PIhandle);
  919.   begin
  920.    
  921.   end;
  922.   function IupExecute(filename:Pchar; parameters:Pchar):longint;
  923.   begin
  924.    
  925.   end;
  926.   function IupHelp(url:Pchar):longint;
  927.   begin
  928.    
  929.   end;
  930.   function IupLoad(filename:Pchar):Pchar;
  931.   begin
  932.    
  933.   end;
  934.   function IupLoadBuffer(buffer:Pchar):Pchar;
  935.   begin
  936.    
  937.   end;
  938.   function IupVersion:Pchar;
  939.   begin
  940.    
  941.   end;
  942.   function IupVersionDate:Pchar;
  943.   begin
  944.    
  945.   end;
  946.   function IupVersionNumber:longint;
  947.   begin
  948.    
  949.   end;
  950.   procedure IupSetLanguage(lng:Pchar);
  951.   begin
  952.    
  953.   end;
  954.   function IupGetLanguage:Pchar;
  955.   begin
  956.    
  957.   end;
  958.   procedure IupSetLanguageString(name:Pchar; str:Pchar);
  959.   begin
  960.    
  961.   end;
  962.   procedure IupStoreLanguageString(name:Pchar; str:Pchar);
  963.   begin
  964.    
  965.   end;
  966.   function IupGetLanguageString(name:Pchar):Pchar;
  967.   begin
  968.    
  969.   end;
  970.   procedure IupSetLanguagePack(ih:PIhandle);
  971.   begin
  972.    
  973.   end;
  974.   procedure IupDestroy(ih:PIhandle);
  975.   begin
  976.    
  977.   end;
  978.   procedure IupDetach(child:PIhandle);
  979.   begin
  980.    
  981.   end;
  982.   function IupAppend(ih:PIhandle; child:PIhandle):PIhandle;
  983.   begin
  984.    
  985.   end;
  986.   function IupInsert(ih:PIhandle; ref_child:PIhandle; child:PIhandle):PIhandle;
  987.   begin
  988.    
  989.   end;
  990.   function IupGetChild(ih:PIhandle; pos:longint):PIhandle;
  991.   begin
  992.    
  993.   end;
  994.   function IupGetChildPos(ih:PIhandle; child:PIhandle):longint;
  995.   begin
  996.    
  997.   end;
  998.   function IupGetChildCount(ih:PIhandle):longint;
  999.   begin
  1000.    
  1001.   end;
  1002.   function IupGetNextChild(ih:PIhandle; child:PIhandle):PIhandle;
  1003.   begin
  1004.    
  1005.   end;
  1006.   function IupGetBrother(ih:PIhandle):PIhandle;
  1007.   begin
  1008.    
  1009.   end;
  1010.   function IupGetParent(ih:PIhandle):PIhandle;
  1011.   begin
  1012.    
  1013.   end;
  1014.   function IupGetDialog(ih:PIhandle):PIhandle;
  1015.   begin
  1016.    
  1017.   end;
  1018.   function IupGetDialogChild(ih:PIhandle; name:Pchar):PIhandle;
  1019.   begin
  1020.    
  1021.   end;
  1022.   function IupReparent(ih:PIhandle; new_parent:PIhandle; ref_child:PIhandle):longint;
  1023.   begin
  1024.    
  1025.   end;
  1026.   function IupPopup(ih:PIhandle; x:longint; y:longint):longint;
  1027.   begin
  1028.    
  1029.   end;
  1030.   function IupShow(ih:PIhandle):longint;
  1031.   begin
  1032.    
  1033.   end;
  1034.   function IupShowXY(ih:PIhandle; x:longint; y:longint):longint;
  1035.   begin
  1036.    
  1037.   end;
  1038.   function IupHide(ih:PIhandle):longint;
  1039.   begin
  1040.    
  1041.   end;
  1042.   function IupMap(ih:PIhandle):longint;
  1043.   begin
  1044.    
  1045.   end;
  1046.   procedure IupUnmap(ih:PIhandle);
  1047.   begin
  1048.    
  1049.   end;
  1050.   procedure IupResetAttribute(ih:PIhandle; name:Pchar);
  1051.   begin
  1052.    
  1053.   end;
  1054.   function IupGetAllAttributes(ih:PIhandle; names:PPchar; n:longint):longint;
  1055.   begin
  1056.    
  1057.   end;
  1058.   function IupSetAtt(handle_name:Pchar; ih:PIhandle; name:Pchar):PIhandle;
  1059.   begin
  1060.    
  1061.   end;
  1062.   function IupSetAttributes(ih:PIhandle; str:Pchar):PIhandle;
  1063.   begin
  1064.    
  1065.   end;
  1066.   function IupGetAttributes(ih:PIhandle):Pchar;
  1067.   begin
  1068.    
  1069.   end;
  1070.   procedure IupSetAttribute(ih:PIhandle; name:Pchar; value:Pchar);
  1071.   begin
  1072.    
  1073.   end;
  1074.   procedure IupSetStrAttribute(ih:PIhandle; name:Pchar; value:Pchar);
  1075.   begin
  1076.    
  1077.   end;
  1078.   procedure IupSetStrf(ih:PIhandle; name:Pchar; format:Pchar);
  1079.   begin
  1080.    
  1081.   end;
  1082.   procedure IupSetInt(ih:PIhandle; name:Pchar; value:longint);
  1083.   begin
  1084.    
  1085.   end;
  1086.   procedure IupSetFloat(ih:PIhandle; name:Pchar; value:single);
  1087.   begin
  1088.    
  1089.   end;
  1090.   procedure IupSetDouble(ih:PIhandle; name:Pchar; value:double);
  1091.   begin
  1092.    
  1093.   end;
  1094.   procedure IupSetRGB(ih:PIhandle; name:Pchar; r:byte; g:byte; b:byte);
  1095.   begin
  1096.    
  1097.   end;
  1098.   function IupGetAttribute(ih:PIhandle; name:Pchar):Pchar;
  1099.   begin
  1100.    
  1101.   end;
  1102.   function IupGetInt(ih:PIhandle; name:Pchar):longint;
  1103.   begin
  1104.    
  1105.   end;
  1106.   function IupGetInt2(ih:PIhandle; name:Pchar):longint;
  1107.   begin
  1108.    
  1109.   end;
  1110.   function IupGetIntInt(ih:PIhandle; name:Pchar; i1:Plongint; i2:Plongint):longint;
  1111.   begin
  1112.    
  1113.   end;
  1114.   function IupGetFloat(ih:PIhandle; name:Pchar):single;
  1115.   begin
  1116.    
  1117.   end;
  1118.   function IupGetDouble(ih:PIhandle; name:Pchar):double;
  1119.   begin
  1120.    
  1121.   end;
  1122.   procedure IupGetRGB(ih:PIhandle; name:Pchar; r:Pbyte; g:Pbyte; b:Pbyte);
  1123.   begin
  1124.    
  1125.   end;
  1126.   procedure IupSetAttributeId(ih:PIhandle; name:Pchar; id:longint; value:Pchar);
  1127.   begin
  1128.    
  1129.   end;
  1130.   procedure IupSetStrAttributeId(ih:PIhandle; name:Pchar; id:longint; value:Pchar);
  1131.   begin
  1132.    
  1133.   end;
  1134.   procedure IupSetStrfId(ih:PIhandle; name:Pchar; id:longint; format:Pchar);
  1135.   begin
  1136.    
  1137.   end;
  1138.   procedure IupSetIntId(ih:PIhandle; name:Pchar; id:longint; value:longint);
  1139.   begin
  1140.    
  1141.   end;
  1142.   procedure IupSetFloatId(ih:PIhandle; name:Pchar; id:longint; value:single);
  1143.   begin
  1144.    
  1145.   end;
  1146.   procedure IupSetDoubleId(ih:PIhandle; name:Pchar; id:longint; value:double);
  1147.   begin
  1148.    
  1149.   end;
  1150.   procedure IupSetRGBId(ih:PIhandle; name:Pchar; id:longint; r:byte; g:byte;
  1151.               b:byte);
  1152.   begin
  1153.    
  1154.   end;
  1155.   function IupGetAttributeId(ih:PIhandle; name:Pchar; id:longint):Pchar;
  1156.   begin
  1157.    
  1158.   end;
  1159.   function IupGetIntId(ih:PIhandle; name:Pchar; id:longint):longint;
  1160.   begin
  1161.    
  1162.   end;
  1163.   function IupGetFloatId(ih:PIhandle; name:Pchar; id:longint):single;
  1164.   begin
  1165.    
  1166.   end;
  1167.   function IupGetDoubleId(ih:PIhandle; name:Pchar; id:longint):double;
  1168.   begin
  1169.    
  1170.   end;
  1171.   procedure IupGetRGBId(ih:PIhandle; name:Pchar; id:longint; r:Pbyte; g:Pbyte;
  1172.               b:Pbyte);
  1173.   begin
  1174.    
  1175.   end;
  1176.   procedure IupSetAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:Pchar);
  1177.   begin
  1178.    
  1179.   end;
  1180.   procedure IupSetStrAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:Pchar);
  1181.   begin
  1182.    
  1183.   end;
  1184.   procedure IupSetStrfId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; format:Pchar);
  1185.   begin
  1186.    
  1187.   end;
  1188.   procedure IupSetIntId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:longint);
  1189.   begin
  1190.    
  1191.   end;
  1192.   procedure IupSetFloatId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:single);
  1193.   begin
  1194.    
  1195.   end;
  1196.   procedure IupSetDoubleId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:double);
  1197.   begin
  1198.    
  1199.   end;
  1200.   procedure IupSetRGBId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; r:byte;
  1201.               g:byte; b:byte);
  1202.   begin
  1203.    
  1204.   end;
  1205.   function IupGetAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):Pchar;
  1206.   begin
  1207.    
  1208.   end;
  1209.   function IupGetIntId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):longint;
  1210.   begin
  1211.    
  1212.   end;
  1213.   function IupGetFloatId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):single;
  1214.   begin
  1215.    
  1216.   end;
  1217.   function IupGetDoubleId2(ih:PIhandle; name:Pchar; lin:longint; col:longint):double;
  1218.   begin
  1219.    
  1220.   end;
  1221.   procedure IupGetRGBId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; r:Pbyte;
  1222.               g:Pbyte; b:Pbyte);
  1223.   begin
  1224.    
  1225.   end;
  1226.   procedure IupSetGlobal(name:Pchar; value:Pchar);
  1227.   begin
  1228.    
  1229.   end;
  1230.   procedure IupSetStrGlobal(name:Pchar; value:Pchar);
  1231.   begin
  1232.    
  1233.   end;
  1234.   function IupGetGlobal(name:Pchar):Pchar;
  1235.   begin
  1236.    
  1237.   end;
  1238.   function IupSetFocus(ih:PIhandle):PIhandle;
  1239.   begin
  1240.    
  1241.   end;
  1242.   function IupGetFocus:PIhandle;
  1243.   begin
  1244.    
  1245.   end;
  1246.   function IupPreviousField(ih:PIhandle):PIhandle;
  1247.   begin
  1248.    
  1249.   end;
  1250.   function IupNextField(ih:PIhandle):PIhandle;
  1251.   begin
  1252.    
  1253.   end;
  1254.   function IupGetCallback(ih:PIhandle; name:Pchar):Icallback;
  1255.   begin
  1256.    
  1257.   end;
  1258.   function IupSetCallback(ih:PIhandle; name:Pchar; func:Icallback):Icallback;
  1259.   begin
  1260.    
  1261.   end;
  1262.   function IupSetCallbacks(ih:PIhandle; name:Pchar; func:Icallback):PIhandle;
  1263.   begin
  1264.    
  1265.   end;
  1266.   function IupGetFunction(name:Pchar):Icallback;
  1267.   begin
  1268.    
  1269.   end;
  1270.   function IupSetFunction(name:Pchar; func:Icallback):Icallback;
  1271.   begin
  1272.    
  1273.   end;
  1274.   function IupGetHandle(name:Pchar):PIhandle;
  1275.   begin
  1276.    
  1277.   end;
  1278.   function IupSetHandle(name:Pchar; ih:PIhandle):PIhandle;
  1279.   begin
  1280.    
  1281.   end;
  1282.   function IupGetAllNames(names:PPchar; n:longint):longint;
  1283.   begin
  1284.    
  1285.   end;
  1286.   function IupGetAllDialogs(names:PPchar; n:longint):longint;
  1287.   begin
  1288.    
  1289.   end;
  1290.   function IupGetName(ih:PIhandle):Pchar;
  1291.   begin
  1292.    
  1293.   end;
  1294.   procedure IupSetAttributeHandle(ih:PIhandle; name:Pchar; ih_named:PIhandle);
  1295.   begin
  1296.    
  1297.   end;
  1298.   function IupGetAttributeHandle(ih:PIhandle; name:Pchar):PIhandle;
  1299.   begin
  1300.    
  1301.   end;
  1302.   function IupGetClassName(ih:PIhandle):Pchar;
  1303.   begin
  1304.    
  1305.   end;
  1306.   function IupGetClassType(ih:PIhandle):Pchar;
  1307.   begin
  1308.    
  1309.   end;
  1310.   function IupGetAllClasses(names:PPchar; n:longint):longint;
  1311.   begin
  1312.    
  1313.   end;
  1314.   function IupGetClassAttributes(classname:Pchar; names:PPchar; n:longint):longint;
  1315.   begin
  1316.    
  1317.   end;
  1318.   function IupGetClassCallbacks(classname:Pchar; names:PPchar; n:longint):longint;
  1319.   begin
  1320.    
  1321.   end;
  1322.   procedure IupSaveClassAttributes(ih:PIhandle);
  1323.   begin
  1324.    
  1325.   end;
  1326.   procedure IupCopyClassAttributes(src_ih:PIhandle; dst_ih:PIhandle);
  1327.   begin
  1328.    
  1329.   end;
  1330.   procedure IupSetClassDefaultAttribute(classname:Pchar; name:Pchar; value:Pchar);
  1331.   begin
  1332.    
  1333.   end;
  1334.   function IupClassMatch(ih:PIhandle; classname:Pchar):longint;
  1335.   begin
  1336.    
  1337.   end;
  1338.   function IupCreate(classname:Pchar):PIhandle;
  1339.   begin
  1340.    
  1341.   end;
  1342.   function IupCreatev(classname:Pchar; params:Ppointer):PIhandle;
  1343.   begin
  1344.    
  1345.   end;
  1346.   function IupCreatep(classname:Pchar; first:pointer):PIhandle;
  1347.   begin
  1348.    
  1349.   end;
  1350.   function IupFill:PIhandle;
  1351.   begin
  1352.    
  1353.   end;
  1354.   function IupRadio(child:PIhandle):PIhandle;
  1355.   begin
  1356.    
  1357.   end;
  1358.   function IupVbox(child:PIhandle):PIhandle;
  1359.   begin
  1360.    
  1361.   end;
  1362.   function IupVboxv(children:PPIhandle):PIhandle;
  1363.   begin
  1364.    
  1365.   end;
  1366.   function IupZbox(child:PIhandle):PIhandle;
  1367.   begin
  1368.    
  1369.   end;
  1370.   function IupZboxv(children:PPIhandle):PIhandle;
  1371.   begin
  1372.    
  1373.   end;
  1374.   function IupHbox(child:PIhandle):PIhandle;
  1375.   begin
  1376.    
  1377.   end;
  1378.   function IupHboxv(children:PPIhandle):PIhandle;
  1379.   begin
  1380.    
  1381.   end;
  1382.   function IupNormalizer(ih_first:PIhandle):PIhandle;
  1383.   begin
  1384.    
  1385.   end;
  1386.   function IupNormalizerv(ih_list:PPIhandle):PIhandle;
  1387.   begin
  1388.    
  1389.   end;
  1390.   function IupCbox(child:PIhandle):PIhandle;
  1391.   begin
  1392.    
  1393.   end;
  1394.   function IupCboxv(children:PPIhandle):PIhandle;
  1395.   begin
  1396.    
  1397.   end;
  1398.   function IupSbox(child:PIhandle):PIhandle;
  1399.   begin
  1400.    
  1401.   end;
  1402.   function IupSplit(child1:PIhandle; child2:PIhandle):PIhandle;
  1403.   begin
  1404.    
  1405.   end;
  1406.   function IupScrollBox(child:PIhandle):PIhandle;
  1407.   begin
  1408.    
  1409.   end;
  1410.   function IupGridBox(child:PIhandle):PIhandle;
  1411.   begin
  1412.    
  1413.   end;
  1414.   function IupGridBoxv(children:PPIhandle):PIhandle;
  1415.   begin
  1416.    
  1417.   end;
  1418.   function IupExpander(child:PIhandle):PIhandle;
  1419.   begin
  1420.    
  1421.   end;
  1422.   function IupDetachBox(child:PIhandle):PIhandle;
  1423.   begin
  1424.    
  1425.   end;
  1426.   function IupBackgroundBox(child:PIhandle):PIhandle;
  1427.   begin
  1428.    
  1429.   end;
  1430.   function IupFrame(child:PIhandle):PIhandle;
  1431.   begin
  1432.    
  1433.   end;
  1434.   function IupImage(width:longint; height:longint; pixmap:Pbyte):PIhandle;
  1435.   begin
  1436.    
  1437.   end;
  1438.   function IupImageRGB(width:longint; height:longint; pixmap:Pbyte):PIhandle;
  1439.   begin
  1440.    
  1441.   end;
  1442.   function IupImageRGBA(width:longint; height:longint; pixmap:Pbyte):PIhandle;
  1443.   begin
  1444.    
  1445.   end;
  1446.   function IupItem(title:Pchar; action:Pchar):PIhandle;
  1447.   begin
  1448.    
  1449.   end;
  1450.   function IupSubmenu(title:Pchar; child:PIhandle):PIhandle;
  1451.   begin
  1452.    
  1453.   end;
  1454.   function IupSeparator:PIhandle;
  1455.   begin
  1456.    
  1457.   end;
  1458.   function IupMenu(child:PIhandle):PIhandle;
  1459.   begin
  1460.    
  1461.   end;
  1462.   function IupMenuv(children:PPIhandle):PIhandle;
  1463.   begin
  1464.    
  1465.   end;
  1466.   function IupButton(title:Pchar; action:Pchar):PIhandle;
  1467.   begin
  1468.    
  1469.   end;
  1470.   function IupCanvas(action:Pchar):PIhandle;
  1471.   begin
  1472.    
  1473.   end;
  1474.   function IupDialog(child:PIhandle):PIhandle;
  1475.   begin
  1476.    
  1477.   end;
  1478.   function IupUser:PIhandle;
  1479.   begin
  1480.    
  1481.   end;
  1482.   function IupLabel(title:Pchar):PIhandle;
  1483.   begin
  1484.    
  1485.   end;
  1486.   function IupList(action:Pchar):PIhandle;
  1487.   begin
  1488.    
  1489.   end;
  1490.   function IupText(action:Pchar):PIhandle;
  1491.   begin
  1492.    
  1493.   end;
  1494.   function IupMultiLine(action:Pchar):PIhandle;
  1495.   begin
  1496.    
  1497.   end;
  1498.   function IupToggle(title:Pchar; action:Pchar):PIhandle;
  1499.   begin
  1500.    
  1501.   end;
  1502.   function IupTimer:PIhandle;
  1503.   begin
  1504.    
  1505.   end;
  1506.   function IupClipboard:PIhandle;
  1507.   begin
  1508.    
  1509.   end;
  1510.   function IupProgressBar:PIhandle;
  1511.   begin
  1512.    
  1513.   end;
  1514.   function IupVal(_type:Pchar):PIhandle;
  1515.   begin
  1516.    
  1517.   end;
  1518.   function IupTabs(child:PIhandle):PIhandle;
  1519.   begin
  1520.    
  1521.   end;
  1522.   function IupTabsv(children:PPIhandle):PIhandle;
  1523.   begin
  1524.    
  1525.   end;
  1526.   function IupTree:PIhandle;
  1527.   begin
  1528.    
  1529.   end;
  1530.   function IupLink(url:Pchar; title:Pchar):PIhandle;
  1531.   begin
  1532.    
  1533.   end;
  1534.   function IupFlatButton(title:Pchar):PIhandle;
  1535.   begin
  1536.    
  1537.   end;
  1538.   function IupAnimatedLabel(animation:PIhandle):PIhandle;
  1539.   begin
  1540.    
  1541.   end;
  1542.   function IupDatePick:PIhandle;
  1543.   begin
  1544.    
  1545.   end;
  1546.   function IupCalendar:PIhandle;
  1547.   begin
  1548.    
  1549.   end;
  1550.   function IupSpin:PIhandle;
  1551.   begin
  1552.    
  1553.   end;
  1554.   function IupSpinbox(child:PIhandle):PIhandle;
  1555.   begin
  1556.    
  1557.   end;
  1558.   function IupStringCompare(str1:Pchar; str2:Pchar; casesensitive:longint; lexicographic:longint):longint;
  1559.   begin
  1560.    
  1561.   end;
  1562.   function IupSaveImageAsText(ih:PIhandle; file_name:Pchar; format:Pchar; name:Pchar):longint;
  1563.   begin
  1564.    
  1565.   end;
  1566.   procedure IupTextConvertLinColToPos(ih:PIhandle; lin:longint; col:longint; pos:Plongint);
  1567.   begin
  1568.    
  1569.   end;
  1570.   procedure IupTextConvertPosToLinCol(ih:PIhandle; pos:longint; lin:Plongint; col:Plongint);
  1571.   begin
  1572.    
  1573.   end;
  1574.   function IupConvertXYToPos(ih:PIhandle; x:longint; y:longint):longint;
  1575.   begin
  1576.    
  1577.   end;
  1578.   procedure IupStoreGlobal(name:Pchar; value:Pchar);
  1579.   begin
  1580.    
  1581.   end;
  1582.   procedure IupStoreAttribute(ih:PIhandle; name:Pchar; value:Pchar);
  1583.   begin
  1584.    
  1585.   end;
  1586.   procedure IupSetfAttribute(ih:PIhandle; name:Pchar; format:Pchar);
  1587.   begin
  1588.    
  1589.   end;
  1590.   procedure IupStoreAttributeId(ih:PIhandle; name:Pchar; id:longint; value:Pchar);
  1591.   begin
  1592.    
  1593.   end;
  1594.   procedure IupSetfAttributeId(ih:PIhandle; name:Pchar; id:longint; f:Pchar);
  1595.   begin
  1596.    
  1597.   end;
  1598.   procedure IupStoreAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; value:Pchar);
  1599.   begin
  1600.    
  1601.   end;
  1602.   procedure IupSetfAttributeId2(ih:PIhandle; name:Pchar; lin:longint; col:longint; format:Pchar);
  1603.   begin
  1604.    
  1605.   end;
  1606.   function IupTreeSetUserId(ih:PIhandle; id:longint; userid:pointer):longint;
  1607.   begin
  1608.    
  1609.   end;
  1610.   function IupTreeGetUserId(ih:PIhandle; id:longint):pointer;
  1611.   begin
  1612.    
  1613.   end;
  1614.   function IupTreeGetId(ih:PIhandle; userid:pointer):longint;
  1615.   begin
  1616.    
  1617.   end;
  1618.   procedure IupTreeSetAttributeHandle(ih:PIhandle; name:Pchar; id:longint; ih_named:PIhandle);
  1619.   begin
  1620.    
  1621.   end;
  1622.   procedure IupTreeSetAttribute(ih:PIhandle; name:Pchar; id:longint; value:Pchar);
  1623.   begin
  1624.    
  1625.   end;
  1626.   procedure IupTreeStoreAttribute(ih:PIhandle; name:Pchar; id:longint; value:Pchar);
  1627.   begin
  1628.    
  1629.   end;
  1630.   function IupTreeGetAttribute(ih:PIhandle; name:Pchar; id:longint):Pchar;
  1631.   begin
  1632.    
  1633.   end;
  1634.   function IupTreeGetInt(ih:PIhandle; name:Pchar; id:longint):longint;
  1635.   begin
  1636.    
  1637.   end;
  1638.   function IupTreeGetFloat(ih:PIhandle; name:Pchar; id:longint):single;
  1639.   begin
  1640.    
  1641.   end;
  1642.   procedure IupTreeSetfAttribute(ih:PIhandle; name:Pchar; id:longint; format:Pchar);
  1643.   begin
  1644.    
  1645.   end;
  1646.   function IupGetActionName:Pchar;
  1647.   begin
  1648.    
  1649.   end;
  1650.   function IupMapFont(iupfont:Pchar):Pchar;
  1651.   begin
  1652.    
  1653.   end;
  1654.   function IupUnMapFont(driverfont:Pchar):Pchar;
  1655.   begin
  1656.    
  1657.   end;
  1658.   function IupFileDlg:PIhandle;
  1659.   begin
  1660.    
  1661.   end;
  1662.   function IupMessageDlg:PIhandle;
  1663.   begin
  1664.    
  1665.   end;
  1666.   function IupColorDlg:PIhandle;
  1667.   begin
  1668.    
  1669.   end;
  1670.   function IupFontDlg:PIhandle;
  1671.   begin
  1672.    
  1673.   end;
  1674.   function IupProgressDlg:PIhandle;
  1675.   begin
  1676.    
  1677.   end;
  1678.   function IupGetFile(arq:Pchar):longint;
  1679.   begin
  1680.    
  1681.   end;
  1682.   procedure IupMessage(title:Pchar; msg:Pchar);
  1683.   begin
  1684.    
  1685.   end;
  1686.   procedure IupMessagef(title:Pchar; format:Pchar);
  1687.   begin
  1688.    
  1689.   end;
  1690.   function IupAlarm(title:Pchar; msg:Pchar; b1:Pchar; b2:Pchar; b3:Pchar):longint;
  1691.   begin
  1692.    
  1693.   end;
  1694.   function IupScanf(format:Pchar):longint;
  1695.   begin
  1696.    
  1697.   end;
  1698.   function IupListDialog(_type:longint; title:Pchar; size:longint; list:PPchar; op:longint;
  1699.              max_col:longint; max_lin:longint; marks:Plongint):longint;
  1700.   begin
  1701.    
  1702.   end;
  1703.   function IupGetText(title:Pchar; text:Pchar; maxsize:longint):longint;
  1704.   begin
  1705.    
  1706.   end;
  1707.   function IupGetColor(x:longint; y:longint; r:Pbyte; g:Pbyte; b:Pbyte):longint;
  1708.   begin
  1709.    
  1710.   end;
  1711.   function IupGetParam(title:Pchar; action:Iparamcb; user_data:pointer; format:Pchar):longint;
  1712.   begin
  1713.    
  1714.   end;
  1715.   function IupGetParamv(title:Pchar; action:Iparamcb; user_data:pointer; format:Pchar; param_count:longint;
  1716.              param_extra:longint; param_data:Ppointer):longint;
  1717.   begin
  1718.    
  1719.   end;
  1720.   function IupParamf(format:Pchar):PIhandle;
  1721.   begin
  1722.    
  1723.   end;
  1724.   function IupParamBox(parent:PIhandle; params:PPIhandle; count:longint):PIhandle;
  1725.   begin
  1726.    
  1727.   end;
  1728.   function IupLayoutDialog(dialog:PIhandle):PIhandle;
  1729.   begin
  1730.    
  1731.   end;
  1732.   function IupElementPropertiesDialog(elem:PIhandle):PIhandle;
  1733.   begin
  1734.    
  1735.   end;}
  1736.     { was #define dname(params) para_def_expr }
  1737.     { argument types are unknown }
  1738.     { return type might be wrong }  
  1739.     function iup_isshift(_s : string) : boolean;
  1740.     begin
  1741.       iup_isshift:=(_s[0])='S';
  1742.     end;
  1743.  
  1744.   { was #define dname(params) para_def_expr }
  1745.   { argument types are unknown }
  1746.   { return type might be wrong }  
  1747.   function iup_iscontrol(_s : string) : boolean;
  1748.   begin
  1749.     iup_iscontrol:=(_s[1])='C';
  1750.   end;
  1751.  
  1752.   { was #define dname(params) para_def_expr }
  1753.   { argument types are unknown }
  1754.   { return type might be wrong }  
  1755.   function iup_isbutton1(_s : string) : boolean;
  1756.   begin
  1757.     iup_isbutton1:=(_s[2])='1';
  1758.   end;
  1759.  
  1760.   { was #define dname(params) para_def_expr }
  1761.   { argument types are unknown }
  1762.   { return type might be wrong }  
  1763.   function iup_isbutton2(_s : string) : boolean;
  1764.   begin
  1765.     iup_isbutton2:=(_s[3])='2';
  1766.   end;
  1767.  
  1768.   { was #define dname(params) para_def_expr }
  1769.   { argument types are unknown }
  1770.   { return type might be wrong }  
  1771.   function iup_isbutton3(_s : string) : boolean;
  1772.   begin
  1773.     iup_isbutton3:=(_s[4])='3';
  1774.   end;
  1775.  
  1776.   { was #define dname(params) para_def_expr }
  1777.   { argument types are unknown }
  1778.   { return type might be wrong }  
  1779.   function iup_isdouble(_s : string) : boolean;
  1780.   begin
  1781.     iup_isdouble:=(_s[5])='D';
  1782.   end;
  1783.  
  1784.   { was #define dname(params) para_def_expr }
  1785.   { argument types are unknown }
  1786.   { return type might be wrong }  
  1787.   function iup_isalt(_s : string) : boolean;
  1788.   begin
  1789.     iup_isalt:=(_s[6])='A';
  1790.   end;
  1791.  
  1792.   { was #define dname(params) para_def_expr }
  1793.   { argument types are unknown }
  1794.   { return type might be wrong }  
  1795.   function iup_issys(_s : string) : boolean;
  1796.   begin
  1797.     iup_issys:=(_s[7])='Y';
  1798.   end;
  1799.  
  1800.   { was #define dname(params) para_def_expr }
  1801.   { argument types are unknown }
  1802.   { return type might be wrong }  
  1803.   function iup_isbutton4(_s : string) : boolean;
  1804.   begin
  1805.     iup_isbutton4:=(_s[8])='4';
  1806.   end;
  1807.  
  1808.   { was #define dname(params) para_def_expr }
  1809.   { argument types are unknown }
  1810.   { return type might be wrong }  
  1811.   function iup_isbutton5(_s : string) : boolean;
  1812.   begin
  1813.     iup_isbutton5:=(_s[9])='5';
  1814.   end;
  1815.  
  1816.  
  1817. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!