Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Rechteck zeichnen

    Delphi
    by Larsi, 19. Jul 2008
  Ok, jetzt bin ich schon mal wieder ein Stück weiter aber es klappt nicht. Mein Code jetzt ist:
  
  procedure TForm16.FormCreate(Sender: TObject);
  begin
  image1.canvas.Pen.mode :=pmNotXor;
  image1.canvas.pen.style:= psDot; //Gepunktete Linien
  image1.canvas.pen.color:=clRed;
  end;
  
  procedure TForm16.Image1MouseDown(Sender: TObject; Button: TMouseButton;
• Forum: Multimedia

  Re: Rechteck zeichnen

    Delphi
    by Larsi, 19. Jul 2008
  Habs jetzt hinbekommen aber ich habe nochmal ne Frage: Ich habe bsps. das Recheckt: Rec:Trect deklariert, wie kann ich jetzt dieses Rechteck benutzen um zu zeichnen um später damit weiter zuporgrammieren?
  
  
  Kann ich einfach sagen Image1.Canvas.Rec(p1, p2, p3, p4) oder wie macht man das?
• Forum: Multimedia

  Re: Rechteck zeichnen

    Delphi
    by Larsi, 19. Jul 2008
  Kann mir nicht mal jemand sagen, wie ich den Code verändern muss damit das richtig klappt? Was soll das bringen 50 zu addieren?
• Forum: Multimedia

  Re: Rechteck zeichnen

    Delphi
    by Larsi, 19. Jul 2008
  Kannst du mir das mal im Code zeigen?
• Forum: Multimedia

  Rechteck zeichnen

    Delphi
    by Larsi, 19. Jul 2008
  Hi,
  
  mit folgendem Code kann man auf einer Form ein Quadrat zeichnen:
  procedure TForm1.FormCreate(Sender: TObject);
  begin
  canvas.Pen.mode :=pmNotXor;
  canvas.pen.style:= psDot; //Gepunktete Linien
  canvas.pen.color:=clRed;
  end;