hallo leute =)
ich bastel gerade ein bisschen mit Andorra 2D und würde gerne ne grafik auf meinem adDraw per maus bewegen.
das funktioniert soweit auch nur aber irgentwie total versetzt.. also ich kann die grafik bewegen, nur ist die halt immer ein
paar hundert pixel neben dem cursor, was doch ziemlich störend ist.
zeichnen tuhe ich das ganze wie folgt:
Delphi-Quellcode:
procedure TForm1.Idle(Sender: TObject; var Done: Boolean);
var posx, posy: Integer;
begin
AdDraw.ClearSurface(clBlack);
posx := Mouse.CursorPos.X;
posy := Mouse.CursorPos.Y;
if (posx > AdDraw.Display.Width - 90) then posx := AdDraw.Display.Width - 90;
if (posy > AdDraw.Display.Height - 10) Then posy := AdDraw.Display.Height - 10;
AdDraw.BeginScene;
AdImageList.Find('base').Draw(AdDraw, posx, posy, 0);
AdDraw.EndScene;
AdDraw.Flip;
Done := False;
end;
habt ihr vielleicht ne idee woran das liegen könnte?
über hilfe würd ich mich freuen.
gruß