PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

[erledigt] 2-zeiliger Text für Optiongadget ?

https://www.purebasic.fr/german/viewtopic.php?t=6428

Seite 1 von 1

[erledigt] 2-zeiliger Text für Optiongadget ?

Verfasst: 11.01.2006 00:19
von scholly
moin, moin...

In einem Fenster, das das Filtern ermöglichen soll, arbeite ich u.a. mit Optiongadgets für die Bedingungen "enthält" und "enthält nicht".
Letzteres würde ich gerne als "Zweizeiler" darstellen.
Geht das irgendwie über den String-Parameter des Optiongadgets?

tia...
scholly

Verfasst: 11.01.2006 00:25
von Laurin

Code: Alles auswählen

"enthält" + #CRLF$ + "nicht"
#CRLF$ enthält die zwei Bytes, die unter Windows einen Zeilenumbruch auslösen.

Verfasst: 11.01.2006 00:41
von ts-soft
#LF$ alleine löst auch einen Umbruch aus, jedenfalls unter Windows und Linux, nur unter MacOS ist ein #CR$ erforderlich :wink:

Verfasst: 11.01.2006 01:00
von Laurin
Ich kenne noch aus DOS-Zeiten CR (Sprung an Zeilenanfang) + LF (Sprung in die nächste Zeile). Bin wohl etwas nostalgisch ^^

Verfasst: 11.01.2006 01:05
von scholly
Bei mir entstehen da nur "nichtdruckbare Zeichen" zwischen den zwei Worten:

Code: Alles auswählen

  filterdone = #False
  DisableDebugger
  Debug "erstelle Filter-fenster"
  If  OpenWindow(6,10,10,410,315, #PB_Window_ScreenCentered, "Filter")
    Debug "erstelle gadgetlist filter"
    If CreateGadgetList(WindowID(6))

      col_01_s$ = "Titel"
      col_02_s$ = "Genre"
      col_03_s$ = "Jahr"
      col_04_s$ = "Medium-Typ"
      col_05_s$ = "Medium-Name"
      col_06_s$ = "Lager"
      col_07_s$ = "Quelle"
      col_08_s$ = "Position"
      col_09_s$ = "Dauer"
      col_10_s$ = "Status"
      col_12_s$ = "O-Title"
      col_13_s$ = "Playlist"   

      txt_601_s$ = "Spalte" 
      but_615_s$ = "filtern"
      
      txt_621_s$ = "Operation"
      oper622_s$ = "enthält"
      oper623_s$ = "enthält" + #CRLF$ + "nicht"
      
      txt_631_s$ = "Wert"
      txt_634_s$ = "Nummer"
      
      but_656_s$ = "cancel"
      
      TextGadget      (601, 10, 10, 60, 18,txt_601_s$,#PB_Text_Center|#PB_Text_Border ) 
      
      Frame3DGadget   (902,  0, 33,400,  2,"",#PB_Frame3D_Flat)
      Frame3DGadget   (903,  0,280,400,  2,"",#PB_Frame3D_Flat) 

      OptionGadget    (602, 10, 35, 90, 18,col_01_s$);"Titel"
      OptionGadget    (603, 10, 55, 90, 18,col_02_s$);"Genre"
      OptionGadget    (604, 10, 75, 90, 18,col_03_s$);"Jahr"
      OptionGadget    (605, 10, 95,100, 18,col_04_s$);"Medium-Typ"
      OptionGadget    (606, 10,115,110, 18,col_05_s$);"Medium-Name"
      OptionGadget    (607, 10,135, 90, 18,col_06_s$);"Lager"
      OptionGadget    (608, 10,155, 90, 18,col_07_s$);"Quelle"
      OptionGadget    (609, 10,175, 90, 18,col_08_s$);"Position"
      OptionGadget    (610, 10,195, 90, 18,col_09_s$);"Dauer"
      OptionGadget    (612, 10,215, 90, 18,col_10_s$);"Status"
      OptionGadget    (613, 10,235, 90, 18,col_12_s$);"O-Title"
      OptionGadget    (614, 10,255, 90, 18,col_13_s$);"Playlist" 
     
      ButtonGadget    (615, 10,285, 60, 20,but_615_s$)  

      Frame3DGadget   (904,125,  0,  2,335,"",#PB_Frame3D_Flat)
      
      TextGadget      (621,130, 10, 80, 18,txt_621_s$,#PB_Text_Center|#PB_Text_Border )
      
      OptionGadget    (622,130, 55, 90, 18,oper622_s$)
      OptionGadget    (623,130, 75,125, 18,oper623_s$)
      OptionGadget    (624,130,115, 90, 18,"=")
      OptionGadget    (625,130,135, 90, 18,"<>")
      OptionGadget    (626,130,195, 90, 18,">")
      OptionGadget    (627,130,215, 90, 18,">=")
      OptionGadget    (628,130,235, 90, 18,"<")
      OptionGadget    (629,130,255, 90, 18,"=<")

      Frame3DGadget   (905,260,  0,  2,335,"",#PB_Frame3D_Flat) 
          
      TextGadget      (631,265, 10, 50, 18,txt_631_s$,#PB_Text_Center|#PB_Text_Border )
      
      TextGadget      (632,265, 95,138, 17,"String")
      StringGadget    (633,265,115,138, 17,"")
      TextGadget      (634,265,140,138, 17,txt_634_s$)
      StringGadget    (635,265,160, 50, 28,"","#PB_String_Numeric")
      OptionGadget    (636,265,200, 60, 18,"WAHR")
      OptionGadget    (637,265,220, 80, 18,"FALSCH")
      
      ButtonGadget    (656,290,290, 60,20,but_656_s$) ;cancel 
     
      Repeat
        EventID = WaitWindowEvent()
        If EventID = #PB_Event_Gadget
          Select EventGadgetID()
            
            Case 602 ;string (titel)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 603 ;string (genre)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 604 ;number (Jahr)
                ActivateGadget(635)
                HideGadget(622,1):HideGadget(623,1):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,0):HideGadget(627,0):HideGadget(628,0):HideGadget(629,0)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,0):HideGadget(635,0):HideGadget(636,1):HideGadget(637,1)
            Case 605 ;string (media-typ)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 606 ;string (media-name)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 607 ;string (owner)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 608 ;string (source)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 609 ;number (position)
                ActivateGadget(635)
                HideGadget(622,1):HideGadget(623,1):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,0):HideGadget(627,0):HideGadget(628,0):HideGadget(629,0)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,0):HideGadget(635,0):HideGadget(636,1):HideGadget(637,1)
            Case 610 ;number (length)
                ActivateGadget(635)
                HideGadget(622,1):HideGadget(623,1):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,0):HideGadget(627,0):HideGadget(628,0):HideGadget(629,0)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,0):HideGadget(635,0):HideGadget(636,1):HideGadget(637,1)
            Case 611 ;string (status)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 612 ;bool   (check)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,1):HideGadget(635,1):HideGadget(636,0):HideGadget(637,0)
            Case 613 ;string (O-titel)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 614 ;string (playlist)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
                        
            Case 656; cancel
              filterdone = #True
              
            Case 615; filter gedrückt
              ;Gosub get
                        
          EndSelect
        EndIf
      Until filterdone
      
      CloseWindow(6)
    
    Else
      MessageRequester("Bad news:","GadgetList Filterwindow couldn't be created",#PB_MessageRequester_Ok)    
    EndIf
  Else
    MessageRequester("Bad news:","Window (2) couldn't be created",#PB_MessageRequester_Ok)
  EndIf

Verfasst: 11.01.2006 01:06
von ts-soft
Naja, stammt ja noch von den Fernschreibern sowie den Schreibmaschinen. Windows nimmt beides zusammen begnügt sich aber meist auch mit LineFeed. Linux will nur nen LineFeed und Mac ist der Meinung ein Carrige Return sei das richtige.
Da ich den Mac nicht habe, hab ich mich also für das #LF$ für win und lin entschieden :mrgreen:

Verfasst: 11.01.2006 01:16
von ts-soft
So in etwa, mußte nur den Style patchen :wink:

Code: Alles auswählen

filterdone = #False
  DisableDebugger
  Debug "erstelle Filter-fenster"
  If  OpenWindow(6,10,10,410,315, #PB_Window_ScreenCentered, "Filter")
    Debug "erstelle gadgetlist filter"
    If CreateGadgetList(WindowID(6))

      col_01_s$ = "Titel"
      col_02_s$ = "Genre"
      col_03_s$ = "Jahr"
      col_04_s$ = "Medium-Typ"
      col_05_s$ = "Medium-Name"
      col_06_s$ = "Lager"
      col_07_s$ = "Quelle"
      col_08_s$ = "Position"
      col_09_s$ = "Dauer"
      col_10_s$ = "Status"
      col_12_s$ = "O-Title"
      col_13_s$ = "Playlist"   

      txt_601_s$ = "Spalte"
      but_615_s$ = "filtern"
     
      txt_621_s$ = "Operation"
      oper622_s$ = "enthält"
      oper623_s$ = "enthält" + #LF$ + "nicht"
     
      txt_631_s$ = "Wert"
      txt_634_s$ = "Nummer"
     
      but_656_s$ = "cancel"
     
      TextGadget      (601, 10, 10, 60, 18,txt_601_s$,#PB_Text_Center|#PB_Text_Border )
     
      Frame3DGadget   (902,  0, 33,400,  2,"",#PB_Frame3D_Flat)
      Frame3DGadget   (903,  0,280,400,  2,"",#PB_Frame3D_Flat)

      OptionGadget    (602, 10, 35, 90, 18,col_01_s$);"Titel"
      OptionGadget    (603, 10, 55, 90, 18,col_02_s$);"Genre"
      OptionGadget    (604, 10, 75, 90, 18,col_03_s$);"Jahr"
      OptionGadget    (605, 10, 95,100, 18,col_04_s$);"Medium-Typ"
      OptionGadget    (606, 10,115,110, 18,col_05_s$);"Medium-Name"
      OptionGadget    (607, 10,135, 90, 18,col_06_s$);"Lager"
      OptionGadget    (608, 10,155, 90, 18,col_07_s$);"Quelle"
      OptionGadget    (609, 10,175, 90, 18,col_08_s$);"Position"
      OptionGadget    (610, 10,195, 90, 18,col_09_s$);"Dauer"
      OptionGadget    (612, 10,215, 90, 18,col_10_s$);"Status"
      OptionGadget    (613, 10,235, 90, 18,col_12_s$);"O-Title"
      OptionGadget    (614, 10,255, 90, 18,col_13_s$);"Playlist"
     
      ButtonGadget    (615, 10,285, 60, 20,but_615_s$) 

      Frame3DGadget   (904,125,  0,  2,335,"",#PB_Frame3D_Flat)
     
      TextGadget      (621,130, 10, 80, 18,txt_621_s$,#PB_Text_Center|#PB_Text_Border )
     
      OptionGadget    (622,130, 55, 90, 18,oper622_s$)
      OptionGadget    (623,130, 75,125, 36,oper623_s$)
      SetWindowLong_(GadgetID(623),#GWL_STYLE,GetWindowLong_(GadgetID(623),#GWL_STYLE) | #PB_Button_MultiLine)
      OptionGadget    (624,130,115, 90, 18,"=")
      OptionGadget    (625,130,135, 90, 18,"<>")
      OptionGadget    (626,130,195, 90, 18,">")
      OptionGadget    (627,130,215, 90, 18,">=")
      OptionGadget    (628,130,235, 90, 18,"<")
      OptionGadget    (629,130,255, 90, 18,"=<")

      Frame3DGadget   (905,260,  0,  2,335,"",#PB_Frame3D_Flat)
         
      TextGadget      (631,265, 10, 50, 18,txt_631_s$,#PB_Text_Center|#PB_Text_Border )
     
      TextGadget      (632,265, 95,138, 17,"String")
      StringGadget    (633,265,115,138, 17,"")
      TextGadget      (634,265,140,138, 17,txt_634_s$)
      StringGadget    (635,265,160, 50, 28,"","#PB_String_Numeric")
      OptionGadget    (636,265,200, 60, 18,"WAHR")
      OptionGadget    (637,265,220, 80, 18,"FALSCH")
     
      ButtonGadget    (656,290,290, 60,20,but_656_s$) ;cancel
     
      Repeat
        EventID = WaitWindowEvent()
        If EventID = #PB_Event_Gadget
          Select EventGadgetID()
           
            Case 602 ;string (titel)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 603 ;string (genre)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 604 ;number (Jahr)
                ActivateGadget(635)
                HideGadget(622,1):HideGadget(623,1):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,0):HideGadget(627,0):HideGadget(628,0):HideGadget(629,0)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,0):HideGadget(635,0):HideGadget(636,1):HideGadget(637,1)
            Case 605 ;string (media-typ)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 606 ;string (media-name)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 607 ;string (owner)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 608 ;string (source)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 609 ;number (position)
                ActivateGadget(635)
                HideGadget(622,1):HideGadget(623,1):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,0):HideGadget(627,0):HideGadget(628,0):HideGadget(629,0)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,0):HideGadget(635,0):HideGadget(636,1):HideGadget(637,1)
            Case 610 ;number (length)
                ActivateGadget(635)
                HideGadget(622,1):HideGadget(623,1):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,0):HideGadget(627,0):HideGadget(628,0):HideGadget(629,0)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,0):HideGadget(635,0):HideGadget(636,1):HideGadget(637,1)
            Case 611 ;string (status)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 612 ;bool   (check)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,1):HideGadget(633,1):HideGadget(634,1):HideGadget(635,1):HideGadget(636,0):HideGadget(637,0)
            Case 613 ;string (O-titel)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
            Case 614 ;string (playlist)
                ActivateGadget(633)
                HideGadget(622,0):HideGadget(623,0):HideGadget(624,0):HideGadget(625,0)
                HideGadget(626,1):HideGadget(627,1):HideGadget(628,1):HideGadget(629,1)
                HideGadget(632,0):HideGadget(633,0):HideGadget(634,1):HideGadget(635,1):HideGadget(636,1):HideGadget(637,1)
                       
            Case 656; cancel
              filterdone = #True
             
            Case 615; filter gedrückt
              ;Gosub get
                       
          EndSelect
        EndIf
      Until filterdone
     
      CloseWindow(6)
   
    Else
      MessageRequester("Bad news:","GadgetList Filterwindow couldn't be created",#PB_MessageRequester_Ok)   
    EndIf
  Else
    MessageRequester("Bad news:","Window (2) couldn't be created",#PB_MessageRequester_Ok)
  EndIf

Verfasst: 11.01.2006 01:27
von scholly
Danka, Thomas...

Sieht IMHO besser aus, oder ?

bis denne...
scholly

Verfasst: 11.01.2006 01:28
von ts-soft
Am besten mit der Höhe und evtl. der Schrift ein bissel spielen, bis es paßt :wink:

Verfasst: 11.01.2006 01:31
von scholly
ts-soft hat geschrieben:Am besten mit der Höhe und evtl. der Schrift ein bissel spielen, bis es paßt :wink:
Klaro, war ja nur ein "Grobentwurf" und in der App leg ich auch per default einen Font fest, damit ein einheitliches, akzeptables Bild entsteht.

bis denne...
scholly
Alle Zeiten sind UTC+02:00
Seite 1 von 1

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de