Einzelnen Beitrag anzeigen

thomas2009
(Gast)

n/a Beiträge
 
#5

AW: RichEdit Text mit schatten

  Alt 31. Mär 2011, 00:22

Delphi-Quellcode:
    Canvas.TextOut(x,y,RichEdit.Lines[i]);
    inc(y,20);
  end;
Es erscheint zu funktionieren
Delphi-Quellcode:
procedure TfrmMain.Button2Click(Sender: TObject);
var
   lf: LOGFONT;
  i, x, y: Integer;
begin
x:=0;
y:=1;
    Canvas.Brush.Style := bsClear;
   FillChar(lf, SizeOf(lf), Byte(0)) ;
   lf.lfHeight := 100;
   lf.lfFaceName := 'Arial';
   Canvas.Font.Handle := CreateFontIndirect(lf) ;
   Canvas.Font.Color := clBlack;
   Canvas.Font.Color := clBlue;

    for i:=0 to RichEdit1.Lines.Count -1 do
  begin
    Canvas.TextOut(0,y*80,RichEdit1.Lines[i]);
 inc(y);
  end;
end;
Es gibt ein kleines Problem und zwar wenn der Text in Richedit (Zeile) nicht den die selbe Font.Size
Dann kann es sein dass die Text-Zeile über einander oder weit weg von einander kommen
  Mit Zitat antworten Zitat