WatchKit... (Uhren Baukasten)

[EWeiss]

Die Farben können jetzt nach belieben angepasst werden.
Das jeweilige Bitmap das verändert werden soll muss nur den Focus haben.
Sowohl auch das Working Area.. siehe Contrast.

Es war quasi nur ein Copy\Paste von meinen anderen Sample Projekt.

gruss

[KodeZwerg]

kurz und knapp: Geil!

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1404884)

kurz und knapp: Geil!

Noch einen Nachschlag.

gruss

[EWeiss]

Neue Version..

Die Funktion zur gegen Prüfung ob mehrere Uhren Blätter oder Zeiger addiert wurden ist noch nicht implementiert.
Die Uhr läuft noch nicht (kein Problem andere dinge waren erst mal wichtiger.)
Die letzte erstellte Uhr wird noch nicht abgespeichert.

Destotrotz jede menge neue Funktionen addiert siehe oben.

gruss

[KodeZwerg]

Anhang 49290Guck mal, der zeichnet Shape auch übern Rand/Working Area. Wenn ich in diesen Zustand einen Rechtsklick mache öffnet sich ein leeres Popup Menu, das zeichnet sich selbst erst wenn ich mit Maus hin und her rüberwische.

[EWeiss]

Zitat:

Guck mal, der zeichnet Shape auch übern Rand/Working Area

Es ist kein Shape es ist ein Bitmap Objekt und es zeichnet nicht drüber.
Siehe dir mal das layer_area.png Bitmap an der Rahmen wird 8 Pixel von äußeren Rand gezeichnet das bedeutet das Objekt geht 8 Pixel über den gezeichneten Rand.
Das Areal ist genau so groß wie das layer_area *.png und in diesen Bereich kannst du das Objekt bewegen
Ist etwas ungewöhnlich aber das verhalten ist korrekt.

Wie gesagt das man 3 Face Objekte addieren kann wird noch entfernt.
Entweder ich ersetze das alte mit dem neu eingefügten oder vordere auf das alte erst zu löschen.

Zitat:

Wenn ich in diesen Zustand einen Rechtsklick mache öffnet sich ein leeres Popup Menu, das zeichnet sich selbst erst wenn ich mit Maus hin und her rüberwische.

Kann ich nicht nachvollziehen das Menu arbeitet bei mir korrekt und wird direkt gezeichnet, hast Win10 ? (Ich nicht)

Danke für das Feedback.

EDIT:
Du kannst aber mal gerne prüfen was dir diese Zeile zurückgibt

Delphi-Quellcode:

hMenuWnd := WindowFromDC(PDis.HDC);

uControls.. Zeile 1528.
Wenn 0 dann verwendest du bestimmt Windows 10.
Ansonsten muss das funktionieren.

gruss

[KodeZwerg]

Anhang 49292 So sieht bei mir mit Windows 7 x64 der Popup aus, gezeichnet wirds erst wenn ich mit Maus wische.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1404940)

Anhang 49292 So sieht bei mir mit Windows 7 x64 der Popup aus, gezeichnet wirds erst wenn ich mit Maus wische.

Wie schon gesagt bei mir so.. und zwar sobald ich einen rechtsklick ausführe.
Kann es nicht nachvollziehen.

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1404939)

Du kannst aber mal gerne prüfen was dir diese Zeile zurückgibt

Delphi-Quellcode:

hMenuWnd := WindowFromDC(PDis.HDC);

uControls.. Zeile 1528.

Mein Delphi kann Zeile
[DCC Error] SKAeroAPI.pas(2736): E2003 Undeclared identifier: 'TArray<>'
übersetzt: function CTRL_SpriteObject(): TArray<TgObj>; stdcall; external dllfile;
nicht verwerten, nicht weiter schlimm.

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1404942)

Zitat:

Zitat von EWeiss (Beitrag 1404939)

Du kannst aber mal gerne prüfen was dir diese Zeile zurückgibt

Delphi-Quellcode:

hMenuWnd := WindowFromDC(PDis.HDC);

uControls.. Zeile 1528.

Mein Delphi kann Zeile
[DCC Error] SKAeroAPI.pas(2736): E2003 Undeclared identifier: 'TArray<>'
übersetzt: function CTRL_SpriteObject(): TArray<TgObj>; stdcall; external dllfile;
nicht verwerten, nicht weiter schlimm.

ja weil es das in D2009 nicht gibt kennt keine Generics
Ich erstelle ein neues Menu..

gruss