PureBoard

Code: Alles auswählen

EnableExplicit

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(1, 10, 10, 480, 20, "Hallo stevie1401", #ES_RIGHT)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

Code: Alles auswählen

EnableExplicit

ImportC ""
  gtk_entry_set_alignment(*entry.GtkEntry, xalign.f)
EndImport

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  StringGadget(1, 10, 10, 480, 20, "Hallo stevie1401")
  gtk_entry_set_alignment(GadgetID(1), 1.0)
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf 

Code: Alles auswählen

#NSRightTextAlignment = 1

CompilerIf #PB_Compiler_OS = #PB_OS_Linux
  ImportC ""
    gtk_entry_set_alignment(*entry.GtkEntry, xalign.f)
  EndImport
CompilerEndIf

Procedure RStringGadget(Gadget, x, y, Width, Height, Content$, Flags = 0)
  
  Protected ID = #False
  
  CompilerSelect #PB_Compiler_OS
    CompilerCase #PB_OS_Windows
      ID = StringGadget(Gadget, x, y, Width, Height, Content$, Flags|#ES_RIGHT)
    CompilerCase #PB_OS_Linux
      ID = StringGadget(Gadget, x, y, Width, Height, Content$, Flags)
      If Gadget = #PB_Any : Gadget = ID : EndIf
      gtk_entry_set_alignment(GadgetID(Gadget), 1.0)
    CompilerCase #PB_OS_MacOS
      ID = StringGadget(Gadget, x, y, Width, Height, Content$, Flags)
      If Gadget = #PB_Any : Gadget = ID : EndIf
      CocoaMessage(0,GadgetID(Gadget),"setAlignment:", #NSRightTextAlignment)
  CompilerEndSelect
  
  ProcedureReturn ID
  
EndProcedure