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 ?!? :evil:
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:

Zitat von Robert_G

War da wieder jemand zu faul zum suchen ?!? :evil:
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 :!:

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

@SirThornberry Danke! Klappt wunderbar.

[XeRo]

Zitat:

Zitat von SirThornberry

Delphi-Quellcode:

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

Delphi-Quellcode:

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

[CenBells]

Zitat:

Zitat von XeRo

Zitat:

Zitat von SirThornberry

Delphi-Quellcode:

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

Delphi-Quellcode:

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? :evil:
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.