ProgressMessageEx (ihm) - Historique des versions

Syfre le 9 février 2018 à 15:12

2018-02-09T15:12:57Z

← Version précédente		Version du 9 février 2018 à 15:12
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.		Cette procedure affiche un message de progression dans l'interface utilisateur.
Ligne 6 :		Ligne 6 :
	\|-		\|-
	\|iStatus		\|iStatus
	\|Le type de message		\|[[Type de message (enum)\|Le type de message]]
	\|-		\|-
	\|iMessage		\|iMessage

Syfre le 9 février 2018 à 15:11

2018-02-09T15:11:58Z

← Version précédente		Version du 9 février 2018 à 15:11
Ligne 16 :		Ligne 16 :
	Exemple:		Exemple:
	<source lang='delphi'>		<source lang='delphi'>
	var ~~ctn~~:Integer; ~~aReason~~:string;		//Procedure Execute;
	begin		var idx:Integer; AStr,Info:string;
	~~ctn := 0~~;		begin
			ProgressClear;
			ProgressMessage('Un processus exécuté');
			// TestPatternForEach2;

	ProgressClear;		ProgressClear;
	ProgressClearMessage;		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
			ProgressMessageEx(MSGSTATUS_ERROR,'Error: '+AStr);
			end
			else
			if idx mod 10=4 then
			begin
			ProgressMessageEx(MSGSTATUS_FAILED,'Failed: '+AStr);
			end
			else
			if idx mod 10=5 then
			begin
			ProgressMessageEx(MSGSTATUS_REQUIRE_ACTION,'Action: '+AStr);
			end
			else
			if idx mod 10=6 then
			begin
			ProgressMessageEx(MSGSTATUS_ALERT,'Alerte: '+AStr);
			end
			else
			ProgressMessage('Message: '+AStr);
			//
			ProgressEvent(Info,idx,100);
			if UserAbort then break;
			sleep(200);
			end;
			ProgressEvent('',100,100);
	end;		end;
	</source>		</source>

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]]

ProgressMessageEx (ihm) - Historique des versions

Syfre le 9 février 2018 à 15:12

Syfre le 9 février 2018 à 15:11

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

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