Thema: Delphi Zeichnen in eine Bitmap

Einzelnen Beitrag anzeigen

Benutzerbild von turboPASCAL
turboPASCAL

Registriert seit: 8. Mai 2005
Ort: Sondershausen
4.274 Beiträge
 
Delphi 6 Personal
 
#1

Zeichnen in eine Bitmap

  Alt 22. Mai 2005, 13:03
Mahlzeit.

Irgend wie stehe ich auf ne'm Schlauch
Ich will in/auf eine Bitmap zeichnen aber es tut nix zeichnen, hab bestimmt was übersehen ?!
(Mit 'ner PainBox funktioniert es ja)
Kann mir Bittöh einer mal sagen was...?

Delphi-Quellcode:
  
  //PaintBox1.Canvas.FillRect(Form1.PaintBox1.ClientRect);
  //Image1.Invalidate;

  // PS. --> ein Bitmap ist in Image1.Picture.Bitmap geladen

  for i:=0 to nLines-1 do
  begin
    Image1.Picture.Bitmap.Canvas.Pen.Color := rgb( lines[i].color, lines[i].color, lines[i].color);
    With Image1.Picture.Bitmap.Canvas do
    begin
      MoveTo(akposx+round(plot[lines[i].a].x), akposy+round(plot[lines[i].a].y));
      LineTo(akposx+round(plot[lines[i].b].x), akposy+round(plot[lines[i].b].y));
    end;
  end;
THX.
Matti
Meine Software-Projekte - Homepage - Grüße vom Rüsselmops -Mops Mopser
  Mit Zitat antworten Zitat