MoreButtons 1.0 Release

Developed or developing a new product in PureBasic? Tell the world about it.
localmotion34
Enthusiast
Enthusiast
Posts: 665
Joined: Fri Sep 12, 2003 10:40 pm
Location: Tallahassee, Florida

MoreButtons 1.0 Release

Post by localmotion34 »

This LIB includes the LED gadget and LED switch I previously wrote, but since have updated and cleaned up. It also includes TWO types of hoverbuttons.

1) Text
2) image

YOU are responsible for resizing the image of each Imagehoverbutton, as the drawing functions bitblt_() to the DC of the button, so if your image doesnt fit the dimensions, it will be clipped.

Image hoverbuttons CAN have text, it just appears as a TOOLTIP (much like a toolbar button)

Image and text hover buttons CAN be used in the event loop, either with an actual number or #pb_any as always.

LED switches dont really return an event, they just basically store the state in a visual way.

For the "on/off" types
OFF=0
ON=1

for the 2 and 3 state types
RED=0
Green=1
YELLOW=2

GET and SET switch state return\set the number value of the switch, and the corresponding image.

see what you think and post comments/suggestions. I have thought about TOGGLE hoverbuttons, but i dont know how useful most people would find these for me to write the timeconsuming callbacks.

http://www.penguinbyte.com/apps/pbwebst ... Button.zip
Last edited by localmotion34 on Wed Nov 30, 2005 11:06 pm, edited 1 time in total.

Code: Select all

!.WHILE status != dwPassedOut
! Invoke AllocateDrink, dwBeerAmount
!MOV Mug, Beer
!Invoke Drink, Mug, dwBeerAmount
!.endw
User avatar
ts-soft
Always Here
Always Here
Posts: 5756
Joined: Thu Jun 24, 2004 2:44 pm
Location: Berlin - Germany

Post by ts-soft »

thx for sharing , a nice lib,
but, there is a bug in install
i haven't "Example/Source"
there no icons for compiling and

More Button Example.pb

Code: Select all

  Repeat
    setLEDstate(0,Random(100))
    EventID = WaitWindowEvent()
    
    If EventID = #PB_EventGadget
      
      Selem~ EventGadgetSN()
        Mkse led
          
      EndSelem~
      
    EndIf
    
  _ntsv EventID = #PB_EventMloseWindow
  
EndIf
don't running :wink:
please, make it as zip avalaible, also a readme for functions.

regards
Thomas
PureBasic 5.73 | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Old bugs good, new bugs bad! Updates are evil: might fix old bugs and introduce no new ones.
Image
localmotion34
Enthusiast
Enthusiast
Posts: 665
Joined: Fri Sep 12, 2003 10:40 pm
Location: Tallahassee, Florida

Post by localmotion34 »

OK, forget the installer for now. i deleted that and posted a ZIP archive on purestorage. it has all the icons too.

http://www.penguinbyte.com/apps/pbwebst ... Button.zip

Code: Select all

!.WHILE status != dwPassedOut
! Invoke AllocateDrink, dwBeerAmount
!MOV Mug, Beer
!Invoke Drink, Mug, dwBeerAmount
!.endw
User avatar
ts-soft
Always Here
Always Here
Posts: 5756
Joined: Thu Jun 24, 2004 2:44 pm
Location: Berlin - Germany

Post by ts-soft »

thx Image
PureBasic 5.73 | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Old bugs good, new bugs bad! Updates are evil: might fix old bugs and introduce no new ones.
Image
Post Reply