Ordnung muss sein (LaunchBar)

[KodeZwerg]

Hallo,

Zitat:

Zitat von EWeiss (Beitrag 1410727)

Das ist so ein durcheinander hier verstehe nicht was los ist.
Geht es nun oder nicht!

hier Resultate bei mir.
https://www.delphipraxis.net/1410691-post179.html <- Diese Version die dort geladen werden kann, die kann ich ausführen mit den Kommentaren von mir aus letztem Post.

Dein neuester Build in #1 hat wieder die alte macke mit Crash weil RangeError bei mir.

Gruss

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1410766)

Hallo,

Zitat:

Zitat von EWeiss (Beitrag 1410727)

Das ist so ein durcheinander hier verstehe nicht was los ist.
Geht es nun oder nicht!

hier Resultate bei mir.
https://www.delphipraxis.net/1410691-post179.html <- Diese Version die dort geladen werden kann, die kann ich ausführen mit den Kommentaren von mir aus letztem Post.

Dein neuester Build in #1 hat wieder die alte macke mit Crash weil RangeError bei mir.

Gruss

Entschuldige habe mich mit dem Upload vertan ;)
Werde es fixen.
Müsste die Version 1.1.0.0 sein ist aber 1.0.0.0

Danke für die Meldung.. Aktualisierte Version ist oben.

gruss

[old7]

Zitat:

Zitat von old7 (Beitrag 1410762)

Oh, peinlich, habe ich übersehen :oops:

Wenn OTTB mit einer frisch erstellten OTTB.config nicht mehr startet, ohne daß man sie vorher bearbeitet:

Wäre das nicht einmal ein guter Grund, für ein "Sind Sie sicher?" :wink:

Kleiner Vorschlag, dann würde OTTB wohl auch mit nicht-bearbeiteter OTTB.config starten (und natürlich nur den Papierkorb anzeigen), uMain/procedure TMainApp.CreateConfigFile:

Delphi-Quellcode:

for K := ID_FIRST to nCount do
  begin
    s := '';
    s1 := '';

    Item := Sprites[K];
    if K = gP.RecycleBin then
      sString := ', 2'
    else
      sString := ', 0'; // 0 statt 1

Das würde das Programm etwas idiotensicherer für schlechte Leser wie mich machen :)

[EWeiss]

Zitat:

Zitat von old7 (Beitrag 1410768)

Zitat:

Zitat von old7 (Beitrag 1410762)

Oh, peinlich, habe ich übersehen :oops:

Wenn OTTB mit einer frisch erstellten OTTB.config nicht mehr startet, ohne daß man sie vorher bearbeitet:

Wäre das nicht einmal ein guter Grund, für ein "Sind Sie sicher?" :wink:

Kleiner Vorschlag, dann würde OTTB wohl auch mit nicht-bearbeiteter OTTB.config starten (und natürlich nur den Papierkorb anzeigen), uMain/procedure TMainApp.CreateConfigFile:

Delphi-Quellcode:

for K := ID_FIRST to nCount do
  begin
    s := '';
    s1 := '';

    Item := Sprites[K];
    if K = gP.RecycleBin then
      sString := ', 2'
    else
      sString := ', 0'; // 0 statt 1

Das würde das Programm etwas idiotensicherer für schlechte Leser wie mich machen :)

Wenn du es kompilieren kannst bitte dann kannst du es addieren ;)
Ich habe nichts dagegen ist open Source.
Du solltest das Archiv aber zu Vorsicht nochmal laden weil im ersten Beitrag eine alte addiert wurde.
Entschuldigt war mein Fehler :)

Zitat:

Das würde das Programm etwas idiotensicherer für schlechte Leser wie mich machen

Würde aber die Funktionsweise zerstören denn als Default sollten alle User Definierte Icons aktiv sein!

Aber auch das steht in der Config!

Zitat:

'EnableShortcutTrueFalse = 0 // Disable this shorcut
'EnableShortcutTrueFalse = 1 // Enable this shorcut

Der User muss sich drum kümmern was er anzeigen möchte nicht die Anwendung ;)

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1410767)

Danke für die Meldung.. Aktualisierte Version ist oben.

Gern geschehen, neuester #1 schnurrt bei mir, vielen vielen Dankeschön!! :thumb::thumb: Nu klappts hier auch wieder!! :-D

Falls ich dennoch einmal meinen Wunsch wiederholen darf, mit OnTop, da wünsche ich mir ne mini-Checkbox mittig/unten im OTTB für Quick On/Off OnTop, ohne Menu/Config/Umwege, direkt als Quicky sofort Erreichbar.
Solch ein Feature wäre für mich echt ne tolle Bereicherung da ich viel maximiert arbeite.
Du brauchst darauf nicht antworten/reagieren, ich Wünsche es trotzdem :P

Danke für dies tolle Produkt!

[EWeiss]

Zitat:

Zitat von KodeZwerg (Beitrag 1410772)

Zitat:

Zitat von EWeiss (Beitrag 1410767)

Danke für die Meldung.. Aktualisierte Version ist oben.

Gern geschehen, neuester #1 schnurrt bei mir, vielen vielen Dankeschön!! :thumb::thumb: Nu klappts hier auch wieder!! :-D

Falls ich dennoch einmal meinen Wunsch wiederholen darf, mit OnTop, da wünsche ich mir ne mini-Checkbox mittig/unten im OTTB für Quick On/Off OnTop, ohne Menu/Config/Umwege, direkt als Quicky.
Solch ein Feature wäre für mich echt ne tolle Bereicherung da ich viel maximiert arbeite.
Du brauchst darauf nicht antworten/reagieren, ich Wünsche es trotzdem :P

Danke für dies tolle Produkt!

Werde ich dir erstellen sollte kein Problem sein.

Nicht direkt heute es müssen erst alle anderen Probleme behoben sein.
Also mittig unten auf den Background Layer. Richtig?

gruss

[KodeZwerg]

Zitat:

Zitat von EWeiss (Beitrag 1410773)

Werde ich dir erstellen sollte kein Problem sein.

Nicht direkt heute es müssen erst alle anderen Probleme behoben sein.
Also mittig unten auf den Background Layer. Richtig?

Mittig wäre halt mein Vorschlag für so etwas, reine bequemlichkeit..... ich überlasse das "Wo" vollkommen Dir, mein Wunsch wäre damit erfüllt *DANKE*
Vielleicht so das sich der Shortcut Text damit nicht schneidet?

Hinweis:
Da weiß ich gerade nicht ob das gewollt oder nur bei mir ist.
Man läd das \bin\ aus #1 irgendwo hin.
Man erstellt im "\AppData\Roaming\BrewIdeas\OTTB\" eine OTTB.ini Datei.
Das gleiche auch im \bin\ ordner.
Man startet OTTB.exe
schwupps ist die .ini ausm \Roaming\ gelöscht.
Ist das gewollt?

[EWeiss]

Zitat:

Man erstellt im "\AppData\Roaming\BrewIdeas\OTTB\" eine OTTB.ini Datei.
Das gleiche auch im \bin\ ordner.

Du solltest gar nichts addieren das macht die Anwendung.

Zitat:

schwupps ist die .ini ausm \Roaming\ gelöscht.

Richtig weil die Portable Anwendung über die INI Datei geschaltet wird ;)

Siehe!

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';
   UserAppDataDir := GetSpecialFolder(CSIDL_APPDATA);

   if ACheckPortable then
     gP.Portable := FileExists(sIniFile);
   if gP.Portable then
   begin
     OTTBIni := TIniFile.Create(sIniFile);
     // falls wenn auf portable geschaltet wurde
     DeleteFile(UserAppDataDir + '\BrewIdeas\OTTB' + '\OTTB.ini');
   end
   else
   begin
     DeleteFile(sIniFile); // falls auf nicht portable geschaltet wurde

     // Direktory erstellen wenn nicht vorhanden
     if not ForceDirectories(UserAppDataDir + '\BrewIdeas\OTTB') then
       raise Exception.Create('Cannot create' + UserAppDataDir + '\BrewIdeas\OTTB');

     if not FileExists(UserAppDataDir + '\BrewIdeas\OTTB' + '\OTTB.config') then
       MainApp.CreateDefaultConfigFile;

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

gruss

[KodeZwerg]

*A-ha* Effekt hat eingesetzt! Danke fürs Erläutern!

[EWeiss]

Vergessen.

Zitat:

Vielleicht so das sich der Shortcut Text damit nicht schneidet?

Das wird nicht gehen.. btw. lässt sich nicht vermeiden. Siehe Shot