Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Mann ist das kompliziert oder ich zu blöd :wall: .
Für heute leg ich die Sache wahrscheinlich erstmal aufs Eis.
Hier mein aktueller Code, der auch nicht so funktioniert wie er soll:
procedure TFFluchtpunkt.PaintBox1Paint(Sender: TObject);
var
pcanvas : TCanvas; // Hilfsvariable
i,x: Integer;
begin
// Canvas der Paintbox besorgen
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Das ist doch eigentlich wie sonst auch. x geht nach rechts und y nach oben.
Um die ganze Geschichte jetzt mal etwas zu beschleunigen schick ich euch mal den ganzen Code:
procedure TFFluchtpunkt.PaintBox1Paint(Sender: TObject);
var
pcanvas : TCanvas;
i,x: Integer;
begin
pcanvas := (sender as TPaintbox).Canvas;
pcanvas.pen.color := ClBlack;
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Um den Bildschirm gehts.
Aber bei Programmen wie Word und so, hat man ja auch eine Messskale, mit der man den Rand justieren kann.
Ich habe bei der SETMAPMODE-Funktion jetzt die beiden Parameter vertauscht:
setmapmode(pcanvas.handle,MM_HIMETRIC);
Jetzt wird plötzlich gar nichts mehr gezeichnet.
Gruß
Stefan
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Ich habs jetzt so versucht:
pcanvas := (sender as TPaintbox).Canvas;
pcanvas.pen.color := ClBlack;
setmapmode(MM_HIMETRIC,pcanvas.Handle);
Aber es klappt leider dennoch nicht.
Ich weiss ich geh euch bestimmt mittlerweile schon auf die Nerven, aber ich kriegs einfach net hin :wall: .
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Sorry, ich bin manchmal ein bisschen schwer von Begriff,
aber welches Koordinatensystem meinst du? :?
Ist es schon vorher da oder muss ich das noch implementieren?
Bis jetzt benutze ich ja lediglich eine Paintbox :gruebel: .
Ich hoffe ich hab nix falsch gemacht und bitte um Verständnis, ich habe bis jetzt relativ wenig Programmiererfahrung.
Gruß
Stefan
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Hm, ich hab mich zwar in der Hilfe schon schlau gemacht bezüglich SetMapMode, aber wie wende ich das jetzt prinzipiell an? Was ändert sich durch diese Funktion?
Ich will ja weiterhin Canvas benutzen.
Gruß
Stefan
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Ok, ich guck es mir mal an.
Wenn ich noch Fragen hab, meld ich mich.
Gruß
Stefan
Forum: Sonstige Fragen zu Delphi
Delphi
by Stefan92,
25. Mai 2007
Hallo Leute,
ich weiss jetzt zwar nicht genau ob ich in die richtige Rubrik poste, schildere mein Problem aber trotzdem mal.
Es geht darum eine Zeichnung mit zwei Fluchtpunkten anzufertigen. Die Fluchtpunkte befinden sich in den beiden oberen Ecken des Blattes, wenn es quer liegt.
Anbei ist ein Screenshot, mit dem das ganze hoffentlich klarer wird, erstmal nur mit einem Fluchtpunkt.
Von...