expertenaustausch > comm.software.* > comm.software.40tude-dialog

Wolfgang Bauer (13.03.2018, 14:27)
Servus.

Ich habe jetzt das Script [1] eingebunden. Das funktioniert auch.

Mit dem Script [2] gibt es aber ein Problem beim Kompilieren des
OnBeforeSending.

BoxQuote_include.ds

Procedure BoxQuote ( var Msg: TStringlist);
Var
Ident : Integer;
Begin
If Not BM_RegexMatch(Msg.Text,BM_BoxReg,True) Then Exit;
Repeat
Ident := Msg.IndexOf(BM_CodeBox);
If Ident > -1 Then BM_Code_Box(Msg,Ident);
Until Ident = -1;
Repeat
Ident := Msg.IndexOf(BM_ClosedBox);
If Ident > -1 Then BM_Closed_Box(Msg,Ident);
Until Ident = -1;
Repeat
Ident := Msg.IndexOf(BM_OpenBox);
If Ident > -1 Then BM_Open_Box(Msg,Ident);
Until Ident = -1;
Repeat
Ident := Msg.IndexOf(BM_CodeEBox);
If Ident > -1 Then BM_Code_Box(Msg,Ident);
Until Ident = -1;
End;

Kompilieren fehlgeschlagen
[Error] BoxQuote_Include(1:11): Duplicate identifier 'BOXQUOTE'

Wolfgang
Fussnote(n):
============

[1] Fussnoten_include.ds
[2] BoxQuote_include.ds
Thomas Barghahn (13.03.2018, 15:05)
*Wolfgang 'Wolle' Bauer* meinte:
> Servus.


> Ich habe jetzt das Script [1] eingebunden. Das funktioniert auch.


> Mit dem Script [2] gibt es aber ein Problem beim Kompilieren des
> OnBeforeSending.


> BoxQuote_include.ds


[...]

> Kompilieren fehlgeschlagen
> [Error] BoxQuote_Include(1:11): Duplicate identifier 'BOXQUOTE'


> Fussnote(n):
> ============


> [1] Fussnoten_include.ds
> [2] BoxQuote_include.ds


Ist die SwissKnife aktiv?
Wenn ja, brauchst du diese Scripte nicht, denn diese sind schon in der
Selbigen vorhanden.

Freundliche Grüße
Thomas Barghahn
Wolfgang Bauer (13.03.2018, 15:24)
..:|Thomas Barghahn|:., Du hast geschrieben:

> Ist die SwissKnife aktiv?
> Wenn ja, brauchst du diese Scripte nicht, denn diese sind schon in der
> Selbigen vorhanden.


Ja die ist aktiv. Und mit Fußnote #fn# Run_doFootNoteNew := True;## funktioniert
es auch. Aber mit Run_BoxQuote := True; geht es nicht.

Oder sind die Tags falsch?

Box:
hier sollte der Text in ener
geschlossenen Box stehen
-

Wolfgang
Wolfgang Bauer (13.03.2018, 15:26)
..:|Thomas Barghahn|:., Du hast geschrieben:

> Ist die SwissKnife aktiv?
> Wenn ja, brauchst du diese Scripte nicht, denn diese sind schon in der
> Selbigen vorhanden.


Ja die ist aktiv. Und mit Fußnote #fn# Run_doFootNoteNew := True;##
funktioniert es auch.
In einer Testgruppe hat es eben noch funktioniert.

Aber mit Run_BoxQuote := True; geht es nicht.

Oder sind die Tags falsch?

Box:
hier sollte der Text in ener
geschlossenen Box stehen
-

Wolfgang
Thomas Barghahn (13.03.2018, 15:32)
*Wolfgang 'Wolle' Bauer* meinte:

> Ich habe jetzt das Script [1] eingebunden. Das funktioniert auch.


Freuen würde ich mich darüber, wenn der Fragende auch seine
Konfiguration preisgibt. Jenes würde in Zukunft auch Nachfragen und
unnötige Diskussionen vermeiden.

Eine Antwort auf deine Frage findest du hier:

,--[ Header der Antwort: ]
| From: Thomas Barghahn <Th.Barghahn>
| Newsgroups: de.comm.software.40tude-dialog
| Subject: Boxquote und Fußnoten (was: - no reply - ignore)
| Date: Tue, 13 Mar 2018 14:05:21 +0100
| Message-ID: <14nwzdv2fcojw.dlg>
`----

Vielen Dank(!) und ...

Freundliche Grüße
Thomas Barghahn
Thomas Barghahn (13.03.2018, 15:45)
*Wolfgang 'Wolle' Bauer* meinte:

> Ich habe jetzt das Script [1] eingebunden. Das funktioniert auch.


Freuen würde ich mich darüber, wenn der Fragende auch seine
Konfiguration preisgibt. Jenes würde in Zukunft auch Nachfragen und
unnötige Diskussionen vermeiden.

Eine Antwort auf deine Frage findest du hier:

,--[ Header der Antwort: ]
| From: Thomas Barghahn <ThBarghahn>
| Newsgroups: de.comm.software.40tude-dialog
| Subject: Boxquote und Fußnoten (was: - no reply - ignore)
| Date: Tue, 13 Mar 2018 14:05:21 +0100
| Message-ID: <14nwzdv2fcojw.dlg>
`----

Vielen Dank(!) und ...

Freundliche Grüße
Thomas Barghahn
Wolfgang Bauer (13.03.2018, 15:47)
*Thomas Barghahn*, Du hast geschrieben:

> Freuen würde ich mich darüber, wenn der Fragende auch seine
> Konfiguration preisgibt. Jenes würde in Zukunft auch Nachfragen und
> unnötige Diskussionen vermeiden.


Program OnBeforeSendingMessage;
Uses textfile, Forms, StdCtrls;

{$I Basis_Modul_Include}
{$I Swiss_Knife_Include}
{$I _i_OBSendM_AddFaceHeader}
{$I Trim_TestSubject_include.ds}
{$I RemoveAnyHeader_include.ds}
{$I _i_OBSendM_BM_CF_X_FaceHeader.ds}
{$I XGpgSig_include.ds}
-----------------
Begin
Result := True;
Swiss_Knife ( Message, IsEmail );
AddFaceHeader(Message);
Trim_TestSubject (Message, IsEmail);
Remove_Headers (Message, IsEmail );
CF_X_FaceHeader(Message);
XGpgSigSign( Message, IsEmail )
End;
Begin
End.

Swiss_Knife_include
Run_CLMainCancelLock := True;
Run_OJEBUGMarkierungaufheben := False;
Run_doFootNoteNew := True;
Run_BoxQuote := True;
Run_UnderLine := False;

Swiss_Knife_include ist aktiv und es geht jetzt um die
[1]

Wolfgang
Fussnote(n):
============

[1] eingebauten Funtionen
Wolfgang Bauer (13.03.2018, 15:50)
*Thomas Barghahn*, Du hast geschrieben:

> Freuen würde ich mich darüber, wenn der Fragende auch seine
> Konfiguration preisgibt. Jenes würde in Zukunft auch Nachfragen und
> unnötige Diskussionen vermeiden.


Program OnBeforeSendingMessage;
Uses textfile, Forms, StdCtrls;

{$I Basis_Modul_Include}
{$I Swiss_Knife_Include}
{$I _i_OBSendM_AddFaceHeader}
{$I Trim_TestSubject_include.ds}
{$I RemoveAnyHeader_include.ds}
{$I _i_OBSendM_BM_CF_X_FaceHeader.ds}
{$I XGpgSig_include.ds}
-----------------
Begin
Result := True;
Swiss_Knife ( Message, IsEmail );
AddFaceHeader(Message);
Trim_TestSubject (Message, IsEmail);
Remove_Headers (Message, IsEmail );
CF_X_FaceHeader(Message);
XGpgSigSign( Message, IsEmail )
End;
Begin
End.

Swiss_Knife_include
Run_CLMainCancelLock := True;
Run_OJEBUGMarkierungaufheben := False;
Run_doFootNoteNew := True;
Run_BoxQuote := True;
Run_UnderLine := False;

Swiss_Knife_include ist aktiv und es geht jetzt um die
[1]

Wolfgang
Fussnote(n):
============

[1] eingebauten Funtion Box:
Wolfgang Bauer (13.03.2018, 16:01)
*Wolfgang 'Ingrid' Bauer*, Du hast geschrieben:

> Aber mit Run_BoxQuote := True; geht es nicht.


> Oder sind die Tags falsch?


Ja, die habe ich falsch gesetzt, in der Erinnerung wie es KN Script ist.

,------------------------------.
¦ hier sollte der Text in ener ¦
¦ geschlossenen Box stehen ¦
`------------------------------´

Wolfgang
Thomas Barghahn (13.03.2018, 16:06)
*Wolfgang 'Wolle' Bauer* meinte:
> .:|Thomas Barghahn|:., Du hast geschrieben:


>> Ist die SwissKnife aktiv?
>> Wenn ja, brauchst du diese Scripte nicht, denn diese sind schon in der
>> Selbigen vorhanden.


> Ja die ist aktiv.


Entsprechend kannst du die Include-Dateien wieder herausnehmen und das
OBSendM wieder neu kompilieren.

> Aber mit Run_BoxQuote := True; geht es nicht.


> Oder sind die Tags falsch?


Nicht nur das!
Hermann hat folgendes festgelegt ohne den Anwender zu informieren:

BM_Code_Box
BM_Closed_Box
BM_Open_Box

Auch fehlt in deinem Beispiel ein Seperator.

> Box:
> hier sollte der Text in ener
> geschlossenen Box stehen
> -


So sollte es bei dir im Editor aussehen:

8<--[ BM mit einer geschlossenen Box: ]-->8
// BM_Closed_Box:
// -
// hier sollte der Text in ener
// geschlossenen Box stehen
// -
8<--------------------------------------->8

Freundliche Grüße
Thomas Barghahn
Thomas Barghahn (13.03.2018, 16:30)
*Wolfgang 'Wolle' Bauer* meinte:
> .:|Thomas Barghahn|:., Du hast geschrieben:


>> Ist die SwissKnife aktiv?
>> Wenn ja, brauchst du diese Scripte nicht, denn diese sind schon in der
>> Selbigen vorhanden.


> Ja die ist aktiv.


Entsprechend kannst du die Include-Dateien wieder herausnehmen und das
OBSendM wieder neu kompilieren.

> Aber mit Run_BoxQuote := True; geht es nicht.


> Oder sind die Tags falsch?


Nicht nur das!
Hermann hat folgendes festgelegt ohne den Anwender zu informieren:

BM_CodeBox
BM_ClosedBox
BM_OpenBox

Auch fehlt in deinem Beispiel ein Seperator.

> Box:
> hier sollte der Text in ener
> geschlossenen Box stehen
> -


So sollte es bei dir im Editor aussehen:

8<--[ BM mit einer geschlossenen Box: ]-->8
// BM_ClosedBox:
// -
// hier sollte der Text in ener
// geschlossenen Box stehen
// -
8<--------------------------------------->8

SuperSedes weil ich nicht lesen kann. ;-)

Freundliche Grüße
Thomas Barghahn
Wolfgang Bauer (13.03.2018, 16:32)
*Thomas Barghahn*, Du hast geschrieben:

> Entsprechend kannst du die Include-Dateien wieder herausnehmen und das
> OBSendM wieder neu kompilieren.


Di habe ich wieder rausgenommen.

>> Oder sind die Tags falsch?


> Nicht nur das!
> Auch fehlt in deinem Beispiel ein Seperator.


,-----------------------------.
¦ Das habe dann auch erkannt. ¦
`-----------------------------´

Und so geht es jetzt.

> Hermann hat folgendes festgelegt ohne den Anwender zu informieren:


> BM_Code_Box
> BM_Closed_Box
> BM_Open_Box


BM_Closed_Box:
-
hier sollte der Text in ener
geschlossenen Box stehen
So sollte es bei dir im Editor aussehen:
-

Funktioniert glaube ich nicht.

Wolfgang
Wolfgang Bauer (13.03.2018, 16:37)
*Thomas Barghahn*, Du hast geschrieben:

> Hermann hat folgendes festgelegt ohne den Anwender zu informieren:


> BM_CodeBox
> BM_ClosedBox
> BM_OpenBox


BM_ClosedBox = 'Box:'; // geschlossener Rahmen
BM_OpenBox = 'Zitat:'; // offener Rahmen
BM_CodeBox = 'Code:'; // Code-Box
BM_CodeEBox = 'CodeE:'; // Code-Box

Das muß ich mal alles probieren.

Wolfgang
Thomas Barghahn (13.03.2018, 17:04)
*Wolfgang 'Wolle' Bauer* meinte:
> *Thomas Barghahn*, Du hast geschrieben:


[...]

> ,-----------------------------.
> ¦ Das habe dann auch erkannt. ¦
> `-----------------------------´


Mit welchen Tag's hast du diese Box erstellt? Hast du wirklich
Fussnoten_include.ds und BoxQuote_include.ds entfernt und neu
kompiliert?

>> Hermann hat folgendes festgelegt ohne den Anwender zu informieren:


>> BM_Code_Box
>> BM_Closed_Box
>> BM_Open_Box


> BM_Closed_Box:
> -
> hier sollte der Text in ener
> geschlossenen Box stehen
> So sollte es bei dir im Editor aussehen:
> -


Mein Fehler(!) - siehe hierzu:

,--[ siehe Supersedes: ]
| From: Thomas Barghahn <ThBarghahn>
| Newsgroups: de.comm.software.40tude-dialog
| Subject: Re: Boxquote und Fußnoten
| Date: Tue, 13 Mar 2018 15:30:33 +0100
| Message-ID: <wp9e7ck9vfqu$.dlg>
`----

Freundliche Grüße
Thomas Barghahn
Thomas Barghahn (13.03.2018, 17:26)
*Wolfgang 'Wolle' Bauer* meinte:
> *Thomas Barghahn*, Du hast geschrieben:


>> Hermann hat folgendes festgelegt ohne den Anwender zu informieren:


>> BM_CodeBox
>> BM_ClosedBox
>> BM_OpenBox


> BM_ClosedBox = 'Box:'; // geschlossener Rahmen
> BM_OpenBox = 'Zitat:'; // offener Rahmen
> BM_CodeBox = 'Code:'; // Code-Box
> BM_CodeEBox = 'CodeE:'; // Code-Box


> Das muß ich mal alles probieren.


Aha! Habe ich jetzt auch gefunden - in der Basis_Modul_include.ds.
*Hahaaa*, das "Olle Hippen" eine Konstante in verschiedenen Scripten
mehrfach vergewaltigt, das hätte ich ihm gar nicht zugetraut. ;->

Freundliche Grüße
Thomas Barghahn
Ähnliche Themen