PureBasic

Code : Tout sélectionner

Enumeration
  #Window_0
  #reptxt
  #repcho
  #reptype
EndEnumeration
AppName$ = "Application Name"
LenAppName = Len(AppName$)
If OpenWindow(#Window_0, 298, 148, 502, 369,  #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "Install")
  If CreateGadgetList(WindowID())
    TextGadget(#reptxt, 30, 110, 442, 20, "Choose directory where you want to install "+AppName$+" :")
    StringGadget(#reptype, 30, 150, 442, 20, "C:\"+AppName$)
    ExplorerTreeGadget(#repcho, 30, 190, 442, 100, "C:\", #PB_Explorer_NoFiles | #PB_Explorer_NoMyDocuments | #PB_Explorer_AutoSort | #PB_Explorer_NoLines | #PB_Explorer_NoButtons | #PB_Explorer_AlwaysShowSelection)
  EndIf
  Repeat
    Delay(1)
    Event = WindowEvent()
    If Event = #PB_EventGadget
      GadgetID = EventGadgetID()
      If GadgetID = #repcho
        TEvent = EventType()
        If Tevent = #PB_EventType_Change
          If autochange = 0
            SetGadgetText(#reptype, GetGadgetText(#repcho)+AppName$)
          Else
            autochange = 0
          EndIf
        EndIf
      ElseIf GadgetID = #reptype
        TEvent = EventType()
        If Tevent = #PB_EventType_Change
          folder$ = GetGadgetText(#reptype)
          If Right(folder$, LenAppName) = AppName$
            folder$ = Left(folder$, Len(folder$)-LenAppName)
          EndIf
          SetGadgetText(#repcho, folder$)
          autochange = 1
        EndIf
      EndIf
    EndIf
  Until Event = #PB_EventCloseWindow
EndIf