Index: freexp/xpmime.pas
===================================================================
RCS file: /server/cvs/freexp/xpmime.pas,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- freexp/xpmime.pas 2 Jan 2006 12:28:51 -0000 1.19
+++ freexp/xpmime.pas 20 Feb 2006 11:55:42 -0000 1.20
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xpmime.pas,v 1.19 2006/01/02 12:28:51 mw Exp $ }
+{ $Id: xpmime.pas,v 1.20 2006/02/20 11:55:42 mw Exp $ }
{ CrossPoint - Multipart-Nachrichten decodieren / lesen / extrahieren }
@@ -543,7 +543,9 @@
var i : integer;
-
+const { HJT 19.02.2006: 'Beenden' in der MP-Auswahl
}
+ exit_str : string = '·EXIT'; { verschieden zu jedem normalen Eintrag
}
+
begin { SelectMultiPart }
brk:=false;
fillchar(mpdata,sizeof(mpdata),0);
@@ -578,14 +580,21 @@
end
end
else begin
- listbox(56,min(screenlines-4,anzahl),getres2(2440,9) ); { 'mehrteilige
Nachricht' }
+ { HJT 19.02.2006 'Beenden' als letzten Auswahlpunkt aufnehmen, s.u.}
+ { listbox(56,min(screenlines-4,anzahl),getres2(2440,9) ); } {
'mehrteilige Nachricht' }
+ listbox(56,min(screenlines-4,anzahl+1),getres2(2440,9) ); {
'mehrteilige Nachricht' }
for i:=1 to anzahl do
with mf^[i] do
app_l(forms(sp((level-1)*2+1)+typname(typ,subtyp),25)+strsn(lines,6)+
' ' + fnform(fname,23) + ' ' + strs(i));
+ app_l(exit_str); { 19.02.2006 }
listTp(SMP_Keys);
ListSetStartpos(index);
list(brk);
+ { HJT 19.02.2006 }
+ if get_selection = exit_str then begin
+ brk:=true;
+ end;
if not brk then begin
mpdata:=mf^[ival(mid(get_selection,57))];
if FirstChar(mpdata.typ)=#0 then begin
@@ -800,6 +809,9 @@
end.
{
$Log: xpmime.pas,v $
+ Revision 1.20 2006/02/20 11:55:42 mw
+ HJT: - 'Beenden' in der MP-Auswahl
+
Revision 1.19 2006/01/02 12:28:51 mw
MW: - Frohes neues Jahr 2006
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
