Forum: Algorithmen, Datenstrukturen und Klassendesign
by nuclearping,
25. Jan 2014
Das hat mit Delphi nichts zu tun. Du brauchst ein Tool, womit du TTF (True Type Font) Dateien erstellen und dann (zB) in deinem Windows installieren kannst. Dann kannst du sie mit Memo1.Font.Name := 'MeinIrgendwas'; auch verwenden.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by nuclearping,
25. Jan 2014
Ja, stimmt. Die Quadrate in eine TPaintBox zu zeichnen ist natürlich die simplere Variante. Keine Ahnung, warum ich als erstes auf TShape gekommen bin. :wall: :mrgreen:
Forum: Algorithmen, Datenstrukturen und Klassendesign
by nuclearping,
24. Jan 2014
const
SHAPE_WIDTH = 10;
SHAPE_HEIGHT = 10;
var
Quadrate, i, l, t: Integer;
Shape: TShape; // uses ExtCtrls
begin
// Quadrate werden in ein Panel namens Panel1 gezeichnet
Panel1.DoubleBuffered := TRUE;
Quadrate := 5;