Registriert seit: 3. Jul 2011
128 Beiträge
Delphi 10 Seattle Professional
|
Datenübergabe TMemo > Outlook 2016 mit Tab's
4. Jul 2020, 12:30
Hallo,
bin hier am verzweifeln.
Ich arbeite mit Textbausteinen, die automatisch generiert werden, die ich an Outlook übergebe. Das funktioniert soweit gut. Das Problem sind die Tab's.
Ich habe ein TIB_Memo mit Variablen, ein TMemo für den fertigen Text, der dan an Outlook übergeben wird. Hier der relevante Code für die Tab's:
procedure TFTextbaustein.FormCreate(Sender: TObject);
const COLWIDTH = 10;
var tabwidth : integer;
begin
Tabwidth := Colwidth shl 2;
IB_Memo1.Perform(EM_SETTABSTOPS, 1, Integer(@TabWidth));
Memo3.Perform(EM_SETTABSTOPS, 1, Integer(@TabWidth));
end;
Sieht dann so aus, wie im Anhang.
Ich habe in Delphi schon den gleichen Font wie in Outlook eingestellt (Calibri 12). Wenn vor den Variablen kein Text steht, sondern nur 1 oder 2 Tab's, ist die Ausgabe in Outlook in Ordnung. Sobald diese Textbezeichnungen davor sind, sieht es so oder ähnlich aus.
Hat jemand eine Idee, wie man die Formatierung hinbekommt?
Gruß
K.-D.
Delphi 6 Prof., Delphi 10 Seattle Prof., IBO 4, IBO 5, Firebird 2.5, Windows 10 Prof., Windows 11 Prof.
|