ReformatAll mit Fehler bei der Bereichsprüfung

skoschke

Folgender Codeschnipsel führt zu Fehler bei der Bereichsprüfung wenn rechtsbündig ausgerichtet wird. Linksbündig und zentriert funktioniert.

Das Richtext wurde dynamisch erzeugt und liegt auf einem ebenfalls dynamisch erzeugten Panel, das Richtext enthält nur ein Wort.

Code

      RTFRichtext.Clear;
      RTFRichtext.InputString('Hallo');
      RTFRichtext.SelectAll;       
      case AFieldRec.TextAlign of
        1:
          RTFRichtext.CurrAttr.Alignment := paralLeft;
        2: 
          RTFRichtext.CurrAttr.Alignment := paralRight;
        3:
          RTFRichtext.CurrAttr.Alignment := paralCenter;
        else
          RTFRichtext.CurrAttr.Alignment := paralLeft;
      end;
      RTFRichtext.reformatall(true, true);

Alles anzeigen

Was ist an meinem Code falsch bzw. was müsste ich richtigerweise machen?

Lege ich zur Entwurfszeit ein Richtext auf ein Formular dann funktioniert obiger Code.

Ciao

Stefan

wpsupport

Wenn Sie dynamisch ein TWPRichText auf einem parent erzeugen, nach der Erzeugung 'Loaded' aufrufen. Dies passiert bei allen aus DFM geladenen controls.

bzw...

Wenn Sie ein control benötigen um dynamisch ein Dokument erstellen verwenden Sie als Konstruktor

CreateDynamic

bzw. in C++ nach dem "new" MakeDynamic aufrufen.

Hierbei wird dem control ein Handle zugewiesen damit die Formattier Routinen funktionieren. Dann ist kein Parent erforderlich.

wpsupport

Den Fehler kann ich übrigens nicht nachvollziehen.

Dieser code läuft ganz normal:

Code

var RTFRichtext : TWPRichText;
begin
  RTFRichtext := TWPRichText.Create(Panel1);
  RTFRichtext.Parent := Panel1;

      RTFRichtext.Clear;
      RTFRichtext.InputString('Hallo');
      RTFRichtext.SelectAll;
      RTFRichtext.CurrAttr.Alignment := paralRight;
      RTFRichtext.reformatall(true, true);
end;

Alles anzeigen

skoschke

Danke, wieder was gelernt...

Das aber ist nicht der Grund für meinen Laufzeitfehler Bereichsprüfung, der kommt immer noch bei rechtsbündiger Formatierung, egal ob wie oben per CurrAttr oder wenn ich

Code

par := RTFRichtext.FirstPar;
par.ASet(WPAT_Alignment, Integer(paralRight));

verwende.

Ciao

Stefan

wpsupport

Wenn Sie das symbol WPDEBUG in den Projekt Optionen aktivieren und neu kompilieren dann werden die debug symbole eingebunden. In diesem Fall bekommen Sie auch eine Meldung darüber wo dieses Problem auftaucht. Die Stelle können Sie mir dann per e-mail weiterleiten.

skoschke

Ich benötige eigentlich nur den Stream eines WPRichText mit bestimmten Schriftformatierungen zur Weiterverwendung.

Daher erzeuge ich nun nicht mehr die Komponente(mit Panel, Richtext etc.) sondern nur wie vorgeschlagen ein TWPRichText mit CreateDynamic und damit funktioniert es nun wie gewünscht.

Wenn mal Zeit ist baue ich das wieder zurück und fange mal den Fehler ein...

Ciao

Stefan