automatically resizing label based on dynamic attributes

[gcue]

hello.

if the text attributes within a label change, how the label size change to reflect the new font and new font size?

i know i can use guictrlsetpos, but how can i calculate the new size of the label that will accomodate what the user picks as new font and new font size? choosefont will give me the new size but every font is different.

here's what i mean

#include <misc.au3>

$gui = GUICreate("test", 400, 200)

$label = GUICtrlCreateLabel("old", 10, 10, 20, 15)

GUISetState()

updateTXT()

While 1
    Sleep(10)
WEnd

Func updateTXT()

    MsgBox(0, "", "please choose font and a larger font size")

    $font_attributes = _ChooseFont()

    If Not @error Then
        GUICtrlSetFont($label, $font_attributes[3], "", "", $font_attributes[2])
        MsgBox(0, "", "font/size changed label size has not - how do i calculate what the new label size should be?")
        Exit
    EndIf

EndFunc   ;==>updateTXT

thanks in advance!

[UEZ]

Try this:

expandcollapse popup

#include <GDIPlus.au3>
#include <Misc.au3>

$gui = GUICreate("test", 400, 200)

$label = GUICtrlCreateLabel("old", 10, 10, 20, 15)

GUISetState()

updateTXT()

While 1
    Sleep(10)
WEnd

Func updateTXT()

    MsgBox(0, "", "please choose font and a larger font size")

    $font_attributes = _ChooseFont()

    If Not @error Then
        $aDim = GetStringSize("old", $font_attributes[2], $font_attributes[3], $font_attributes[1])
        GUICtrlSetPos($label, 10, 10, $aDim[0], $aDim[1])
        GUICtrlSetFont($label, $font_attributes[3], "", "", $font_attributes[2], 4)
;~         MsgBox(0, "", "font/size changed label size has not - how do i calculate what the new label size should be?")
        Sleep(2000)
        Exit
    EndIf

EndFunc   ;==>updateTXT


Func GetStringSize($string, $font, $fontsize, $fontstyle)
    Local $GDIp = False
    Local $iWidth = StringLen($string) * $fontsize
    Local $iHeight = 2 * $fontsize
    If Not $ghGDIPDll Then
        _GDIPlus_Startup()
        $GDIp = True
    EndIf
    Local $aResult = DllCall($ghGDIPDll, "uint", "GdipCreateBitmapFromScan0", "int", $iWidth, "int", $iHeight, "int", 0, "int",  0x0026200A, "ptr", 0, "int*", 0)
    Local $hBitmap = $aResult[6]
    Local $hGrphContext = _GDIPlus_ImageGetGraphicsContext($hBitmap)
    Local $hFormat = _GDIPlus_StringFormatCreate()
    Local $hFamily = _GDIPlus_FontFamilyCreate($font)
    Local $hFont = _GDIPlus_FontCreate($hFamily, $fontsize, $fontstyle)
    Local $tLayout = _GDIPlus_RectFCreate(0, 0, 0, 0)
    Local $aInfo = _GDIPlus_GraphicsMeasureString($hGrphContext, $string, $hFont, $tLayout, $hFormat)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
    _GDIPlus_BitmapDispose($hBitmap)
    _GDIPlus_GraphicsDispose($hGrphContext)
    If $GDIp Then _GDIPlus_Shutdown()
    Local $aDim[2] = [Int(DllStructGetData($aInfo[0], "Width")), Int(DllStructGetData($aInfo[0], "Height"))]
    Return $aDim
EndFunc

Br,

UEZ

[gcue]

wow thats some complex method - very nice

thank youuuuu!

U EZ the man =)

[Melba23]

gcue,

Or you could try the StringSize UDF in my sig.

M23

[gcue]

very nice melba - definitely useful =)

thanks man