Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
20. Apr 2015
Wer behauptet denn, daß Textout nicht den Cursor verschiebt? :roll:
procedure TCanvas.TextOut(X, Y: Integer; const Text: String);
begin
Changing;
RequiredState();
if CanvasOrientation = coRightToLeft then Inc(X, TextWidth(Text) + 1);
Windows.ExtTextOut(FHandle, X, Y, FTextFlags, nil, Text,
Length(Text), nil);
MoveTo(X + TextWidth(Text), Y);
Forum: Algorithmen, Datenstrukturen und Klassendesign
by himitsu,
16. Apr 2015
Es gibt da den Abschnitt //Zeilen drucken, wo aktuell nur Text gedruckt wird (TextOut)
und man mag es nicht glauben, aber wenn man nun auch die Linien haben will, dann wird man das ebenfalls dort mit einbauen müssen.
Wie man Linien zeichnet, kannst du dir ja bei Header und Footer abgucken, wo es bereits gemacht wird.
Die Berechnung für die Position der Linien kann man sich aus dem TextOut...