Linie im Winkel zeichnen

[GroZ]

Leider nein

[Aphton]

Zitat von GroZ:

Leider nein

Im StrichClick() greifst du auf den Canvas des Formulars zu, anstatt wie bei PaintBox1Paint() auf den Canvas der Paintbox zuzugreifen

[GroZ]

Zitat von Aphton:

Zitat von GroZ:

Leider nein

Im StrichClick() greifst du auf den Canvas des Formulars zu, anstatt wie bei PaintBox1Paint() auf den Canvas der Paintbox zuzugreifen

Habe es jetzt gelöst danke an alle!

Delphi-Quellcode:

unit Uhr;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Winkel: TEdit;
    Strich: TButton;
    Reset: TButton;
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
    procedure ResetClick(Sender: TObject);
    procedure StrichClick(Sender: TObject);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i : integer;

implementation

{$R *.dfm}

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  LCanvas: TCanvas;
begin

LCanvas := TPaintBox(Sender).Canvas;

  LCanvas.Ellipse(100,100,400,400);        // Kreis zeichnen


end;

procedure TForm1.ResetClick(Sender: TObject);
begin

paintbox1.Repaint ;                      // Clear
end;

procedure TForm1.StrichClick(Sender: TObject);
var Radi, Gradi, R, PX, PY : double ;
    MX, MY, PXi, PYi : integer ;

begin

MX := 250;                          // Mittelpunkt
MY := 250;
R  := 150;
Canvas.MoveTo(MX,MY);
//Canvas.lineto(280,125);

Gradi := StrToFloat(Winkel.Text) ;

Radi :=  3.14 *(Gradi/180);         // Rechnung

PX := cos(Radi)* R + MX ;
PY := MY-sin(Radi)* R;
PXi := trunc(PX) ;                    // Von ??? zu Integer umwandeln
PYi := trunc(PY) ;
Canvas.lineTo(PXi,PYi) ;








end;



end.

[Aphton]

Naja, das nebensächliche Problem besteht weiterhin.. Ansosnten - kein Problem

[Popov]

@GroZ

Paar kleine Vorschläge:

- nimm die Konstante Pi statt 3,14. Kostet nix, ist bereits im System.
- Nutze lieber Round() statt Trunc(). Round rundet kaufmännisch, Trunc schneidet nur die Nachkommastellen ab.

Das alles ist zwar nicht ganz wichtig, kann aber den Unterschied ausmachen ob z. B. Punkt 9 Uhr klein wenig drunter oder über dem Punkt ist.

[SProske]

Zitat von Popov:

- nimm die Konstante Pi statt 3,14. Kostet nix, ist bereits im System.

Wieso nicht gleich DegToRad aus der Math?

Radi := DegToRad(Gradi);

[Popov]

Zitat von SProske:

Wieso nicht gleich DegToRad aus der Math?

Radi := DegToRad(Gradi);

Kann man auch nehmen, dazu braucht man aber die Unit Math. Das ist an sich kein Problem, aber in Anbetracht dessen, dass es ein unerfahrener Programmierer ist, stellt sich die Frage ob man für Kleinigkeiten extra eine weitere Unit einbinden soll. Den schließlich muss er den Code auch verstehen und u.U. vertreten.

Aber nein, im Prinzip spricht nichts dagegen.

[GroZ]

Zitat von Popov:

@GroZ

Paar kleine Vorschläge:

- nimm die Konstante Pi statt 3,14. Kostet nix, ist bereits im System.
- Nutze lieber Round() statt Trunc(). Round rundet kaufmännisch, Trunc schneidet nur die Nachkommastellen ab.

Das alles ist zwar nicht ganz wichtig, kann aber den Unterschied ausmachen ob z. B. Punkt 9 Uhr klein wenig drunter oder über dem Punkt ist.

Pi hab ich gesucht sowohl bei math als auch bei system leider nix drin. keine ahnung wieso. round hatte ich erst aber es hat dann nicht gepasst bei den linien. beim nächsten mal.

[Popov]

Pi befindet sich in der Unit System. Die ist in der Regel schon eingebunden, so dass du einfach nur noch Pi schreiben musst. Beispiel: ShowMessage(FloatToStr(Pi)); .

Die Funktion Round ist nur ein guter Tipp. Aus Erfahrung weiß ich, dass es manchmal um die Nachkommastellen geht. Round ist öfter näher am richtigen Ergebnis als Trunc.

[BadenPower]

Zitat von Aphton:

Naja, das nebensächliche Problem besteht weiterhin.. Ansosnten - kein Problem

Als Nächstes kommen folgende Fragen des TE:

1.:
Ich habe die PaintBox im Formular um 100 Pixel nach unten verschoben, nun stimmt mein Anfangspunkt der Linie nicht mehr mit dem Mittelpunkt des Kreises überein.

2.:
Wenn ich die Anwendung minimiere und dann wieder Anzeigen lasse, dann sind meine gezeichneten Linien verschwunden.

3.:
Meine Linen bei 180 und 270° sind nicht gerade.