MZP  ╕@Р║┤ ═!╕L═!РРThis program must be run under Microsoft Windows. $NE  Г@PьвP q Б0АБ 0АБ!Г0АБд0АБм60А Бт╙0АА╡0А├0АPonxImgLIBENTRYWEP╕╦╕╦ Borland Standard File■@|■А~■ @ ■■■■■■АmFormUIManagerUIContainerUIObjectPageFormObjButtonTextField ■АўАё      ░f&open+close+canArrive2arrive2setFocus+canDepart2removeFocus+depart2mouseEnter,mouseExit,mouseMove,mouseDown,mouseUp,mouseDouble,mouseRightDown,mouseRightUp,mouseRightDouble,keyPhysical-keyChar-action.menuAction/timer4pushButton+changeValue0calcField+run+newValue+proc+error3status1mouseClick,init+stringListChange+UsesTypeVarConstProc■А▄ АY  ▀/КА:  А#Var GlobalBuffer string endVar VarCя/й]ю/иииД*хААА╞╞УР■3?╧ PONX image.4Cd:\w\Corel\WordPerfect Office 2000\Paradox\PDOXHome\DEFAULT.FTB#Formdata1POST>     А АЗ  Eю/иА   А╨/К *02< А   JА АM RemplString1┤EWА╟  ж method pushButton(var eventInfo Event) ; Michel Claveau Informatique var gr1 graphic endvar gr1.readFromFile(workingdir()+"\\ga2.jpg") GRAF1=gr1 endMethod pushButton+АEW" :02< АА Ащ  !aВXА   ВX! 02< А     Charge l'image par dщfaut┴ВААА А╝GRAF1├%°№А   №  ТP02< А+   d ╠А А╝GRAF2$%°№А   №  ТP02< А+   d ╠А А  RemplString3 5%Хл ╬АЖ  e method pushButton(var eventInfo Event) ; Michel Claveau Informatique var oa oleauto str,sret string gr1 graphic endvar gr1=GRAF1 gr1.writeToFile("C:\\Temp.jpg") if not oa.open("Ponx.Mci") then errorshow() return endif sleep() ; traitements sur une image : on prend un fichier, rщsultat dans un autre fichier str="lstrt=["+TEXTBUF+"] trtimage('c:\\\\Temp.jpg','c:\\\\Temp2.jpg', lstrt)" sret=oa.PRun(str) sleep() gr1.readFromFile("C:\\Temp2.jpg") GRAF2=gr1 msginfo("Traitement terminщ","L'image rщsultante est sauvegardщe sous C:\\Temp2.jpg") oa.close() endMethod pushButton+Ал ╬ :02< АА Аъ  Yў∙▀А   ∙▀ 02< А      Executer (avec PONX)┴∙АА АА АR RemplString2  О┤н,А╠  л method pushButton(var eventInfo Event) ; Michel Claveau Informatique if TEXTBUF.size()>0 then TEXTBUF=TEXTBUF+", " endif TEXTBUF=TEXTBUF+"'RESIZE=50'" endMethod pushButton+ Ан, :02< А А А╓    2H А   H   02< А     => 50 %┴HААА А╛TEXTBUF  юx■┐А   шЁб  ТP02< А+А  dАА ╠А АP RemplString4  Орн,А╩  й method pushButton(var eventInfo Event) ; Michel Claveau Informatique if TEXTBUF.size()>0 then TEXTBUF=TEXTBUF+", " endif TEXTBUF=TEXTBUF+"'ROTATE=90'" endMethod pushButton+ Ан,  :02< А А А█    s А   s    02< А     Rotation 90░┴sААА АT RemplString5 О н,А╬  н method pushButton(var eventInfo Event) ; Michel Claveau Informatique if TEXTBUF.size()>0 then TEXTBUF=TEXTBUF+", " endif TEXTBUF=TEXTBUF+"'FLIP=VERTICAL'" endMethod pushButton+Ан,  :02< АА А▄   h▌ А   ▌   02< А     Flip Vertical┴▌ААА АV RemplString6О8н,А╨  п method pushButton(var eventInfo Event) ; Michel Claveau Informatique if TEXTBUF.size()>0 then TEXTBUF=TEXTBUF+", " endif TEXTBUF=TEXTBUF+"'FLIP=HORIZONTAL'" endMethod pushButton+Ан, :02< АА А▐  h▌ А   ▌  02< А     Flip Horizontal┴▌ААА А RemplString7ОРн,А  ^ method pushButton(var eventInfo Event) ; Michel Claveau Informatique TEXTBUF="" endMethod pushButton+Ан, :02< АА Аф  Z∙ А   ∙  02< А     Vide les instructions┴∙ АА А[ RemplString8Оdн,А╒  ┤ method pushButton(var eventInfo Event) ; Michel Claveau Informatique if TEXTBUF.size()>0 then TEXTBUF=TEXTBUF+", " endif TEXTBUF=TEXTBUF+"'CROP=200,100,400,200'" endMethod pushButton+Ан, :02< АА Ач  aъ А   ъ  02< А      Crop 50,80,300,240┴ъАААА А'  юFЁ А   ┤┬ 02< А└└└   B X Vous pouvez щditer/modifier les instructions, avant d'ex"щcuter. Attention р la syntaxe.╪┤ААА Ал RemplString9 EWА%   method pushButton(var eventInfo Event) ; Michel Claveau Informatique var gr1 graphic fichier string fbi FileBrowserInfo endvar fbi.CustomFilter = "*.jpg;*.jpeg||" fileBrowserEx(fichier, fbi) gr1.readFromFile(fichier) GRAF1=gr1 endMethod pushButton+АEW :02< АА Ар  aВXА   ВX 02< А     Charge une image ┴ВАААJJМ  RemplString7  RemplString8  RemplString9■А6@ -╨╚*╨■АLЁ╝"Arial NarrowX╕_аиаиh╝"Arial NarrowX╕_аиаиЁР"Arial NarrowX╕_аиаи▄╝"Arial NarrowX╕_аиаи▄Р"Arial NarrowX╕_аиаи┤╝"ArialNarrowX╕_аиаи■А*V▒╬    Ж╢цF║╔М ╫ dr      °8дhY ф╚ ю ╔┴ CONTAINERЄ┴    ╧    d\bACTIVE>    ╧    ║▓г LASTMOUSECLICKEDФ\    ╧     0SUBJECTс▓    ╧    bZLASTMOUSERIGHTCLICKED<     ╧    0(SELFЖZ    ╧     #FORMDATA1╬д    ╧?    [Я Ш#PAGE2╡ ф    ╧    ╬F>V  REMPLSTRING9ё\(    ╧      #TEXTE21C┌▓    ╧    \#TEXTE20ё °    ╧      REMPLSTRING8ёr>    ╧     L#TEXTE18YЁ╚    ╧    rц▐ REMPLSTRING7ёB    ╧     }#TEXTE16)└Ш    ╧    B╢о REMPLSTRING6ё▐    ╧     о#TEXTE14∙Рh    ╧    Ж~ REMPLSTRING5ёто     ╧     ▀▓#TEXTE12╔`8     ╧    тV N  REMPLSTRING4ё▓~     ╧     Ї #TEXTE10Щ0      ╧    ▓г Ы TEXTBUFё} N     ╧     r j  REMPLSTRING2ё╧ Ы     ╧     A#TEXTE7╢ L %     ╧    ╧ A 9  REMPLSTRING3ёЮ j     ╧     r% #TEXTE5Е  Ї     ╧    Ю М Д GRAF2ёf 9     ╧     ╫ ╧ A GRAF1ё▒ Д     ╧      REMPLSTRING1ё ╧ "    ╧     г#TEXTE33ъ Б Y !    ╧      GLOBALBUFFERА╒    \ PUSHBUTTON╨ METHOD_SELFю EVENTINFO    ╜ Ум~╙ ╢  METHOD_SELF ╨ EVENTINFOю    r PUSHBUTTON╨ METHOD_SELFю EVENTINFO    Ў я METHOD_SELF ╨ EVENTINFOю    B PUSHBUTTON╨ METHOD_SELFю EVENTINFO    '=  METHOD_SELF ╨ EVENTINFOю     PUSHBUTTON╨ METHOD_SELFю EVENTINFO    XnQ METHOD_SELF ╨ EVENTINFOю    т PUSHBUTTON╨ METHOD_SELFю EVENTINFO    ЙЯВ METHOD_SELF ╨ EVENTINFOю    ▓ PUSHBUTTON╨ METHOD_SELFю EVENTINFO    ║╨│ METHOD_SELF ╨ EVENTINFOю    ╧  PUSHBUTTON╨ METHOD_SELFю EVENTINFO    ыф METHOD_SELF ╨ EVENTINFOю    Ю  PUSHBUTTON╨ METHOD_SELFю EVENTINFO    ╒2┴ъ METHOD_SELF ╨ EVENTINFOю      PUSHBUTTON╨ METHOD_SELFю EVENTINFO    McF METHOD_SELF ╨ EVENTINFOюGR1Ш   ╗FICHIER|   ╒FBI\   3OAИ   ИSTRP   ╒SRETl   ╒GR1<   ╗GR1Ш   ╗rВ ^rВ % v 3 * ■  rВ"№ № rВFF╢ rВ'rВ °°'rВ ╤╤'rВкк'rВ  аrВуу'rВ ╫ % РРРщшЄ    ` ╠ ║м   ` \   Ь╕д*Р ` P   |   \   ▐AP    ` P   Ш   |   P    ` ь■  Ш   *t `  т|   P   Ш   м   \   ь■  кHWYXWINDOWSTYLETITLEOPTIONSALLOWABLETYPESSELECTEDTYPEFILEFILTERSCUSTOMFILTERALIASPATHDRIVEDEFAULTEXTPATHONLYNEWFILEONLYGRAF1 +ш■   Щ№ ом   Щ   H      └%№■  (*ЩH   H   ╚%╝■   *tЩH   H   ф%    *tЩ >   ╝■  м   №■  H    TEXTBUF +шЇ№   ╩p Bм   ╩H   *t╩ #H   м   TEXTBUF +шT№   √№ ом   √   H      └%№■  (*√H   H   ╚%╝■   *t√H   H   %    *t√ >H   1╝■  №■     м   TEXTBUF +ш-√   , № ом   ,    H      └%№■  (*, H   H   ╚%╝■   *t, H   H   8%    *t,  >H   1╝■  №■     м   TEXTBUF +ш·   ] № ом   ]    H      └%№■  (*] H   H   ╚%╝■   *t] H   H   T%    *t]  >H   1╝■  №■     м   TEXTBUF +ш▀°   О№ ом   О   H      └%№■  (*ОH   H   ╚%╝■   *tОH   H   p%    *tО >H   1╝■  №■     м   TEXTBUF +ш╕ў   ┐L щм    ┐<   ╪■  *t ┐╠■  <   М╠■   ┐╠■  И   и╠■  &└■  Ё3 ┐┤■  'A┤■  ┐┐KA┐P   ─P■  %■   р%╨¤   *t┐l   ■  И   P   -А *t┐KA┐╠■  <   №╠■  ┐l¤  <   *t┐4MA┐╠■  И   ╠■  ┐ Т╪■  yl¤  vм   <   ╨¤  P■  X■  P   l   ┤■  └■  И   ╠■  GRAF1GRAF2TEXTBUF +шї   Ё"╚ Вм   Ё"T   Ш   |   =|   P%`   (T   Ё"Ё■  Ш   *tЁ" EШ   T   `   м   |   Ё■   GRAF1 +шЇ    шфє    яPж4бЬ№ЧрТ─НиИМГp~Ty8tojфe╚`└[дTЬOА  0*.jpg;*.jpeg||, 'CROP=200,100,400,200''FLIP=HORIZONTAL''FLIP=VERTICAL' 'ROTATE=90' 'RESIZE=50' C:\Temp.jpgPonx.Mcilstrt=[2] trtimage('c:\\Temp.jpg','c:\\Temp2.jpg', lstrt)PRUN C:\Temp2.jpgTraitement terminщ5L'image rщsultante est sauvegardщe sous C:\Temp2.jpg\ga2.jpg