TImage Zeichenproblem

Ehemaliges Mitglied Erhaltene Danke: 1

Hallo,
eine kleine Anleitung, um das Problem zu schildern:
1. Neues Image auf die Form, Standardeigenschaften beibehalten
2. bmp in Image laden
3. Image ein wenig größer ziehen als sein Picture
4. Ellipse über das gesamte Image zeichen:

markieren

Delphi-Quelltext

1:	Image1.Canvas.Ellipse(0,0,image1.width-1, image1.height-1);

Wie man sieht wird die Ellipse nicht vollständig angezeigt. Die Bereiche, die vorher nicht vom geladenen Picture bedeckt wurden, können offenbar auch nicht bemalt werden. Wenn man jedoch vorher kein bmp lädt, klappt alles wunderbar. Warum besteht es überhaupt und wie löse ich das Problem?

.Chef · Beiträge: 1112

Wenn du das Image vergrößerst, musst du auch das Picture.Bitmap vergrößern.

Gruß,
Jörg

_________________
Die Antworten auf die 5 häufigsten Fragen:
1. Copy(), Pos(), Length() --- 2. DoubleBuffered:=True; --- 3. Application.ProcessMessages bzw. TThread --- 4. ShellExecute() --- 5. Keine Vergleiche von Real-Typen mit "="!

wulfskin · Verfasst: Do 30.12.04 18:27

Lösung: PaintBox benutzen, Bitmap durch etwas Mathematik in die Mitte malen und dann die Ellipse zeichnen.

Gruß Hape!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme