Zahl grafisch anzeigen lassen

[Volker Z.]

Hallo,

ich würde eher Bummis Ansatz wählen: Denn den Spass mit Controls (TShape) zu erledigen heißt ja auch diese wieder los zu werden (im Eingangspost steht da was von: "die Summe ändert sich ständig."); das ist zwar eigentlich auch kein Problem, aber lästiger Mehraufwand.

Man könnte also den Code von nuclearping (leicht geändert: Es kommt besser, wenn die Quadrate nicht abgeschnitten werden) und den Ansatz von Bummi vereinen zu:

Delphi-Quellcode:

const
  SQUARE_SIDE = 20;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i, l, t : Integer;
begin
  PaintBox1.Canvas.Brush.Color := clSkyBlue;

  l := 0;
  t := 0;
  for i := 1 to FSum do
    begin
      PaintBox1.Canvas.FillRect (Rect (l, t, l + SQUARE_SIDE, t + SQUARE_SIDE));
      Inc (l, SQUARE_SIDE + 2);
      if PaintBox1.Width < l + SQUARE_SIDE then
        begin
          l := 0;
          Inc (t, SQUARE_SIDE + 2)
        end
    end
end;

Wann jetzt noch ein Invalidate notwendig wird wirst Du sicherlich rausfinden.

[EDIT]Wie unhöflich von mir[/EDIT] Willkommen in der DP

Gruß

[nuclearping]

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.

[hathor]

Schriftname: WINGDINGS
Ist in jedem WINDOWS.

Delphi-Quellcode:

procedure TForm1.Button23Click(Sender: TObject);
begin
Memo1.Font.Name:= 'WingDings';
Memo1.Font.Size:=24;
Memo1.lines.add('xnm');
Memo1.lines.add('qwertzuiopü+');
Memo1.lines.add('asdfghjklöä#');
Memo1.lines.add('1234567890ß');
end;

[Codix32]

Gibt es eigentlich die Möglichkeit mit Delphi oder einem nennen wir es Generator eigene
Schriftarten zu erstellen?

Mein eigenes:Memo1.Font.Name:= 'MeinDings';

[nuclearping]

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.