is possible centralize text in a row that I created?

[golfinhu]

hi people, fine?

i need a litte help!

let's assume I have two strings that form a rectangle!

Example:

_______________________
_______________________

and i need to put how many spaces before one word, to centralize this!

example:

_______________________
   this is a example
_______________________

i tried using the number of characters, but it doesn't work, because some letters take up less space than other

example, the letter "i" takes up less space than the letter "a"

is it possible?

thanks a lot!

Edited March 30, 2011 by golfinhu

[Melba23]

golfinhu,

Look at the StringSize UDF in my sig - it tells you exactly how many pixels you need to write the text.

M23

[golfinhu]

ok, I'll look at your udf and try again ;D

thanks a lot Melba!

Edit:

you can help me?

i tried this:

i've tested the space " "

and it's return 11 in width

and i tried it, only for test!

#include <StringSize.au3>
#include <Array.au3>
#include <String.au3>

local $sLabelMsg  = "Test"
Local $size = _StringSize($sLabelMsg, Default, Default, Default, "Arial") ; get the size of the string
Local $line =  _StringSize("______________________", Default, Default, Default, "Arial") ; get the size of the string
Local $faltam = $line[2] - $size[2] ; getting the diference
Local $spaces = Round(($faltam / 11) / 2) ; getting how many spaces i need put
$text = _StringRepeat(" ", $spaces) & $sLabelMsg ; add the spaces
ClipPut($text) ; putting it on clipboard

but he is far left!

My logic is terrible today :s

you can look my code please? thanks a lot and sorry for inconvenience

Edited March 30, 2011 by golfinhu

[golfinhu]

bump

[BrewManNH]

Try changing this line to what I have below:

Local $spaces = Round(($faltam /7) ) ; getting how many spaces i need put

[UEZ]

Here my version:

expandcollapse popup

#include <GDIPlus.au3>
#include <Array.au3>
#include <String.au3>

Local $sLabelMsg  = "This is a test"
Local $sLabel = "_______________________"
$aSize1 = GetStringSize($sLabelMsg, "Arial", 8.5, 0)
$w1 = $aSize1[0]
$aSize2 = GetStringSize($sLabel, "Arial", 8.5, 0)
$w2 = $aSize2[0]
$aSize3 = GetStringSize(" ", "Arial", 8.5, 0)
$w3 = $aSize3[0]
$spaces = Floor((($w2 - $w1) / 2) / $w3)

$text = _StringRepeat(" ", $spaces) & $sLabelMsg ; add the spaces
ConsoleWrite($sLabel & @CRLF)
ConsoleWrite($text & @CRLF)
ConsoleWrite($sLabel & @CRLF)

Func GetStringSize($string, $font, $fontsize, $fontstyle) ;coded by UEZ 2011 Beta
    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 $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
    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_GraphicsDrawStringEx($hGrphContext, $string, $hFont, $aInfo[0], $hFormat, $hBrush)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
;~  _GDIPlus_BrushDispose($hBrush)
    _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

Not fully tested!

Br,

UEZ

Edited March 30, 2011 by UEZ

[golfinhu]

Try changing this line to what I have below:

Local $spaces = Round(($faltam /7) ) ; getting how many spaces i need put

still gives a difference of 1 or 2 spaces, but is much more centralized, but ... why 7?

[golfinhu]

Here my version:

expandcollapse popup

#include <GDIPlus.au3>
#include <Array.au3>
#include <String.au3>

Local $sLabelMsg  = "This is a test"
Local $sLabel = "_______________________"
$aSize1 = GetStringSize($sLabelMsg, "Arial", 8.5, 0)
$w1 = $aSize1[0]
$aSize2 = GetStringSize($sLabel, "Arial", 8.5, 0)
$w2 = $aSize2[0]
$aSize3 = GetStringSize(" ", "Arial", 8.5, 0)
$w3 = $aSize3[0]
$spaces = Floor((($w2 - $w1) / 2) / $w3)

$text = _StringRepeat(" ", $spaces) & $sLabelMsg ; add the spaces
ConsoleWrite($sLabel & @CRLF)
ConsoleWrite($text & @CRLF)
ConsoleWrite($sLabel & @CRLF)

Func GetStringSize($string, $font, $fontsize, $fontstyle) ;coded by UEZ 2011 Beta
    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 $hBrush = _GDIPlus_BrushCreateSolid(0xFF000000)
    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_GraphicsDrawStringEx($hGrphContext, $string, $hFont, $aInfo[0], $hFormat, $hBrush)
    _GDIPlus_FontDispose($hFont)
    _GDIPlus_FontFamilyDispose($hFamily)
    _GDIPlus_StringFormatDispose($hFormat)
;~  _GDIPlus_BrushDispose($hBrush)
    _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

Not fully tested!

Br,

UEZ

i will test it!

thanks a lot for your code!

[Melba23]

golfinhu,

Just use the UDF - then you need not worry about the width of the space character. That is why I wrote it after all!

#include <GUIConstantsEx.au3>
#include <StringSize.au3>
#include <Array.au3>
#include <String.au3>

local $sLabelMsg  = "Test"
Local $size = _StringSize($sLabelMsg, Default, Default, Default, "Arial") ; get the size of the string
Local $line =  _StringSize("______________________", Default, Default, Default, "Arial") ; get the size of the string

Local $faltam = ($line[2] - $size[2]) / 2 ; get the half the difference

For $i = 1 To 99
    ; Add a space
    $sLabelMsg = " " & $sLabelMsg
    $size = _StringSize($sLabelMsg, Default, Default, Default, "Arial") ; get the size of the string
    ; Loop until the difference is less than half the previous difference
    If $line[2] - $size[2] < $faltam Then ExitLoop

Next

; Display the result
$hGUI = GUICreate("Test", 500, 500)

GUICtrlCreateLabel("______________________" & @CRLF & $sLabelMsg & @CRLF & "______________________", 0, 0, 500, 50)
GUICtrlSetFont(-1, Default, Default, Default, "Arial")

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

M23

[golfinhu]

thanks a lot for all

Melba, very nice udf, i liked the code, really!

and thanks for your help!

and...

UEZ

thanks a lot, your code work too =)

thanks all again! ^^