Polygon in TBitmap kopieren

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

hy, ich bins mal wieder

ich nehme ein beliebiges polygon mit

Delphi-Quelltext

1:	Image1.Canvas.Polygon

wie kann ich erreichen das das Polygon was ich dort markiert habe in ein TBitmap oder Image kopiert wird und nicht nur einfach übermalt wird?

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Also willst du das Polygon als Bild speichern?

markieren

Delphi-Quelltext

1:
2:
3:

tmpBitmap:=TBitmap.Create;
tmpBitmap.Image.Canvas.Polygon();
tmpBitmap.Saveas(...);

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

naja nich ganz ich hab mich vllt ein wenig unglücklich ausgedrückt
also ich hab ein image, dort lege ich per klick einige punkte fest, nun mochte ich das was ich dort zusammen gegklickt hab in ein neues image oder TBitmap geladen wird und nich wie es die Polygon funktion macht einfach mit ner farbe übermalt

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Achsoooo ja also wenn du die Punkte noch hast dann zeichnest du sie erneut in den Canvas des TBitmap. Ich vermute mal das du die nichtmehr hast, weil du z.B. direkt auf die Maus reagierst.

Dann musst du den Canvas der Komponente/Form auf der du die Punkte zeichnest in den neuen Cnavas der TBitmap kopieren.

Bei beiden sieht das so aus, nur mit dem Bitmap eben:
dsdt.info/tipps/?id=347

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

also die punkte hab ich noch da ich sie mit

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  inc(i);

  Klick[i]:= Point(X,y);
end;

in einen array speicher
im anhang ist ein bild (Eichhorn), auf dem einige punkte (rot) markiert sind, diese solln die klickpunkte darstelln, nun möchte ich das das eichhorn, das sich innerhalb der punkte befindet in das danebenliegende image kopiert wird, die hintergrund farbe ist egal sollte jedoch einfarbig sein, also z.b. weiß oder so

Einloggen, um Attachments anzusehen!

digi_c · Beiträge: 1905 W98, XP D7 PE, Lazarus, WinAVR

Dann verstehe ich aber nicht so recht, wo das Problem ist.

markieren

Delphi-Quelltext

1:	Form1.Paintbox2.Canvas.Polygon(Klick);

Willst du einen Freisteller bauen :-?

Ironwulf · Beiträge: 733 Erhaltene Danke: 2

das problem ist das mir die funktion polygon, einfach nur das bild was ich gern raushaben möchte übermalt

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme