Beiträge von skoschke

Zitat

es handelt sich um ein Event welches einem TWPTextObjekt zugewiesen wurde, also von diesem ausgelöst wird.

Ahhh, danke, das war das fehlende Puzzleteil!

Ciao

Stefan

Danke für das Codebeispiel!

Nur finde ich den gezeigten Event nicht in meinem TWPRichText!

Irgendwie fehlt mir da der Zusammenhang...

Prinzipiell geht das oben gezeigte in die richtige Richtung, Hintergrund ist, dass ich "Übertragszeilen" einer Rechnung in die Tabelle einfügen möchte, da das im Header / Footer nicht gehen kann.

So muss aber bei jeder Tabellenänderung (z.B. wird eine Zeile durch getippten Text höher) alle bestehenden Übertragszeilen löschen muss und neu einfügen. Dabei durchlaufe ich alle Tabellenzeilen und muss dabei natürlich die aktuelle Seite dieser Tabelle kennen um entsprechend aufsummieren zu können.

Im Endergebnis soll auf jeder letzten Zeile jeder Seite die Seitensumme und auf der nächsten Seite unter dem Header in der obersten Zeile dies als Übertrag wiederholt werden.

Oder ist das der ganz falsche Ansatz und das Ganze lässt sich viel eleganter lösen?

Wir haben die Premium-Version WPTools 8.

Ciao

Stefan

Danke, funktioniert wie gewünscht!

Damit kann ich die Seitennummer ausgeben, aber wie bekomme ich aus dem Textobjekt die Seitennummer wenn ich beim Durchlaufen der Tabelle in einer Schleife mit der Seitennummer als Zahl (integer wie auch Pagenr) arbeiten möchte?

so ala:

for i := 0 to WPRichText1.Table.RowCount - 1 do

begin

zeile := WPRichText1.Table.rows[i];

if SeitenNummerDieserZeile = 5 then...

end;

Ciao

Stefan

Tabelle über mehrere Seiten, wie bekommt man die aktuelle Seitennummer einer Tabellenzeile?

Zeile.Pagenr liefert immer 0, Table.Pagenr immer 3 (wenn die Tabelle über 3 Seiten reicht)

Ciao

Stefan

Danke!

Schau ich mir an, ich habe übrigens die 8.01.1 Premium-Version...

Ciao
Stefan

Hallo,
beim Versuch eine eingene Komponente von TWPRichtext abzuleiten, bekomme ich folgenden Compilerfehler:

[dcc32 Fataler Fehler] WPRTEReport.pas(6191): F2051 Unit WPIOWriteRTF wurde mit einer unterschiedlichen Version von WPRTEReport.WPGetBandForPar compiliert.

Ich verwende WPTools V8 prof.

Ciao
Stefan

Danke für den Tip!
wpKeepCellsWhenCombiningCells war bisher noch nicht gesetzt, habe es hinzugefügt und siehe da, ich kann per Code die Spaltenbreiten ändern, auch wenn combined cells enthalten sind:

for i := 0 to 5 do
tbl.cols[i].ASetColumn(WPAT_COLWIDTH,WPCentimeterToTwips(Vorlage.Spaltenbreiten[i]));

Was das Positionieren der Spalten mit der Maus innerhalb der Tabelle betrifft, funktioniert das leider noch nicht, ich kann die Spaltenlinien anfassen, aber mal geht das Spaltenbreiteändern und mal nicht, ein System dafür, warum es mal nicht geht, habe ich noch nicht gefunden...

Ciao
Stefan

Thank you, i will use WPCentimeterToTwips

Ciao
Stefan

Thank you for this tip, i have to hide borders instead set the width to 0...

Ciao
Stefan

P.S.
if "0 means usually hairline, thats the smallest line possible on a device", why is with a greater value (1 to 7) no border visible?

Hallo,

in einer Tabelle kann ich die Spaltenbreite ändern indem ich im Tabellenbereich die Spaltenlinie mit der Maus anfasse und verschiebe.
Das funktioniert aber leider nicht mehr wenn da mit CombineCells Zellen "verschmolzen" wurden und solch eine Zelle gerade im Focus liegt.

Ich habe versucht da im OnMouseMove irgend etwas zu bewegen um den Focus von dieser Zelle wegzubekommen, leider ohne Erfolg!

Ist das der falsche Ansatz, wie bekomme ich die Spaltenbreiten mit der Maus verändert?

Ciao
Stefan

Hi,

following code to draw borderlines in a table:

cell.ASet(WPAT_BorderWidthB, value);
cell.ASet(WPAT_BorderFlags, WPBRD_DRAW_Bottom);
...
Refresh;

if i set value to 0 a fine line is drawn, from 1 to 7 there is no line and over 7 the line is always drawn.

i think it is a bug, linewidth -> 0 should not draw a borderline, or?

Ciao
Stefan

Hi

to set ColWidth of a table i use

tbl.cols[0].aSet(WPAT_COLWIDTH, 600);

i want to get a ColWidth with 2 cm width, how to calculate cm into the WPAT_COLWIDTH value?

Ciao
Stefan

Thank you,

this works with WPTools 8, and when we use version 9 or later, nobody knows why Cursor is readonly :-)

Will you fix this in following vesions?

Ciao
Stefan

Hi,

at designtime i can change WPRichTextLabel.Cursor, but if i create a WPRichTextLabel at runtime this property is readonly!

What can i do?

Ciao
Stefan

Thank you, i am downloading... :-)

Ciao
Stefan

It works!

i create my WPRichText (any of them) at runtime.
When i set LayoutMode = wplayLayout first and later then to LayoutMode = wplayNormal then zooming works correct!

i hope this helps another user...

Ciao
Stefan

Hi,

i start with .Zooming := 100 and type Text into my WPRichText (LayoutMode = wplayNormal).

Now i change Zooming to 90 and my Text (a little smaller) becomes partial invisible behind the upper border!

What can i do to change Zooming without this effect?

Ciao
Stefan

Thank you,

but now i have this small borderlines only right and bottom and left and top it is borderless.

Ciao
Stefan

Hi,

with WPTools 8 i set WPRichText.BorderStyle := bsNone, but the Richtext shows a fine black borderline!
What can i do to switch border to invisible?

Ciao
Stefan

Danke!

Dann komme ich um die Premium-Version nicht herum ;-)

Ciao
Stefan