PureBoard

Verfasst: **15.09.2005 14:52**

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

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

Verfasst: **15.09.2005 15:30**

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

Verfasst: **15.09.2005 19:30**

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=

Verfasst: **17.09.2005 11:53**

FISCHAUGE hat geschrieben: 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