powerpoint listview 1.1

Share your advanced PureBasic knowledge/code with the community.
Post Reply
localmotion34
Enthusiast
Enthusiast
Posts: 665
Joined: Fri Sep 12, 2003 10:40 pm
Location: Tallahassee, Florida

powerpoint listview 1.1

Post by localmotion34 »

Code updated For 5.20+

here it is. bug free and totally working, supporting up to 10 listviews with 100 images each. if you use the code, just please give me credit. you can modify it to suit your needs, or improve it. my advice as ive tried to tailbite it and it wont work, save it as a .pbi include file and throw it in the JAPBE includes. comments and suggestions are welcome.

Code: Select all

#SS_NOTIFY=256
#SS_OWNERDRAW=$D

;- Structures, Lists and Arrays
Structure PPTinfo
  gadgetnumber.l
  scrollarea.l
  scrollareachild.l
  scrollareahandle.l
  childimages.l[100]
EndStructure

Global Dim pptLVstruct.PPTinfo(100)

rect.RECT

Structure FindWindowData
  childwindowhandle.l 
EndStructure

Structure handle
  hwnd.l
EndStructure

Global  Dim PPTimages(500)

Global  NewList FindChild.FindWindowData()
Global NewList PptLVnumber.handle()

;- Procedures
Procedure.l EnumChildProc(hChild, lParam)
  AddElement(FindChild())
  FindChild()\childwindowhandle= hChild
  ProcedureReturn 1
EndProcedure

ProcedureDLL PPTcallback(WindowID,message,wParam,lParam)
  UseJPEGImageDecoder()
  UsePNGImageDecoder()
  UseTIFFImageDecoder()
  UseTGAImageDecoder()
  scrollareachild=pptLVstruct(a)\scrollareachild
  scrollareachildfirstchild=GetWindow_(scrollareachild,#GW_CHILD)
  scrollareachildnextchild=GetWindow_(scrollareachildfirstchild,#GW_HWNDNEXT)
  scrollareachildlastchild=GetWindow_(scrollareachildfirstchild,#GW_HWNDLAST)
  result=#PB_ProcessPureBasicEvents
  Select message
    Case #WM_COMMAND
      pptnumber=ListSize(PptLVnumber())
      For a=0 To pptnumber-1
        ClearList(FindChild())
        EnumChildWindows_(pptLVstruct(a)\scrollareachild, @EnumChildProc(), 0)
        ResetList(FindChild())
        ForEach FindChild()
          Index = ListIndex(FindChild())
          If lParam = FindChild()\childwindowhandle
            result=SendMessage_(lParam ,#BM_GETCHECK,0,0)
            SendMessage_(FindChild()\childwindowhandle,#BM_SETCHECK,#BST_CHECKED,0)
            ForEach FindChild()
              If lParam <> FindChild()\childwindowhandle
                SendMessage_(FindChild()\childwindowhandle,#BM_SETCHECK,#BST_UNCHECKED,0)
              EndIf
            Next
          EndIf
        Next
      Next
  EndSelect 
  ProcedureReturn result
EndProcedure

ProcedureDLL PPtListview(number,x,y,width,height,Imagenumber)
  AddElement(PptLVnumber())
  LVnumber=ListSize(PptLVnumber())
  Index= LVnumber-1
  If Index=number
    imagex=5
    imagewidth=width-30
    imageheightF.f=imagewidth*(5/7)
    imageheightF$=StrF(imageheightF)
    Result$ = StringField(imageheightF$, 1,".")
    imageheight=Val(Result$)
    imagey=0-imageheight
    If Imagenumber>4
      scrollheight=Imagenumber*(imageheight+10)
    Else
      scrollheight=600
    EndIf
    pptLVstruct(Index)\scrollarea=ScrollAreaGadget(#PB_Any, x,y,width,height, width-20,scrollheight, 10)
    pptLVstruct(Index)\scrollareachild=GetWindow_(GadgetID(pptLVstruct(Index)\scrollarea),#GW_CHILD)
    pptLVstruct(Index)\scrollareahandle=GadgetID(pptLVstruct(Index)\scrollarea)
    PptLVnumber()\hwnd =pptLVstruct(Index)\scrollareachild
    CreateImage(999,imagewidth, imageheight)
    StartDrawing(ImageOutput(999))
    Box(0,0,imagewidth, imageheight,#COLOR_BTNFACE)
    StopDrawing()
    For a=1 To Imagenumber
      imagey=imagey+ 6+ imageheight
      pptLVstruct(Index)\childimages[a]=ButtonImageGadget(#PB_Any,imagex,imagey, imagewidth, imageheight, ImageID(999))
      style = GetWindowLong_(GadgetID(pptLVstruct(Index)\childimages[a]), #GWL_STYLE)
      toggleStyle = style |$1003
      SetWindowLong_(GadgetID(pptLVstruct(Index)\childimages[a]), #GWL_STYLE, toggleStyle)
      CreateImage(a,imagewidth-10, imageheight-10)
      StartDrawing(ImageOutput(a))
      Box(0,0,imagewidth, imageheight,RGB(228,225,227))
      StopDrawing()
      SetGadgetState(pptLVstruct(Index)\childimages[a],ImageID(a))
    Next
    CloseGadgetList()
    SetWindowCallback(@PPTcallback())
    ProcedureReturn @pptLVstruct(Index)
  EndIf
EndProcedure

ProcedureDLL GetPPTstate(PPTlistview)
  scrollareachild=pptLVstruct(PPTlistview)\scrollareachild
  ClearList(FindChild())
  EnumChildWindows_(scrollareachild, @EnumChildProc(), 0)
  ResetList(FindChild())
  While NextElement(FindChild())
    Index = ListIndex(FindChild())
    If SendMessage_(FindChild()\childwindowhandle,#BM_GETCHECK,0,0)=#BST_CHECKED
      ProcedureReturn Index+1
      Break
    Else
    EndIf
  Wend
EndProcedure

ProcedureDLL SetPPTstate(PPTlistview,item,State)
  scrollareachild=pptLVstruct(PPTlistview)\scrollareachild
  ClearList(FindChild())
  EnumChildWindows_(scrollareachild, @EnumChildProc(), 0)
  If State =0
    ResetList(FindChild())
    While NextElement(FindChild())
      SendMessage_(FindChild()\childwindowhandle,#BM_SETCHECK,#BST_UNCHECKED,0)
    Wend
  ElseIf State=1
    ResetList(FindChild())
    ForEach FindChild()
      SendMessage_(FindChild()\childwindowhandle,#BM_SETCHECK,#BST_UNCHECKED,0)
    Next
    SelectElement(FindChild(),item-1)
    SendMessage_(GadgetID(pptLVstruct(PPTlistview)\childimages[item]),#BM_SETCHECK,#BST_CHECKED,0)
  EndIf
EndProcedure

ProcedureDLL AddPPTitem(PPTlistview,optionalimage)
  scrollarea=pptLVstruct(PPTlistview)\scrollarea
  scrollareachild=GetWindow_(GadgetID(pptLVstruct(PPTlistview)\scrollarea),#GW_CHILD)
  ClearList(FindChild())
  EnumChildWindows_(scrollareachild, @EnumChildProc(), 0)
  numberimages=ListSize(FindChild())
  AddElement(FindChild())
  imagex=5
  width=GadgetWidth(scrollarea)
  y=GadgetY(pptLVstruct(PPTlistview)\childimages[numberimages])
  imagewidth=width-30
  imageheightF.f=imagewidth*(5/7)
  imageheightF$=StrF(imageheightF)
  Result$ = StringField(imageheightF$, 1,".")
  imageheight=Val(Result$)
  imagey=y+imageheight+5
  CreateImage(999,imagewidth, imageheight)
  StartDrawing(ImageOutput(999))
  Box(0,0,imagewidth, imageheight,#COLOR_BTNFACE)
  StopDrawing()
  OpenGadgetList(scrollarea)
  pptLVstruct(PPTlistview)\childimages[numberimages+1]=ButtonImageGadget(#PB_Any,imagex,imagey, imagewidth, imageheight, ImageID(999))
  style = GetWindowLong_(GadgetID(pptLVstruct(PPTlistview)\childimages[numberimages+1]), #GWL_STYLE)
  toggleStyle = style |$1003
  SetWindowLong_(GadgetID(pptLVstruct(PPTlistview)\childimages[numberimages+1]), #GWL_STYLE, toggleStyle)
  If CreateImage(numberimages+1,imagewidth-10, imageheight-10)
    StartDrawing(ImageOutput(numberimages+1))
    Box(0,0,imagewidth, imageheight,RGB(228,225,227))
    StopDrawing()
    SetGadgetState(pptLVstruct(PPTlistview)\childimages[numberimages+1],ImageID(numberimages+1))
  EndIf
  CloseGadgetList()
  If numberimages>4
    scrollheight=(numberimages+1)*(imageheight+10)
    SetGadgetAttribute(scrollarea,#PB_ScrollArea_InnerHeight,scrollheight)
  EndIf
  If optionalimage <> 0 Or optionalimage <>#Null
    numberimages=ListSize(FindChild())
    imagewidth=GadgetWidth(PPTimages(numberimages+1))
    imageheight=GadgetHeight(PPTimages(numberimages+1))
    ResizeImage(optionalimage,imagewidth,imageheight)
    SetGadgetState(pptLVstruct(PPTlistview)\childimages[numberimages+1],ImageID(optionalimage))
  EndIf
EndProcedure

ProcedureDLL CountPPTitems(PPTlistview)
  scrollareachild=GetWindow_(GadgetID(pptLVstruct(PPTlistview)\scrollarea),#GW_CHILD)
  ClearList(FindChild())
  EnumChildWindows_(scrollareachild, @EnumChildProc(), 0)
  itemcount=ListSize(FindChild())
  ProcedureReturn itemcount
EndProcedure

Procedure DeletePPTitem(PPTlistview,item)
EndProcedure

ProcedureDLL SetPPTitemImage(PPTlistview,item,Image)
  scrollareachild=pptLVstruct(PPTlistview)\scrollareachild
  ClearList(FindChild())
  EnumChildWindows_(scrollareachild, @EnumChildProc(), 0)
  numberimages=ListSize(FindChild())
  imagewidth=GadgetWidth(pptLVstruct(PPTlistview)\childimages[numberimages])
  imageheight=GadgetHeight(pptLVstruct(PPTlistview)\childimages[numberimages])
  ResizeImage(Image,imagewidth,imageheight)
  SetGadgetState(pptLVstruct(PPTlistview)\childimages[item],ImageID(Image))
EndProcedure

ProcedureDLL GetPPTitemImage(PPTlistview,item)
  If item=0
  Else
    imagewidth=GadgetWidth(pptLVstruct(PPTlistview)\childimages[item])
    imageheightF.f=imagewidth*(5/7)
    imageheightF$=StrF(imageheightF)
    Result$ = StringField(imageheightF$, 1,".")
    imageheight=Val(Result$)
    width=imagewidth*3
    height=imageheight*3
    imagehandle=SendMessage_(GadgetID(pptLVstruct(PPTlistview)\childimages[item]),#BM_GETIMAGE,#IMAGE_BITMAP,0)
    imagereturn=CreateImage(#PB_Any,width,height)
    StartDrawing(ImageOutput(imagereturn))
    DrawImage(imagehandle,0,0,width,height)
    StopDrawing()
  EndIf
  ProcedureReturn imagereturn
EndProcedure

;-Main Program
OpenWindow(0,0,0,680,600,"PPTlistview Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

PPL=PPtListview(0,5,10,190,500,4)
lll=PPtListview(1,200,10,190,500,3)
ButtonGadget(8,400,10,150,20,"Grab Selected Image")
ButtonGadget(7,400,30,150,20,"Add Image To First Item")
ButtonGadget(1,400,50,150,20,"Get PPTLv State")
ButtonGadget(2,400,70,150,20,"Set PPTLv State To 0")
ButtonGadget(3,400,90,150,20,"Set PPTLv State To 2")
ButtonGadget(5,400,110,150,20,"Add PPTlv Item")
ButtonGadget(6,400,130,150,20,"Count PPTlv Items")
ImageGadget(4,392,170,280,210,0,#PB_Image_Border)
OptionGadget(9,400,410,150,20,"Select PPT Listview 0"):SetGadgetState(9,1)
OptionGadget(10,400,440,150,20,"Select PPT Listview 1")
;-Event Loop   
Repeat
  If GetGadgetState(9)=1
    selected=0
  ElseIf GetGadgetState(10)=1
    selected=1
  EndIf
  
  Select WaitWindowEvent()
    Case  #PB_Event_CloseWindow
      SetWindowCallback(0)
      End
    Case  #PB_Event_Gadget
      Select EventGadget()
        Case 1
          State=GetPPTstate(selected)
          MessageRequester("Info","The PPT Listview State is " + Str(State))
        Case 2
          SetPPTstate(selected,0,0)
        Case 3
          SetPPTstate(selected,2,1)
        Case 5
          AddPPTitem(selected,0)
        Case 6
          number=CountPPTitems(selected)
          MessageRequester("Info" ,"There are" + " " + Str(number) + " "+"Items In the PPT Listview")
        Case 7
          Filename$ = OpenFileRequester("Choose an Image", "", "All Images Formats|*.bmp;*.jpg;*.png;*.tif;*.tga", 0)
          If Filename$
            currentimage=LoadImage(#PB_Any,Filename$)
            SetPPTitemImage(selected,1,currentimage)
          EndIf
        Case 8
          currentimage=GetPPTitemImage(selected,GetPPTstate(selected))
          ResizeImage(currentimage,GadgetWidth(4)-4,GadgetHeight(4)-4)
          SetGadgetState(4,ImageID(currentimage))
          ;SetPPTitemImage(1,1,currentimage)
        Case PPL
          Debug "ok"
      EndSelect
      
  EndSelect
  
ForEver

Code: Select all

!.WHILE status != dwPassedOut
! Invoke AllocateDrink, dwBeerAmount
!MOV Mug, Beer
!Invoke Drink, Mug, dwBeerAmount
!.endw
Top
Blade
Enthusiast
Enthusiast
Posts: 362
Joined: Wed Aug 06, 2003 2:49 pm
Location: Venice - Italy, Japan when possible.
Contact:
Contact Blade

Post by Blade »

Is it possible to drag the images to swap their order?
Top
akj
Enthusiast
Enthusiast
Posts: 668
Joined: Mon Jun 09, 2003 10:08 pm
Location: Nottingham

Post by akj »

Forgive my ignorance, but I cannot work out what this code is supposed to do. All I have achieved is adding an image to one of the rectangles.
What has PowerPoint got to do with it?

Could you please write two or three paragraphs on how I might find this code useful.
Anthony Jordan
Top
Post Reply

Return to “Tricks 'n' Tips”