Procedure StringGadgetVCenter(GadgetID) hwndEdit = GadgetID(GadgetID) LineCount = SendMessage_(hwndEdit,#EM_GETLINECOUNT, 0, 0) hdc = GetDC_(hwndEdit) SelectObject_(hdc,GetGadgetFont(GadgetID)) GetTextExtentPoint32_(hdc,"ABC",3,fsz.SIZE) ReleaseDC_(hwndEdit,hdc) GetClientRect_(hwndEdit,eRect.RECT) eRect\top = (GadgetHeight(GadgetID) - fsz\cy * LineCount) / 2 eRect\bottom = eRect\top + (fsz\cy * LineCount) + 4 If eRect\bottom < GadgetHeight(GadgetID) SendMessage_(hwndEdit,#EM_SETRECT,0,eRect) EndIf EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) StringGadget(1,10,10,480,230,"Text wird vertikal zentriert..."+#CRLF$+"Natürlich mit Zeilenumbruch...",#ES_MULTILINE) StringGadgetVCenter(1) Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow EndIf