Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#75

AW: WatchKit... (Uhren Baukasten)

  Alt 19. Jun 2018, 02:25
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

Geändert von EWeiss (19. Jun 2018 um 04:02 Uhr)
  Mit Zitat antworten Zitat