En streg

Altså når man udskriver det med en printer ;)

du kan vel bare tegne på printer.canvas, og så bruge moveto() og lineto()

AhvaD?? :D
Dte er meningen i min text editor skal man kunne insætte en vandret streg ligesom <hr> i html...

ah ok så bliver det jo straks sværer!

Har ikke lige nogle ideer til det. sry

ok :(
Andre??

Prøv at lege lidt med det her:

var
  MyCanvas: TControlCanvas;
procedure TForm1.FormCreate(Sender: TObject);
begin
  MyCanvas := TControlCanvas.Create;
  MyCanvas.Control:=TControl(RichEdit1);
  MyCanvas.MoveTo(0,0);
  MyCanvas.LineTo(300,50);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MyCanvas.Free;
end;

Der tegnes en sort streg hen over din RichEdit fra (0,0) til (300,50).
Du skal lige havde en Button eller noget lignede til at opdatere din RichEdit ved eventuelt at sætten en Buttons OnClick Property til at pege på din forms OnFormCreate Property.

Held og Lykke
ZeroHero

Lukket. Fik ikke det jeg søgte :