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!
Delphi-Quellcode:
//Fadenkreuz zeichnen, wenn aktiviert
if (strUseCross = 'Enabled') then
begin
imgLageplan.Canvas.Pen.Mode:= pmNotXor;
imgLageplan.Canvas.MoveTo(oldX, 0);
imgLageplan.Canvas.LineTo(oldX, imgLageplan.Height);
imgLageplan.Canvas.MoveTo(0, oldY);
imgLageplan.Canvas.LineTo(imgLageplan.Width, oldY);
imgLageplan.Canvas.Pen.Mode:= pmXor;
imgLageplan.Canvas.Pen.Style:= psDot;
imgLageplan.Canvas.MoveTo(X, 0);
imgLageplan.Canvas.LineTo(X, imgLageplan.Height);
imgLageplan.Canvas.MoveTo(0, Y);
imgLageplan.Canvas.LineTo(imgLageplan.Width, Y);
oldX := X;
oldY := Y;
end;
wie kann man das in den Griff bekommen?