Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#62

AW: WatchKit... (Uhren Baukasten)

  Alt 18. Jun 2018, 23:39
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

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