Wie ermittle ich die Anzeigenbreite eines Labels .

**Raupi**

Hallo.

Gibt es eine Function um die Anzeigenbreite eines Labels in der GUI zu berechnen ?

Hier mal ein beispiel :

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$Test1=GUICreate("TestGui1")
$Label1=GUICtrlCreateLabel("Dies ist ein Test",10,10)
$Label2=GUICtrlCreateLabel("DIES IST EIN TEST",10,30)
GUISetState(@SW_SHOW,$Test1)

Do
$msg = GUIGetMsg()

[/autoit] [autoit][/autoit] [autoit]

Until $msg = $GUI_EVENT_CLOSE

[/autoit]

Also bei beiden Labels handelt es sich um den gleichen Text .Bei dem Großgeschriebene Text wird für das Label mehr Raum in der Gui verbraucht. Ich will eigentlich sowas wie ein MsgBox Ersatz scripten, da mir die Darstellung nicht so ganz paßt.Diese soll sich nach der Breite des anzuzeigenden Textes richten . Wie kann man das berechnen ?

**Oscar**

ControlGetPos ist hier das Stichwort:

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$Test1 = GUICreate("TestGui1")
$Label1 = GUICtrlCreateLabel("Dies ist ein Test", 10, 10)
$Label2 = GUICtrlCreateLabel("DIES IST EIN TEST", 10, 30)
GUISetState(@SW_SHOW, $Test1)

[/autoit] [autoit][/autoit] [autoit]

$aPos = ControlGetPos($Test1, '', $Label1)
_ArrayDisplay($aPos)
$aPos = ControlGetPos($Test1, '', $Label2)
_ArrayDisplay($aPos)

[/autoit] [autoit][/autoit] [autoit]

Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

[/autoit]

**Raupi**

Ja bei der Lösung bekomme ich die richtige Anzeige. Das hatte ich auch schon probiert . Ich brauch aber die Anzeigebreite bevor ich die GUI erstelle . Das ist mein Problem

**Oscar**

Du kannst das doch abfragen, bevor Du die GUI anzeigen läßt und dann veränderst Du einfach nachträglich (immer noch vor der Anzeige) die Breite des Fensters.

**Raupi**

Da hast du recht . Hab jetzt mal eine Function geschrieben um des zu berechnen .
Hier der Quelltext:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
$Temp = InputBox("Text", "Bitte Text eingeben")
$position = AnzeigeBerechnen($Temp)
MsgBox(0, "Info", "Anzeigenbreite = " & $position[2] & " Anzeigenhöhe = " & $position[3])

[/autoit] [autoit][/autoit] [autoit]

Func AnzeigeBerechnen($Text);Erstellt ein Gui Fenster und berechnet die Anzeigenbreite und -höhe des Labels
$Test1 = GUICreate("Test", @DesktopWidth, 40)
$Label1 = GUICtrlCreateLabel($Text, 1, 1)
GUISetState(@SW_HIDE, $Test1)
$aPos = ControlGetPos($Test1, '', $Label1)
Return $aPos
GUIDelete($Test1)
EndFunc ;==>AnzeigeBerechnen

[/autoit]

Damit funzt es eigentlich gut. Danke Oscar.

**Oscar**

Ich hatte gerade ein Beispielscript erstellt:

Spoiler anzeigen

[autoit]

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

[/autoit] [autoit][/autoit] [autoit]

$Test1 = GUICreate("TestGui1")
$Label1 = GUICtrlCreateLabel("Dies ist ein Test", 10, 10)
GUICtrlSetBkColor(-1, 0xff0000)
$Label2 = GUICtrlCreateLabel("DIES IST EIN TEST und dieser Text ist lang", 10, 50)
GUICtrlSetBkColor(-1, 0x00ff00)
$aWPos = WinGetPos($Test1)
$aPos1 = ControlGetPos($Test1, '', $Label1)
$aPos2 = ControlGetPos($Test1, '', $Label2)

[/autoit] [autoit][/autoit] [autoit]

$x = $aPos1[2]
If $aPos2[2] > $x Then $x = $aPos2[2]

[/autoit] [autoit][/autoit] [autoit]

WinMove($Test1, '', $aWPos[0], $aWPos[1], 30+$x, 120)
ControlMove($Test1, '', $Label1, $aPos1[0], $aPos1[1], $x, $aPos1[3])
ControlMove($Test1, '', $Label2, $aPos2[0], $aPos2[1], $x, $aPos2[3])

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW, $Test1)

[/autoit] [autoit][/autoit] [autoit]

Do
$msg = GUIGetMsg()
Until $msg = $GUI_EVENT_CLOSE

[/autoit]

**Raupi**

Danke für deine Arbeit Oscar. Ist sehr aufschlussreich. Werde dein Script bestimmt noch brauchen wenn ich das mit dem msgboxersatz hinbekommen will.