DxDraw linien zeichnen

[citybreaker]

Hallo,

ich hab da mal wieder ein problem. Unzwar werden meine Linien immer schwarz,
wenn ich welche auf dem TDxDraw darstellen will. Ich habe folgendes ausprobiert.

Delphi-Quellcode:

procedure TMainFrm.DxTimerTimer(Sender: TObject; LagCount: Integer);
begin
  SpriteEngine.Draw;
  SpriteEngine.Move(0);
  Input.Update;

  with Draw.Surface.Canvas do begin
    Brush.Color := clLime;
    MoveTo(10,10);
    LineTo(100,100);
    Release;
  end;

  Draw.Flip;
end;

[Zacherl]

Die Frabkonstanten für DxDraw sind anders als die normalen. ClBlack wird z.B weiß dargestellt und andersum

Florian

[Die Muhkuh]

Delphi-Quellcode:

procedure TMainFrm.DxTimerTimer(Sender: TObject; LagCount: Integer);
begin
  SpriteEngine.Draw;
  SpriteEngine.Move(0);
  Input.Update;

  with Draw.Surface.Canvas do begin
    Brush.Color := clLime;
    Pen.Color := clLime;  // Damit sollte das gehen
    MoveTo(10,10);
    LineTo(100,100);
    Release;
  end;

  Draw.Flip;
end;