EnableExplicit If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered) TextGadget(1, 10, 10, WindowWidth(0)-20, 20, "Beispieltext 1", 0) TextGadget(2, 10, 30, WindowWidth(0)-20, 20, "Beispieltext 2", #PB_Text_Center) SetWindowLongPtr_(GadgetID(1), #GWL_STYLE, GetWindowLongPtr_(GadgetID(1), #GWL_STYLE) &~#SS_LEFT | #SS_RIGHT) SetGadgetText(1, GetGadgetText(1)) SetWindowLongPtr_(GadgetID(2), #GWL_STYLE, GetWindowLongPtr_(GadgetID(2), #GWL_STYLE) &~#SS_CENTER | #SS_RIGHT) SetGadgetText(2, GetGadgetText(2)) Repeat Select WaitWindowEvent() Case #PB_Event_CloseWindow End EndSelect ForEver EndIf