Ok geht jetzt.
Berechnung war schon richtig nur mein Daten Typ nicht.
Erst Single anschließend zu Integer sonst wird das nix.
Delphi-Quellcode:
sPercent := (((ptNMHDR.code + 180) mod 360) / 360) * 100;
Percent := round(sPercent);
Hab noch ein paar Zahlen zur besseren Kontrolle addiert.
Und die ZOrder stimmt immer noch nicht kommt aber noch, ärgerlich wenn man selbst einen Fehler produziert hat und findet ihn nicht.. Lustig!
Selbst ist der Mann.
gruss