Windows 7 Support für Delphi [ALPHA 1]

[sakura]

Einige von Euch lesen ja die Blogs oder haben den Windows 7 Thread beobachtet. Ich habe ein wenig mit Windows 7 gespielt und die ersten Funktionen in kleine Komponenten verpackt. Wer will, der kann sich die herunterladen und nutzen (in Euren Anwendungen: GPL, LGPL, MPL - je nach belieben; für eigene Komponenten nur GPL).

Das Package ist ausschließlich als Installer verfügbar, wer das nicht mag, der muss die auch nicht herunterladen Ich werde kein einfaches ZIP zum entpacken zur Verfügung stellen.

Ausführliche Beschreibung (engl.): http://www.gumpi.com/Blog/2009/01/20...ForDelphi.aspx
Installer: http://www.gumpi.com/Downloads/Delph...Components.zip (ca. 1,5 MB)

Momentan kopiert der Installer ausschließlich nach Auswahl. Die Installation in die IDE muss von Hand erfolgen.

Packages sind enthalten für: Delphi 7, Delphi 2006, Delphi 2007 und Delphi 2009

Derzeit verfügbar sind:

• Jump Lists - Rechtsklick Kontextmenü der Anwendung in der Taskbar
• Overlay Icon - wird im Taskbar Button je nach Auswahl angezeigt
• Fortschrittsanzeige im Taskbar Button
• Taskbar Thumbnails - Die Anwendung kann direkt von der Taskbar aus gesteuert werden

Hinweis: Die meisten Features setzen Aero voraus und laufen daher nicht in VMs.

......

[LD93]

Nein, die Anwendung läuft nicht mit Adminrechten.
Ich stehe jetzt leider nicht so in Windowsmessages drin, aber ich äußere mal meine Mutmaßungen / Bastel-Ergebnise:
Wenn das Fenster minimiert ist wird in "procedure TdwTaskbarWindowsEntry.DoWMActivate;"
durch ein "if Application.MainForm.WindowState = wsMinimized then" überprüft, ob die anwendung minimiert ist. Leider ist (hier,seltsamerweise) WindowState = wsNormal, sodass die nächste anweisung nicht ausgeführt wird. Die Zeile "(Collection as TdwTaskbarWindowsCollection).FOwner.DoActivateWind ow(Self.Index);" wird anscheinend normal ausgeführt.
Das Fenster verbleibt aber im Hintergrund. (Fehler in der Demo ,Bedienerfehler meinerseits oder der Komponente ?)
Ist das Fenster geöffnet wird nie ein WM_ACTIVATE ausgelöst, sodass auch kein Tab in den Vordergrund kommt.
Ein Auskommentieren von "if Application.MainForm.WindowState = wsMinimized then" bewirkt, das das Programm (wenn es minimiert ist widerhergestellt wird und die gewähleten Tabs einmal geöffnet werden.

Vieleicht kann mal jemand der mehr Ahnung von der Sache hat drübergucken...

[Captnemo]

Download geht nicht mehr: "Page not found"

Weiß jemand, wo man sich das noch runterladen kann? Ich würd mir das ja gern mal anschauen.

[Daniel]

Auf dieser Seite gibt es den Download noch:
http://www.gumpi.com/Blog/2009/10/02...nentsBeta.aspx

[Captnemo]

Super Komponente. Gefällt mir echt gut.
Aber gibt's dafür irgendwo eine Doku? Hab jedenfalls keine gefunden.

Woraus sich für mich dummerweise 2 Probleme ergeben.
1. Ich krieg die Fortschrittanzeige in der Taskbar irgendwie nicht hin. Such grad im Demoporgramm wie das wohl geht.
2. In der dwProgressBar müßte man ja auch diese nachlaufende Farbänderung innerhalb des grünen Balkens haben (k.A. wie man das nennt). Krieg ich aber auch nicht hin. Auch hier such ich im Demoprogramm.

Steinigt mich, weil ich zu blöd oder zu blind bin. Aber bindet an einen Stein bitte die Lösung

[Florian Hämmerle]

Schau dir doch den entsprechenden Code-Teil in der Demo an

mfg Florian

[Captnemo]

Hab ich versucht.

Ich hab eine dwProgressBar und dwTaskbarWindow auf meiner Form.
Dann hab ich in dwTaskbarWindow einen dwTaskbarWindowEntry und dessen Eigenschaft Control auf dwProgressBar. So hab ich mir das mal aus den Fingern gesaugt.
Während des Fortschritts der dwProgressBar rufe ich dann dwTaskbarWindows1.TaskbarWindows[0].UpdateTaskbarWindow auf.

Vielleicht stell ich mir das zu einfach vor.
Aber ohne Doku muß man ja irgendwie anfangen.

Und was mein anderes Problem angeht (mit der nachlaufenden Farbhervorhebung in dem grünen Balken (ich weiß leider immer noch nicht wie man das nennt)), eben weil ich nicht weiß wie das heißt find ich keine Eigenschaft, wo man das einstellen könnte. Oder muß man das selber anstoßen? Auch hier fehlt mir wieder die Doku.

Das Demo kann ich leider nur als Exe laufen lassen. Selbst kompilieren kann ich es ohne Veränderungen leider nicht, weil ich nur D7 habe. Dazu müßte ich Komonenten neu machen. Nur will ich ja an der Demo möglichst nichts ändern.

[Florian Hämmerle]

Zur zweiten Frage: Das Dingen heißt Marquee.
Für Frage 1 hab ich jetzt auch keine Antwort, da ich hier kein Delphi hab.

Schöne Grüße,
Florian

[Larsi]

Hi,
für die Progressbar in der Taskleiste musst du die Komponente TdwTaskbarProgressIndicator benutzen. Die Eigenschaft ShowinTaskbar musst du auf true stellen und über Position kannst du halt die Position einstellen. Wenn das Ding sich ohne eine Position anzuzeigen einfach nur bewegen soll musst du die Eigenschaft Progressbarstate auf pbstMarquee stellen. Ich hoffe ich konnte helfen.

[Captnemo]

Zitat von Larsi:

für die Progressbar in der Taskleiste musst du die Komponente TdwTaskbarProgressIndicator benutzen. Die Eigenschaft ShowinTaskbar musst du auf true stellen und über Position kannst du halt die Position einstellen. Wenn das Ding sich ohne eine Position anzuzeigen einfach nur bewegen soll musst du die Eigenschaft Progressbarstate auf pbstMarquee stellen. Ich hoffe ich konnte helfen.

Genauso hab ich das zuerst probiert, weil mir das logisch vorkam. Nur leider hatte das keinen Effect. Auf meinem TaskbarSymbol wird keine Progressbar dargestellt.

Bei dem Marquee-Effect habt ihr mich wohl falsch verstanden. Ich will nicht, dass ein grüner "Impuls" auf der Taskbar hin und herschwingt (wie bei Aktionen, denen Dauer nicht genau zu bestimmen ist) sondern genauso, wie beim Kopieren im Explorer von W7/Vista. Wo als mit dem grünen Balken ganz normal der Fortschritt angezeigt wird, aber eben auf dem grünen Bereich eben so ein kleiner Farbimpuls stetig hinterherläuft (ist halt nur so ein kleiner grafischer Gimmik).

[Larsi]

Verwendest du die Komponenten in einer VM oder hast du Aero aus?