Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Ich schreibe heute zum ersten Mal in diesem Forum und hatte nicht gesehen wie das mit den Tags
funktioniert. Dafür entschuldige ich mich hiermit, finde es aber schon merkwürdigm, daß gerade
diejenigen, die sich über die Formatierung beschweren, nicht zum Thema äußern.
Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Das Problem, das Bild was in das große Image eingefügt wird,wird an den Bildschirm angepasst, ist
als vergrössert oder verkleinert.Die kleinen Images dienen als Messpunkte.Das Polygon ist dann in
falscher größe und stelle.
Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Also,habe jetzt Paintbox auf großes Image gelegt und die vier kleinen obendrauf.
Im ONPAINT der Paintbox folgenter Code:
procedure TForm2.PaintBox1Paint(Sender: TObject);
begin
Canvas.Pen.Color:=clRed;
canvas.Pen.Mode:=pmNotXor;
Canvas.Pen.Style:=psDot;
Canvas.MoveTo(image2.Left+9,image2.top+9);
Canvas.Polygon();
Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Ich habe den Zeichencode in ONPAINT des Formulars kopiert,die mit dem Polygon funktioniert jetzt,
blos die Linien liegen jetzt hinter dem großen Image und sind dauernd sichtbar.
Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Das mit der Paint-Methode verstehe ich nicht. Was muß ich am Quelltext ändern?
Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Ich muss vieleicht noch dazusagen,daß unter den vier kleinen Images eine große Imagekomponente liegt,
in der ein Bild zur Laufzeit geladen wird.Die Imagekomponente steht auf Stretch,deshalb wollte ich
nicht direkt auf das Image malen.
Forum: Multimedia
Delphi
by verkouter,
4. Jan 2009
Hallo, ich bin neu im Forum.
Ich habe auf eine Form vier kleine Image liegen die mit der Maus beweglich sind.
Nur wenn ich eine der Bilder bewege,soll zwischen allen bildern ein Polygon gezeichnet werden,
daß wieder verschwindet wenn die Maus losgelassen wird.
Mein Quelltext.
procedure TForm2.ImageMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);...
