RichEdit - Formatierungsprobleme

[Lannes]

Hallo,

eine Idee schon , ist aber ein Fake

Der Code überprüft die Längen der Strings und berechnet den Zwischenraum der gefüllt werden muss,
damit die Strings optisch richtig ausgerichtet sind.
Dieser Zwischenraum wird dann durch Leerzeichen mit Size 1 in Arial aufgefüllt.

Damit hat man zumindest schon mal die Anzeige realisiert,
und ein Export ins RTF-Format ist dann auch möglich.

Eventuell hilft Dir das ja weiter:

Delphi-Quellcode:

procedure RE_SetFakeTab(RE: TRichEdit;s1,s2: String;iLeft,iFakeTab: Integer);
var SelAttrFontNameOld : string;
    aBmp : TBitMap;
    s1Width,s2Width,iFaktor,SelAttrSizeOld : Integer;
begin
  with RE do
    begin
      SelAttrFontNameOld := SelAttributes.Name;
      SelAttrSizeOld := SelAttributes.Size;
      Paragraph.FirstIndent := iLeft;
      aBmp := TBitMap.Create;
      with aBmp.Canvas do
        begin
        aBmp.Canvas.Font.Name := SelAttributes.Name;
        aBmp.Canvas.Font.Size := SelAttributes.Size;
        s1Width := aBmp.Canvas.TextWidth(s1);
        s2Width := aBmp.Canvas.TextWidth(s2);
        aBmp.Canvas.Font.Name := 'Arial';
        aBmp.Canvas.Font.Size := 1;
        iFaktor := aBmp.Canvas.TextWidth(StringOfChar(' ',100));
        end;
      aBmp.Free;
      SelText := s1;
      SelAttributes.Name := 'Arial';
      SelAttributes.Size := 1;
      SelText := StringOfChar(' ',Round((iFakeTab-iLeft-s1Width-s2Width)*(iFaktor/100)));
      SelAttributes.Name := SelAttrFontNameOld;
      SelAttributes.Size := SelAttrSizeOld;
      SelText := s2;
      Lines.Add('');
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  RE_SetFakeTab(Richedit1,Edit1.Text,Edit2.Text,15,150);
end;