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