Forum: Multimedia
Delphi
by NetSonic,
18. Mai 2007
Danke bitsetter, wenn ich diese Zeile auskommentiere habe ich auch keine "Streifen" mehr... hätte man vielleicht auch selbst darauf kommen können, das mal aus zu probieren... Aber manchmal fehlt einem einfach die richtige Vermutung oder Idee... :wall:
Forum: Multimedia
Delphi
by NetSonic,
16. Mai 2007
Ok, das werde ich tun aber nun habe ich noch ein anderes Problemchen...
wenn ich die Maus zu schnell bewege oder während der Bewegung einen Mausbutton drücke, löscht der das Fadenkreuz nicht immer, sprich die Striche bleiben mal erhalten und mal nicht. Die folgende Prozedur befindet sich im OnMouseMove Ereignis, oldX und oldY sind Global!
//Fadenkreuz zeichnen, wenn aktiviert
if...
Forum: Multimedia
Delphi
by NetSonic,
16. Mai 2007
Alles Klar! Daran hat es gelegen!
Jetzt klappt die Umwandlung und ich kann schön bei den JPGs bleiben. :-D
Danke.
Forum: Multimedia
Delphi
by NetSonic,
16. Mai 2007
Hm... wenn ich jetzt versuche die JPG-Datei in BMP zu wandeln, bekomme ich einen "abstrakten Fehler" bei TEMPBitmap := TBitmap.Create;:
var
strLageplan: String;
TEMPGraphic: TGraphic;
TEMPBitmap: TBitmap;
begin
strLageplan := 'C:\lageplan.jpg';
Forum: Multimedia
Delphi
by NetSonic,
16. Mai 2007
Danke für den Tipp, ich mache nun folgendes...
imgLageplan.Picture.Bitmap.Canvas.Pen.Mode:= pmNotXor;
imgLageplan.Picture.Bitmap.Canvas.MoveTo(oldX, 0);
imgLageplan.Picture.Bitmap.Canvas.LineTo(oldX, imgLageplan.Height);
imgLageplan.Picture.Bitmap.Canvas.MoveTo(0, oldY);
imgLageplan.Picture.Bitmap.Canvas.LineTo(imgLageplan.Width, oldY);
...
Forum: Multimedia
Delphi
by NetSonic,
16. Mai 2007
Hallo, habe bis jetzt irgendwie keine für mich entsprechende Lösung (auch über die Suche) für folgendes Problem gefunden:
Ich habe ein TImage in das ich ein JPG-Lade. Nun möchte ich bei jeder Mausbewegung (OnMouseMove) ein Fadenkreuz erzeugen, dass bis zu den Rändern der TImage-Komponente reicht. So ähnlich wie in einem CAD-Programm. Die Möglichkeit den Cursor des TImage auf crCross zu stellen...
