Tweet
HAllo liebe Community
Ich arbeite erst seit kurzer Zeit mit Delphi 7 und muss aus privaten Gründen ein Koordinatensystem erstellen.Dieses Koordinatnesystem mit Buttons vergrößern und verkleinern können,man sollte es verschieben können ein Gitternetz sowie Achsen mit Beschriftung erstellen können und auf der Image Komponente eine Farbpalette erstellen zum ändern der Penfarbe. NullX und NullY sollen die Bildschirmkoordinaten des Nullpunktes sein vom Typ Integer.Einheit soll die Einheit im Koordinatensystem in Pixeln bestimmen ebenfalls vom Typ Integer. Die Achsenbeshriftung sollte mit dem Befehl TextOut gelöst werden und für das Gitternetz könnte man eine For-Schleife erstellen die folgendermaßen aussieht : For i:=1 To 200 Do...... Zusätzlich gilt es das Programm in drei Prozeduren zuunterteilen:"Loeschen","Gitter","Achsen".Ein Einstieg könnte wie folgt aussehen:
ausblenden Delphi-Quelltext markieren
1:
2:
3:
4:
5:
6:
procedure TForm1.FormCreate(Sender:TObject);
begin
Einheit:=40;
NullX:=Image1.Width div 2;
NullY:=Image1.Height div 2;
end;
Ich hoffe auf hilfreiche Antworten.
Ich arbeite erst seit kurzer Zeit mit Delphi 7 und muss aus privaten Gründen ein Koordinatensystem erstellen.Dieses Koordinatnesystem mit Buttons vergrößern und verkleinern können,man sollte es verschieben können ein Gitternetz sowie Achsen mit Beschriftung erstellen können und auf der Image Komponente eine Farbpalette erstellen zum ändern der Penfarbe. NullX und NullY sollen die Bildschirmkoordinaten des Nullpunktes sein vom Typ Integer.Einheit soll die Einheit im Koordinatensystem in Pixeln bestimmen ebenfalls vom Typ Integer. Die Achsenbeshriftung sollte mit dem Befehl TextOut gelöst werden und für das Gitternetz könnte man eine For-Schleife erstellen die folgendermaßen aussieht : For i:=1 To 200 Do...... Zusätzlich gilt es das Programm in drei Prozeduren zuunterteilen:"Loeschen","Gitter","Achsen".Ein Einstieg könnte wie folgt aussehen:
ausblenden Delphi-Quelltext markieren
1:
2:
3:
4:
5:
6:
procedure TForm1.FormCreate(Sender:TObject);
begin
Einheit:=40;
NullX:=Image1.Width div 2;
NullY:=Image1.Height div 2;
end;
Ich hoffe auf hilfreiche Antworten.
Comment