ToolBar ImageButton+Text

[Lambda]

auf diesen weg kann zwar ein ToolBarButton erstellt werden, doch es können
nur die standard icons verwendet werden.

Code: Alles auswählen

Procedure ToolBar_AddButton(hToolbar, id.L, text.S, Image.L)
  *p = AllocateMemory(Len(text)+2)
  PokeS(*p, text)
  PokeB(*p + Len(text) + 1, 0)
  PokeB(*p + Len(text) + 2, 0)
  idString.L = SendMessage_(hToolbar, #TB_ADDSTRING, $0, *p)
  btn.TBBUTTON
  btn\idCommand = id
  btn\iBitmap = Image
  btn\fsState = #TBSTATE_ENABLED
  btn\fsStyle = #BTNS_BUTTON | #BTNS_AUTOSIZE | #BTNS_SHOWTEXT
  btn\iString = idString
  btncount.L = SendMessage_(hToolbar, #TB_BUTTONCOUNT, $0, $0)
  SendMessage_(hToolbar, #TB_INSERTBUTTON, btncount+1, @btn)
EndProcedure

kennt jemand eine Lösung wie ich eigene icons(png´s) setzen kann?

[Lambda]

kann es sein das ich eine ImageList benutzen muss?

[RSBasic]

http://www.rsbasic.de/aktualisierung/wi ... %20Text.pb
Einfach stattdessen...

Code: Alles auswählen

ToolBarImageButton(0, ImageID(1))

...benutzen und vorher natürlich das Bild laden:

Code: Alles auswählen

UsePNGImageDecoder()

LoadImage(1, "D:\...\Icon.png")

[Lambda]

danke sogar weniger api