Gnozal libraries for PB4.xx

gnozal · Post by **gnozal** » Wed Sep 27, 2006 7:50 am

Konne wrote:So are u working on making the Resizelib threadsave?

Done
PB4 lib updated.

Amundo · Post by **Amundo** » Sat Sep 30, 2006 3:38 am

Dear gnozal,

You seem to just give tirelessly of your talents and time!

Is there no end to your generosity?

Thanks again and again!

DevilDog · Post by **DevilDog** » Fri Nov 03, 2006 6:46 pm

Gnozal or anyone who knows....

Any other place to download this lib?

The link to http://people.freenet.de/gnozal/PureSMTP_.zip is broken.

Thanks

ts-soft · Post by **ts-soft** » Fri Nov 03, 2006 7:15 pm

@DevilDog
Link works for me

gnozal · Post by **gnozal** » Sat Nov 04, 2006 3:15 pm

AFAIK all links work.
An alternative download place (may not always be the last versions though) : http://www.purearea.net/pb/english/userlibs.php

DevilDog · Post by **DevilDog** » Sun Nov 05, 2006 5:16 am

Thanks, I got it.

There must have been some kind of firewall filter to it from where I was.

gnozal · Post by **gnozal** » Mon Oct 22, 2007 9:33 am

Updated all PB4.0x / PB4.1x libraries

Changes :
- updated library installer : fixed PB folder detection for PB4.10 beta 4

dige · Post by **dige** » Tue Oct 23, 2007 8:31 am

@gnozal: could you add an pathrequester please, after the messagebox
"Install in Directory ... C:\..." .. otherwise the cancel button is'nt meaningful
thanks!

gnozal · Post by **gnozal** » Tue Oct 23, 2007 9:04 am

dige wrote:@gnozal: could you add an pathrequester please, after the messagebox
"Install in Directory ... C:\..." .. otherwise the cancel button is'nt meaningful
thanks!

Will try to remember it for the next version.
In the mean time, please note that the installer is a self-extracting ZIP archive, so you can open it with any archiver.

dige · Post by **dige** » Mon Oct 29, 2007 10:56 am

@Gnozal: I need a temporary deactivation of PureLVSORT for some several reasons like:

PureLVSORT_Enable ( GadgetID.l, status.b )

One reason is to prevent a sort during update of listview items.
And the second is, that AddGadgetItem() is very slow, if PureLVSort
is activated.

Pls try this:

Code: Select all

;- Window Constants
;
Enumeration
  #Window_0
EndEnumeration

;- Gadget Constants
;
Enumeration
  #F_LEFT
  #ListIcon_SORT
  #Frame3D_1
  #ListIcon_STD
  #String_LEFT
  #String_RIGHT
EndEnumeration


Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 737, 447, "BUG DEMO",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      Frame3DGadget(#F_LEFT, 10, 10, 350, 395, "PURE LV Sort")
      
      ;-
      ListIconGadget(#ListIcon_SORT, 20, 30, 330, 370, "Column0", 100)
      AddGadgetColumn(#ListIcon_SORT, 1, "Column1", 100)
      AddGadgetColumn(#ListIcon_SORT, 2, "Column2", 100)
      Frame3DGadget(#Frame3D_1, 375, 15, 350, 395, "PURE LV Sort")
      
      ;-
      ListIconGadget(#ListIcon_STD, 385, 30, 330, 370, "Column0", 100)
      AddGadgetColumn(#ListIcon_STD, 1, "Column1", 100)
      AddGadgetColumn(#ListIcon_STD, 2, "Column2", 100)
      StringGadget(#String_LEFT, 10, 415, 350, 20, "")
      StringGadget(#String_RIGHT, 375, 415, 350, 20, "")
      
    EndIf
  EndIf
EndProcedure

Open_Window_0()
PureLVSORT_SelectGadgetToSort(#ListIcon_SORT, #PureLVSORT_ShowClickedHeader_IconLeft) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 0, #PureLVSORT_Numeric)
PureLVSORT_SetColumnType(#ListIcon_SORT, 1, #PureLVSORT_String_CaseSensitive)
PureLVSORT_SetColumnType(#ListIcon_SORT, 2, #PureLVSORT_DateDDMMYYYYHHMMSS)

time = ElapsedMilliseconds()
For n = 1 To 2000
  AddGadgetItem( #ListIcon_STD, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date())))
Next
SetGadgetText(#String_RIGHT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms")

time = ElapsedMilliseconds()
For n = 1 To 2000
  AddGadgetItem( #ListIcon_SORT, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date())))
Next
SetGadgetText(#String_LEFT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms")

Repeat
  
  
Until WaitWindowEvent() = #PB_Event_CloseWindow

Thank you for your support

gnozal · Post by **gnozal** » Mon Oct 29, 2007 12:19 pm

dige wrote:@Gnozal: I need a temporary deactivation of PureLVSORT for some several reasons like:
PureLVSORT_Enable ( GadgetID.l, status.b )

The reason of the 'slowness' : since PB4, PureLVSORT is monitoring the #LVM_INSERTITEM / #LVM_DELETEITEM messages to reset the lParam for the LVM_SORTITEMS message (to avoid possibles crashes).
What you can do about it :
1. Enable PureLVSORT *after* having populated the listicon

Code: Select all

  ;- Window Constants
  ;
Enumeration
  #Window_0
EndEnumeration
  
  ;- Gadget Constants
  ;
Enumeration
  #F_LEFT
  #ListIcon_SORT
  #Frame3D_1
  #ListIcon_STD
  #String_LEFT
  #String_RIGHT
EndEnumeration
  
  
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 737, 447, "BUG DEMO",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      Frame3DGadget(#F_LEFT, 10, 10, 350, 395, "PURE LV Sort")
      
      ;-
      ListIconGadget(#ListIcon_SORT, 20, 30, 330, 370, "Column0", 100)
      AddGadgetColumn(#ListIcon_SORT, 1, "Column1", 100)
      AddGadgetColumn(#ListIcon_SORT, 2, "Column2", 100)
      Frame3DGadget(#Frame3D_1, 375, 15, 350, 395, "PURE LV Sort")
      
      ;-
      ListIconGadget(#ListIcon_STD, 385, 30, 330, 370, "Column0", 100)
      AddGadgetColumn(#ListIcon_STD, 1, "Column1", 100)
      AddGadgetColumn(#ListIcon_STD, 2, "Column2", 100)
      StringGadget(#String_LEFT, 10, 415, 350, 20, "")
      StringGadget(#String_RIGHT, 375, 415, 350, 20, "")
      
    EndIf
  EndIf
EndProcedure
  
Open_Window_0()
  
time = ElapsedMilliseconds()
For n = 1 To 2000
  AddGadgetItem( #ListIcon_STD, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date())))
Next
SetGadgetText(#String_RIGHT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms")
  
time = ElapsedMilliseconds()
For n = 1 To 2000
  AddGadgetItem( #ListIcon_SORT, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date())))
Next
SetGadgetText(#String_LEFT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms")

  
PureLVSORT_SelectGadgetToSort(#ListIcon_SORT, #PureLVSORT_ShowClickedHeader_IconLeft) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 0, #PureLVSORT_Numeric)
PureLVSORT_SetColumnType(#ListIcon_SORT, 1, #PureLVSORT_String_CaseSensitive)
PureLVSORT_SetColumnType(#ListIcon_SORT, 2, #PureLVSORT_DateDDMMYYYYHHMMSS)
  
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

2. If you can't use solution 1, use PureLVSORT_ClearGadget() to disable the library and the use PureLVSORT_SelectGadgetToSort() again.

Code: Select all

  ;- Window Constants
  ;
Enumeration
  #Window_0
EndEnumeration
  
  ;- Gadget Constants
  ;
Enumeration
  #F_LEFT
  #ListIcon_SORT
  #Frame3D_1
  #ListIcon_STD
  #String_LEFT
  #String_RIGHT
EndEnumeration
  
  
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 0, 737, 447, "BUG DEMO",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar )
    If CreateGadgetList(WindowID(#Window_0))
      Frame3DGadget(#F_LEFT, 10, 10, 350, 395, "PURE LV Sort")
      
      ;-
      ListIconGadget(#ListIcon_SORT, 20, 30, 330, 370, "Column0", 100)
      AddGadgetColumn(#ListIcon_SORT, 1, "Column1", 100)
      AddGadgetColumn(#ListIcon_SORT, 2, "Column2", 100)
      Frame3DGadget(#Frame3D_1, 375, 15, 350, 395, "PURE LV Sort")
      
      ;-
      ListIconGadget(#ListIcon_STD, 385, 30, 330, 370, "Column0", 100)
      AddGadgetColumn(#ListIcon_STD, 1, "Column1", 100)
      AddGadgetColumn(#ListIcon_STD, 2, "Column2", 100)
      StringGadget(#String_LEFT, 10, 415, 350, 20, "")
      StringGadget(#String_RIGHT, 375, 415, 350, 20, "")
      
    EndIf
  EndIf
EndProcedure
  
Open_Window_0()
  
  
  
PureLVSORT_SelectGadgetToSort(#ListIcon_SORT, #PureLVSORT_ShowClickedHeader_IconLeft) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 0, #PureLVSORT_Numeric)
PureLVSORT_SetColumnType(#ListIcon_SORT, 1, #PureLVSORT_String_CaseSensitive)
PureLVSORT_SetColumnType(#ListIcon_SORT, 2, #PureLVSORT_DateDDMMYYYYHHMMSS)
  
  
time = ElapsedMilliseconds()
For n = 1 To 2000
  AddGadgetItem( #ListIcon_STD, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date())))
Next
SetGadgetText(#String_RIGHT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms")
  
  
PureLVSORT_ClearGadget(#ListIcon_SORT)
  
time = ElapsedMilliseconds()
For n = 1 To 2000
  AddGadgetItem( #ListIcon_SORT, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date())))
Next
SetGadgetText(#String_LEFT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms")
  
  
PureLVSORT_SelectGadgetToSort(#ListIcon_SORT, #PureLVSORT_ShowClickedHeader_IconLeft) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 0, #PureLVSORT_Numeric)
PureLVSORT_SetColumnType(#ListIcon_SORT, 1, #PureLVSORT_String_CaseSensitive)
PureLVSORT_SetColumnType(#ListIcon_SORT, 2, #PureLVSORT_DateDDMMYYYYHHMMSS)
  
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow

I hope this helps.

dige · Post by **dige** » Mon Oct 29, 2007 12:31 pm

Thank you Gnozal. The second solution is what I currently use as workaround.
Do you think a temporary en / disableing is not possible, is it?

gnozal · Post by **gnozal** » Mon Oct 29, 2007 12:38 pm

dige wrote:Thank you Gnozal. The second solution is what I currently use as workaround.
Do you think a temporary en / disableing is not possible, is it?

Could you please try http://freenet-homepage.de/gnozal/PureLVSORT_BETA.zip ? [ANSI PB4.02 LIBRARY]
New function : PureLVSORT_Disabled(#True/#False)
It's almost as fast as PureLVSORT_ClearGadget().

Code: Select all

Enumeration 
  #Window_0 
EndEnumeration 
Enumeration 
  #F_LEFT 
  #ListIcon_SORT 
  #Frame3D_1 
  #ListIcon_STD 
  #String_LEFT 
  #String_RIGHT 
EndEnumeration 
Procedure Open_Window_0() 
  If OpenWindow(#Window_0, 216, 0, 737, 447, "PureLVSORT demo",  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar ) 
    If CreateGadgetList(WindowID(#Window_0)) 
      Frame3DGadget(#F_LEFT, 10, 10, 350, 395, "PURE LV Sort") 
      ListIconGadget(#ListIcon_SORT, 20, 30, 330, 370, "Column0", 100) 
      AddGadgetColumn(#ListIcon_SORT, 1, "Column1", 100) 
      AddGadgetColumn(#ListIcon_SORT, 2, "Column2", 100) 
      Frame3DGadget(#Frame3D_1, 375, 15, 350, 395, "PURE LV Sort") 
      ListIconGadget(#ListIcon_STD, 385, 30, 330, 370, "Column0", 100) 
      AddGadgetColumn(#ListIcon_STD, 1, "Column1", 100) 
      AddGadgetColumn(#ListIcon_STD, 2, "Column2", 100) 
      StringGadget(#String_LEFT, 10, 415, 350, 20, "") 
      StringGadget(#String_RIGHT, 375, 415, 350, 20, "") 
    EndIf 
  EndIf 
EndProcedure 
Open_Window_0() 
;
PureLVSORT_SelectGadgetToSort(#ListIcon_SORT, #PureLVSORT_ShowClickedHeader_IconLeft) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 0, #PureLVSORT_Numeric) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 1, #PureLVSORT_String_CaseSensitive) 
PureLVSORT_SetColumnType(#ListIcon_SORT, 2, #PureLVSORT_DateDDMMYYYYHHMMSS) 
;
time = ElapsedMilliseconds() 
For n = 1 To 2000 
  AddGadgetItem(#ListIcon_STD, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date()))) 
Next 
SetGadgetText(#String_RIGHT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms") 
;
PureLVSORT_Disabled(#True) ; Try with this line and without ...
;
time = ElapsedMilliseconds() 
SendMessage_(GadgetID(#ListIcon_SORT), #WM_SETREDRAW, #False, 0) ; even faster ... ;-)
For n = 1 To 2000 
  AddGadgetItem(#ListIcon_SORT, -1, Str(n) + Chr(10) + "Speed Test" + Chr(10) + FormatDate( "%dd.%mm.%yyyy %hh:%ii%:%ss", Random( Date()))) 
Next 
SendMessage_(GadgetID(#ListIcon_SORT), #WM_SETREDRAW, #True, 0)
SetGadgetText(#String_LEFT, "Duration: " + Str(ElapsedMilliseconds() - time) + "ms") 
;
PureLVSORT_Disabled(#False)
;
Repeat 
Until WaitWindowEvent() = #PB_Event_CloseWindow

dige · Post by **dige** » Tue Oct 30, 2007 4:34 pm

@Gnozal: Is the library the threadsafe one or standard?

gnozal · Post by **gnozal** » Tue Oct 30, 2007 4:38 pm

dige wrote:@Gnozal: Is the library the threadsafe one or standard?

The test library is ANSI - STANDARD - PB4.02