PureBasic

Code : Tout sélectionner

#Font = 0
#MAIN_FORM = 0
Enumeration 
  #withName
  #LST 
  #BT_VALIDE
  #BT_CANCEL
EndEnumeration
Structure item
  name.s
  type.s
EndStructure
Global NewList myItem.item(),withName.s
Procedure Exit()
  End
EndProcedure

Procedure Parse()
  Protected selected.s = RemoveString(GetClipboardText(),Chr(13))
  
  ; count number of lines
  Protected nl = CountString(selected,Chr(10))
  Protected i,lng.s
  For i = 1 To nl + 1
    lng = StringField(selected,i,Chr(10))
    AddElement(myItem())
    With myItem()
      \name = Trim(StringField(lng,1,"."))
      \type = LCase(Trim(StringField(lng,2,".")))
    EndWith
  Next
EndProcedure

Procedure valide()
  Protected code.s
  withName = GetGadgetText(#withName)
  If Not Len(withName)
    MessageRequester("Getters & Setters","Please set name of with",#PB_MessageRequester_Info)
    ProcedureReturn 
  EndIf
  With myItem()
    ForEach myItem()
      code + "Procedure."+\type+" get_"+\name+"()"+Chr(10)
      code +"  ProcedureReturn "
      If Len(withName)
        code + withName+"\"
      EndIf
      code + \name +Chr(10)
      code + "EndProcedure"+Chr(10)+Chr(10)
      code + "Procedure set_"+\name+"("+\name+"."+\type+")"+Chr(10)
      If Len(withName)
        code + withName+"\"
      EndIf   
      code +" " + \name+" = "+\name + Chr(10)
      code + "EndProcedure"+Chr(10)+Chr(10)
    Next
    SetClipboardText(code)
    MessageRequester("Getters & Setters","Your code has ban copied into the clipboard",#PB_MessageRequester_Info)
    Exit()
  EndWith
EndProcedure

Procedure fillLst()
  ClearGadgetItems(#LST)
  ForEach myItem()
    AddGadgetItem(#LST,-1,myItem()\name)
  Next
EndProcedure

Procedure Run()
  ;Load scintilla component
  Protected HandleIDESci=Val(GetEnvironmentVariable("PB_TOOL_Scintilla"))  
  Protected y = 10
  If HandleIDESci
    ;copy to memory the user selected
    SendMessage_(HandleIDESci, #WM_COPY,0,0)   
  Else
    MessageRequester("Warning", "Please run this software only from Purebasic ide",#PB_MessageRequester_Warning)
    Exit()
  EndIf
  ; Make window
  LoadFont(#Font, "", 10)
  
  SetGadgetFont(#PB_Default, FontID(#Font))
  
  OpenWindow(#MAIN_FORM, 0, 0, 200, 320, "Gadget Editor", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_Tool)
  StickyWindow(#MAIN_FORM, #True)
  
  TextGadget(#PB_Any,10,y,180,30,"Name of with")
  y + 40
  StringGadget(#withName,10,y,180,30,"")
  y + 40
  ListViewGadget(#LST,10,y,180,180)
  y + 190
  ButtonGadget(#BT_CANCEL,10,y,70,30,"Cancel")
  ButtonGadget(#BT_VALIDE,120,y,70,30,"Ok")
  Parse()
  fillLst()
  SetActiveGadget(#withName)
  
  BindEvent(#PB_Event_CloseWindow,@Exit(),#MAIN_FORM)
  BindGadgetEvent(#BT_CANCEL,@Exit())
  BindGadgetEvent(#BT_VALIDE,@valide())
  
  Repeat : WaitWindowEvent() : ForEver
EndProcedure

Run()