Formatierter DB-Text

[d.adams]

Zitat von jaenicke:

Hast du dir einmal die RichEdit Demo angeschaut, die bei Delphi 7 dabei ist? Vielleicht reicht das ja schon...

Die habe ich leider nicht zur Verfügung...

Zitat von himitsu:

Am Delphi selbst liegt es nicht, außer daran welche API-Version das Delphi verwendet und was Windows dort bietet.
https://learn.microsoft.com/de-de/wi...-edit-controls
oder vielleicht welches GrafikFormat und wie es eingebunden ist.
https://stackoverflow.com/questions/...-show-pictures

Delphi-Quellcode:

const
  MSFTEDIT_CLASS        = 'RICHEDIT50W';     { Richedit 4.1 }
  RICHEDIT_CLASSA       = 'RichEdit20A';     { Richedit2.0 Window Class. }
  RICHEDIT_CLASSW       = 'RichEdit20W';     { Richedit2.0 Window Class. }
  RICHEDIT_CLASS10A     = 'RICHEDIT';        { Richedit 1.0 }

Bis Delphi 2007 wurde RICHEDIT_CLASSA genutzt, also v2.0-ANSI,
ab Delphi 2009 RICHEDIT_CLASSW und somit v2.0-Unicode,
sowie im Delphi 11 wird die MSFTEDIT_CLASS verwendet, also v4.1,
und Delphi 7 weiß ich jetzt nicht, aber kannst du ja nachsehn (vermute aber mal auch schon die v2),
siehe Units RichEdit und ComCtrls, bzw. Winapi.RichEdit und Vcl.ComCtrls:

Delphi XE:

Delphi-Quellcode:

procedure TCustomRichEdit.CreateParams(var Params: TCreateParams);
const
...
{$IF NOT DEFINED(UNICODE)}
  RichEditClassName = 'RICHEDIT20A';
{$ELSE}
  RichEditClassName = 'RICHEDIT20W';
{$IFEND}
...
  inherited CreateParams(Params);
  CreateSubClass(Params, RichEditClassName);

Delphi 11:

Delphi-Quellcode:

procedure TCustomRichEdit.CreateParams(var Params: TCreateParams);
  ...
  inherited CreateParams(Params);
  CreateSubClass(Params, MSFTEDIT_CLASS);

Zitat von jaenicke:

Hast du dir einmal die RichEdit Demo angeschaut, die bei Delphi 7 dabei ist? Vielleicht reicht das ja schon...

Boah.... das musst du mir bitte mal übersetzen? Was wird mit dem Code erreicht?