Ok, hab die Stelle im Source mit meinem Delphi angepasst und getestet, nun ist Hintergrund wirklich aussen vor, also Problem gelöst
Also das "end;" ist bei mir nicht direkt so wie Du es darstellst, das liegt viel tiefer im Code.
Tu mir bitte einen gefallen verwende den Original source aus dem Post 1 und wie ich schon sagte!
Zitat:
Lade das Archiv und ersetze die SKAeroAPI und
DLL mit deiner und gut ist.
Danach sollte dein Code 1 zu 1 sein.
Ich blicke da langsam nicht mehr durch.
Ich habe die Änderungen in dem Projekt vorgenommen was im Post 1 abgelegt ist.
Es muss also alles gleich sein.
Hier noch ein Nachschlag..
function SprKitCallBack(WinHandle: HWND; Msg: UINT; wP: WParam; lP: LPARAM): LRESULT; stdcall;
Delphi-Quellcode:
IDM_Lock:
begin
ID := gSprKit.GI_MouseOverObjectID;
if (gSprKit.GD_GetObjectLocked(ID)) then
begin
trbZoom.Enabled := true;
trbRotate.Enabled := true;
gSprKit.GD_SetObjectLocked(ID, false);
end
else
begin
trbZoom.Enabled := false;
trbRotate.Enabled := false;
gSprKit.GD_SetObjectLocked(ID, true);
end;
if (ID > 0) then
gaSprite[ID].locked := gSprKit.GD_GetObjectLocked(ID);
end;
Wenn das Objekt geschlossen (Locked) wird darf es nicht mehr gezoomt oder rotiert werden.
gruss