PureBoard

Code: Alles auswählen

TextGadget(#Text, 0, 0, 100, 20, "C:\Langer Pfad Pfad Pfad\test\Datei.dat", #SS_NOTIFY | #SS_PATHELLIPSIS)

Code: Alles auswählen

Path$ = "C:\Windows\System32\drivers\es-ES"
PathLength = Len(Path$)
LeftPath$ = Left(Path$, PathLength/3)
RigthPath$ = Right(Path$,  PathLength/3)

Debug LeftPath$ + "..." + RigthPath$
Debug Path$

Code: Alles auswählen

If CreateRegularExpression(0, "[^\\]{5,}\\")
 Debug ReplaceRegularExpression(0, "C:\Program Files\Windows7\kurz\configuration\config.ini", "....\")
EndIf

Code: Alles auswählen

EnableExplicit

#Path = "C:\Program Files\Microsoft SDKs\Windows\v7.0\Bin\TSPDesigner\DesignerFunction.dll"

OpenWindow(0, 0, 0, 200, 200, "Beispiel", #PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
TextGadget(0, 10, 10, WindowWidth(0) - 20, 15, #Path, #SS_LEFTNOWORDWRAP)

Procedure.s TextGadget_CompactPath(Gadget, Path$)
  If IsGadget(Gadget) And GadgetType(Gadget) = #PB_GadgetType_Text
    Static hDC.i, hFont.i, sResult.s
    
    hFont = SendMessage_(GadgetID(Gadget), #WM_GETFONT, 0, 0)
    hDC   = CreateCompatibleDC_(0)
    
    SelectObject_(hDC, hFont)
    
    If hFont And hDC
      PathCompactPath_(hDC, Path$, GadgetWidth(Gadget))
      
      sResult = Path$
    Else
      sResult = Path$
    EndIf
    
    DeleteDC_(hDC)
  EndIf
  
  ProcedureReturn sResult
EndProcedure

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_SizeWindow
      ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(0) - 20, #PB_Ignore)
      SetGadgetText(0, TextGadget_CompactPath(0, #Path))
    Case #PB_Event_CloseWindow
      End
  EndSelect
ForEver