Ordnung muss sein (LaunchBar)

[SneakyBagels]

Bei mir funktioniert es.
Menu aber noch immer kaputt.

[EWeiss]

Zitat von SneakyBagels:

Bei mir funktioniert es.
Menu aber noch immer kaputt.

Ok Danke.
Ich lösche sie dann wieder wenn es nicht geht.

gruss

[Whookie]

Hab es auch mal versucht (Win10/64), leider kriege ich auch einen Absturz beim Start.

Der Grund bei mir scheint daran zu liegen, das über die WM_PRINT Message DockBar.DrawDockBar aufgerufen wird und dort (ab Zeile 128)

Delphi-Quellcode:

 if Sprites[ID_FIRST].Left < 40 then
    Sprites[ID_LEFT].Visible := True
  else
    Sprites[ID_LEFT].Visible := false;

ausgeführt wird. ID_FIRST = 6 Sprites enthält aber nur 5 Elemente.

mit:

Delphi-Quellcode:

 if Sprites[ID_LEFT].Left < 40 then
    Sprites[ID_LEFT].Visible := True
  else
    Sprites[ID_LEFT].Visible := false;

startet das Programm mal.

[EWeiss]

Zitat von Whookie:

Hab es auch mal versucht (Win10/64), leider kriege ich auch einen Absturz beim Start.

Der Grund bei mir scheint daran zu liegen, das über die WM_PRINT Message DockBar.DrawDockBar aufgerufen wird und dort (ab Zeile 128)

Delphi-Quellcode:

 if Sprites[ID_FIRST].Left < 40 then
    Sprites[ID_LEFT].Visible := True
  else
    Sprites[ID_LEFT].Visible := false;

ausgeführt wird. ID_FIRST = 6 Sprites enthält aber nur 5 Elemente.

Danke werde das mal gegenprüfen.
Müsste eigentlich 0 > 5 sein also 6

Verwende mal meine Config ob das Problem dann behoben ist.

gruss

[EWeiss]

W10 macht nur Ärger.

Bei mir ist alles in Ordnung.

Zitat:

ausgeführt wird. ID_FIRST = 6 Sprites enthält aber nur 5 Elemente.

0 >- 5 Grafiken für das Window.
6 = Papierkorb also das 7 Element.

Siehe Shot!
ID_LEFT ist der kleine Pfeil der sichtbar wird wenn das erste Sprite(Icon) < Left 40 ist.
Also es liegt kein Programm Fehler vor.

gruss

[Whookie]

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.

[Whookie]

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

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;

[EWeiss]

Zitat von Whookie:

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