ProgressMessageEx (ihm) - Historique des versions

Syfre le 9 février 2018 à 15:12

2018-02-09T15:12:57Z

Syfre le 9 février 2018 à 15:11

2018-02-09T15:11:58Z

Syfre : Page créée avec « procedure ProgressMessageEx(iStatus:TMessageStatus; const iMessage:string); Cette procedure affiche un message de progression dans l'interf... »

2018-02-09T15:09:54Z

Page créée avec « <source lang='delphi'>procedure ProgressMessageEx(iStatus:TMessageStatus; const iMessage:string);</source> Cette procedure affiche un message de progression dans l'interf... »

Nouvelle page

<source lang='delphi'>procedure ProgressMessageEx(iStatus:TMessageStatus; const iMessage:string);</source>

Cette procedure affiche un message de progression dans l'interface utilisateur.

{|class="wikitable"
|-
|iStatus
|Le type de message
|-
|iMessage
|Le message à afficher
|}

{{info|Suivant le style de l'interface utilisateur le message peut être affiché dans une zone libellé ou dans une liste.}}

Exemple:
<source lang='delphi'>
var ctn:Integer; aReason:string;
begin
ctn := 0;
ProgressClear;
ProgressClearMessage;
ProgressMax(100);
//
Cursor := MyClass.CreateCursor;
Cursor.Open;
try
Cursor.First;
while not Cursor.Eoi do
begin
....
if UserAbort then raise Exception.Create('Traitement interrompu');

if _doSomething(aReason)
then ProgressMessage(msgSuccess,Format(_TP('Traitement de l''instance %s, OK'),[Cursor.Instance.Caption]))
else ProgressMessage(msgError,Format(_TP('Traitement de l''instance %s, Erreur %s'),[Cursor.Instance.Caption, aReason]));

ProgressValue(ctn mod 100);
Cursor.Next;
ctn := ctn+1;
end;
finally
ProgressFull;
Cursor.Close;
end;
end;
</source>

Voir aussi:
* [[ProgressMessage (ihm)|ProgressMessage]]

{{Footer|Interactions utilisateurs (code)}}
[[category:Interactions utilisateurs]]

@@ Ligne 1 : / Ligne 1 : @@
-<source lang='delphi'>procedure ProgressMessageEx(iStatus:TMessageStatus; const iMessage:string);</source>
+<source lang='delphi'>procedure ProgressMessageEx(iStatus:Integer; const iMessage:string);</source>
 Cette procedure affiche un message de progression dans l'interface utilisateur.
@@ Ligne 6 : / Ligne 6 : @@
 |-
 |iStatus
-|Le type de message
+|[[Type de message (enum)|Le type de message]]
 |-
 |iMessage

@@ Ligne 16 : / Ligne 16 : @@
 Exemple:
 <source lang='delphi'>
-var ctn:Integer; aReason:string;
+//Procedure Execute;
-begin
+var idx:Integer; AStr,Info:string;
-   ctn := 0;
+begin
    ProgressClear;
    ProgressClearMessage;
-   ProgressMax(100);
+   ProgressEvent('',0,0);
-   //
+   Info := 'Lot 1';
-  Cursor := MyClass.CreateCursor;
+   for idx:=1 to 100 do
-   Cursor.Open;
+   begin
-  try
+     AStr := inttostr(idx) + ' '+InstanceOID+' '+intTostr(Classmanager.CurrentTranContext);
-   Cursor.First;
+     if (idx mod 10=0) then Info := Format('lot %d',[1+(idx div 10)]);
-   while not Cursor.Eoi do
-    begin
-      ....
-      if UserAbort then raise Exception.Create('Traitement interrompu');
-      if _doSomething(aReason)
+     if idx mod 10=1 then
-        then ProgressMessage(msgSuccess,Format(_TP('Traitement de l''instance %s, OK'),[Cursor.Instance.Caption]))
+      begin
-        else ProgressMessage(msgError,Format(_TP('Traitement de l''instance %s, Erreur %s'),[Cursor.Instance.Caption, aReason]));
+        ProgressMessageEx(MSGSTATUS_HEADER,'Header: '+AStr);
+      end
-       ProgressValue(ctn mod 100);
+      else
-       Cursor.Next;
+     if idx mod 10=2 then
-       ctn := ctn+1;
+      begin
-    end;
+        ProgressMessageEx(MSGSTATUS_SUCCESS,'Success: '+AStr);
-  finally
+      end
-  ProgressFull;
+      else
-  Cursor.Close;
+     if idx mod 10=3 then
-   end;
+      begin
 end;
 </source>