Commandlinks (Windows Vista and above)

[jacdelad]

Make a button a command link:

Code: Select all

#BS_COMMANDLINK = $E
#BCM_SETNOTE = $1609
OpenWindow(0, 100, 100, 150, 60, "Commandlink-Demo")
ButtonGadget(0, 10, 10, 125, 40, "Commandlink",#BS_COMMANDLINK)
SendMessage_(GadgetID(0),#BCM_SETNOTE,0,"Subline(s)")
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

Behaves like a normal button.

Additionally the image can be changed with:

Code: Select all

SendMessage_(GadgetID(0),#BM_SETIMAGE,#IMAGE_ICON,ImageID(LoadImage(#PB_Any,my_icon_with_path)))

Use #IMAGE_CURSOR or #IMAGE_BITMAP for cursors/bitmaps.

[BarryG]

Thanks for this. I'm trying to use a PNG icon (encoded to BMP) but it doesn't work. Any ideas?

Code: Select all

UsePNGImageDecoder()
i=LoadImage(#PB_Any,"Path\To\Icon.png")
i2=EncodeImage(i)
#BS_COMMANDLINK = $E
#BCM_SETNOTE = $1609
OpenWindow(0, 100, 100, 250, 100, "Commandlink-Demo")
ButtonGadget(0, 10, 10, 225, 60, "Commandlink",#BS_COMMANDLINK)
SendMessage_(GadgetID(0),#BCM_SETNOTE,0,"Subline(s)")
SendMessage_(GadgetID(0),#BM_SETIMAGE,#IMAGE_ICON,i2)
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
  EndSelect
ForEver

[Axolotl]

Hi BarryG,

you have to change the #IMAGE_ICON to #IMAGE_BITMAP

Code: Select all

;SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_ICON, ImageID(0)) 
SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_BITMAP, ImageID(0)) 

and this is an running example (with a self made image!) ... I changed the window size to see the entire stuff!

Code: Select all

#BS_COMMANDLINK = $E
#BCM_SETNOTE = $1609

Procedure MakeTestImage(ImgID) 
  Protected k 

  If CreateImage(ImgID, 32, 32)
    If StartDrawing(ImageOutput(ImgID))
      DrawingMode(#PB_2DDrawing_Transparent)
      Box(2,2,28,28, #Green) 
      Circle(4, 4,10, #Blue) 
      StopDrawing()
    EndIf
  EndIf 
  ProcedureReturn ImageID(ImgID) 
EndProcedure 

MakeTestImage(0) 

OpenWindow(0, 100, 100, 250, 160, "Commandlink-Demo")
ButtonGadget(0, 10, 10, 225, 140, "Commandlink", #BS_COMMANDLINK) 
SendMessage_(GadgetID(0), #BCM_SETNOTE, 0, "Subline(s)") 

;SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_ICON, ImageID(0)) 
SendMessage_(GadgetID(0), #BM_SETIMAGE, #IMAGE_BITMAP, ImageID(0)) 

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Gadget                          :Debug "EventGadget: " + EventGadget()  
  EndSelect
ForEver 

[Kwai chang caine]

Not works without "visual themes XP" else works good with it actived
Thanks for sharing

[jacdelad]

Yes, yes, you need the themes. I forgot to mention it.