PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

powerpoint listview 1.1

https://www.purebasic.fr/english/viewtopic.php?t=11524

Page 1 of 1

powerpoint listview 1.1

Posted: Fri Jul 02, 2004 3:39 am
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

Posted: Thu Sep 29, 2005 11:47 pm
by Blade
Is it possible to drag the images to swap their order?

Posted: Wed Oct 12, 2005 1:12 pm
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.
All times are UTC+01:00
Page 1 of 1

Powered by phpBB® Forum Software © phpBB Limited