Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Teklab,
13. Sep 2004
Habs jetzt so und es funzt super ohne fehler *G*
var p: TPoint;
Wert1: Shortint;
Wert2: Shortint;
begin
p := Image1.ScreenToClient(Mouse.CursorPos);
Wert1 := p.X div 10;
Wert2 := p.Y div 10;
Image2.Left := Wert1*10;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Teklab,
13. Sep 2004
So *G* in der Zeit hab ich mir was eigenes gemacht *G* sicher voll umständlich
aber es erfüllt erstma seinen Zweck, werds aber mit div versuchen
begin
p := Image1.ScreenToClient(Mouse.CursorPos);
Wert1 := Round(p.X /10);
Wert1 := p.X - Wert1*10;
if Wert1 < 0 then
Wert1 := Round((p.X -10)/10)
else
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Teklab,
13. Sep 2004
Ja sorry scheiss überschrift.
Also ich habe in der Image1 eine Jpeg Weltkarte, auf der 10x10 pixel große
Kästchen sind *G* jetzt habe ich ein neues 10x10 Image erstellt und es so
gemacht, dass das kästchen, wenn ich auf die Weltkarte klicke rastert....
aber es funzt noch ned ganz
also MausPos X nehmen, druch 10 teilen, dann runden und mit 10 multiplizieren
dann image2 an diesen wert...