Ordnung muss sein (LaunchBar)

[EWeiss]

Wie gesagt ist noch nicht fertig.
Eventuell muss ich das ebenfalls auf Sprites aufbauen da ich sonst nicht weis wie ich die einzelnen Menü Punkte verwalten soll.
Ich muss vorher sicher sein das die Schrift richtig angezeigt wird, vorher macht es keinen sinn das weiter zur verfolgen.


gruss

[EWeiss]

Zitat:

Zitat von jaenicke (Beitrag 1374730)

Zitat:

Zitat von EWeiss (Beitrag 1374729)

Ist dieser zentriert oder immer noch versetzt wie beim normalen Menu.

Da habe ich mich eben geirrt, der sieht jetzt richtig aus. Links alt direkt nach Aufruf, rechts neu:
Anhang 47555

Ok das sieht sehr gut aus. ;)

So wie bei mir das PopupMenu.
Ich denke W10 hat da probleme bzg. der DPI oder ähnlichen.
Keine Ahnung warum das teil da rumzickt.

Ok dann kann ich das weiter verfolgen.
Danke für die Hilfe.

gruss

[EWeiss]

Hoffe das der Mist jetzt mit W10 läuft.
Neue Version ist oben.

Ich habe jetzt keine Rücksicht auf das Worker\Progman Problem genommen.
Sorry hatte mit dem Menu genug zu tun.

Wenn es da noch ärger gibt dann korrigiert es selbst. ;)
Es muss exakt so wie auf dem Shot aussehen, tut es das ? Dann ist das in Ordnung.
1 Monat Arbeit ist genug dafür ;)

Es wird nur noch die Schrift gezeichnet der Rest ist im Hintergrund Bild wundert euch also nicht das die Icons sich nicht mehr ändern
Es reicht wenn die Schrift selbst es tut abhängig vom Status.
Wenn ihr nichts mehr findet dann ist das Teil jetzt fertig.

gruss

[EWeiss]

Auch wenn es einige nervt trotz allem noch eine neue Version hochgeladen.
Änderungen siehe oben.

so etwas muss natürlich noch mit rein.

Delphi-Quellcode:

procedure TMainApp.DestroyChildControls;
var
  Path: string;
begin
  Path := FolderResource + 'PopUpWindow\OTTB.ttf';
  RemovePrivateFontCollection(Path);
  FPrivateFont := nil;

  panBackgoundFrame.DestroyWindow;
  panBackgoundFrame := nil;
  btnAbout.DestroyWindow;
  btnAbout := nil;
  btnIconFrame.DestroyWindow;
  btnIconFrame := nil;
  btnIconBack.DestroyWindow;
  btnIconBack := nil;
  btnWallpaper.DestroyWindow;
  btnWallpaper := nil;
  btnShortCut.DestroyWindow;
  btnShortCut := nil;
  btnSound.DestroyWindow;
  btnSound := nil;
  btnConfig.DestroyWindow;
  btnConfig := nil;
  btnEdit.DestroyWindow;
  btnEdit := nil;
  btnCleanUp.DestroyWindow;
  btnCleanUp := nil;
  btnRestart.DestroyWindow;
  btnRestart := nil;
  btnPortable.DestroyWindow;
  btnPortable := nil;
  btnClose.DestroyWindow;
  btnClose := nil;
end;

Das hat jedoch keinerlei Auswirkung ohne die neue DLL im Archiv.
Deshalb der neue Upload.

gruss

[Tonic1024]

Zitat:

Zitat von EWeiss (Beitrag 1374786)

Hoffe das der Mist jetzt mit W10 läuft.

Der Mist läuft :thumb::wink:

[EWeiss]

Zitat:

Zitat von Tonic1024 (Beitrag 1374846)

Zitat:

Zitat von EWeiss (Beitrag 1374786)

Hoffe das der Mist jetzt mit W10 läuft.

Der Mist läuft :thumb::wink:

Danke habe die Information schon vermisst. ;) :) :thumb:

gruss

[EWeiss]

Zitat:

Zitat von Whookie (Beitrag 1374645)

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

uShortCut.pas

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).

Also zu deinem WorkerW Problem.
Ich denke es macht einen großen Unterschied ob du W10 neu aufgesetzt, von Vista oder W7 aktualisiert hast.
Das verursacht höchstwahrscheinlich dein WorkerW Problem da wirst du auch mit anderen Programmen auf widerstand stoßen.

Anders kann ich mir nicht vorstellen das andere diese Probleme nicht haben.
Ist jetzt nicht auf das Programm bezogen sondern generell.

Wollte das nur nochmal ansprechen.

gruss

[jaenicke]

Zitat:

Zitat von EWeiss (Beitrag 1375007)

Ich denke es macht einen großen Unterschied ob du W10 neu aufgesetzt, von Vista oder W7 aktualisiert hast.
Das verursacht höchstwahrscheinlich dein WorkerW Problem da wirst du auch mit anderen Programmen auf widerstand stoßen.

Da das Problem schon seit Vista bekannt ist, halte ich das für unwahrscheinlich. ;-)

Deshalb ist auch der Filter auf Windows 10 im genannten Quelltext nicht zielführend, sondern nur eine Kombination aus beidem. Sprich eine Suche am StandardOrt und dann unter workerw.

[EWeiss]

Zitat:

Deshalb ist auch der Filter auf Windows 10 im genannten Quelltext nicht zielführend, sondern nur eine Kombination aus beidem. Sprich eine Suche am StandardOrt und dann unter workerw.

Verstehe jetzt nicht wie du das meinst.
Wenn ich im NET nach WorkerW suche finde ich einige Einträge dazu.

Ich frage mich nur wie kann es sein das auf verschiedene W10 Versionen das Problem auftritt.
Woher kommt das würde mich interessieren.

Der eine hat Progman der andere WorkerW wieder bei anderen wechselt die Zorder von WorkerW zu Progman ständig usw..

gruss

[jaenicke]

Zitat:

Zitat von EWeiss (Beitrag 1375011)

Ich frage mich nur wie kann es sein das auf verschiedene W10 Versionen das Problem auftritt.

Wie gesagt, das hat nix mit Windows 10 zu tun. Hier z.B. ein 7 Jahre alter Beitrag zu Windows 7 mit dem Problem...
https://www.autoitscript.com/forum/t...class-workerw/

Es scheint etwas mit der Virtualisierung für Themeumschaltung oder ähnliches zu tun zu haben.