https://frp.sage.fr/wiki1000/index.php?action=history&feed=atom&title=ProgressMessage_%28ihm%29
ProgressMessage (ihm) - Historique des versions
2026-05-07T19:01:53Z
Historique pour cette page sur le wiki
MediaWiki 1.18.6
https://frp.sage.fr/wiki1000/index.php?title=ProgressMessage_(ihm)&diff=1045&oldid=prev
Syfre le 1 août 2009 à 14:29
2009-08-01T14:29:06Z
<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:29</td>
</tr><tr><td colspan="2" class="diff-lineno">Ligne 6 :</td>
<td colspan="2" class="diff-lineno">Ligne 6 :</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>|-</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>|-</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>|iMessage</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>|iMessage</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div>|Le message <del class="diffchange diffchange-inline">a </del>afficher</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>|Le message <ins class="diffchange diffchange-inline">à </ins>afficher</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>|}</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>|}</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">{{info|Suivant le style de l'interface utilisateur le message peut être affiché dans une zone libellé ou dans une liste.}}</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Exemple:</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>Exemple:</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div><source lang='delphi'></div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div><source lang='delphi'></div></td></tr>
<tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div>begin</div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">var ctn:Integer;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>begin  </div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">  ctn := 0;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">  ProgressClear;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">  ProgressClearMessage;</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">  ProgressMax(100);</ins></div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins class="diffchange diffchange-inline">  //</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   Cursor := MyClass.CreateCursor;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   Cursor := MyClass.CreateCursor;</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   Cursor.Open;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   Cursor.Open;</div></td></tr>
<tr><td colspan="2" class="diff-lineno">Ligne 18 :</td>
<td colspan="2" class="diff-lineno">Ligne 26 :</td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   while not Cursor.Eoi do</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   while not Cursor.Eoi do</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>     begin</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>     begin</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">      ....</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>       if UserAbort then raise Exception.Create('Traitement interrompu');</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>       if UserAbort then raise Exception.Create('Traitement interrompu');</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>       ProgressMessage(Format(_TP('Traitement de l''instance %s'),[Cursor.Instance.Caption]));</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>       ProgressMessage(Format(_TP('Traitement de l''instance %s'),[Cursor.Instance.Caption]));</div></td></tr>
<tr><td class='diff-marker'>−</td><td style="background: #ffa; color:black; font-size: smaller;"><div>       <del class="diffchange diffchange-inline">...</del></div></td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div>       <ins class="diffchange diffchange-inline">ProgressValue(ctn mod 100);</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>       Cursor.Next;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>       Cursor.Next;</div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">      ctn := ctn+1;</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>     end;   </div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>     end;   </div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   finally  </div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   finally  </div></td></tr>
<tr><td colspan="2"> </td><td class='diff-marker'>+</td><td style="background: #cfc; color:black; font-size: smaller;"><div><ins style="color: red; font-weight: bold; text-decoration: none;">  ProgressFull;</ins></div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   Cursor.Close;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   Cursor.Close;</div></td></tr>
<tr><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   end;</div></td><td class='diff-marker'> </td><td style="background: #eee; color:black; font-size: smaller;"><div>   end;</div></td></tr>
</table>
Syfre
https://frp.sage.fr/wiki1000/index.php?title=ProgressMessage_(ihm)&diff=1037&oldid=prev
Syfre : Nouvelle page : <source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source> Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...
2009-08-01T14:06:15Z
<p>Nouvelle page : <source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source> Cette procedure affiche un message de progression dans l'interface utilisateur. {|class="wikitable"...</p>
<p><b>Nouvelle page</b></p><div><source lang='delphi'>procedure ProgressMessage(const iMessage:string);</source><br />
<br />
Cette procedure affiche un message de progression dans l'interface utilisateur.<br />
<br />
{|class="wikitable"<br />
|-<br />
|iMessage<br />
|Le message a afficher<br />
|}<br />
<br />
Exemple:<br />
<source lang='delphi'><br />
begin<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 />
</source><br />
<br />
Voir aussi:<br />
<br />
{{Footer|Interactions utilisateurs (code)}}<br />
[[category:Interactions utilisateurs]]</div>
Syfre