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