[SOLVED] Center a window title

[jercfd]

How can I center the title of a window without spaces. I don't want to use any custom labels or controls but the regular default windows theme.

Edited November 15, 2008 by jercfd

[martin]

How can I center the title of a window without spaces. I don't want to use any custom labels or controls but the regular default windows theme.

Search for DrawCaption, it might do what you want.

[jercfd]

I can't find the function. I assume it used to be part of A3LWinAPI but I don't have it and it isn't available anymore.

[martin]

I can't find the function. I assume it used to be part of A3LWinAPI but I don't have it and it isn't available anymore.

The _API are now _WINAPI

Here's another way to do it

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <winapi.au3>

$guiwid = 600;initial width of window
$Title = " Some Caption";caption for window

$hG = GUICreate("My GUI", $guiwid, 400, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SIZEBOX, $WS_THICKFRAME, $WS_SYSMENU, $WS_CAPTION, $WS_POPUP, $WS_POPUPWINDOW, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS)); will create a dialog box that when displayed is centered
GUISetState(@SW_SHOW); will display an empty dialog box
SetCentreTitle($hG, $Title)
GUIRegisterMsg($WM_SIZE, "ReTitle")

While 1
    $msg = GUIGetMsg()

    If $msg = $GUI_EVENT_CLOSE Then ExitLoop
WEnd
GUIDelete()

Func SetCentreTitle($hWnd, $sTitle)
    Local $wp = WinGetPos($hWnd)
    $hDC = _WinAPI_GetDC($hWnd)

    Do
        $sTitle = ' ' & $sTitle & ' '
        $size = _WinAPI_GetTextExtentPoint32($hDC, $sTitle)
    Until DllStructGetData($size, 1) > $wp[2] - 110;110 was by trial and error
    WinSetTitle($hWnd, "", $sTitle)
EndFunc  ;==>SetCentreTitle


Func ReTitle($hWnd, $msg, $wParam, $lParam)
    SetCentreTitle($hWnd, $Title)
EndFunc  ;==>reTitle

[rasim]

martin

Good example, my friend

[jercfd]

Great! Thanks for telling me how to do this.