JA!COMMANDER 1.25

Anwendungen, Tools, Userlibs und anderes nützliches.
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Ich werde wohl eine Reihe Icons optional da reinwerfen, so das der User
Wählen kann: Flott und häßlich oder Hübsch aber kann nicht kochen :mrgreen:
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Little John

Beitrag von Little John »

Hallo Thomas,

ein sehr gelungener Anfang, wie ich an anderer Stelle schon schrieb.

Du schriebst in Bezug auf die Kommandozeile:
Die wahr eigentlich eingeplant, dann hab ich den Platz vergrößert
und anders mißbraucht Mr. Green Mal sehen, nützlich ist es ja, aber
nutzen tue ich es eher sehr selten.
Ich nutze sie im TC sehr oft. Gerade die Kombination aus Dateilisten und Kommandozeile ist enorm flexibel und leistungsfähig. Ohne Kommandozeile würde ich persönlich solch ein Programm nicht ernsthaft benutzen. Wenn Dir der Platz Sorgen bereitet: Du könntest es per Option ermöglichen, die Kommandozeile auszublenden (ist im TC glaube ich ebenfalls möglich, auch wenn's ein Frevel ist :mrgreen:).

Was die zu vielen Laufwerksbuttons betrifft: Da würde ich dann ein ListViewGadget nehmen.

Gruß, Little John
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Ich wahr mal wieder fleissig :wink:
Version 0.3 alpha hat geschrieben:+ Shift + Löschen Button löscht direkt, unabhängig von der Einstellung
+ Cursor Up und Down aktualisiert die Vorschau
+ Drag & Drop (Bewegen mit Shift, ansonsten Kopieren)
Funktioniert natürlich nicht nur innerhalb der Anwendung, sondern auch
zu anderen Anwendungen (TC, Explorer usw.)
@Little John
Kommandozeile ist mir Befehl, Sir, wird erledigt!

(dafür biste später dran, wenns um die Sprachen geht :wink: )
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
al90
Beiträge: 1101
Registriert: 06.01.2005 23:15
Kontaktdaten:

Beitrag von al90 »

ts-soft hat geschrieben:Danke für den Tip mit den Icons, darüber hatte ich schon nachgedacht, aber
das meiste sind ja Ordner Icons, die sehen ja leider alle verschieden aus :(
Ne ich meinte eigentlich auch nur die FileIcons. Die für Ordner buffere ich
auch nicht zwichen. (Ausser bei Archiven & FTP)
Für das mit den breiten Laufwerken sollte doch:

Code: Alles auswählen

If Not GetVolumeInformation_("Z:",0,0,0,0,0,0,0)
  Debug "Mist, Gerät nicht breit"
EndIf
reichen?
Klar das reicht natürlich auch. Ich habs bei mir aber mal so gemacht damit
ich es künftig erweitern kann und weitere Informationen abfragen kann. :wink:
Andesdaf
Moderator
Beiträge: 2671
Registriert: 15.06.2008 18:22
Wohnort: Dresden

Beitrag von Andesdaf »

ts-soft hat geschrieben:Danke wenns Dir gefällt, welches OS?
Windows Vista 32 Bit.

PS: Ich bruach die Eier auch nicht mehr suchen :wink:
Win11 x64 | PB 6.20
Benutzeravatar
al90
Beiträge: 1101
Registriert: 06.01.2005 23:15
Kontaktdaten:

Beitrag von al90 »

@ts-soft

Was ich noch fragen wollte: Wie ist es dir eigentlich gelungen die Hardlinks zu ermitteln ?

Nachtrag:

Apropos "link".

K.a. ob es ne API zu file links gibt. Ich habs jedenfalls so gemacht. :wink:

Code: Alles auswählen

Procedure.s FindShortcutsPath(File$)

  ; *.LNK Datei Laden!

  If ReadFile(0,File$)
    l=Lof(0) : mem=AllocateMemory(l+4)
    If mem : ReadData(0,mem,l) : EndIf
    CloseFile(0)
  EndIf

  ; *.LNK Datei Durchsuchen!

  If mem
    For i=0 To l-4
      If PeekW(mem+i)=$5C3A
        p$=PeekS(mem+i-1)
        If Len(p$)>3
          If FileSize(p$)=-2
            If Right(p$,1)<>"\" : p$+"\" : EndIf
            Break
          EndIf
        EndIf
        p$=""
      EndIf
    Next
    FreeMemory(mem)
  EndIf

  ProcedureReturn p$

EndProcedure

Debug FindShortcutsPath("C:\Users\Harald\Pictures\sample Pictures.lnk")
Zuletzt geändert von al90 am 12.04.2009 21:04, insgesamt 1-mal geändert.
Benutzeravatar
cxAlex
Beiträge: 2111
Registriert: 26.06.2008 10:42

Beitrag von cxAlex »

Andesdaf hat geschrieben: PS: Ich bruach die Eier auch nicht mehr suchen :wink:
Ich musste zum Glück noch nie meine Eier suchen, ich weiß immer wo die sind... :twisted:
Projekte: IO.pbi, vcpu
Pausierte Projekte: Easy Network Manager, µC Emulator
Aufgegebene Projekte: ECluster

Bild

PB 5.1 x64/x86; OS: Win7 x64/Ubuntu 10.x x86
Benutzeravatar
milan1612
Beiträge: 810
Registriert: 15.04.2007 17:58

Beitrag von milan1612 »

Habs mir auch mal angeschaut, und da ich dich als kritikfaehig einschaetze,
muss ich gleich mal meckern. Die Performance ist echt zum kot***, fuer meinen
System32 Ordner braucht es ganze 25 Sekunden bis das UI wieder reagiert.

Und da man ja waehrend des Fuellens der Listview sowieso nicht scrollen kann
versteh ich nicht warum du keine Redraw Sperre eingebaut hast, also dass
sich die Listview erst dann neu zeichnet wenn alle neuen Eintraege eingefuegt wurden.

Ich werd zwar sowieso beim Explorer bleiben, aber das solltest du schleunigst
optimieren (bevor du auf ner grossen Codebasis sitzt)...

Frohe Ostern :mrgreen:
Bin nur noch sehr selten hier, bitte nur noch per PN kontaktieren
Benutzeravatar
al90
Beiträge: 1101
Registriert: 06.01.2005 23:15
Kontaktdaten:

Beitrag von al90 »

milan1612 hat geschrieben:Die Performance ist echt zum kot***, fuer meinen
System32 Ordner braucht es ganze 25 Sekunden bis das UI wieder reagiert.
Na dann bist du ja mit der zeit noch gut davon gekommen.
Unter Vista 32bit brauchte es bei mir 91 Sek. :freak:

Ne da muss Thomas unbedingt als nächstes ran. :mrgreen:
Benutzeravatar
nicolaus
Moderator
Beiträge: 1175
Registriert: 11.09.2004 13:09
Kontaktdaten:

Beitrag von nicolaus »

Hallo,

nicht schlecht aber dennoch muß ich mal fragen warum ihr mit den diversen "Commandern" das rad immer wieder neu erfinden tut?

Lohnt sich die arbeit denn überhaupt wenn es doch den ausgereiften TC gibt?

Gruß,
Nico
Antworten