Index: freexp/xp4o2.pas
===================================================================
RCS file: /server/cvs/freexp/xp4o2.pas,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -r1.15 -r1.16
--- freexp/xp4o2.pas 1 Jan 2005 11:16:30 -0000 1.15
+++ freexp/xp4o2.pas 21 Aug 2005 05:52:55 -0000 1.16
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp4o2.pas,v 1.15 2005/01/01 11:16:30 mw Exp $ }
+{ $Id: xp4o2.pas,v 1.16 2005/08/21 05:52:55 mw Exp $ }
{ CrossPoint: DBs packen, Kommentarbaum u.a. }
@@ -558,6 +558,7 @@
var
f: File;
FSize: Word;
+ zwiref: string; { HJT 15.08.2005 }
begin
if ReCount(betr)=0 then;
rmessage(475); { 'Kommentarbaum einlesen...' }
@@ -575,9 +576,13 @@
bez:=GetBezug(hdp^.ref);
if bez<>0 then
dbGo(mbase,bez)
- else
- nullid:=MsgidIndex(hdp^.ref);
- end;
+ else begin
+ zwiref := hdp^.ref;
+ if left(zwiref,1)='<' then delfirst(zwiref);
+ if right(zwiref,1)='>' then dellast(zwiref);
+ nullid:=MsgidIndex(zwiref);
+ end;
+ end;
inc(n);
until (n=emax) or (bez=0);
dispose(hdp);
@@ -629,6 +634,7 @@
dat2 : longint;
mi : shortint;
vor : boolean;
+ zwiref : string; { HJT 15.08.2005 }
begin
new(hdp);
mi:=dbGetIndex(bezbase);
@@ -636,7 +642,13 @@
BezSeek:=false;
ReadHeader(hdp^,hds,true);
if (hds>1) and (hdp^.ref<>'') then begin
- ref:=MsgidIndex(hdp^.ref);
+ { HJT 15.08.2005 start }
+ zwiref := hdp^.ref;
+ if left(zwiref,1)='<' then delfirst(zwiref);
+ if right(zwiref,1)='>' then dellast(zwiref);
+ ref:=MsgidIndex(zwiref);
+ { ref:=MsgidIndex(hdp^.ref); }
+ { HJT 15.08.2005 end }
dbSeek(bezbase,beiRef,dbLongStr(ref));
if dbFound then begin
vor:=true;
@@ -927,6 +939,11 @@
end.
{
$Log: xp4o2.pas,v $
+ Revision 1.16 2005/08/21 05:52:55 mw
+ HJT: - Verbesserung der Bezugsverkettung:
+ Bei Refernences werden jetzt die begrenzenden spitzen Klammern
+ entfernt.
+
Revision 1.15 2005/01/01 11:16:30 mw
MW: - Willkommen im Jahr 2005
Index: freexp/xp9.pas
===================================================================
RCS file: /server/cvs/freexp/xp9.pas,v
retrieving revision 1.26
retrieving revision 1.27
diff -u -r1.26 -r1.27
--- freexp/xp9.pas 9 Apr 2005 15:55:52 -0000 1.26
+++ freexp/xp9.pas 21 Aug 2005 10:47:01 -0000 1.27
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9.pas,v 1.26 2005/04/09 15:55:52 mw Exp $ }
+{ $Id: xp9.pas,v 1.27 2005/08/21 10:47:01 mw Exp $ }
{ CrossPoint - UniSel (Boxen, Gruppen, Systeme, Kurznamen, Mime-Typen) }
@@ -152,10 +152,7 @@
function UniSel(typ:byte; edit:boolean; default:string):string;
const maxgl = 40;
dsellen = 20;
-var d : DB;
- p0,p,gl : integer;
- t : taste;
- drec : array[1..maxgl] of longint;
+var t : taste;
x,y : byte;
width : byte;
buttons : string[60];
@@ -1105,6 +1102,9 @@
end.
{
$Log: xp9.pas,v $
+ Revision 1.27 2005/08/21 10:47:01 mw
+ MW: - Fix Edit/Viewer
+
Revision 1.26 2005/04/09 15:55:52 mw
MW: - Kleinen Typo beseitigt.
Index: freexp/xp9mime.pas
===================================================================
RCS file: /server/cvs/freexp/xp9mime.pas,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- freexp/xp9mime.pas 4 Mar 2005 14:20:59 -0000 1.1
+++ freexp/xp9mime.pas 21 Aug 2005 10:47:01 -0000 1.2
@@ -6,7 +6,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9mime.pas,v 1.1 2005/03/04 14:20:59 mw Exp $ }
+{ $Id: xp9mime.pas,v 1.2 2005/08/21 10:47:01 mw Exp $ }
{ --- Bearbeitungs-Routinen für MIME-Typen-Liste ---------------- }
{$I XPDEFINE.INC}
@@ -16,6 +16,12 @@
interface
+const maxgl = 40;
+var d : pointer;
+ drec : array[1..maxgl] of longint;
+ p0,p,gl : integer;
+
+
procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string;
var brk:boolean);
procedure EditMimetyp(isNew: Boolean);
@@ -26,11 +32,6 @@
uses xp3,typeform,xp1,resource,maske,xp0,xp9sel,dbase,datadef,database,
xp2b,xp1input;
-const maxgl = 40;
-var d : DB;
- drec : array[1..maxgl] of longint;
- p0,p,gl : integer;
-
{ --- Bearbeitungs-Routinen für MIME-Typen-Liste ------------------}
procedure ReadMimetyp(edit:boolean; var typ,ext,prog:string;
@@ -151,6 +152,9 @@
end.
{
$Log: xp9mime.pas,v $
+ Revision 1.2 2005/08/21 10:47:01 mw
+ MW: - Fix Edit/Viewer
+
Revision 1.1 2005/03/04 14:20:59 mw
MW: - Speicherproblem in xp9.pas beseitigt.
(Unit xp9 wurde zu groß fürs Overlay)
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.45
retrieving revision 1.47
diff -u -r1.45 -r1.47
--- freexp/doc/snapshot.dq 6 Jul 2005 15:43:09 -0000 1.45
+++ freexp/doc/snapshot.dq 21 Aug 2005 10:53:59 -0000 1.47
@@ -64,7 +64,8 @@
J. 2. Inoffizelle Citycarrier-Edition vom 14.03.2005, 10:30 Uhr
K. 3. Inoffizelle Citycarrier-Edition vom 17.03.2005, 20:10 Uhr
L. Inoffizelle Extented-Command-Edition vom 06.07.2005, 18:00 Uhr
-M. Snapshot vom xx.xx.2005, xx:xx Uhr
+M. Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
+N. Snapshot vom xx.xx.2005, xx:xx Uhr
###
1. FreeXP - Support und Kontakte
@@ -4784,7 +4785,29 @@
%
%
+%Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
+%---------------------------------------------------------------
+M. Inoffizelle Bezugsverkettungs-Edition vom 21.08.2005, 13:00 Uhr
+--------------------------------------------------------------------
+■ 21.08.2005
+-------------
+HJT:
+%! Bezugsverkettung verbessert.
+- Bei References werden jetzt die begrenzenden
+ spitzen Klammern entfernt.
+ XP4O2.PAS
+
+MW:
+%! Edit/Viewer funktioniert wieder.
+- Durch Betreibsblindheit wurde der Menuepunkt
+ Edit/Viewer funktionsunfähig gemacht. Soll
+ heißen: Bei jedem Änderungsversuch kam es
+ zum Absturz wegen DB-Error.
+ XP9.PAS, Xp9MIME.PAS
+
+%
+%
%Snapshot vom xx.xx.2005, xx:xx Uhr
%----------------------------------
-M. Snapshot vom xx.xx.2005, xx:xx Uhr
+N. Snapshot vom xx.xx.2005, xx:xx Uhr
---------------------------------------
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
[EMAIL PROTECTED]
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
