Textobjekte können in der 16Bit Version von DIAdem nicht bearbeitet werden

[Traderhans]

Hallo,

unter DIAdem11 gibt es einige Bugs beim Script. Da läuft ein Programm tadellos und ein anderes mit identischem Code gibt o.g. Fehler aus.

Code:

call PicLoad("d:\PROJEKTE\AKMGraph2.TDR")

call GraphObjopen("textobject2")

call TxtBufOpen

TxtBufFont="Arial"

TxtBufFontSize=10

call TxtBufNextLine

x = 666

call TxtBufTabCellSet(cstr(x),4,1)    Hier erscheint die Fehlermeldung!?

call TxtBufClose

call GraphObjclose("textobject2")

call Picupdate

hier funktioniert es:

call PicLoad("D:\PROJEKTE\test\hill_add.TDR")

call GraphObjopen("textobject1")

call TxtBufOpen

TxtBufFont="Arial"

TxtBufFontSize=12

For a = 1 to 16

max_t = 0

min_t = 2000

For x = ChnVal(a,17) to ChnVal(a,18)

'ptp des Momentes berechnen

If ChnVal(x,2) > max_t Then 'Maximum ermitteln

max_t = ChnVal(x,2)

End If

If ChnVal(x,2) < min_t Then 'Minimum ermitteln

min_t = ChnVal(x,2)

End If

Next

ptp_t = max_t - min_t

call TxtBufTabCellSet(cstr(round(ptp_t,0)),2,a+1)  KEINE Fehlermeldung!?

call TxtBufClose

call graphobjclose("textobject1")

Danke für Eure Hilfe!

[bluescreen]

Hallo,

an der Stelle erscheint eine falsche Fehlermeldung.

Die richtige Fehlermeldung sollte heißen: An dieser Position kann kein Text in die Tabelle eingefügt werden!

Üblicherweise erscheint diese Fehlermeldung, wenn sich an der aktuellen Einfüge-Position keine Tabelle befindet.

Also erst in die Tabelle positionieren, dann dort mit TxtBufTabCellSet einfügen.

--- Sven

[Traderhans]

Wie gesagt: Die Tabelle ist vorhanden und mit DIAdem 8 bis 10 hat das Script funktioniert!

Wie soll ich in 11 die Tabelle anders positionieren?

Bruß Bernard

[bluescreen]

Hallo Bernhard,

Ich habe keine Erfahrung mit dem Befehl TxtBufNextLine.

Ich würde statt dessen TxtBufSelStart = 1 verwenden.

(Anzahl der Zeichen ab Textanfang, kann gemeinsam mit TxtBufSelLength verwendet werden.)

--- Sven