Zeichnen in einer Image Komponente

[derhoeppi]

Hallo Leute
Der Titel des Beitrags sagt eigentlich alles.Ich kann selber nen Rechteck, Linien usw. zeichnen, aber ich soll einen Quader als Netz zeichnen.Ich habe leider keine Ahnung wie ich das anstellen soll. Weiß jemand einen Rat von euch?

[himitsu]

Delphi-Quellcode:

BitMap.Canvas.Brush.Style := bsDiagCross;
BitMap.Canvas.Brush.Color := (Farbe des Netzes)

In der OH unter "Brush"... findest du mehr.

[derhoeppi]

Hey
Also das versteh ich nicht so ganz:
Source:
BitMap.Canvas.Brush.Style := bsDiagCross;
BitMap.Canvas.Brush.Color := (Farbe des Netzes)

Ich soll ein Quader als Netz zeichnen, dass heiß vier Rechtecke nebeneinander und an der Seite von einem der vier Rechtecke hängt jeweils links und rechts noch ein Rechteck dran.

Wie kann ich soetwas erstellen?

[himitsu]

Ohh, da hab ich dich wohl falsch verstanden.

Delphi-Quellcode:

XY := 50;
Image1.Canvas.Rectangle(    XY,      0, 2 * XY + 1,     XY + 1); {1}
Image1.Canvas.Rectangle(    XY,     XY, 2 * XY + 1, 2 * XY + 1); {2}
Image1.Canvas.Rectangle(    XY, 2 * XY, 2 * XY + 1, 3 * XY + 1); {3}
Image1.Canvas.Rectangle(    XY, 3 * XY, 2 * XY + 1, 4 * XY + 1); {4}
Image1.Canvas.Rectangle(     0,     XY,     XY + 1, 2 * XY + 1); {5}
Image1.Canvas.Rectangle(2 * XY,     XY, 3 * XY + 1, 2 * XY + 1); {6}

{   1   }
{ 5 2 6 }
{   3   }
{   4   }

{...} => Position (siehe Bildchen)
XY => Grösse
+ 1 => Ausgleich, da Rectangle immer je ein Pixel schmaler und flacher gezeichnet werden

[derhoeppi]

Hey himitsu
Kann ich jetzt noch die Farbe der Rechtecke bestimmen?Seite 1 und 3,5 und 6, 2 und 4 sollen die gleiche Farbe haben. Wenn das jetzt etwas unverständlich war, dann meine ich das die Seiten die gleich groß sind die gleiche Farbe haben sollen.

[Matze]

vor jedem:
Canvas.Rectangle(...); eifach:
Canvas.Brush.Color:=clYellow; aufrufen.

[derhoeppi]

Hallo Matze
Ich hab das jetzt mal nicht ganz so gemacht wie du es gesagt hast. Ich hab mir die Seiten herausgesucht und dann über die Canvas.Brush.Color geschrieben, aber ohne erfolg.Nehm ich das Canvas weg so besitzt mein ganzes Formular diese Farbe.Mein bisheriger Quelltext - hab das Quadrat auch etwas im aussehen geändert.
Meine Procedure

Delphi-Quellcode:

procedure TForm1.Netz(Sender: TObject);
var XY:integer;
begin
 XY := 50;
Brush.Style:= bsSolid;
Canvas.Brush.Color:=clblue;
Image1.Canvas.Rectangle(    25, 50, 85, 75);
Image1.Canvas.Rectangle(    178, 50, 238, 75);
Canvas.Brush.Color:=clYellow;
Image1.Canvas.Rectangle(    86, 76, 176, 101);
Image1.Canvas.Rectangle(    86, 24, 176, 49);
Canvas.Brush.Color:=clblack;
Image1.Canvas.Rectangle(    239, 50, 329, 75);
Image1.Canvas.Rectangle(    86, 50, 177, 75);
end;

Was mach ich da falsch???

[derhoeppi]

Hey Leutz
Ich hab jetzt selbst etwas versucht und siehe da es funzt. Vor dem Canvas.Brush.Color hat nur das Image1. gefehlt und schon geht es. Trotzdem danke für die recht zügige Hife heute.

[Matze]

Ja, das hatte ich weggelassen, ich dachte, du wusstest, was ich meine. Nächtes mal werde ich es dazuschreiben!