Re: [Modules] ListEx (all OS / DPI)
Posted: Mon Aug 19, 2019 9:24 am
Bug fixed
http://www.purebasic.com
https://www.purebasic.fr/english/
Thank you!!, but I think you forgot to update Github fileThorsten1867 wrote:Bug fixed
Windows: Snipping ToolRinzwind wrote:@zikitrake
What you use to create those small screen captures¿
@Thorsten1867: As far as I know, you can't create GIFs with the sniping tool.Thorsten1867 wrote:Windows: Snipping ToolRinzwind wrote:@zikitrake
What you use to create those small screen captures¿
Yeah! It works fine now!Thorsten1867 wrote:Try it again.
Hi, I use http://gifrecorder.com/Rinzwind wrote:@zikitrake
What you use to create those small screen captures¿
Code: Select all
IncludeFile "ListExModule.pbi"
Define AddLine.s
winAdminMain = OpenWindow(#PB_Any, 0, 0, 700, 410, "DB Admin", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
TestList = ListEx::Gadget(#PB_Any, 5, 5, 600, 350, "First Column", 80, "", ListEx::#GridLines|ListEx::#AutoResize) ; ListEx::#NoRowHeader|ListEx::#MultiSelect|ListEx::#NumberedColumn|ListEx::#CheckBoxes|ListEx::#SingleClickEdit|ListEx::#AutoResize
ListEx::AddColumn(TestList, 1, "Second", 75, "", ListEx::#Editable)
ListEx::AddColumn(TestList, ListEx::#LastItem, "Third",100, "")
ListEx::AddColumn(TestList, ListEx::#LastItem, "Fourth",100, "",ListEx::#FitColumn|ListEx::#Editable)
ListEx::AddColumn(TestList, ListEx::#LastItem, "Fith",100, "", ListEx::#FitColumn|ListEx::#Editable)
ListEx::AddColumn(TestList, ListEx::#LastItem, "Sixth",50, "", ListEx::#FitColumn|ListEx::#Editable)
AddLine = "Column 1" + #LF$ + "Column 2" + #LF$+ "Column 3" + #LF$+ "Column 4" + #LF$+ "Column 5" + #LF$+ "Column 6"
ListEx::AddItem(TestList, 0, AddLine)
AddLine = "Column 1" + #LF$ + "Column 2" + #LF$+ "Column 3" + #LF$+ "Column 4 Longer" + #LF$+ "Column 5" + #LF$+ "Column 6"
ListEx::AddItem(TestList, 1, AddLine)
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_CloseWindow
End
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
EndSelect
EndSelect
Code: Select all
Case ListEx::#Event_Gadget
Select EventType()
Case #PB_EventType_RightClick
Debug "RightClick: " + Str(EventData())
EndSelect
Code: Select all
Case ListEx::#Event_Gadget
Debug "Listex Event"
Select EventType()
Case #PB_EventType_RightClick
Debug "RightClick: " + Str(EventData())
Case #PB_EventType_LeftClick
Debug "LeftClick: " + Str(EventData())
EndSelect