WatchKit... (Uhren Baukasten)

[EWeiss]

Projekt entfernt..

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

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

[EWeiss]

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

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