WatchKit... (Uhren Baukasten)

[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!

[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 von 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!

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

gruss

[KodeZwerg]

Zitat von EWeiss:

Zitat von 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!

Und was machst du nun mit dem Timer ? 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]

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.