CreateToolBar

[sobi]

Leider kann ich bei dem code keine Bilder sehen. Was habe ich denn übersehen?

Code: Alles auswählen

If OpenWindow(0, 0, 0, 150, 25, #PB_Window_SystemMenu |#PB_Window_ScreenCentered, "ToolBar")
   
    bg = GetSysColor_(#COLOR_BTNFACE) 
    farbe.l=RGB(Red(bg), Green(bg), Blue(bg))
    s_farbe.l = RGB(221, 72, 34)
    
    CreateImage(1,11,13) ;BEDÜRFNIS
    StartDrawing(ImageOutput())
      Box(0,0,11,13,RGB(0,0,0))
      Box(1,1,9,11,RGB(255,255,255))
      Box(7,0,4,4,RGB(0,0,0))
      Box(8,0,3,3,farbe)
      Plot(8,1,RGB(0,0,0))
      Plot(9,2)
      Plot(8,2,RGB(255,255,255))
      Line(3,3,0,8,s_farbe)
      Line(3,3,4,0,s_farbe)
      Line(3,6,4,0,s_farbe)
      Line(3,10,4,0,s_farbe)
      Line(7,4,0,2,s_farbe)
      Line(7,7,0,3,s_farbe)
    StopDrawing()
    
    CreateImage(2,11,13) ;VERPFLICHTUNG
    StartDrawing(ImageOutput())
      Box(0,0,11,13,RGB(0,0,0))
      Box(1,1,9,11,RGB(255,255,255))
      Box(7,0,4,4,RGB(0,0,0))
      Box(8,0,3,3,farbe)
      Plot(8,1,RGB(0,0,0))
      Plot(9,2)
      Plot(8,2,RGB(255,255,255))
      Line(3,4,0,4,s_farbe)
      Line(7,4,0,4,s_farbe)
      Line(4,8,0,2,s_farbe)
      Line(6,8,0,2,s_farbe)
      Plot(5,10,s_farbe)
    StopDrawing()
    
    CreateImage(3,11,13) ;WÜNSCHE
    StartDrawing(ImageOutput())
      Box(0,0,11,13,RGB(0,0,0))
      Box(1,1,9,11,RGB(255,255,255))
      Box(7,0,4,4,RGB(0,0,0))
      Box(8,0,3,3,farbe)
      Plot(8,1,RGB(0,0,0))
      Plot(9,2)
      Plot(8,2,RGB(255,255,255))
      
      Line(2,4,0,4,s_farbe)
      Line(8,4,0,4,s_farbe)
      Line(3,8,0,2,s_farbe)
      Line(7,8,0,2,s_farbe)
      Plot(4,10,s_farbe)
      Line(5,7,0,3,s_farbe)
      Plot(6,10,s_farbe)
    StopDrawing()
    If CreateToolBar(0, WindowID())
      ToolBarImageButton(0,UseImage(1))
      ToolBarImageButton(1,UseImage(2))
      ToolBarImageButton(2,UseImage(3))
      ToolBarStandardButton(0, #PB_ToolBarIcon_New)
    EndIf
    Repeat
    Until WaitWindowEvent() = #PB_Event_CloseWindow 
  EndIf

[Spirit]

Wenn du die Größe der Images auf 16x16 änderst, funktioniert es.

[FISCHAUGE]

Das problem hatte ich auch!


Aber hier wird dir geholfen!

Du musst die Toolbar größe an sich ändern!

http://forums.purebasic.com/german/view ... highlight=

[sobi]

Du musst die Toolbar größe an sich ändern!

Danke für die Anwort, allerdings will ich die Toolbar nicht an die anpassen, sondern eine ganz normale toobaar

Inwzschen hat sich mir eine neue Frage ergeben. Unter Win98 habe ich ein Problem, dass die ToolBarImageButtons nicht richtig anzgezeigt werden. (nur zur hälfte, mal nur als dünnes Kreuz, also ganz unterschiedlich) Unter XP werden sie ohne Probleme angezeigt.
Hat jemand eine Ahnung, woran das liegen könnte?

Liebe Grüße
Simon