Ordnung muss sein (LaunchBar)

Projekt entfernt..

Liegt wohl wirklich eher unter Windows 10. Das Problem scheint zu sein, dass unter Windows 10 den Desktop-Ordner nicht gefunden wird (daher bleibt die Leiste auch leer).
Selbst mit der OTTB.txt/.config wird nichts angezeigt.

Wie kann der nicht gefunden werden?
Der liegt doch unter User/Desktop ich kann mir nicht vorstellen das unter W10 das Verzeichnis nicht mehr existiert.
Eventuell mal mit Adminrechten starten,

Check mal diese Zeile in CreateShortCut.
sDeskTopAdm := GetSpecialFolder(CSIDL_DESKTOP) + '\';

gruss

Zitat von Whookie:

Zu mindestens solltest du das so machen, dann gibts keinen Absturz, wenn keine Elemente in der Liste sind:

markieren

Delphi-Quellcode:

			  if (Sprites.Count > ID_FIRST) And (Sprites[ID_FIRST].Left < 40) then

    Sprites[ID_LEFT].Visible := True

  else

    Sprites[ID_LEFT].Visible := false;

Nö das ist definitiv falsch! Sorry

Der Sprites.Count ist immer korrekt.

Wenn überhaupt dann liegt es an deinem System der Desktop Ordner muss vorhanden sein.
Ich kann aber nicht den Quelltext manipulieren weil auf deinem System etwas nicht stimmt.

Wie gesagt prüf mal diese Zeile

sDeskTopAdm := GetSpecialFolder(CSIDL_DESKTOP) + '\';
Das sollte dir zurück liefern.
C:\Users\UserName\Desktop\ (Admin) oder C:\Users\Public\Desktop\ (Public).

gruss

**jaenicke**

GetSpecialFolder liefert schon einen Backslash am Ende. Der ist daher dann doppelt vorhanden. Besser ist in so einem Fall

IncludeTrailingPathDelimiter zu benutzen:

markieren

Delphi-Quellcode:

			sDeskTopAdm := IncludeTrailingPathDelimiter(GetSpecialFolder(CSIDL_DESKTOP));

// fügt das Pfadtrennzeichen hinzu, wenn es noch nicht da ist

Bei mir funktioniert die aktuell angehängte Version nun jedenfalls mit Windows 10 und auch Icons sind nun da.

Das Problem mit dem leicht verschobenen Menütext ist noch da, stört aber nicht wirklich. Die Koordinaten stimmen jedenfalls. Diese sind bei beiden Zeichenvorgängen gleich. Warum das so falsch aussieht, kann ich aktuell auch nicht sagen.

// EDIT:
Nehme ich diese Zeile heraus, wird der durch die Mausbewegung gehoverte Eintrag nicht mehr zurückgesetzt, aber der Fehler mit der Textverschiebung ist weg:

markieren

Delphi-Quellcode:

			                  GDIP_DrawImageRectRectI(Graphics, ImgBack, ImgItemHeight, PDis.rcItem.Top,

                    Rect.Right - SideBarWidth, ImgItemHeight, 0, PDis.rcItem.Top *

                      (Integer(imgH) div Rect.Bottom), imgW, (Integer(imgH) div Rect.Bottom)

                      * ImgItemHeight, 2, nil, false, nil);

**Whookie**

Hab da jetzt noch mal reingeschaut und das unter Windows 10 zum Laufen gebracht:

uShortCut.pas

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TShortCut.CreateShortCut(WinHandle: HWND);

...

begin

  ..

  if Win32MajorVersion >= 10 then

  begin

    Prop.ProgManHandle := 0;

    repeat

      Prop.ProgManHandle := FindWindowEx(0, Prop.ProgManHandle, 'WorkerW', '');

      Prop.ListViewHandle := FindWindowEx(Prop.ProgManHandle, 0, 'SHELLDLL_DefView', '');

    until (Prop.ListViewHandle<>0) Or (Prop.ProgManHandle = 0);

  End

  else

  begin

    Prop.ProgManHandle := FindWindow('Progman', 'Program Manager');

    Prop.ListViewHandle := FindWindowEx(Prop.ProgManHandle, 0, 'SHELLDLL_DefView', '');

  end;

  Prop.ListViewHandle := FindWindowEx(Prop.ListViewHandle, 0, 'SysListView32', 'FolderView');

  ItemCount := SendMessage(Prop.ListViewHandle, LVM_GETITEMCOUNT, 0, 0);

  ...

Allerdings muss man dann die OTTB.config aus dem Post oben löschen (sie führt zu einem Crash weil wohl ein paar der Links nicht vorhanden oder ungültig sind).

Zitat von jaenicke:

GetSpecialFolder liefert schon einen Backslash am Ende. Der ist daher dann doppelt vorhanden. Besser ist in so einem Fall

IncludeTrailingPathDelimiter zu benutzen:

markieren

Delphi-Quellcode:

			sDeskTopAdm := IncludeTrailingPathDelimiter(GetSpecialFolder(CSIDL_DESKTOP));

// fügt das Pfadtrennzeichen hinzu, wenn es noch nicht da ist

Bei mir funktioniert die aktuell angehängte Version nun jedenfalls mit Windows 10 und auch Icons sind nun da.

Das Problem mit dem leicht verschobenen Menütext ist noch da, stört aber nicht wirklich. Die Koordinaten stimmen jedenfalls. Diese sind bei beiden Zeichenvorgängen gleich. Warum das so falsch aussieht, kann ich aktuell auch nicht sagen.

Ok daran könnte es liegen.
Ich muss den Backlash hier anhängen warum auch immer sonst geht es nicht.
Werde es ändern

Und neue Version hochladen.

Zitat:

Die Koordinaten stimmen jedenfalls. Diese sind bei beiden Zeichenvorgängen gleich. Warum das so falsch aussieht, kann ich aktuell auch nicht sagen.

Sorry W10 ist immer noch ein Experimentier System.

Nicht schlagen LOL.

Zitat:

Das Problem mit dem leicht verschobenen Menütext ist noch da, stört aber nicht wirklich.

Mich stört das enorm will das weg haben

Ist das gleiche Menu wie hier.

http://www.delphipraxis.net/192329-kvideo-player.html Tritt das dort auch auf ?

Was mich mal interessieren würde hängt sich bei dir die IDE beim Debuggen des Menüs auf?
1. Ich setze einen Breakpoint bei, in WM_DRAWITEM:

markieren

Delphi-Quellcode:

			if ImgBack = 0 then

  ImgBack := GDIP_CreateImageFromFile(FolderResource + 'Menu\MEN_Center.png');

jetzt steppe ich eine Zeile weiter.
Drücke ich jetzt den grünen Pfeil Start(F9)) dann hängt sich die komplette IDE auf.

Keine Ahnung ob das nur unter D2010 auftritt oder auch woanders.
Wenn woanders! Dann ist da noch irgendetwas faul im Code was die IDE nicht verträgt. (Oder Thread Problem) was unter umständen dieses Problem verursacht.

gruss

Zitat von Whookie:

Hab da jetzt noch mal reingeschaut und das unter Windows 10 zum Laufen gebracht:

uShortCut.pas

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TShortCut.CreateShortCut(WinHandle: HWND);

...

begin

  ..

  if Win32MajorVersion >= 10 then

  begin

    Prop.ProgManHandle := 0;

    repeat

      Prop.ProgManHandle := FindWindowEx(0, Prop.ProgManHandle, 'WorkerW', '');

      Prop.ListViewHandle := FindWindowEx(Prop.ProgManHandle, 0, 'SHELLDLL_DefView', '');

    until (Prop.ListViewHandle<>0) Or (Prop.ProgManHandle = 0);

  End

  else

  begin

    Prop.ProgManHandle := FindWindow('Progman', 'Program Manager');

    Prop.ListViewHandle := FindWindowEx(Prop.ProgManHandle, 0, 'SHELLDLL_DefView', '');

  end;

  Prop.ListViewHandle := FindWindowEx(Prop.ListViewHandle, 0, 'SysListView32', 'FolderView');

  ItemCount := SendMessage(Prop.ListViewHandle, LVM_GETITEMCOUNT, 0, 0);

  ...

Allerdings muss man dann die OTTB.config aus dem Post oben löschen (sie führt zu einem Crash weil wohl ein paar der Links nicht vorhanden oder ungültig sind).

Kannst du gerne tun aber ich ändere nichts am Code bzg. der Überprüfung von der System Version.
Das muss so laufen und tut es auch so wie man hört.
Denn @jaenicke verwendet auch W10 das kann nicht unterschiedlich sein.

Trotzdem Danke!

gruss

**Whookie**

Das mit dem Backslash hat bei mir überhaupt keine Auswirkung unter Windows 10. Ob mit oder ohne Doppeltem Backslash spielt keine Rolle, das eigentliche Problem liegt darin, das unter Windows 10 der 'SHELLDLL_DefView' nicht mehr unter 'Progman' liegt sondern in einem Fenster der Klasse "WorkerW".

Solange also die Liste nicht gefunden wird der Code unter:

markieren

Delphi-Quellcode:

			  ItemCount := SendMessage(Prop.ListViewHandle, LVM_GETITEMCOUNT, 0, 0);

  if ItemCount <> 0 then

  begin

erst gar nicht ausgeführt!

Zitat von Whookie:

Das mit dem Backslash hat bei mir überhaupt keine Auswirkung unter Windows 10. Ob mit oder ohne Doppeltem Backslash spielt keine Rolle, das eigentliche Problem liegt darin, das unter Windows 10 der 'SHELLDLL_DefView' nicht mehr unter 'Progman' liegt sondern in einem Fenster der Klasse "WorkerW".

Solange also die Liste nicht gefunden wird der Code unter:

markieren

Delphi-Quellcode:

			  ItemCount := SendMessage(Prop.ListViewHandle, LVM_GETITEMCOUNT, 0, 0);

  if ItemCount <> 0 then

  begin

erst gar nicht ausgeführt!

Mag ja sein. (Glaube ich dir auch)

Ist aber irgendwie fraglich denn bei den anderen Leuten mit W10 funktioniert es doch auch.
Es sei denn die fahren alle in einer VM (Wie sich das dort verhält kann ich nicht mit Bestimmtheit sagen).

Neue Version hochgeladen.
IncludeTrailingPathDelimiter hinzugefügt.

gruss

Hier noch eine andere Version die auf Klassen basiert. (Mache ich nicht gern unter NON-VLC)
Also alle Funktionen in uMain wurden zur Klasse TMainApp hinzugefügt um das Maximum an Globalen Variablen zu reduzieren.
Wenn euch das lieber ist werde ich diese als Arbeitskopie verwenden und darauf weiter aufbauen.

Das obige Archiv wird in dem Fall ersetzt.
Ok keine Mitteilung egal werde es trotzdem ersetzen.

gruss

**jaenicke**

Zitat von EWeiss:

Ist das gleiche Menu wie hier.

http://www.delphipraxis.net/192329-kvideo-player.html Tritt das dort auch auf ?

Das Programm stürzt ab, wenn ich mit der rechten Maustaste klicke oder auf Play.

Zitat von EWeiss:

Was mich mal interessieren würde hängt sich bei dir die IDE beim Debuggen des Menüs auf?

Nein, funktioniert reibungslos. Solche Probleme hatte ich bis Delphi XE6 aber immer wieder mal. Allerdings meistens nicht immer an einer bestimmten Stelle, sondern nur manchmal.

Zitat von Whookie:

Das mit dem Backslash hat bei mir überhaupt keine Auswirkung unter Windows 10.

Das stimmt, Windows akzeptiert das trotzdem.

Zitat von Whookie:

das eigentliche Problem liegt darin, das unter Windows 10 der 'SHELLDLL_DefView' nicht mehr unter 'Progman' liegt sondern in einem Fenster der Klasse "WorkerW".

Kann ich nicht nachvollziehen:

Ich habe aber gelesen, dass andere seit Windows Vista ebenfalls dieses Problem haben. Viele gehen daher alle WorkerW Fenster durch, wenn der Weg über Progman nicht erfolgreich war und suchen darin nach der ListView.
Wenn, reicht jedenfalls nicht einer der Wege. Seit Vista ist beides möglich. Es scheint etwas damit zu tun zu haben, ob Aero aktiviert ist usw.

Zitat von EWeiss:

Hier noch eine andere Version die auf Klassen basiert. (Mache ich nicht gern unter NON-VLC)

Das sollte eine bessere Struktur bringen (habe noch nicht hineingeschaut).

Zitat von EWeiss:

Das obige Archiv wird in dem Fall ersetzt.

Wie wäre es denn, wenn du den Quelltext schlicht z.B. auf GitHub stellst? So wie ich hier zum Beispiel auch:

https://github.com/jaenicke/MTCL
Dann ist auch gleich die Versionshistory usw. dabei:

https://github.com/jaenicke/MTCL/commits/master

https://github.com/jaenicke/MTCL/com...990d348e4f6efa