Windows 7 Support für Delphi [ALPHA 1]

[Gausi]

Eben weil die beiden nicht kompatibel sind, bietet sakura hier eine Mehrfach-Lizenz an. Das ist auch gar nicht so unüblich - dadurch kann man den Code sowohl in GPL- als auch in MPL-Projekten nutzen.

[Sherlock]

Download geht nicht mehr

Wo sind die Leute, die externe Verlinkung anprangern, wenn man sie wirklich braucht?

Sherlock

[himitsu]

Zitat von Sherlock:

Download geht nicht mehr

Wo sind die Leute, die externe Verlinkung anprangern, wenn man sie wirklich braucht?

schonmal auf www.gumpi.com geschaut?

gleich der erste Eintrag: Windows 7 Components - Sorry

[Sherlock]

Ui, Danke. Ich bin zwar da drauf gewesen, aber ich war nur auf der Seite zu den Komponenten....und, was soll ich sagen? War zu faul weiter zu suchen. Mea culpa

Sherlock

[Chillkröte]

Hallo
ich habe deine Thumbnails-Komponente zu meinem Projekt hinzugefügt.

Muss man da noch zusätzlich aktivieren oder dem Projekt hinzufügen?

Bei WinXP (ja ich weiß, es ist sinnlos... war aber nur zu Testzwecken) bekam ich keinerlei Fehlermeldungen. Als ich das gleiche Projekt dann bei einem Win7 Laptop ausprobiert habe, bekomm ich erst eine Nachricht "Das Programm funktioniert nicht mehr" wenn man dann abbricht Zugriffsverletzungen.

Diesen Code habe ich noch hinzugefügt

Delphi-Quellcode:

procedure TFrmMain.ThumbsWin7ThumbnailClick(Sender: TdwTaskbarThumbnailItem);
begin
case Sender.Index of
0: showmessage('A');
1: showmessage('B');
end;
end;

kannst du mir sagen woran das liegt?

In der Hoffnung das du mir helfen kannst.
MfG
Chillkröte

edit:
jetzt kommen keine fehlermeldungen mehr, die buttons bleiben aber verborgen.
Am Code habe ich nichts verändert!

[ralfschwalbe]

Guten Morgen,

ich erstelle ein MDI Child und verwende dann folgenden Code:

Delphi-Quellcode:

  Win7TaskBarWindow.DeactivateTaskWindows;
  Win7TaskBarWindow.TaskbarWindows.Clear;

  with Win7TaskBarWindow.TaskbarWindows.Add do
  begin
    Caption := Self.MDIChildren[i].Caption;
    WinControl := Self.MDIChildren[i];
  end;

  Win7TaskBarWindow.UpdateAllTaskbarWindows;
  if Win7TaskBarWindow.TaskbarWindows.Count > 0 then Win7TaskBarWindow.ActivateTaskWindows;

Die Taskbarwindows werden erzeugt, aber...

1. Die MDI Childs enthalten ein TPageControl. Alle Controls die dort drauf sind werden nicht mit gezeichnet.
2. Das OnActivateTab funktioniert mit MDI Child Fenstern nicht. Das Event wird gar nicht ausgelöst.

Außerdem habe ich schon in TdwTaskbarWindowsEntry.DoCreatePreview(Message: TMessage) folgende Zeilen geändert:

Delphi-Quellcode:

Parent := WinControl.Parent;
while (Parent <> nil) and (Parent.Parent <> nil) do
begin
  Pt := Parent.ClientToParent(Pt, Parent.Parent);
  Parent := Parent.Parent;
end;
DwmSetIconicLivePreviewBitmap(ProxyHandle, PreviewArea.Handle, @Pt, 0);

Das while war erst: while (Parent.Parent <> nil) do Da aber ein MDI Child keinen Parent hat... Bummm!

Hat jemand diese Compos schon mal mit MDI Child Fenstern eingesetzt? Gibt es sonstige Hinweise?

Danke im Voraus.

[ralfschwalbe]

Keiner eine Idee? Oder hat noch niemand versucht einzelne MDI Childs mit dieser Komponente in der Win7 Taskbar anzuzeigen?