Forum: Multimedia
by verkouter,
2. Apr 2018
Hallo brechi,
die 20 ist der Vergrößerungsfaktor, die(+40) ist die Größe der Elippse ,das entspricht dann in der Zeichnung 2m.
Ich habe mal die neuste Version hochgeladen.Aber ich blicke auch nicht mehr durch.Die Anpassung der Bildgröße habe ich erstmal rausgenommen.
Warscheinlich ist das alles so auf diese Koordinate angepasst, daß es bei neuen Koordinaten wieder garnicht passt.
Forum: Multimedia
by verkouter,
30. Mär 2018
Entschuldigung, das ich mich solange nicht gemeldet habe. Hatte im Moment viel zu tun.
der Fehler lag im ABS vor xn und yn.
procedure TForm1.ToolButton2Click(Sender: TObject);
var winkel,x,y,xn,yn,xc,yc,u,d :real;
Img : TImage;
i:integer;
begin
winkel:=strtofloat(drehwinkel.Text);
xc:=max1-min1;
Forum: Multimedia
by verkouter,
2. Mär 2018
Habe im Internet was zur Drehmatrix gefunden, was ich auch gleich eingebaut habe.
Verstanden habe ich es aber bis jetzt noch nicht.
Wenn ich meine Zeichnung z.B um 33 Grad drehe, werden die Werte negativ, was das Bild natürlich
extrem nach Links verschiebt. Da bin ich noch auf der Suche, irgendwie mit meinen Max-Werten das auszugleichen.
Forum: Multimedia
by verkouter,
28. Feb 2018
Danke erstmal für Eure Hilfe. Ich sortiere jetzt die 2. Spalte nach Größe und dann die 3. Spalte. Bekomme so die kleinsten und größten Werte.
Durch Tauschen von x und y habe ich jetzt eine eingenordete Zeichnung hinbekommen. Gauß-Krüger ???
Hat vielleicht noch Jemand eine Idee, wie ich das ganze um den Bildmittelpunkt drehen könnte. Dabei möchte ich aber nicht das Image drehen, sondern die...
Forum: Multimedia
by verkouter,
27. Feb 2018
Zu erst geht es mir um die Aufbereitung der Kooerdinaten im Stringgrid.
Habe das vorher in Excel gemacht. Soll jetzt aber direkt im Programm stattfinden.
Ich muss zuerst in der Hochwertspalte den kleinsten Wert ermittel ??? ,diesen von allen Werten abziehen, und dass selbe nochmal bei den Rechtswerten.
Daran scheitert es schon.
Forum: Multimedia
by verkouter,
27. Feb 2018
Ich möchte ein Programm schreiben, das eine Exceltabelle (siehe Anhang) in ein Stringgrid liest.(funktioniert)
Dann sollen alle Koordinate auf ein Image gezeichnet werden z.B. als Kreis.
Die Gauß Krüger-Koordinaten sind eigendlich nur Meterangaben in Bezug auf ein Meridian.
Eigendlich muß die Zeichnung ja nur aus den Differenzen der Koordinaten gezeichnet werden, dabei wäre der kleinste...