StringGadget, GetFilePart() nicht UNICode-Konform? gelöst

[Xaby]

ProbeText:
播放问题解决方法.txt
учишься.doc

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 250, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
  StringGadget(0, 8, 8, 306, 20,"") 
  EditorGadget(1, 8, 50, 306, 133)
  Repeat
    Event=WaitWindowEvent()
    If Event=#PB_Event_Gadget
      GadgetNr=EventGadget()
      
      If GadgetNr=0
        EventType=EventType()
        
        If EventType=#PB_EventType_Change
          AddGadgetItem(1,-1,GetFilePart(GetGadgetText(0)))
          
        EndIf 
      EndIf       
    EndIf        
  Until  Event= #PB_Event_CloseWindow 
  
EndIf 

auch das geht nicht!!!

Code: Alles auswählen

If OpenWindow(0, 0, 0, 322, 250, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) And CreateGadgetList(WindowID(0)) 
  ;StringGadget(0, 8, 8, 306, 20,"") 
  EditorGadget(0, 8, 8, 306, 40) 
  EditorGadget(1, 8, 50, 306, 133)
  Repeat
    Event=WaitWindowEvent()
    If Event=#PB_Event_Gadget
      GadgetNr=EventGadget()
      
      If GadgetNr=0
        EventType=EventType()
        If EventType=1024 ; nicht jedoch #PB_...
         ; AddGadgetItem(1,-1,GetFilePart(GetGadgetText(0)))
           AddGadgetItem(1,-1, GetFilePart(GetGadgetItemText(0,0,0)))
          
          
        EndIf 
      EndIf 
      
    EndIf
    
    
  Until  Event= #PB_Event_CloseWindow 
  
EndIf 

StringGadget() und GetFilePart() sind nicht UNICode-tauglich

Wäre wohl was für PB 4.1



[Edit]
Es lag an der CompilerEinstellung.
Dank an Falko.

Unicode-Exe erzeugen muss auf AN sein