Hallo
ich hab ein rich edit und möchte die auf Buttoclick mit formatierten text füllen. Also das gewissen text stellen farbig sind oder fet oder wie auch immer.
Diese formatierten text möchte ich nun auch noch drucken (das drucken an sich funzt schon) nur weiß ich nicht wie ich ein richedit mit formatiertem text füllen und mit diesen Formatierungen auch drucke.
Im mom drucke ich mit folgenen Code
Delphi-Quellcode:
procedure TForm1.Button6Click(Sender: TObject);
var
i: Integer;
begin
IF printdialog1.Execute THEN
with Printer do
begin
BeginDoc;
WITH Printer.Canvas.Font DO
BEGIN
Name := Richedit1.Font.Name;
Size := Richedit1.Font.Size;
Color :=Richedit1.Font.Color;
END;
for i := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (i *Canvas.TextHeight(Richedit1.Lines.Strings[i])),Richedit1.Lines.Strings[i]);
EndDoc;
end;
end;
ich hoffe mal ihr könnt mir helfen.
MfG
BastardOp