Autor Beitrag
Roux
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Di 01.07.08 15:56 
Hi!
Wenn ich mittels Bild.Canvas.LineTo(...), ... auf einen TImage "drauf gemalt" habe, kann ich das Bild wieder in den Ursprungszustand zurückversetzen bzw. den Wert bei Picture neu setzen?

Roux
Marc.
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1876
Erhaltene Danke: 129

Win 8.1, Xubuntu 15.10

BeitragVerfasst: Di 01.07.08 16:09 
Hi!
Du könntest theoretisch ein zweites transparentes Image zum Malen auf das HinterGrund-Image drauflegen. Dann würde der vorherige Zustand immer erhalten bleiben und Du bräuchtest lediglich das zweite Image zu übermalen.
ausblenden Delphi-Quelltext
1:
 img.Canvas.FillRect(rect(0,0,img.Width,img.Height));					

Ich will jetzt aber nicht behaupten, dass das die Optimal-Lösung ist. :)

Grüße,
Marc.
ZeitGeist87
ontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic starofftopic star
Beiträge: 1593
Erhaltene Danke: 20

Win95-Win10
Delphi 10 Seattle, Rad Studio 2007, Delphi 7 Prof., C++, WSH, Turbo Pascal, PHP, Delphi X2
BeitragVerfasst: Di 01.07.08 16:13 
kürzer: image1.Canvas.FillRect(image1.Canvas.ClipRect); :mrgreen:

_________________
Wer Provokationen, Ironie, Sarkasmus oder Zynismus herauslesen kann soll sie ignorieren um den Inhalt meiner Beiträge ungetrübt erfassen zu können.
Roux Threadstarter
Hält's aus hier
Beiträge: 15



BeitragVerfasst: Di 01.07.08 16:42 
Die Idee mit der Transparenz hatte ich auch schon - hab ne andere Lösung gefunden:
ausblenden Delphi-Quelltext
1:
Bild.Picture.Bitmap.LoadFromFile('Test.png');					
Narses
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Administrator
Beiträge: 10183
Erhaltene Danke: 1256

W10ent
TP3 .. D7pro .. D10.2CE
BeitragVerfasst: Di 01.07.08 16:51 
Moin!

user profile iconRoux hat folgendes geschrieben:
ausblenden Delphi-Quelltext
1:
Bild.Picture.Bitmap.LoadFromFile('Test.png');					
Mach das mal lieber so: :idea: ;)
ausblenden Delphi-Quelltext
1:
Bild.Picture.Bitmap := NIL;					
cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.