Textboxen vor Größenänderung schützen

skoschke

Hallo,

mit WPTools 8 premium setze ich Textboxen auf die Seite:

Code

    obj := TWPORTFTextBox.Create(WPRichText1);
    obj.WidthTW := WPCentimeterToTwips(5);
    obj.HeightTW := WPCentimeterToTwips(1.5);
    obj.ObjName := '_AUTO_' + IntToStr(GetTickCount);
    obj.AsString := 'Erwin Mustermann'+#13#10+'Bahnhofstrasse 5'+#13#10+'12345 Musterstadt';
    txtobj := WPRichText1.TextObjects.InsertMovableImage(obj);
    if txtobj <> nil then
    begin
      txtobj.Mode := txtobj.Mode + [wpobjObjectUnderText, wpobjCreateAutoName,
        wpobjWithinEditable, wpobjRelativeToPage, wpobjSizingDisabled,
        wpobjDisableAutoSize];
      txtobj.RelX := WPCentimeterToTwips(3);
      txtobj.RelY := WPCentimeterToTwips(6);

Alles anzeigen

als einzigen passenden TextObjectMode habe ich aus der WPRTEDefs das wpobjSizingDisabled gefunden und zusammen mit wpobjDisableAutoSize hätte ich nun erwartet dass eine Vergrößerung des Textes durch Tippen neuer Zeilen unterbunden ist...

Leider wird die Textbox dabei trotzdem höher, wie kann ich das unterbinden?

Ciao

Stefan

wpsupport

Derzeit wird die Grösse der Textbox immer von Ihrem Inhalt kontrolliert - im Grunde handelt es sich bei der Textbox auch nicht um eine Box mit einem Inhalt sondern um eine Referenz auf eine Textebene. Die Textebenen werden verwendet für Kopf- und Fusszeilen, Fussnoten und text boxen.

Das TWPTextObject ist eine Referenz auf eine Bild, Textbox oder kann auch ein eingebetteter code sein wie ein Feld oder Hyperlink. Die Modes werden nur für manche der Möglichkeiten verwendet.

Eine Adresse würde ich aber auf keinen Fall mittels TextBox auf einen Brief platzieren.

Dies geht besser mittels einer Tabelle. Hier kann man dann auch neine feste Zeilenhöhe einstellen sodass die Mindestgrösse immer gleich ist.

In die Tabellenzelle kommt dann Mischfeld (InputMailMergeField) welches dann mit MergeText gefüllt werden kann.

skoschke

Wie bekomme ich nun eine 1*1 Zellen große Tabelle in die TWPORTFTextBox?

Bitte 2 Zeilen Beispielcode...

Ciao

Stefan

wpsupport

Nun, ich würde die Adresse nicht nicht in die Textbox schreiben sondern in den Body ganz am Anfang, das wird sonst alles viel zu kompliziert.

Aber ok, in die Textbox geht es so:

Code

var
    txtobj : TWPTextObj;
    w,h : Integer;
begin
    w := WPCentimeterToTwips(6);
    h := WPCentimeterToTwips(4);
    WPRichText1.TextCursor.DropMarker;
    txtobj := WPRichText1.InputTextbox('', w,h,true);
    WPRichText1.AddTable(1,1,false);
    WPRichText1.CPMoveBack;
    WPRichText1.InputMergeField('ADR','Adresse' + #10 + 'xxx' + #10 + 'xxx'+ #10 );
    WPRichText1.TableRow.ASet(WPAT_BoxMinHeight,h);
    WPRichText1.TableRow.ASet(WPAT_BoxMaxHeight,h);
    WPRichText1.Table.ASet(WPAT_BoxWidth, w);
    WPRichText1.TextCursor.GotoMarker(true);

Alles anzeigen

Hier wird zuerst die Position zwischen gespeichert mit DropMarker, dorthin wird zurückgekehrt mit GotoMarker(true)

Die Tabelle wird eingefügt - CPMoveBack geht eine position zurück, also in die letzte Zelle der Tabelle.

Wenn in der Tabelle können dann noch Eigenschaften gesetzt werden, wie die absolute Zeilen höhe und Tabellen breite.

wpsupport

Wenn man MailMerge verwendet werden normal nur die Felder im Body ausgewertet.

Mit WPRichText1.MergeText('',true) funktioniert das in allen ebenen.

skoschke

Vielen herzlichen Dank!

Ciao

Stefan

skoschke

Zitat

Derzeit wird die Grösse der Textbox immer von Ihrem Inhalt kontrolliert

Beim Stöbern in den Einstellungen habe ich jetzt in

fWPRichText.EditOptionsEx2 das wpAlwaysLockTextBoxHeight

gefunden, was genau das macht was ich ganz oben angefragt hatte ;-)

Ciao

Stefan