WatchKit... (Uhren Baukasten)

[Daniel]

Detailfragen, wessen Delphi was nicht verwerten kann, könnt Ihr per PN klären. Hat für die Allgemeinheit wenig Mehrwert.

[EWeiss]

Zitat:

Zitat von Daniel (Beitrag 1404944)

Detailfragen, wessen Delphi was nicht verwerten kann, könnt Ihr per PN klären. Hat für die Allgemeinheit wenig Mehrwert.

Was ist denn jetzt wieder los?
Wenn dir mein Thema nicht gefällt darfst du es gerne löschen. Du bist der Boss
Er wollte mir helfen das Teil zu debuggen was ist also falsch daran das ich ihm sage das D2009 keine Generics kennt?

gruss

[KodeZwerg]

Zitat:

Zitat von Daniel (Beitrag 1404944)

Detailfragen, wessen Delphi was nicht verwerten kann, könnt Ihr per PN klären. Hat für die Allgemeinheit wenig Mehrwert.

So könnte man in Post #1 Beschreibung ein "Benötigt mindestens Delphi 2010" einfügen, sinnvoll für Allgemeinheit zwecks Mehrwert?

[EWeiss]

Neue Version
Menu Problem behoben verwende jetzt ein Skin-Menu

gruss

[EWeiss]

fertig..
Da es niemanden zu interessieren scheint erspare ich mir weiteren upload.
Unnötige Bilder die nicht zu einer Frage Stellung gehören gelöscht.

gruss

[KodeZwerg]

Hab Angst hier noch etwas zu Schreiben.

Mfg.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1404974)

Hab Angst hier noch etwas zu Schreiben.
Mfg.

Mache es über PN! (Hast ja schon ;) )
Danke für die Info..

Soweit sind wir hier schon..

gruss

[EWeiss]

Da doch noch Interesse bestand 11 Downloads!
Hier ist die Final Version.. Wie immer oben zu laden.

In der Originalen Größe benötigt die Uhr selbst 0% CPU
In gezoomter variante egal ob kleiner oder größer 5 > 6% es hat damit zu tun weil ich den Scale(Zoom) Factor dann noch zusätzlich berechnen muss.

gruss

[CCRDude]

Zitat:

Zitat von EWeiss (Beitrag 1405036)

In gezoomter variante egal ob kleiner oder größer 5 > 6% es hat damit zu tun weil ich den Scale(Zoom) Factor dann noch zusätzlich berechnen muss.

Ich bin ja in Sachen visueller Komponenten nicht so bewandert, aber würde es dann nicht Sinn machen, die Grafiken nur jeweils bei Zoom-Änderug zu skalieren und dann skaliert zu cachen und mit dem Cache weiter zu arbeiten?

[API]

Irgendwie komme ich nicht zurecht mit dem Drag und Drop. Angehängt meine (hilflosen) Versuche, die Zeiger auf der Uhr zu positionieren.

Wäre ein einfacher Klick auf eine Uhr, auf einen Zeiger nicht einfacher anstelle des Drag und Drops?

Vielleicht mache ich ja etwas falsch oder ich verstehe den Sinn und Zweck des Drag und Drop nicht. ...

[KodeZwerg]

Ist bei mir ähnlich, ich bekomme es auch nicht gebacken eine Uhr zu basteln.
Anhang 49305 so sehen meine besten Versuche aus, wenn Überhaupt mal die Objekte da bleiben.
Nur der Minuten-Zeiger reiht sich nach paar Sekunden alleine ein.

[EWeiss]

Zitat:

Zitat von API (Beitrag 1405050)

Irgendwie komme ich nicht zurecht mit dem Drag und Drop. Angehängt meine (hilflosen) Versuche, die Zeiger auf der Uhr zu positionieren.

Nun ja so wirr wie du versuchst die Zeiger auf die Uhr zu klatschen wird das auch nichts.

1. Wenn man die Zeiger direkt auf das Blatt droppen will dann muss man schon die Maus auf die Mitte platzieren und dann das Objekt fallen lassen.
2. Die andere Methode wäre diese das du den Zeiger auf das Working Area ablegst und anschließend diesen nochmals anklickst
danach sollte ein Rechteck gezeichnet werden das dir genau zeigt wo hin du den Zeiger ziehen musst.

Zitat:

Wäre ein einfacher Klick auf eine Uhr, auf einen Zeiger nicht einfacher anstelle des Drag und Drops?

Nochmal.. Ja es wäre einfacher aber nicht der Sinn und zweck für dieses Projekt.
Ich wollte\muss lernen wie ich meine Objekte von einem beliebigen Container in einem anderen verschieben kann.
Das war für mich der Sinn des Projektes so wie du sehen kannst funktioniert es recht gut.

Zitat:

Vielleicht mache ich ja etwas falsch oder ich verstehe den Sinn und Zweck des Drag und Drop nicht. ...

Noch mal der Sinn und Zweck ist bei diesen Projekt die Funktion des DragDrop zu erlernen.

Zitat:

Ist bei mir ähnlich, ich bekomme es auch nicht gebacken eine Uhr zu basteln.

Ihr seit einfach zu Hecktisch bei mir funktioniert jeder DragDrop ohne Ausnahme.
Aber! Man kann die Zeiger auch absichtlich neben den Mittelpunkt fallen lassen :)
Dann sieht es bei mir genauso aus.

EDIT:
Siehe Anhang es gibt die Möglichkeit für Blinde es visuell anzeigen zu lassen wohin das Objekt muss.
Lege das Objekt zuvor auf das Working Area ab klick es erneut an danach siehst du diese Objekte einen Pfeil und 2 Rechtecke wenn du das Objekt mit der Maus festhältst und verschiebst

So noch einfacher geht es wirklich nicht.
Nebenbei ihr wisst schon wie schwierig es ist einen Bereich von 1 Pixel exakt zu treffen?
Dafür gibt es die Snap Funktion! Die das für euch erledigt wenn ihr zu Hektisch seid und keine Zeit habt.

PS:
@API Mit was hast du das Video erstellt?

gruss

[KodeZwerg]

Die Geschwindigkeit war es :thumb: , also so funktioniert es bei mir:
Uhr in Box droppen,
Zeiger in Box droppen,
Zeiger nochmal auswählen (das die grüne Linie dargestellt wird) und langsam Richtung Oben/Links bewegen dann "snapped" es auch,
das gleiche mit zwei weiteren Zeigern und gut ist.
Sorry, war ein Bedienfehler, klappt gut!

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405072)

Die Geschwindigkeit war es :thumb: , also so funktioniert es bei mir:
Uhr in Box droppen,
Zeiger in Box droppen,
Zeiger nochmal auswählen (das die grüne Linie dargestellt wird) und langsam Richtung Oben/Links bewegen dann "snapped" es auch,
das gleiche mit zwei weiteren Zeigern und gut ist.
Sorry, war ein Bedienfehler, klappt gut!

Oder mach es so wie im 2 Bild gezeigt.
Wenn du zu schnell bist darfst du dich nicht von der Darstellung des Zeigers verwirren lassen. (Irgendwie gibt es hier ein zeitliches Problem)
Lass die Maus da los wo du meinst das es korrekt ist nicht da wo der Zeiger sichtbar ist.


gruss

[mensch72]

Wie Emil schrieb... das mit den Uhren ist schick anzuschaun, aber der "Wert" der Lösung steckt im universellen Ansatz und der offenen Realisierung.

Ich werde da mal in einer freien Minute was mit quadratischen und Rechteckigen Grundformen mit verschiedenen Oberflächen(Glas,Plaste,Alu,Stahl,Messing,Bronze,K upfer,Silber,Gold jeweils matt oder glänzend) angehen. Darauf können dann Symbole mit oder ohne Rahmen und Text, Leuchtflächen, Displays(7Segment oder grafische OLEDs), Touchflächen frei posititioniert und angeordnet werden.
Wenn fertig kann Architekt oder Innenraum/Licht-Designer sich das in virtueller Funktion testen und wenn möglich passend zu einer Basis-Serie beauftragen... im Hotelbereich für EdelSuiten oder HighEnd Smarthomes kommt so in Kleinstückzahl individualisierbares und real produzierbares Design echt gut(Jung, Merthen, Bush/Jäger können zwar viel, aber da ist auch die Stärke von Firmen wie Messerschmitt oder Interrel :)

Win10 oder XY fähig und wie bedienbar.. da ist doch vieles ne Frage des Geschmacks... die Funktion für Design und Visualisierung ist top!

[EWeiss]

Zitat:

Wie Emil schrieb... das mit den Uhren ist schick anzuschaun, aber der "Wert" der Lösung steckt im universellen Ansatz und der offenen Realisierung.

Zum letzten mal werde ich darauf eingehen. ;)
Es ging mir bei den Projekt darum DragDrop zu implementieren um nichts anders.
Das es auch einfach geht mit einem einfachen Doppelklick auf einen Zeiger ist mir bekannt und wäre ein einfaches das umzusetzen
Aber darum geht es hier bei diesen Projekt nicht.

Die Antwort bezieht sich auf universellen Ansatz
Falls du das damit meinst ;)
Wenn nicht vergiss den Post.

Falls du mit universellen Ansatz das meinst!
Ja es wäre ein einfaches das Projekt zu einem Raumgestalter umzuwandeln.
Man könnte dann zum Beispiel einen Plan einer Wohnung als Hintergrund wählen
Und Raumgestaltungs Objekte Schränke, Couch und was es da alles so gibt und fertig.

Es kommt halt auf die Grafik Objekte an die man verwendet.
Habe mal ein neues Pic erstellt zu Demonstrations zwecken.
Den Plan kann man verschieben und entsprechende Objekte platzieren wenn man denn möchte.

gruss

[KodeZwerg]

generelle Vorschläge:
Wenn man ein Bild dragged, das es Zentriert auf Mausposition ist? Weil beim drop kommts so raus, also da stimmt dann nicht das visuelle mit den tatsächlichen überein.
Wenn man das Extra Fenster mit Farbe auf hat, das dort der [X] Knopf das Fenster schließt?
Schön wäre bei den Color-Settings eine ComboBox mit Objekt-Auswahl (Bild und Zeiger H/M/S einzeln).

Uhren Baukasten Vorschläge:
Wenn man eine Uhr fertig hat und ein anderes Ziffernblatt droppt, wäre es schön wenn dabei die Zeiger nicht gelöscht werden sondern das alles beibehalten bleibt, vielleicht sogar geänderte Farbe, da ist ja ein "Reset" button vorhanden.
Vielleicht eine Checkbox anbieten das Zeiger gleich beim drop gesnapped sind?

[EWeiss]

Zitat:

Wenn man ein Bild dragged, das es Zentriert auf Mausposition ist? Weil beim drop kommts so raus, also da stimmt dann nicht das visuelle mit den tatsächlichen überein.

Ja es gibt hier ein Zeitliches Problem muss noch analysieren woran es liegt. :)
Du kannst es einfach testen suche einen Zeiger aus klick drauf und warte ein paar Millisekunden erst dann verschiebe ihn
danach ist er genau da wo sich auch der Mauszeiger befindet.

Zitat:

Wenn man das Extra Fenster mit Farbe auf hat, das dort der [X] Knopf das Fenster schließt?

Sorry nein das Fenster wird über das Menu geöffnet und soll damit auch geschlossen werden.
Ich öffne das Fenster über den Thread des MainMenu und über diesen Thread soll es auch geschlossen werden.

Zitat:

Schön wäre bei den Color-Settings eine ComboBox mit Objekt-Auswahl (Bild und Zeiger H/M/S einzeln).

Das wäre doppelt gemoppelt.
Ein klick auf das entsprechende Objekt und du kannst die Farben ändern wie du willst.

Zitat:

Wenn man eine Uhr fertig hat und ein anderes Ziffernblatt droppt, wäre es schön wenn dabei die Zeiger nicht gelöscht werden.

Das geht nicht weil durch das löschen eines in der ZOrder unten liegenden Objekt sich die ZOrder aller darüber liegenden Objekte verändert.
Es macht keinen sinn und ist auch in der Realität nicht so..
Wenn ich als Uhrmacher ein Zeigerblatt ersetze dann gibt es keine Zeiger die sich noch auf dem Blatt befinden.
Beispiel:
Du hast alle Zeiger addiert und änderst den Sekundenzeiger dann bleibt alles wie es ist nichts wird gelöscht nur der Sekundenzeiger ersetzt.
Du hast alle Zeiger addiert und änderst den Minutenzeiger dann wird der Sekundenzeiger gelöscht und der Minutenzeiger ersetzt.
Du hast alle Zeiger addiert und änderst den Stundenzeiger dann wird der Sekundenzeiger und Minutenzeiger gelöscht und der Stundenzeiger ersetzt.
Du hast alle Zeiger addiert und änderst das Zeigerblatt dann wird alles gelöscht und das Zeigerblatt (Ziffernblatt? wie auch immer :lol: ) ersetzt.
Das ist die Reihenfolge auch in der Realität.
Wenn ein Uhrmacher den Minutenzeiger ersetzen will muss er zuerst den Sekundenzeiger entfernen. ;)

Was ich noch machen könnte das man die aktuelle Einstellungen speichern kann.
Mal sehn.

Danke für das Feedback.

gruss

[API]

Zitat:

Zitat von EWeiss (Beitrag 1405067)

Zitat:

Zitat von API (Beitrag 1405050)

Irgendwie komme ich nicht zurecht mit dem Drag und Drop. Angehängt meine (hilflosen) Versuche, die Zeiger auf der Uhr zu positionieren.

Nun ja so wirr wie du versuchst die Zeiger auf die Uhr zu klatschen wird das auch nichts.
1. Wenn man die Zeiger direkt auf das Blatt droppen will dann muss man schon die Maus auf die Mitte platzieren und dann das Objekt fallen lassen.

Zitat:

Zitat von EWeiss (Beitrag 1405085)

Ja es gibt hier ein Zeitliches Problem muss noch analysieren woran es liegt. :)

Und es hat sich doch herausgestellt, dass das Draggen nicht optimal funktioniert...

[EWeiss]

Zitat:

Und es hat sich doch herausgestellt, dass das Draggen nicht optimal funktioniert...

Und nu was sagt mir das? Du hast natürlich recht und du hättest mein Zitat nicht noch mal zitieren müssen denn das hier ein Fehler vorliegt sagte ich schon.
Da scheint mir doch irgendwie Schadenfreude aufzukommen.

Nebenbei ich habe auch noch einen anderen Fehler entdeckt. Das letzte Objekt wird nicht addiert.
Alle Abfragen mit

Delphi-Quellcode:

0 to CountMax - 1

müssen mit

Delphi-Quellcode:

0 to CountMax

ersetzt werden

Und alle Listen bsp. FaceList

Delphi-Quellcode:

CountMax := FaceList.Count - 1;

muss mit

Delphi-Quellcode:

CountMax := FaceList.Count;

ersetzt werden
Ansonsten wird die letzte Uhr nicht angezeigt das gleiche gilt für die Zeiger!

Delphi-Quellcode:

HourMax := HourList.Count - 1;

zu

Delphi-Quellcode:

HourMax := HourList.Count;

Delphi-Quellcode:

MinMax := MinList.Count - 1;

zu

Delphi-Quellcode:

MinMax := MinList.Count;

Delphi-Quellcode:

SecMax := SecList.Count - 1;

zu

Delphi-Quellcode:

SecMax := SecList.Count;

Sorry.. Ich hoffe ihr könnt es selbst oder müsst bis zum nächsten Update warten wenn noch eins kommt.

gruss

[EWeiss]

Zitat:

Und es hat sich doch herausgestellt, dass das Draggen nicht optimal funktioniert...

Ok sorry kann das so nicht stehen lassen..
Im Anhang 1 Archiv mit 2 Vid's damit du sehen und lernen kannst wie man DragDrop verwendet.

Beide varianten einmal direkt DragDrop und einmal ablegen auf Working Area und Drop. *.wmv Format
Anhang der Videos gelöscht.

gruss

[EWeiss]

Wer möchte kann das noch selber addieren..

Delphi-Quellcode:

function WinMain(hInstance: HINST; hPrevInstance: HINST; lpCmdLine: PChar; nCmdShow: integer)
  : integer; stdcall;

var
  Spinner: ISkinSpinner;
  SpinnerHandle: HWND;
  SpinnerResult: HWND; 
  SpinnerFile: string;
  SpinnerAnimate: BOOL;
//...
begin

  // Skin Initialisieren und einstellungen laden
  SKAERO_InitSkin(MainHandle, DefSkin, false, true);

  Spinner := CTRL_SpinnerCreate;
  SpinnerFile := SKAERO_FOLDER + 'Spinner.png';
  SpinnerHandle := Spinner.CreateWindow(GetDesktopWindow);
  SpinnerAnimate := Spinner.Start(GetDesktopWindow, SpinnerHandle, SpinnerFile, 30);

//...
  SetForegroundWindow(MainHandle);
  SetFocus(HSprFace);  

  if SpinnerAnimate then
  begin
    SpinnerResult := Spinner.Stop;
    if SpinnerResult = 0 then
    begin
      Spinner._Release;
      Spinner := nil;
    end else
    // mach was mit error.. MsgBox oder was auch immer, "Window wurde nicht geschlossen"
  end;

  SetTimer(HSprFace, SCALE_TIMER, 0, nil);
//...
end;

Die Datei im Anhang muss nach Skins\Watcheskit kopiert werden.
Anhang gelöscht ist im neuen Update enthalten.

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1405142)

Delphi-Quellcode:

  SetTimer(HSprFace, SCALE_TIMER, 0, nil);

Wollte es gerade mal versuchen aber der sagt "SCALE_TIMER" = undefiniert.
Ich habe noch ein "SCALE_TIMER: Cardinal;" bei Var aufgenommen, uninitialisiert

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405145)

Zitat:

Zitat von EWeiss (Beitrag 1405142)

Delphi-Quellcode:

  SetTimer(HSprFace, SCALE_TIMER, 0, nil);

Wollte es gerade mal versuchen aber der sagt "SCALE_TIMER" = undefiniert.
Ich habe noch ein "SCALE_TIMER: Cardinal;" bei Var aufgenommen, uninitialisiert

Den gibt es nicht?
Dann solltest du das Archiv mal aktualisieren bzw. neu laden.
Denn es gibt ihn definitiv!

Delphi-Quellcode:

      SetForegroundWindow(MainHandle);
      SetFocus(HSprFace);

      SetTimer(HSprFace, SCALE_TIMER, 0, nil); //<<<<<<<<<<<<<<
      // Windows Messagen verarbeiten
      while GetMessage(Msg, 0, 0, 0) do
      begin
        if IsDialogMessage(MainHandle, Msg) = false then
        begin
          TranslateMessage(Msg);
          DispatchMessage(Msg);
        end;
      end;

Den Spinner Kram addieren das andere ist vorhanden und nur im Code eingefügt um zu zeigen an welcher Position die Änderungen eingefügt werden sollen.

Zitat:

funktioniert gut der animated Splash!

Es ist kein Splash es ist ein Spinner Control! ;)

gruss

[KodeZwerg]

edit
Ok nun ist alles bei mir mit last-release abgeglichen, ist ja wirklich nur diese eine Änderung nötig gewesen für mein Delphi, nun weiß ich ja wo/wie und komme in Zukunft gut damit klar!

[EWeiss]

Sorry ich verstehe dich nicht!
Du sagtest SCALE_TIMER wäre nicht definiert und du hättest es selber aufgenommen.

Wenn dem so ist dann verwendest du eine alte Version.
In der neuen ist es definitiv vorhanden.

uGlobal.. zeile 60
SCALE_TIMER = 3;

Zitat:

edit
Ok ich schau bei dem Post #1 Download wo SCALE_TIMER definiert ist

Lade das Archiv und ersetze die SKAeroAPI und DLL mit deiner und gut ist.

Zitat:

und aktualisiere bei mir entsprechende Stelle.

Damit ist es auch nicht getan die entsprechende stelle zu aktualisieren dir muss klar sein das der Timer auch etwas tut.
Diese Funktionen fehlen dann bei dir alle.

gruss

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405148)

edit
Ok nun ist alles bei mir mit last-release abgeglichen, ist ja wirklich nur diese eine Änderung nötig gewesen für mein Delphi, nun weiß ich ja wo/wie und komme in Zukunft gut damit klar!

:glaskugel: Und was machst du nun mit dem Timer ? :roll: tsssss..
Die Faces werden skaliert du siehst das Flare du hast einen mirror Effekt wenn dem so ist OK!

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1405153)

Zitat:

Zitat von KodeZwerg (Beitrag 1405148)

edit
Ok nun ist alles bei mir mit last-release abgeglichen, ist ja wirklich nur diese eine Änderung nötig gewesen für mein Delphi, nun weiß ich ja wo/wie und komme in Zukunft gut damit klar!

:glaskugel: Und was machst du nun mit dem Timer ? :roll: tsssss..
Die Faces werden skaliert du siehst das Flare du hast einen mirror Effekt wenn dem so ist OK!

gruss

Ich meinte damit nicht das ich lediglich den Cardinal aufnahm, ich meinte deinen Post #1 Release für mein Delphi anpassen, da ist nur eine Änderung nötig, nun weiß ich wo/wie durch Vergleich. (In der Api)

[KodeZwerg]

Anhang 49322 Hier siehst Du warum ich mir im Extra-Fenster eine Objekt-ComboBox wünsche.
Was hab ich da ausgewählt und skaliert und gedreht? Den Hintergrund.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405155)

Anhang 49322 Hier siehst Du warum ich mir im Extra-Fenster eine Objekt-ComboBox wünsche.
Was hab ich da ausgewählt und skaliert und gedreht? Den Hintergrund.

Ja den Hintergrund..
Und scheint logisch wenn du den Quelltext änderst und nicht weist was du tust.
Den normal kann man den Hintergrund nicht ändern der wurde von mir mit SetObjectLocked geblockt.
Ist ein Fehler darf normaler weise nicht passieren sorry.
Aber dafür braucht man keine Combo muss das nur fixen.

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1405156)

Zitat:

Zitat von KodeZwerg (Beitrag 1405155)

Anhang 49322 Hier siehst Du warum ich mir im Extra-Fenster eine Objekt-ComboBox wünsche.
Was hab ich da ausgewählt und skaliert und gedreht? Den Hintergrund.

Ja den Hintergrund..
Und scheint logisch wenn du den Quelltext änderst und nicht weist was du tust.
Den normal kann man den Hintergrund nicht ändern der wurde von mir mit SetObjectLocked geblockt.

gruss

Ich habe nur in der Api die Delphi 2009 anpassung gemacht, der Rest kommt aus Post #1.

[KodeZwerg]

Anleitung um den Fehler mit Deinem Build reprodurierbar nach-zu-voll-ziehen:

Starte Deine .exe
DragDrop ein Ziffernblatt
Öffne Extra-Fenster
DragDrop ein weiteres Ziffernblatt
Verändere im Extra-Fenster was auch immer, es wird der geblockte Hintergrund genommen.

Gruß :thumb:

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405158)

Anleitung um den Fehler mit Deinem Build reprodurierbar nach-zu-voll-ziehen:

Starte Deine .exe
DragDrop ein Ziffernblatt
Öffne Extra-Fenster
DragDrop ein weiteres Ziffernblatt
Verändere im Extra-Fenster was auch immer, es wird der geblockte Hintergrund genommen.

Gruß :thumb:

Danke ;) hier der Fix.

Delphi-Quellcode:

function SprKitCallBack(WinHandle: HWND; Msg: UINT; wP: WParam; lP: LPARAM): LRESULT; stdcall;

Delphi-Quellcode:

      WM_LBUTTONDOWN:
        begin
          if (ID <> -1) then
            if ID <> ID_KBACKGROUND then
              gnFocusID := ID;
        end;

gruss

[KodeZwerg]

Ok, hab die Stelle im Source mit meinem Delphi angepasst und getestet, nun ist Hintergrund wirklich aussen vor, also Problem gelöst:thumb::thumb:

Also das "end;" ist bei mir nicht direkt so wie Du es darstellst, das liegt viel tiefer im Code.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405160)

Ok, hab die Stelle im Source mit meinem Delphi angepasst und getestet, nun ist Hintergrund wirklich aussen vor, also Problem gelöst:thumb::thumb:

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..

Delphi-Quellcode:

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

[KodeZwerg]

Ich muss nochmal auf den Fehler mit dem Hintergrund kommen, sorry.
Also gleiche Vorgehensweise,
.exe starten
dragdrop bild
extras öffnen
dragdrop bild

nun verändere Farbe, da wird dann der Hintergrund bedient. Irgendwann reagiert gar nichts mehr korrekt, da verhaspelt sich was und Programm friert ein.
Übrigens je mehr man mit "Hue" rumspielt um so schneller wird der gesamte Hue Slider funktionslos. Der Rest der Slider arbeitet spitze! (Jedenfalls konnte ich nichts schlimmes beim herumspielen entdecken)

Ich habe auch ein paar Probleme mit meinem Delphi und der Dll, aber das schreib ich dann in mail wenn es soweit ist.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1405164)

Ich muss nochmal auf den Fehler mit dem Hintergrund kommen, sorry.
Also gleiche Vorgehensweise,
.exe starten
dragdrop bild
extras öffnen
dragdrop bild

nun verändere Farbe, da wird dann der Hintergrund bedient. Irgendwann reagiert gar nichts mehr korrekt, da verhaspelt sich was und Programm friert ein.
Übrigens je mehr man mit "Hue" rumspielt um so schneller wird der gesamte Hue Slider funktionslos. Der Rest der Slider arbeitet spitze! (Jedenfalls konnte ich nichts schlimmes beim herumspielen entdecken)

Ich habe auch ein paar Probleme mit meinem Delphi und der Dll, aber das schreib ich dann in mail wenn es soweit ist.

Sorry kann deine Fehler nicht nachvollziehen.

Und ohne das du den original source verwendest kann ich da nichts tun.
Ich habe schon wunde Finger vor lauter Slider hin und her bewegen da friert nix ein und alles lässt sich so bedienen wie es sein soll inklusive HUE Slider.
Der Hintergrund Working Area verändert sich auch nicht.
Da muss ich leider passen.

Kommt mir langsam vor als wenn ich Diablo am zocken wäre meine arme Maus.

PS:
Warum löschst du deine Beiträge und auch noch die welche ich zitiert habe manchmal verstehe ich dich nicht.

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1405166)

Und ohne das du den original source verwendest kann ich da nichts tun.

Kannst Du auch irgendwann mal wieder aufhören das zu Wiederholen?
A) Es ist immer dein Binary was ich benutze
B) Es ist demzufolge immer Dein Original Source den ich nicht benutze da ich nur .exe aufrufe
C) Wenn ich etwas ändere, dann nur die API/DLL damit ichs kompilieren kann, mehr nicht

Ich hoffe das ist jetzt klar.

Den Beitrag hatte ich gelöscht weil ich den falschen editiert/gespeichert hatte, kann ich auch wiederherstellen falls ich noch Zugriff darauf haben sollte. Ich lade es nun runter, ich PN Dich wenn fertig.

Anhang 49324 So sieht es mit Deinem Kompilat übrigens aus, kurz darauf stürzt Programm dann immer ab.

[EWeiss]

Zitat:

Ich hoffe das ist jetzt klar.

Leider nicht.

Zitat:

Es ist demzufolge immer Dein Original Source den ich nicht benutze da ich nur .exe aufrufe

Wenn dem so ist dann begreife ich deine Fehlermeldung nicht.
Denn so wie ein Paar Beiträge vorher schon gesagt sollte dir dann klar sein das in der alten EXE das Problem mit dem Hintergrund noch nicht gefixt wurde.
Du postest also Fehler die schon lange behoben wurden der Hintergrund kann sich bei mir nicht ändern.

Zitat:

Und ohne das du den original source verwendest kann ich da nichts tun.

Nochmal!
Da du den Nicht verwendest inklusive meiner Änderung postest du Fehler die nicht mehr vorhanden sind.

Zitat:

Ok, hab die Stelle im Source mit meinem Delphi angepasst und getestet, nun ist Hintergrund wirklich aussen vor, also Problem gelöst

Hier schreibst du selbst das du es angepasst hast.
Was denn nun die Originale EXE oder die von dir geänderte.
Wenn es die von dir geänderte ist kann der Fehler nicht mehr auftreten weil der Hintergrund niemals den Focus erhalten kann.
Ich bin langsam das hier :?

gruss

[KodeZwerg]

Okay ich habe mich falsch Ausgedrückt.
Ich meinte, ich Benutze Code aus Post #1 mit den Änderungen die Du seit dem hier geschrieben hast.

Also mein Kompilat enthält Post #1 .exe inklusive des Fixes das man Hintergrund nicht mehr drehen oder zoomen kann.
Inklusive Spinner was damit nichts zu tun hat, Fehler bezieht sich auf ein Zeile drüber.

Damit ist der Schnappschuss entstanden.


Der Einzige Unterschied sollte sein das ich in der Api

Delphi-Quellcode:

function CTRL_SpriteObject(): TArray<TgObj>; stdcall; external dllfile;

abgeändert habe und die Dll die Du mir dafür gabst verwende.

edit
Im Anhang der Source-Code von so wie er bei mir arbeitet.

re-Edit
Okay, Du bist es Leid, ich bin schon still.