Delphi Problem mit einer Weltmap und 10x10er kästchen...

Thema durchsuchen

Ansicht

Themen-Optionen

Problem mit einer Weltmap und 10x10er kästchen...

Ein Thema von Teklab · begonnen am 13. Sep 2004 · letzter Beitrag vom 13. Sep 2004

Vorheriger Beitrag

Nächster Beitrag

sakura

Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.422 Beiträge

Delphi 12 Athens

Re: Problem mit einer Weltmap und 10x10er kästchen...

13. Sep 2004, 17:57

Dann mal so

zusammenfalten · markieren

Delphi-Quellcode:

			begin

p := Image1.ScreenToClient(Mouse.CursorPos);

Wert1 := p.X div 10;

Wert1 := p.X - Wert1 * 10;

if Wert1 < 0 then

Wert1 := (p.X -10) div 10

else

Wert1 := p.X div 10;

Wert2 := p.Y div 10;

Wert2 := p.Y - Wert2 * 10;

if Wert2 < 0 then

Wert2 := (p.Y-10) div 10

else

Wert2 := p.Y div 10;

Shape1.Left := Wert1 * 10;

Shape1.Top := Wert2 * 10;

end;