EDIT:
Er gibt mir einen ErangeError sagt aber nicht wo.
Weiß ja nicht, ob das früher anderes war, aber wenn man das Programm aus der
IDE heraus im Debugger laufen lässt, kommt in der Regel eine Messagebox hoch, wo man auf Break/Anhalten klicken kann.
Außer natürlich, du hast ERangeError irgendwann mal ganz klugerweise auf ignorieren gestellt.
Nö nur wo man OK klicken kann.
Und nein bei mir werden alle Native BS Exceptions behandelt.
Mit MadExcept geht's aber ich kann die ERangeError's nicht behandeln.
Ich speicher verschiedene Datentypen in propertys wenn dieses Property den Bereich eines Integer verlässt also minus wird
kracht es das kann ich aber nicht ändern.
Delphi-Quellcode:
procedure TSkinEngine.SetProperty(WinHandle: HWND; Item: integer; V: integer);
begin
if (Item > 0) and (Item < EXTEND_EXTRA + 1) and (WinHandle <> 0) then
SetWindowLong(WinHandle, (Item - 1) * 4, V);
end;
Delphi-Quellcode:
function TSkinEngine.GetProperty(WinHandle: HWND; Item: integer): integer;
begin
Result := 0;
if (Item > 0) and (Item < EXTEND_EXTRA + 1) and (WinHandle <> 0) then
Result := GetWindowLong(WinHandle, (Item - 1) * 4);
end;
Sagen wir mal das Property das gelesen wird ist ein HDC und dieses hat einen negativen wert -123134345
Dann tritt ein ERangeError auf.
Ich kann aber bei GetWindowLong kein DWORD zurückgeben und es erwartet einen Integer für Index.
Ich wüsste jetzt nicht wie ich das behandeln sollte.
Erweitertes Beispiel:
SkinEngine.SetProperty(Handle, PROP_TEXT_COLOR, TextCol);
TextCol wird jetzt in das Property gespeichert.
TextColor ist COLORREF also DWord kann minus werte enthalten und das verletzt die Untergrenze (Integer). outofbounds
gruss