https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=ProgressClearMessage_%28ihm%29 2026-05-07T16:54:53Z Historique pour cette page sur le wiki MediaWiki 1.18.6 https://frp.sage.fr/wiki1000/index.php?title=ProgressClearMessage_(ihm)&diff=1048&oldid=prev 2009-08-01T14:31:50Z

<p></p> <table class='diff diff-contentalign-left'> <col class='diff-marker' /> <col class='diff-content' /> <col class='diff-marker' /> <col class='diff-content' /> <tr valign='top'> <td colspan='2' style="background-color: white; color:black;">← Version précédente</td> <td colspan='2' style="background-color: white; color:black;">Version du 1 août 2009 à 14:31</td> </tr><tr><td colspan="2" class="diff-lineno">Ligne 9 :</td> <td colspan="2" class="diff-lineno">Ligne 9 :</td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"><div>Exemple:</div></td><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"><div>Exemple:</div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;source lang='delphi'&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>&#160;</div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">begin</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">*[[ProgressMessage </ins>(<ins class="diffchange diffchange-inline">ihm</ins>)<ins class="diffchange diffchange-inline">|Voir </ins>l'<ins class="diffchange diffchange-inline">exemple dans ProgressMessage</ins>.]<ins class="diffchange diffchange-inline">]</ins></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; ProgressClearMessage;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; //</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; Cursor := MyClass.CreateCursor;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; Cursor.Open;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; try</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; Cursor.First;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; while not Cursor.Eoi do</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; &#160; begin</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; &#160; &#160; if UserAbort then raise Exception.Create</del>(<del class="diffchange diffchange-inline">'Traitement interrompu'</del>)<del class="diffchange diffchange-inline">;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; &#160; &#160; ProgressMessage(Format(_TP('Traitement de </del>l'<del class="diffchange diffchange-inline">'instance %s'),[Cursor.Instance</del>.<del class="diffchange diffchange-inline">Caption</del>]<del class="diffchange diffchange-inline">));</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; &#160; &#160; ...</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; &#160; &#160; Cursor.Next;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; &#160; end;&#160; </del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; finally </del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; Cursor.Close;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&#160; end;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">end;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div><del class="diffchange diffchange-inline">&lt;/source&gt;</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div></div></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"></td></tr> <tr><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"><div>Voir aussi:</div></td><td class='diff-marker'>&#160;</td><td style="background: #eee; color:black; font-size: smaller;"><div>Voir aussi:</div></td></tr> </table>

Syfre https://frp.sage.fr/wiki1000/index.php?title=ProgressClearMessage_(ihm)&diff=1038&oldid=prev 2009-08-01T14:07:49Z

<p>Nouvelle page : &lt;source lang=&#039;delphi&#039;&gt;procedure ProgressClearMessage;&lt;/source&gt; Cette procedure efface les messages de progression dans l&#039;interface utilisateur. {|class=&quot;wikitable&quot; |- |Pas de param...</p> <p><b>Nouvelle page</b></p><div>&lt;source lang='delphi'&gt;procedure ProgressClearMessage;&lt;/source&gt;<br /> <br /> Cette procedure efface les messages de progression dans l'interface utilisateur.<br /> <br /> {|class=&quot;wikitable&quot;<br /> |-<br /> |Pas de paramètre<br /> |}<br /> <br /> Exemple:<br /> &lt;source lang='delphi'&gt;<br /> begin<br /> ProgressClearMessage;<br /> //<br /> Cursor := MyClass.CreateCursor;<br /> Cursor.Open;<br /> try<br /> Cursor.First;<br /> while not Cursor.Eoi do<br /> begin<br /> if UserAbort then raise Exception.Create('Traitement interrompu');<br /> ProgressMessage(Format(_TP('Traitement de l''instance %s'),[Cursor.Instance.Caption]));<br /> ...<br /> Cursor.Next;<br /> end; <br /> finally <br /> Cursor.Close;<br /> end;<br /> end;<br /> &lt;/source&gt;<br /> <br /> Voir aussi:<br /> <br /> {{Footer|Interactions utilisateurs (code)}}<br /> [[category:Interactions utilisateurs]]</div>

Syfre