Ordnung muss sein (LaunchBar)

[jaenicke]

Mit der .ini geht es viel einfacher. Wie hat SneakyBagels ja auch schon geschrieben, einfach auf Vorhandensein der lokalen .ini prüfen und diese anlegen oder löschen beim Umschalten:

Delphi-Quellcode:

procedure InitPath(const ACheckPortable: Boolean);
var
  sIniFile: string;
  ExeName: String;
  FilePath: String;
begin
  ExeName := ExtractFileName(ChangeFileExt(ParamStr(0), ''));
  FilePath := ExtractFilePath(ParamStr(0));
  sIniFile := FilePath + ExeName + '.ini';
  if ACheckPortable then
    Prop.Portable := FileExists(sIniFile);
  if Prop.Portable then
    OTTBIni := TIniFile.Create(sIniFile)
  else
  begin
    DeleteFile(sIniFile); // falls auf nicht portable geschaltet wurde
    UserAppDataDir := GetSpecialFolder(CSIDL_APPDATA);
    // Direktory erstellen wenn nicht vorhanden
    if not ForceDirectories(UserAppDataDir + '\BrewIdeas\OTTB') then
      raise Exception.Create('Cannot create' + UserAppDataDir + '\BrewIdeas\OTTB');

    OTTBIni := TIniFile.Create(UserAppDataDir + '\BrewIdeas\OTTB' + '\OTTB.ini')
  end;
end;

procedure LoadINI;
begin
  InitPath(True);

  Prop.SoundActive := OTTBIni.ReadBool('OTTB Option', 'SoundActive', true);
  Prop.ShortCutVisible := OTTBIni.ReadBool('OTTB Option', 'ShortCutVisible', false);
  CreateIcon.ShowDesktopIcons(Prop.ShortCutVisible);
  OTTBIni.Free;
end;

function SaveINI: Boolean;
var
  OldErrorMode: Integer;
begin
  InitPath(False);

  OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
  try
    OTTBIni.WriteBool('OTTB Option', 'SoundActive', Prop.SoundActive);
    OTTBIni.WriteBool('OTTB Option', 'ShortCutVisible', Prop.ShortCutVisible);
  finally
    Result := True;
    SetErrorMode(OldErrorMode);
    OTTBIni.Free;
  end;
end;

Das Halt habe ich einmal herausgenommen, denn wenn du eine Exception wirfst, wird das ja ohnehin nicht mehr ausgeführt.

[EWeiss]

@jaenicke Danke werde es mal einbauen und testen.

Interesse mal das neue Menu zu testen ?
Dann lade ich die 2 Dateien nochmal hoch.

EDIT:
Funktioniert Super!
Habe da keine vernünftige lösung erarbeiten können. (Mir viel einfach nichts ein)

gruss

[jaenicke]

Jetzt könnte ich gerade, ja.

[EWeiss]

Zitat von jaenicke:

Jetzt könnte ich gerade, ja.

OK.. Es wird aber das neue Archiv vorrausgesetzt.
Und die Anwendung kann dann nur über den taskmanager entfernt werden wenn es nicht kracht
Das Menu (Popup Window) kannst du wegschalten wenn du auf dem Desktop klickst.

gruss

[jaenicke]

Die Positionierung des vertikalen Teils sieht so deutlich besser aus, der ist nun genau mittig. Am Rest hat sich abgesehen von der Breite insgesamt um ein paar Pixel nix geändert und nach dem Öffnen des Menüs friert die Anwendung ein, sprich auch Hovern im Menü passiert nicht.

[EWeiss]

Zitat von jaenicke:

Die Positionierung des vertikalen Teils sieht so deutlich besser aus, der ist nun genau mittig. Am Rest hat sich abgesehen von der Breite insgesamt um ein paar Pixel nix geändert und nach dem Öffnen des Menüs friert die Anwendung ein, sprich auch Hovern im Menü passiert nicht.

Hmm..
Wie ist es denn mit dem Text?
Ist dieser zentriert oder immer noch versetzt wie beim normalen Menu.

Bei mir sieht es so aus.
Einfrieren tut da nix wenn das Window geöffnet wird setze ich die Bar auf enabled False damit keine Eingaben mehr getätigt werden können wie beim normalen PopUpMenu.

Klicks du auf den Desktop mit der linken Maus sollte das WIndow schließen und die Bar wieder bedienbar sein.

Zitat:

sprich auch Hovern im Menü passiert nicht.

Das ist ja alles noch im Anfangsstadium

gruss

[jaenicke]

Zitat von EWeiss:

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:

[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