PureSyn (Total Commander ListerPlugin)

[ts-soft]

PureSyn ist ein ListerPlugin das PureBasic-Sourcecode anzeigt.

Unterstützt wird Total Commander 4.5 bis 8 (auch 64-Bit).

Dies ist noch eine Alpha-Version, wo nur wenige Features eingebaut
sind, aber ich möchte frühzeitig Wünsche und Bugs erkennen, das
macht die Weiterentwicklung leichter.

Bisherige Features:

• SyntaxHighligtning
  Folding
  SplitScreen
  Suchen (teilweise)

Bearbeiten ist zur Zeit nicht unterstützt, dient also nur der schicken Ansicht

Wenn jemand mithelfen möchte, kann er gerne den Source haben, ist aber nur in der
PB-IDE per Projekt zu kompilieren.

Download

Installation: automatische Installation, wenn das Archiv im TotalCommander geöffnet wird.

Gruß
Thomas

[RSBasic]

Kannst du vielleicht einen Screenshot posten?
Ich hab/nutze zwar kein TC, aber möchte trotzdem mal wissen, wie es aussieht, ohne testen zu müssen. Danke.

[ts-soft]

Dann nutze die Shareware



Die Farben richten sich nach euren Einstellungen, insofern welche vorhanden sind.

[RSBasic]

Ah so schaut es aus. Danke fürs schnelle Erstellen und Posten deines Screenshots.

Wie siehts eigentlich mit deinem JA!Commander aus? Bietet deine Anwendung bereits so eine Funktion?
Warum hast du eigentlich so ein Plugin für TC erstellt? Nutzt du deinen eigenen nicht mehr oder wolltest du einfach allgemein für diejenigen so ein Plugin erstellen, die deinen Commander nicht kennen/nutzen?

[ts-soft]

JA!Commander liegt auf Eis

Update:
Version 0.2 Alpha
+ Ausführen (mit oder ohne Debugger).
+ Editieren (nur im ListerFenster (F3)) hinzugefügt.
+ Autocomplete, Autoindent hinzugefügt.
+ Diverse Fehler beseitigt.

[ts-soft]

Scheint ja nicht viele Nutzer des TotalCommanders zu geben, was ich nicht so ganz
verstehen kann, ist IMHO der beste Dateimanager, den es für Windows gibt .

Hab hier mal einen Testcode gebastelt, mit dem man die Plugins auch ohne TC
testen kann:

Code: Alles auswählen

EnableExplicit

Prototype.i ListLoadW(ParentWin.i, FileToLoad.p-Unicode, ShowFlags.i)
Prototype ListCloseWindow(ListWin.i)

Define hDLL

CompilerIf #PB_Compiler_Processor = #PB_Processor_x64
  hDLL = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "PureSyn.wlx64")
CompilerElse
  hDLL = OpenLibrary(#PB_Any, GetPathPart(ProgramFilename()) + "PureSyn.wlx")
CompilerEndIf

If Not hDLL
  MessageRequester("PureSyn", "Can't find the required plugin", #MB_ICONERROR)
  End
EndIf

Define File.s = ProgramParameter()
Define Pattern.s
Define DefaultFile.s

If Not File
  Pattern.s = "PureBasic (*.pb, *pbi)|*.pb;*.pbi|All Files (*.*)|*.*"
  OpenPreferences(GetEnvironmentVariable("APPDATA") + "\PureBasic\PureBasic.prefs")
    PreferenceGroup("Global")
    DefaultFile = ReadPreferenceString("SourceDirectory", GetHomeDirectory())
  ClosePreferences()
  File = OpenFileRequester("Open PureBasic-Source", DefaultFile, Pattern, 0)
EndIf

Define ListLoadW.ListLoadW = GetFunction(hDLL, "ListLoadW")
Define ListCloseWindow.ListCloseWindow = GetFunction(hDLL, "ListCloseWindow")
Define Flags = #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget | #PB_Window_NoGadgets

OpenWindow(0, #PB_Ignore, #PB_Ignore, 640, 480, "PureSyn StandAlone", Flags)
RemoveKeyboardShortcut(0, #PB_Shortcut_Tab)

Define con = ListLoadW(WindowID(0), File, 0)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      ListCloseWindow(WindowID(0))
      Break
    Case #PB_Event_SizeWindow
      MoveWindow_(con, 0, 0,  WindowWidth(0), WindowHeight(0), 0)
  EndSelect
ForEver

Der Code befindet sich auch im Download!

Gruß
Thomas

[RSBasic]

@ts-soft
Vielleicht liegt es daran, dass die Anderen stattdessen lieber deinen Ja!Commander nutzen und nicht den TotalCommander. Vielleicht ist es deshalb nicht so interessant.

[Falko]

@ts-soft
Vielleicht liegt es daran, dass die Anderen stattdessen lieber deinen Ja!Commander nutzen und nicht den TotalCommander. Vielleicht ist es deshalb nicht so interessant.

Sicher?

@Thomas,
du schreibst oben, das es noch die Alpha ist,
aber unter Settings bist du schon weiter mit 0.5Beta.

Sieht prima aus.

Gruß,
Falko

[ts-soft]

@Thomas,
du schreibst oben, das es noch die Alpha ist,
aber unter Settings bist du schon weiter mit 0.5Beta.

Ich mach doch nicht den Alleinunterhalter
2 Postings hintereinander von mir reichen.

Sieht prima aus.

Danke

Gruß
Thomas

[FrW]

Scheint ja nicht viele Nutzer des TotalCommanders zu geben, was ich nicht so ganz
verstehen kann, ist IMHO der beste Dateimanager, den es für Windows gibt .

Da kann ich nur zustimmen.
Das Plugin funktioniert auch ohne Probleme.

Vielen Dank.
FrW