Seite 9 von 9

Verfasst: 04.09.2007 13:02
von #NULL
also echt geil das teil :allright:

aber um es wirklich zu benutzen würde ich persönlich folgendes benötigen:
- ich will folding auch ohne zeilennummerierung nutzen können
- ich hätte für das folding gern den default-wert wählbar oder gleich auf 'zusammengeklappt'
- ich will in jedem fall den code aus dem browser heraus kopieren, und problemlos in einen editor/pb-ide einfügen können können. momentan habe ich nach dem copy&paste keine zeilenumbrüche mehr. ambesten wäre es, wenn im browser (zumindest ohne zeilennummern) Cntrl+A und Cntrl+C auch wirklich einen inhalt erfassen, den ich in einer IDE einfügen und compilieren kann.

..ich benutze FaiaFocks

Verfasst: 04.09.2007 17:16
von Macros
Vielen Dank für das Lob :-)

Ich hab wie du gemerkt hast schon ne ganze Weile nicht mehr an dem Programm gearbeitet.
Und leider macht mir zur Zeit mein Windows massivste Probleme
(lässt mich nicht mehr einloggen... )
und ich bin Mit Linux online. Zudem geht hier bald die Schule los,
und zwar die Kollegstufe. Also muss ich mal schauen,
wann ich weitermachen kann. Auf jeden Fall melde ich mich dann hier.

Viele Grüße Macros

Verfasst: 01.01.2008 18:16
von mk-soft
Schön wenn Du dieses noch einbauen könntest.
Denn Path für die englische Version bin ich mir nicht sicher das dieser stimmt.

Code: Alles auswählen

Procedure LoadCustomKeywords(List.s())

  Protected path_keywords.s, keyword.s
  Protected max, count
  
  path_keywords = GetHomeDirectory() + "Anwendungsdaten\PureBasic\Purebasic.Prefs"

  If FileSize(path_keywords) < 0
    path_keywords = GetHomeDirectory() + "Applications Data\PureBasic\Purebasic.Prefs"
  EndIf

  If FileSize(path_keywords) < 0
    ProcedureReturn
  EndIf
  
  If OpenPreferences(path_keywords)
    If PreferenceGroup("CustomKeywords")
      max = ReadPreferenceLong("Count", 0)
      For count = 1 To max
        keyword = ReadPreferenceString("W" + Str(count), "")
        If keyword
          AddElement(List())
          List() = UCase(keyword)
        EndIf
      Next
    EndIf
  EndIf
  
EndProcedure

FF :wink: