Canvas.Brush.Style bsCross Problem

[Blubbel]

Hallo Leute,
Ich möchte in den Hintergrund meines Koordinatensystems ein Raster haben. Es ist auch schon da nur ist der Hintergrund Schwarz und die Linien Weiß obwohl es umgekehrt, bzw. die Linien Hellgrau sein sollen. DAnke schon mal für eure Hilfe

Delphi-Quellcode:

 ACanvas.Brush.Style:= bsCross;
  ACanvas.Brush.Color:= clWhite;
  ACanvas.FillRect(ACanvas.ClipRect);

[Bummi]

durchs Auge in die Brust ....

Delphi-Quellcode:

  Canvas.Brush.Style:= bsCross;
  Canvas.Brush.Color:= clSilver;
  SetBkColor(Canvas.Handle, ColorToRgb(clWhite));
  Canvas.FillRect(Canvas.ClipRect);

[Blubbel]

Sehr geil, Danke!

[Blubbel]

Aber jetzt zeichnet er das Raster komplett über die Form und nicht nur auf der Canvas bze. in der Paintbox

[himitsu]

Canvas <> ACanvas

[Blubbel]

Vorhin gings nicht aber jetzt... hmmm... ein bisschen verwirrt aber es funktioniert Danke euch

[Blubbel]

könnt ihr mir nochmal sagen vielleicht wieso er hier statt blau schwarz zeichnet?? habs schon herumgeschoben und alles aber er nimmt nicht die farbe dir ich haben möchte.

Delphi-Quellcode:

for lIndex := 0 to high(AFuncData) do
  begin
    case round(AFuncData[lIndex][0]) of
      0:
      begin
        lStart:=round((GetWidth(ACanvas.ClipRect) div 2) * -1 / AScaleFactor);
        lEnd:=lStart * -1;

        ACanvas.MoveTo(lPoint.X, lPoint.Y);

        for x := lStart to lEnd do
        begin
          lPoint.X := x;
          
          lPoint.X := (lPoint.X * AScaleFactor) + (GetWidth(ACanvas.ClipRect)div 2);
          lPoint.Y := round((CalcX2(x)) * -1);
          lPoint.Y := (lPoint.Y * AScaleFactor) + (GetHeight(ACanvas.ClipRect)div 2);

          if x = lStart then
          begin
            ACanvas.MoveTo(lPoint.X, lPoint.Y);
          end;

          ACanvas.Pixels[lPoint.X, lPoint.Y]:=clblue;
          ACanvas.LineTo(lPoint.X, lPoint.Y);
          ACanvas.MoveTo(lPoint.X, lPoint.Y);
        end;
      end;

[DeddyH]

Setz mal statt Pixels Canvas.Pen.Color auf clBlue.

[Blubbel]

sowas blödes danke