Einzelnen Beitrag anzeigen

Blubbel

Registriert seit: 6. Okt 2011
125 Beiträge
 
Delphi 2010 Professional
 
#7

AW: Canvas.Brush.Style bsCross Problem

  Alt 7. Nov 2011, 14:09
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;
  Mit Zitat antworten Zitat