Memo / RichEdit for HTML export

[Youuuu]

Hi,

ich suche eine Komponente, ähnlich dem OutlookEditor, in dem ich Text farblich gestalten und stylen kann (fett, usw.), welcher dann den gestalteten Text als HTML string ausgeben kann.

Gibt es solch eine Komponente bereits, gerne auch kostenpflichtige.


Grüße

[TigerLilly]

HTML Components
https://www.delphihtmlcomponents.com/

[Redeemer]

Ich hab mir kürzlich so ein Ding geschrieben, das fett/kursiv/unterstrichen/durchgestrichen, Farbe und Aufzählungen in einem Standard-TRichEdit von/zu HTML wandelt. Schriftgröße ist nicht drin, weil das bei Bildschirmskalierung komisch arbeitet, und ich das Feature nicht brauche.
Falls Bedarf besteht, kann ich es mal hochladen.

[Rollo62]

Zitat von Redeemer:

Ich hab mir kürzlich so ein Ding geschrieben, ...

Ja das wollte ich auch noch, basierend auf diesem schönen TTextLayout für FMX, und mal austesten was da Alles geht.
Es ist aber wohl kein Editor, sondern nur die Ausgabe.

Ich fürchte das es sowas für VCL nicht gibt, beziehungsweise dass man das nicht irgendwie für FMX/VCL nutzen könnte.
Muss ich noch reinschauen, ist aber definitv auf der Todo Liste.

[KodeZwerg]

Zitat von Redeemer:

Ich hab mir kürzlich so ein Ding geschrieben, das fett/kursiv/unterstrichen/durchgestrichen, Farbe und Aufzählungen in einem Standard-TRichEdit von/zu HTML wandelt. Schriftgröße ist nicht drin, weil das bei Bildschirmskalierung komisch arbeitet, und ich das Feature nicht brauche.
Falls Bedarf besteht, kann ich es mal hochladen.

Ich würde mich freuen da ich so etwas benötige: "Stelle ab charakter-position die Farbe auf clWasAnderes um" und ich mich mit RichEdit irgendwie zu doof anstelle. Falls Deines so etwas kann, bitte lade hoch, Dankeschön!

[Redeemer]

Geht das nicht so?

Delphi-Quellcode:

SelLength := High(Integer);
SelAttributes.Color := clIrgendwas;

[KodeZwerg]

Ich bereite mal eine kleine Demo vor und erstelle neuen Thread um den hier nicht mit meinen problem zuzumüllen. Deinen Tipp verstehe ich so nicht ganz. @Redeemer

[Delphi.Narium]

SelLength := High(Integer); = Die Länge des auszuwählenden Textes wird auf die maximal mögliche Länge gesetzt. Das passiert ab der aktuellen Position.

Statt High(Integer) könnte man auch 2147483647 schreiben, muss aber, falls sich der Maximalwert für Integer mal ändern, den Quelltext anpassen

SelAttributes.Color := clIrgendwas; = Ab der aktuellen Position wird alles ab dieser Ausgewählte mit dem angegebene Attribut "gestaltet".

Das entspricht (für mein Verständnis) dem:

Zitat:

... da ich so etwas benötige: "Stelle ab charakter-position die Farbe auf clWasAnderes um"

[KodeZwerg]

Mein Problem ist gelöst @Reedemer, habe es so versucht wie Du meintest, funzt!
Danke für den Nachtrag @Delphi.Narium!!

Delphi-Quellcode:

procedure TfrmMain.reMainChange(Sender: TObject); // reMain = RichEdit
var
  Len: Integer;
begin

  try
    Len := StrToInt(edtPosition.Text); // edtPosition = Editfeld mit Positionsangabe
  except
    Len := 25;
    edtPosition.Text := '25';
  end;

  if Length(reMain.Text) >= Len then
  begin
    reMain.SelStart := Len;
    reMain.SelLength := Length(reMain.Text);
    reMain.SelAttributes.Color := clGreen;
    reMain.SelStart := Length(reMain.Text);
    reMain.SelLength := 0;
  end;
end;

So nutze ich es nun, bestimmt nicht schön aber macht erstmal alles so wie ich es wollte. Flackert ganz schön dolle, mal sehen was ich da noch rausholen kann.
Es tut mir leid für diesen zwischen-request innerhalb eines fremd threads!

[Delphi.Narium]

Delphi-Quellcode:

procedure TfrmMain.reMainChange(Sender: TObject); // reMain = RichEdit
var
  Len : Integer;
  LenText : Integer;
begin
  Len := StrToIntDef(edtPosition.Text,25); // edtPosition = Editfeld mit Positionsangabe
  edtPosition.Text := IntToStr(Len);

  LenText := Length(reMain.Text); // Wird (eventuell) mehrfach benötigt, ermitteln wir nur einmal.
  if LenText >= Len then
  begin
    reMain.SelStart := Len;
    reMain.SelLength := LenText;  // Soll wohl der restliche Text sein, dann geht auch:
    reMain.SelLength := High(Integer); 
    reMain.SelAttributes.Color := clGreen;
    reMain.SelStart := LenText;  // Soll wohl das Ende des Textes sein, dann geht auch diesmal:
    reMain.SelStart := High(Integer); 
    reMain.SelLength := 0;
  end;
end;