PureBoard

Verfasst: **25.08.2006 14:25**

1.) Wenn ich eine ComboBox oder Buttons auf Höhe der Toolbar plaziere, so zeigt sie keine Reaktion. Anscheinend ist die ganze Zeile für Tools aktiv. Kann man diese Zone der Toolbar in der Breite verkürzen, bzw die ComboBox integrieren? (Ich habe hierzu nur das "Rebar Control by Sparkie" gefunden, das mir aber zu mächtig erscheint)

2.) Meine Toolbar hat die Hintergrundfarbe des Fensters angenommen. Besser wäre das übliche grau wie in der Menüleiste.

Code: Alles auswählen

;Beschriftungen in Deutsch:

automatisch$="automatisch"

Esperanto$ = "Esperanto"
Aussprache$ = "Aussprache"
Deutsch$ = "Deutsch" 
zweisprachig$ = "zweisprachig"
Datei$ = "Datei"
Neu$ = "Neu"
Oeffnen$ = "Öffnen"
Speichern$ = "Speichern"

Enumeration 
  #window : #Menu 
  #menu1 : #menu2 : #menu3 
  #toolbar1 : #toolbar2 : #toolbar3 : #toolbar4 : #toolbar5 : #toolbar6
  #combobox1 : #combobox2
  #tile : #Splitter 
  #edit1 : #edit2 : #edit3 
  #Frame 
  #Button1 : #Button2 : #ButtonBoth 
  #inbtn_1 : #inbtn_2 : #inbtn_3 : #inbtn_4 : #inbtn_5 : #inbtn_6
  #outbtn_1 : #outbtn_2 : #outbtn_3 : #outbtn_4 : #outbtn_5 :  #outbtn_6
  
  #TestButton
EndEnumeration 

framebreite = 150

hwnd = OpenWindow(#window,0,0,800,600,"",#PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget | #PB_Window_SizeGadget) 
SetWindowColor(0,RGB(100, 150, 100))
CreateGadgetList(hwnd) 

CreateMenu(#window, hwnd)
MenuTitle(Datei$)
MenuItem(#menu1,Neu$)
MenuItem(#menu2,Oeffnen$)
MenuItem(#menu3,Speichern$)

CreateToolBar(#window, hwnd)
ToolBarStandardButton(#toolbar1,#PB_ToolBarIcon_New)
ToolBarStandardButton(#toolbar2,#PB_ToolBarIcon_Open)
ToolBarStandardButton(#toolbar3,#PB_ToolBarIcon_Save)
;ToolBarStandardButton(#toolbar4,#PB_ToolBarIcon_Undo)
;ToolBarStandardButton(#toolbar5,#PB_ToolBarIcon_Properties)
;ToolBarStandardButton(#toolbar6,#PB_ToolBarIcon_Redo)

    ComboBoxGadget(#combobox1, 150, 2, 100, 200) 
      For a=1 To 5 
        AddGadgetItem(#combobox1, -1, "ComboBox no " + Str(a)) 
      Next 
    SetGadgetState(#combobox1,0) 

    ComboBoxGadget(#combobox2, 20, 150, 100, 200) 
      For a=1 To 5 
        AddGadgetItem(#combobox2, -1, "ComboBox yes " + Str(a)) 
      Next 
    SetGadgetState(#combobox2,0) 

Frame3DGadget(#Frame,5,17,framebreite -10,595-MenuHeight(),"") 
;ButtonGadget(#Button1   ,WindowWidth(#Window)-90,2,25,18,"1") 
;ButtonGadget(#Button2   ,WindowWidth(#Window)-60,2,25,18,"2") 
;ButtonGadget(#ButtonBoth,WindowWidth(#Window)-30,2,25,18,"1/2") 

ButtonGadget(#Button1   ,20,220,25,18,"1") 
ButtonGadget(#ButtonBoth,50,220,25,18,"1/2") 
ButtonGadget(#Button2   ,80,220,25,18,"2") 

 
EditorGadget(#edit1,0,0,0,0) 
EditorGadget(#edit2,0,0,0,0, #PB_Window_Invisible )                          ; NEU !!!!
EditorGadget(#edit3,0,0,0,0, #PB_Editor_ReadOnly) 

SplitterGadget(#Splitter, framebreite, 22, WindowWidth(#Window)- framebreite - 5, WindowHeight(#Window)-27,#edit1, #edit3) 
AddGadgetItem(#edit1,0,"Esperanto-Textfield (1)") 
AddGadgetItem(#edit2,0,"Esperanto-Ersatztext (2)")                           ; NEU !!!!
AddGadgetItem(#edit3,0,"German-Textfield (3)") 

ButtonGadget(#inbtn_1, 50,  40, 90, 18, automatisch$, #PB_Button_Toggle) 
ButtonGadget(#inbtn_2, 50,  60, 90, 18, "^c ^j ^g ^h ^s ^u", #PB_Button_Toggle) 
ButtonGadget(#inbtn_3, 50,  80, 90, 18, "cx jx gx hx sx ux", #PB_Button_Toggle) 
ButtonGadget(#inbtn_4, 50, 100, 90, 18, "ch jh gh hh sh uh", #PB_Button_Toggle) 
ButtonGadget(#inbtn_5, 50, 120, 90, 18, "c^ j^ g^ h^ s^ u^", #PB_Button_Toggle) 
 
ButtonGadget(#outbtn_1, 50, WindowHeight(#Window)/2+30, 90, 18, automatisch$, #PB_Button_Toggle) 
ButtonGadget(#outbtn_2, 50, WindowHeight(#Window)/2+50, 90, 18, "^c ^j ^g ^h ^s ^u", #PB_Button_Toggle) 
ButtonGadget(#outbtn_3, 50, WindowHeight(#Window)/2+70, 90, 18, "cx jx gx hx sx ux", #PB_Button_Toggle) 
  
  set1 = 0 
  set2 = 3 

Repeat 
  event = WaitWindowEvent() 
  
  
  
Until event = #WM_CLOSE

Verfasst: **25.08.2006 16:45**

Die ToolbarPro aus der PBOSL kann Gadgets zwischen den Buttons einbauen.

Gruß
Udo

Verfasst: **25.08.2006 16:55**

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, 0, 200, 100, "Test")

  ToolBar.l = CreateToolBar(0, WindowID(0))
  ToolBarStandardButton(0, #PB_ToolBarIcon_New)
  
  If CreateGadgetList(WindowID(0))
    ComboBoxGadget(0, 25, 0, 100, 100)
    SetParent_(GadgetID(0), ToolBar)
  EndIf
  
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Verfasst: **25.08.2006 16:59**

Klasse! Vielen Dank!

Verfasst: **30.03.2009 11:50**

Wie löse ich das wenn ich zuerst die Combobox will und danach den Button??

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, 0, 200, 100, "Test")

  ToolBar.l = CreateToolBar(0, WindowID(0))
    ComboBoxGadget(0, 0, 0, 100, 100)
    SetParent_(GadgetID(0), ToolBar)  
    ToolBarStandardButton(0, #PB_ToolBarIcon_New)
    
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Code in PB4.30

Verfasst: **31.03.2009 15:59**

ganz schön alt der Thread...

vielleicht könntest du ein paar lerre Buttons machen (#PB_Any) und in dem
freien Platz dann das ComboBoxGadget einzusetzen.

Irgendwie gab es doch mal eine Möglichkeit, Teile des Menüs rechtsbündig
zu machen, vielleicht geht das auch bei einer Toolbar.

Verfasst: **31.03.2009 16:06**

Code: Alles auswählen

If OpenWindow(0, #PB_Ignore, 0, 200, 100, "Test")

  ComboBoxGadget(0, 0, 0, 100, 25)
  ContainerGadget(1, GadgetWidth(0), 0, WindowWidth(0) - GadgetWidth(0), 25)
  CreateToolBar(0, GadgetID(1)) 
  ToolBarStandardButton(0, #PB_ToolBarIcon_New)
  CloseGadgetList()

  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

PureBoard

ComboBox auf Toolbar zeigt keine Reaktion

ComboBox auf Toolbar zeigt keine Reaktion