Ordnung muss sein (LaunchBar)

[API]

Die LaunchBar wird beim Öffnen immer in der Mitte des Bildschirms angezeigt. Vermutlich liegt es daran, dass meine Taskleiste links positioniert ist.

[EWeiss]

Zitat:

Zitat von Sherlock (Beitrag 1410857)

Windows 10 Pro (Version 1803 [Build 17134.228]

Hab OTTB.zip in meinem Download Ordner entpackt und von dort aus ausgeführt. Funktioniert ohne Fehlermeldung und sieht gefällig aus.
Ich brauche es allerdings nicht und habs wieder geschlossen und gelöscht.

Schöne Arbeit aber!

Sherlock

Danke für das Feedback.

Zitat:

Die LaunchBar wird beim Öffnen immer in der Mitte des Bildschirms angezeigt. Vermutlich liegt es daran, dass meine Taskleiste links positioniert ist.

Du meinst sicherlich Zentriert auf dem Bildschirm denn mittig ist er immer.
Hmm.. wie soll ich das gegen prüfen.

Zitat:

ich wollte Dich nur rasch Wissen lassen das die "Cleanup" Fenster nun allesamt bei mir ihr Werk ohne Probleme verrichten!

Fein ;)
Hoffe die Änderung mit dem Button ist ok das er erst sichtbar wird beim drüberfahren.
Er macht mir sonst das Gesamtbild kaputt.

Zitat:

Komisch. Damit liest der Windows Explorer das Icon aber selbst aus (und zeigt es ja vermutlich richtig an).
Egal bei welcher .lnk Datei ich das teste, es klappt, wenn ich die direkt dort angebe.

Die frage ist wie bekomme ich den Installer weg.
Ich möchte gern das Originale Icon anzeigen lassen.

Problem Dokumentiert mit Bildern. (Bei allen Windows Versionen)
Der Explorer zeigt es doch richtig an..

gruss

[API]

Zitat:

Zitat von EWeiss (Beitrag 1410867)

Zitat:

Die LaunchBar wird beim Öffnen immer in der Mitte des Bildschirms angezeigt. Vermutlich liegt es daran, dass meine Taskleiste links positioniert ist.

Du meinst sicherlich Zentriert auf dem Bildschirm denn mittig ist er immer.
Hmm.. wie soll ich das gegen prüfen.

Ja genau, vertikal zentriert.

So prüfen: Taskleiste links andocken und deine Exe starten.

[EWeiss]

Jo bei mir das gleiche. Danke..
Muss mal sehen wie ich das gegenprüfe am besten auf die weite der TaskLeiste hin prüfen, anschließend die Y\Top Position zur höhe des Desktop berechnen.

Zitat:

Bin zu faul zum Suchen: in welcher Unit legt man das gräßliche Grün des Menüs fest?

Sage mir die Farbe die du gerne anstelle des grün verwenden möchtest.
Dann ändere ich es für dich ab.

Dann benötige ich natürlich noch die Font Farbe für die Schrift der Seitenbar und die der Text Button.
Im Format RGB

gruss

[EWeiss]

Zitat:

@API Ja genau, vertikal zentriert.

So prüfen: Taskleiste links andocken und deine Exe starten.

Hier der Fix..
Danke für die Meldung.

gruss

[jaenicke]

Zitat:

Zitat von EWeiss (Beitrag 1410867)

Problem Dokumentiert mit Bildern. (Bei allen Windows Versionen)
Der Explorer zeigt es doch richtig an..

Dort liest du den Iconpfad aus. Den bekommst du in der Tat nicht. Du kannst nur das Handle holen. Ich habe es gerade auch mit SnagIt getestet, auch das klappt problemlos.

[EWeiss]

Zitat:

Zitat von jaenicke (Beitrag 1410886)

Zitat:

Zitat von EWeiss (Beitrag 1410867)

Problem Dokumentiert mit Bildern. (Bei allen Windows Versionen)
Der Explorer zeigt es doch richtig an..

Dort liest du den Iconpfad aus. Den bekommst du in der Tat nicht. Du kannst nur das Handle holen. Ich habe es gerade auch mit SnagIt getestet, auch das klappt problemlos.

Kleines Beispiel wie du das meinst?
bzw. an Hand meines Quell Textes fixen?

Ich behaupte das es nicht funktioniert.
Denn warum geht es bei dir und auf meinen Systemen nicht.
Man achte auf die Feinheiten.

Zitat:

Du kannst nur das Handle holen

Von was wenn der Pfad zur EXE nicht bekannt ist.

gruss

[old7]

Zitat:

OTTB\bin\SkinResource\PopUpWindow\OTTB.ske
Mit Notepad öffnen und den Eintrag editieren mit der Schriftfarbe die dir am liebsten ist.
"ACTIVECAPTION, 255,255,255,0" ' Active caption text color. // wäre Gelb (SideMenu)
"BTNTEXTCOLOR, 255,255,255,0" ' Push button ARGB text color. // wäre Gelb (ButtonText)

Danke, das hatte ich noch vermisst, um grün endgültig wegzubekommen ;-)

In der Zip-Datei von #1 sind übrigens zwei uGlobal.pas drin. Absicht oder Versehen?

[jaenicke]

Zitat:

Zitat von EWeiss (Beitrag 1410887)

Kleines Beispiel wie du das meinst?
bzw. an Hand meines Quell Textes fixen?

Delphi-Quellcode:

procedure TWin32ShortCut.LoadShortCut(LnkName: WideString);
var
  FP: array[0..MAX_PATH * 2] of Char;
  pfd: TWin32FindDataW;
  showval: integer;
  psfi: TSHFileInfo;
begin
  ClearValues;
  FPersistFile.Load(PWideChar(LnkName), 0);

  FillChar(FP, Sizeof(FP), 0);
  FShellLink.GetPath(FP, Sizeof(FP), pfd, 0);
  FAppPath := String(FP);

  FShellLink.GetIDList(Fpidl);

  FillChar(FP, Sizeof(FP), 0);
  FShellLink.GetWorkingDirectory(FP, Sizeof(FP));
  FWorkDirectory := String(FP);

  FillChar(FP, Sizeof(FP), 0);
  FShellLink.GetArguments(FP, Sizeof(FP));
  FArguments := String(FP);

  FillChar(FP, Sizeof(FP), 0);
  FShellLink.GetDescription(FP, Sizeof(FP));
  FDescription := String(FP);

  FShellLink.GetShowCmd(showval);
  FShowCmd := cvtTShowType(showval);

  FShellLink.GetHotkey(FHotKey);
  HotKeyToShortCut(FHotKey, FHotKeyCtrl);

  SHGetFileInfo(PChar(LnkName), 0, psfi, sizeof(psfi), SHGFI_ICON);
  FIcon.Handle := psfi.hIcon;
end;

Wobei es natürlich Sinn macht auch den Rückgabewert auszuwerten.

[EWeiss]

Zitat:

In der Zip-Datei von #1 sind übrigens zwei uGlobal.pas drin. Absicht oder Versehen?

War ein update und kannst du löschen im Ordner _unit

gruss