Hallo,
seit langer Zeit nutze ich die folgenden Zeilen um in der Resource gespeicherte selbstdefinierte Cursoren (? Cursors?) zu laden.
Delphi-Quellcode:
procedure TSATMAT.LoadCursors;
var
CursorLoadID: HIcon;
begin
CursorLoadID := LoadCursor(hInstance, 'CUCURVE');
screen.Cursors[cuCu] := CursorLoadID;
CursorLoadID := LoadCursor(hInstance, 'CUPEQQ');
screen.Cursors[cuPEQ] := CursorLoadID;
CursorLoadID := LoadCursor(hInstance, 'REDDOT');
screen.Cursors[cuRD] := CursorLoadID;
CursorLoadID := LoadCursor(hInstance, 'CURED');
screen.Cursors[cuRed] := CursorLoadID;
end;
Das hat bisher immer funktioniert, nun bekam ich von einem Kunden einen Fehlerbericht, der hier einen Out of Range Error (win10 / 64) berichtete.
Da bin ich aktuell etwas ratlos, denn die Doku und die Beispiele, die ich finde, geben keinen Hinweise.
Vielleicht hat ja jemand von Euch eine Idee.
Tomy