Punkte im gleichen abstand auf die Form?

[citybreaker]

Hallo,

wie kann ich im gleichenabstand Punkte auf meine Form bringen, dass es
dir Form so wie in Delphi aussieht?

[SirThornberry]

einfach 2 schleifen machen (x- und y-schleife) und darin einen punkt an die Koordinate zeichnen. Das ganze noch ins OnPaint und dann müsstes du die punkte sehen

[Edit]Source eingefügt[/Edit]

Delphi-Quellcode:

procedure TForm1.FormPaint(Sender: TObject);
var x, y: Integer;
begin
  for x := 0 to (width - 1) div 5 do
  begin
    for y := 0 to (height - 1) div 5 do
    begin
      Self.Canvas.Pixels[x * 5,y * 5] := clRed;
    end;
  end;
end;

[Robert_G]

War da wieder jemand zu faul zum suchen ?!?
Tut es weh oder gibt es sonst noch einen Grund, die Suchfunktion der DP komplett zu ignorieren?
Ein einfaches Punkte auf Form hätte dir das Ergebnis gezeigt

[citybreaker]

Zitat von Robert_G:

War da wieder jemand zu faul zum suchen ?!?
Tut es weh oder gibt es sonst noch einen Grund, die Suchfunktion der DP komplett zu ignorieren?
Ein einfaches Punkte auf Form hätte dir das Ergebnis gezeigt

Tut mir ganz dolle leid, kannst mir verzeihen?
Bitte nicht hauen.

@SirThornberry Danke! Klappt wunderbar.

[XeRo]

Zitat von SirThornberry:

Canvas.Pixels[x * 5,y * 5] := clRed;

Ich hab bei mir nur noch ein bisschen was geändert und dann sah es genau gleich aus

Canvas.Pixels[x * 8,y * 8] := clBlack;

[CenBells]

Zitat von XeRo:

Zitat von SirThornberry:

Canvas.Pixels[x * 5,y * 5] := clRed;

Ich hab bei mir nur noch ein bisschen was geändert und dann sah es genau gleich aus

Canvas.Pixels[x * 8,y * 8] := clBlack;

hallo,

die schleifen hast du aber auch angepasst, oder?

Gruß
Ken

[XeRo]

nein! Ich hab mich nicht lang damit beschäftigt...
hab nur die eine zeile geändert und gemerkt, dass es funktionierte wie ich wollte...

[Robert_G]

Muss das Ganze denn 2 mal innerhalb einer Woche durchgekaut werden?
Wenn ihr auf den Such-Link in meinem früheren Post klickt findet ihr nicht nur die Lösung, sondern auch eine Erkärung von himitsu dazu.

p.s.: Ich erwarte keine Antwort auf meine Frage. Wenn sich jemand angegriffen oder unrecht behandelt fühlt, kann mir derjenige eine PN schícken.