jaPBe für PB 4.00

[Kiffi]

> Is this correct ?

it seems to be OK. We will see...

Thanks & Greetings ... Kiffi

[ts-soft]

Und in den Compileroptionen: SourceFileTextencoding zur Auswahl zwischen Plain Text und UTF8 mit Umschaltung on the fly

Thanks & Greetings ... Thomas

[gnozal]

generell mal so ne frage...wäre es ohne größeren aufwand möglich japbe auf linux zu portieren...weiß jetzt ja nicht wieviel api darin benutzt wird...hab den source ja nich

die scintilla-engine gibt es ja generell für linux

auf alle fälle wenn du sowas machen könntest wär echt spitze gnozal

mfg
armada

Some Windows API calls in the sources, and I don't use Linux ...

[gnozal]

> Is this correct ?

it seems to be OK. We will see...

Thanks & Greetings ... Kiffi

Ok, on the todo list.

[remi_meier]

You know that there is some new stuff in PB that does this for you?
WriteStringFormat(#Datei, Format) (and other commands)

[gnozal]

You know that there is some new stuff in PB that does this for you?
WriteStringFormat(#Datei, Format) (and other commands)

I know, but jaPBe is written in PB3.94 ... and too big to translate to PB4.00 !

[gnozal]

@gnozal

Koennte man MSDN V8 auch noch als Alternative zur win32.chm
einbauen ?

I think both PSDK and MSDN should be available ; could you test the following code (I don't have PSDK nor MSDN ) ? It first looks for MSDN and if not available for PSDK.

Code: Alles auswählen

Procedure SDK_IsAvaiable()
  IsAvaiable = 0
  
  ; PSDK
  If RegCreateKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\MSDN\7.0\Help", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_READ , 0, @NewKey, @KeyInfo) = #ERROR_SUCCESS
    index = 0
    Repeat
      ValueName$ = Space(260)
      ValueNameSize = 260
      ValueData$ = Space(260)
      ValueDataSize = 260
      
      Result = RegEnumValue_(NewKey, index, @ValueName$, @ValueNameSize, 0, @ValueType, 0, 0)      
      
      If Result = #ERROR_SUCCESS And ValueType = #REG_SZ
        
        If Left(LCase(ValueName$),18) = "ms-help://ms.psdk." ; current version: ms-help://MS.PSDK.1033
          PlatformSDKHelpString$ = ValueName$
          IsAvaiable = 1
          
          Break
        EndIf
        
      EndIf
      
      index + 1
    Until Result <> #ERROR_SUCCESS
    
    RegCloseKey_(NewKey)
  EndIf

  If IsAvaiable = 0
    ; MSDN
    If RegCreateKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\MSDN\8.0\Help", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_READ , 0, @NewKey, @KeyInfo) = #ERROR_SUCCESS
      index = 0
      Repeat
        ValueName$ = Space(260)
        ValueNameSize = 260
        ValueData$ = Space(260)
        ValueDataSize = 260
        
        Result = RegEnumValue_(NewKey, index, @ValueName$, @ValueNameSize, 0, @ValueType, 0, 0)      
        
        If Result = #ERROR_SUCCESS And ValueType = #REG_SZ
          
          If Left(LCase(ValueName$),17) = "ms-help://ms.msdn" ; current version: ms-help://MS.PSDK.1033 
            PlatformSDKHelpString$ = ValueName$
            IsAvaiable = 1
          
            Break
          EndIf
        
        EndIf
      
        index + 1
      Until Result <> #ERROR_SUCCESS
    
      RegCloseKey_(NewKey)
    EndIf
  EndIf                 
  
  ProcedureReturn IsAvaiable
EndProcedure

[edel]

@gnozal

Koennte man MSDN V8 auch noch als Alternative zur win32.chm
einbauen ?

I think both PSDK and MSDN should be available ; could you test the following code (I don't have PSDK nor MSDN ) ? It first looks for MSDN and if not available for PSDK.

Ja , das geht, MSDN oeffnet sich bei F1

[ts-soft]

Bei mir meldet sich NET-Framework SDK mit einer Fehlermeldung
Kann man das vielleicht zur Auswahl anbieten?
Ich würde lieber PSDK nutzen weil im NET-Framework gibts kaum Treffer
Benutze aus diesem Grund schon ein Weilchen nur noch MSDN im Internet.

[gnozal]

Bei mir meldet sich NET-Framework SDK mit einer Fehlermeldung
Kann man das vielleicht zur Auswahl anbieten?
Ich würde lieber PSDK nutzen weil im NET-Framework gibts kaum Treffer
Benutze aus diesem Grund schon ein Weilchen nur noch MSDN im Internet.

Ok, something like that ?

Code: Alles auswählen

Procedure SDK_IsAvaiable() 
  IsAvaiable = 0 
  
  If UseMSDN = #False ; to add in Preferences

    ; PSDK 
    If RegCreateKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\MSDN\7.0\Help", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_READ , 0, @NewKey, @KeyInfo) = #ERROR_SUCCESS 
      index = 0 
      Repeat 
        ValueName$ = Space(260) 
        ValueNameSize = 260 
        ValueData$ = Space(260) 
        ValueDataSize = 260 
      
        Result = RegEnumValue_(NewKey, index, @ValueName$, @ValueNameSize, 0, @ValueType, 0, 0)      
      
        If Result = #ERROR_SUCCESS And ValueType = #REG_SZ 
        
          If Left(LCase(ValueName$),18) = "ms-help://ms.psdk." ; current version: ms-help://MS.PSDK.1033 
            PlatformSDKHelpString$ = ValueName$ 
            IsAvaiable = 1 
            
            Break 
          EndIf 
        
        EndIf 
      
        index + 1 
      Until Result <> #ERROR_SUCCESS 
    
      RegCloseKey_(NewKey) 

  Else

    ; MSDN 
    If RegCreateKeyEx_(#HKEY_CURRENT_USER, "Software\Microsoft\MSDN\8.0\Help", 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_READ , 0, @NewKey, @KeyInfo) = #ERROR_SUCCESS 
      index = 0 
      Repeat 
        ValueName$ = Space(260) 
        ValueNameSize = 260 
        ValueData$ = Space(260) 
        ValueDataSize = 260 
        
        Result = RegEnumValue_(NewKey, index, @ValueName$, @ValueNameSize, 0, @ValueType, 0, 0)      
        
        If Result = #ERROR_SUCCESS And ValueType = #REG_SZ 
          
          If Left(LCase(ValueName$),17) = "ms-help://ms.msdn" ; current version: ms-help://MS.PSDK.1033 
            PlatformSDKHelpString$ = ValueName$ 
            IsAvaiable = 1 
          
            Break 
          EndIf 
        
        EndIf 
      
        index + 1 
      Until Result <> #ERROR_SUCCESS 
    
      RegCloseKey_(NewKey) 
    EndIf 
  EndIf                  
  
  ProcedureReturn IsAvaiable 
EndProcedure