WatchKit... (Uhren Baukasten)

[API]

Zitat von EWeiss:

Zitat von API:

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 von EWeiss:

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
0 to CountMax - 1

müssen mit
0 to CountMax

ersetzt werden

Und alle Listen bsp. FaceList
CountMax := FaceList.Count - 1;

muss mit
CountMax := FaceList.Count;

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

HourMax := HourList.Count - 1; zu
HourMax := HourList.Count;
MinMax := MinList.Count - 1; zu
MinMax := MinList.Count;
SecMax := SecList.Count - 1; zu
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 von EWeiss:

  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 von KodeZwerg:

Zitat von EWeiss:

  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!