jvds

unicode character on gui

3 posts in this topic

#1 ·  Posted

I'm trying to display a Unicode character on a label but get an rectangle instead
is it possible to successfully display all Unicode characters on GUI on labels buttons etc?
the one i'm trying to display is ChrW(11034) which is

$square = GUICtrlCreateLabel(ChrW(11034),10,20, 10, 15)

 

Share this post


Link to post
Share on other sites



#2 ·  Posted

Try adding right after

GUICtrlSetFont(-1, 10, 600, -1, "WingDings 3")

 

1 person likes this

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

I don't think setting the font will help, some Unicode characters just wont get drawn correcly, setting the font on the phone unicode chr messes it up
 

#include <GUIConstantsEx.au3>
GUICreate("GUI")

;first line
GUICtrlCreateLabel(chrw(11034), 10, 10)
GUICtrlCreateLabel(chrw(11034), 30, 10)
GUICtrlSetFont(-1, 10, 600, -1, "WingDings 3")

;Second line
GUICtrlCreateLabel(chrw(9742), 10, 30)
GUICtrlCreateLabel(chrw(9742), 30, 30)
GUICtrlSetFont(-1, 10, 600, -1, "WingDings 3")
;11034

GUISetState(@SW_SHOW) ; will display an empty dialog box
; Loop until the user exits.
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
WEnd

EDIT:
oh well after playing with WingDings fonts i got enough symbols that will do the job, so i will end up using that instead,

thanks Deye

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Local $hGUI = GUICreate("Example", 1200, 650)
GUISetState(@SW_SHOW, $hGUI)

$X=1
$Y=1
$max = 1180

GUICtrlCreateLabel("WingDings", $X, $Y,79,21,$WS_BORDER)
$X+=80
For $XX=1 to 256
GUICtrlCreateLabel(chr($XX), $X, $Y,21,21,$WS_BORDER)
GUICtrlSetFont(-1, 13, 600, -1, "WingDings")
GUICtrlCreateLabel($XX, $X, $Y+20,21,21,$WS_BORDER)
    $X+=20
    if $X > $max Then
        $X=1
        $Y+=45
    EndIf
Next
$X+=40
GUICtrlCreateLabel("WingDings 2", $X, $Y,79,21,$WS_BORDER)
$X+=80
For $XX=1 to 256

GUICtrlCreateLabel(chr($XX), $X, $Y,21,21,$WS_BORDER)
GUICtrlSetFont(-1, 13, 600, -1, "WingDings 2")
GUICtrlCreateLabel($XX, $X, $Y+20,21,21,$WS_BORDER)
    $X+=20
    if $X > $max Then
        $X=1
        $Y+=45
    EndIf
Next
$X+=40
GUICtrlCreateLabel("WingDings 3", $X, $Y,79,21,$WS_BORDER)
$X+=80
For $XX=1 to 256

GUICtrlCreateLabel(chr($XX), $X, $Y,21,21,$WS_BORDER)
GUICtrlSetFont(-1, 13, 600, -1, "WingDings 3")
GUICtrlCreateLabel($XX, $X, $Y+20,21,21,$WS_BORDER)
    $X+=20
    if $X > $max Then
        $X=1
        $Y+=45
    EndIf
Next


GUISetState(@SW_SHOW) ; will display an empty dialog box
; Loop until the user exits.
While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            ExitLoop

    EndSwitch
WEnd

 

 

Edited by jvds

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now

  • Similar Content

    • ILLBeBack
      By ILLBeBack
      Can someone confirm that GuiCtrlCreateLabel does not calculate the correct height, when the height parameter is omitted (allowing the function to calculate the required height) and the width of the text string causes word wrapping.
      I find the description of the height parameter a bit unclear, but believe it should calculate the correct height if the height parameter is omitted, is –1, or is Default.  It does so when a multi-line string (one containing @LF to avoid word wrapping), is used, but not if word wrapping occurs.
      Here’s a simple GUI demonstrating this issue:
       
      #include <GUIConstants.au3> GUICreate("Automatic Height issue with GUI Labels", 500, 380, -1, -1) $iY = 10 $sText = "When the height parameter for a GUI Label is not specified, or set to -1, or Default, the height " & @LF & _ "of the label is incorrect when word wrapping occurs. The height does not take into account " & @LF & _ "the number of lines added by the word wrapping! Below are examples demonstrating this" & @LF & _ "issue, what the label should look like ( @LF is used to avoid word wrapping )." & @LF & _ @LF & _ "The doc for GUICtrlCreateLabel says what follows for the height parameter:" GUICtrlCreateLabel($sText, 10, $iY, 450, Default) $iY += 80 GUICtrlCreateLabel(" height, [optional] The height of the control (default text autofit in height)", 10, $iY, 450, Default) GUICtrlSetFont(-1, -1, 600) GUICtrlSetColor(-1, 0x0000ff) $iY += 60 GUICtrlCreateLabel("Word Wrap Example (label height is incorrect)", 10, $iY, 450, Default, $SS_Center) GUICtrlSetFont(-1, 12, 600) GUICtrlSetColor(-1, 0xff0000) $iY += 20 ;; Word Wrap example: $sText = "This is an example showing that when the height parameter of a GuiCtlrCreateLabel " & _ "is set to -1, or left as optional, the height of the control does not take word " & _ "wrap into consideration, producing an incorrect height for the string." GUICtrlCreateLabel($sText, 10, $iY, 450, Default) GUICtrlSetBkColor(-1, 0xffff00) $iY += 40 GUICtrlCreateLabel("What the above should show (@LF used)", 10, $iY, 450, Default, $SS_Center) GUICtrlSetFont(-1, 12, 600) GUICtrlSetColor(-1, 0x0000ff) $iY += 20 $sText = "This is an example showing that when the height parameter of a GuiCtlrCreateLabel is set to -1," & @LF & _ "or left as optional, the height of the control does not take word wrap into consideration," & @LF & _ "producing an incorrect height for the string." GUICtrlCreateLabel($sText, 10, $iY, 450, Default) GUICtrlSetBkColor(-1, 0xffff00) $iY += 90 $sText = "While the height produced when @LF is used to avoid word wrapping does not cut off text, " & @LF & _ "the height is a little too large by about 1/2 line height." GUICtrlCreateLabel($sText, 10, $iY, 450, Default) GUISetState(@SW_SHOW) Do Until GUIGetMsg() = $GUI_EVENT_CLOSE Exit  
    • MrPinkComputerShrink
      By MrPinkComputerShrink
      Hello,
      Several places in my Tabbed GUI input is overwritten again and again. the problem is that I can't get the old text to go away.  So it overlaps until it is a mixed up line of unreadable black.
      In the sample below if you go to TAB4, Enter some text in the input box, click OK.  Thinks look normal.
      Go to the input box agaion and change or add more text and click on OK.  Not so Good. 
      Thanks!
      #include <Array.au3> ;#include <AVIConstants.au3> #include <Constants.au3> ;#include <Date.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> ;#include <IE.au3> #include <Process.au3> #include <StaticConstants.au3> #include <String.au3> ;#include <TreeViewConstants.au3> #include <ListViewConstants.au3> #include <ColorConstants.au3> #include <WinAPI.au3> ;#include <Inet.au3> #include <Services.au3> ;#include <NetInfo.au3> #include <WindowsConstants.au3> ;#include <GuiImageList.au3> Global $g_idListView = 99999 , $DirectSubmitButton, $StatusButton DllCall("kernel32.dll", "int", "Wow64DisableWow64FsRedirection", "int", 1) ; This disables 32bit applications from being redirected to syswow64 instead of system32 by default ; ConsoleWrite("Loaded #include Files" & @CRLF) Global $SSID, $BSSID, $Signal, $Authentication, $Encryption GUICtrlSetState(-1, $GUI_DROPACCEPTED) ; to allow drag and dropping ConsoleWrite("Created Variables" & @CRLF) DirCreate (@TempDir & "\\SCCTemp") $SCCTempDir=(@TempDir & "\\SCCTemp\") ConsoleWrite("Created $SCCTempDir directory at " & $SCCTempDir & @CRLF) Call("_WifiNetsPrep") Call("_WifiNets") $Gooey = GUICreate("Sortable Wifi Tab", 770, 540) $Tab = GUICtrlCreateTab(10, 0, 755, 530) ; -15 x -10 $Tab1 = GUICtrlCreateTabItem("Tab 1") ;- ========================================================================== Status ;~ GUISwitch($Gooey, $Tab1) $font = ("Lucida Console") GUISetFont(9, 400, 1, $font) GUICtrlCreateLabel("Data on Tab 1", 30, 60) ; Label, Dist to right, Down ;~ GUICtrlCreateTabItem("") ;~ GUISwitch($Gooey) $Tab2 = GUICtrlCreateTabItem("Tab 2") ;- ========================================================================== ARP/UPnP ;~ GUISwitch($Gooey, $Tab2) $font = ("Lucida Console") GUISetFont(9, 400, 1, $font) GUICtrlCreateLabel("Data on Tab 2", 30, 60) ; Label, Dist to right, Down ;~ GUICtrlCreateTabItem("") ;~ GUISwitch($Gooey) $Tab3 = GUICtrlCreateTabItem("Tab 3") ; =================================================================================== PINGS ;~ GUISwitch($Gooey, $Tab3) $font = ("MS Sans Serif") GUISetFont(9, 400, 1, $font) GUICtrlCreateLabel("Data on Tab 3", 30, 60) ; Label, Dist to right, Down ;~ GUICtrlCreateTabItem("") ;~ GUISwitch($Gooey) $Tab4 = GUICtrlCreateTabItem("Tab 4") ;- ========================================================================== s GUISwitch($Gooey, $Tab4) GUICtrlCreateLabel("Ping: ", 30, 450) ; Label, Dist to right, Down Global $Tab4OK = GUICtrlCreateInput("", 80, 60, 150, 20) ;MsgBox(0, "$BrowserDefault", $BrowserDefault) $IPButton = GUICtrlCreateButton("OK", 340, 60, 60) ;GUICtrlSetState($IPButton, $GUI_DISABLE) $DirectSubmitButton = GUICtrlCreateButton("Direct Submit", 340, 90, 85) GUICtrlSetState($DirectSubmitButton, $GUI_DISABLE) $StatusButton = GUICtrlCreateButton("Status", 340, 120, 60) GUICtrlSetState($StatusButton, $GUI_DISABLE) $Tab5 = GUICtrlCreateTabItem("Wifi") ;- ========================================================================== Wifi Networks GUICtrlCreateTabItem("") _BuildLV() GUISetState() While 1 Switch GUIGetMsg() Case $Tab Switch GUICtrlRead($Tab) Case $Tab Case 0 ;ConsoleWrite ("1st Tab " & @CRLF ) ; Status Case 1 ;ConsoleWrite ("2nd Tab " & @CRLF ) ; ARP/UPnP Case 2 ;ConsoleWrite ("3rd Tab "& @CRLF ) ; Pings Case 3 ;ConsoleWrite ("4th Tab " & @CRLF ) ; s Case 4 ;~ EndSwitch Case $IPButton GUISwitch($Gooey, $Tab4) ;MsgBox(0, "this", "This is in SonosIP Button") Call ("_Tab4") ; Call to TAB with Overwriet issue GUICtrlCreateTabItem("") GUISwitch($Gooey) Case $GUI_EVENT_CLOSE ConsoleWrite("Case $GUI_EVENT_CLOSE in main loop" & @CRLF) DirRemove($SCCTempDir) Exit Case $g_idListView _SortBy() EndSwitch WEnd Func _Tab4() ; ======================================== TAB with Overwrite issue ============================================================================= GUISwitch($Gooey, $Tab4) GUICtrlSetState($DirectSubmitButton, $GUI_ENABLE) GUICtrlSetState($StatusButton, $GUI_ENABLE) $DestinationIP = "192.168.1.34" $DestinationIP = GUICtrlRead($Tab4OK) ;$font = ("Verdana") ;GUISetFont(9, 400,1 , $font) Global $DS = GUICtrlCreateLabel("http://" & $DestinationIP & "/support/", 30, 90) $DirectSubmit = ("http://" & $DestinationIP & "/support/") Global $Stat = GUICtrlCreateLabel("http://" & $DestinationIP & "/status", 30, 120) $Status = ("http://" & $DestinationIP & "/status") GUICtrlCreateTabItem("") GUISwitch($Gooey) EndFunc Func _WifiNetsPrep() Local $rc = _RunDos("netsh wlan show all > " & $SCCTempDir & "WifiData.txt") Global $WifiData2 = $SCCTempDir & "WifiData.txt" ConsoleWrite("WIfiTab $$WifiData2 " & $WifiData2) Local $WifiNets = FileRead($WifiData2) FileOpen($WifiData2, 2) Local $Trim1 = StringInStr($WifiNets, "SSID 1") $WifiNets = StringTrimLeft($WifiNets, $Trim1 - 6) FileWrite($WifiData2, $WifiNets) FileClose($WifiData2) $WifiNets = FileOpen($WifiData2, 1) FileWriteLine($WifiNets, "END") FileClose($WifiNets) EndFunc ;==>_WifiNetsPrep Func _WifiNets() ConsoleWrite("Called _WifiNets()" & @CRLF) $WifiNets = FileOpen($WifiData2, 0) Local $WifiNetsParsed = FileOpen($SCCTempDir & "WifiNetsParsed.txt", 2) Do Local $WifiNetLine = FileReadLine($WifiNets) Local $SSIDCheck = StringInStr($WifiNetLine, "SSID") If $SSIDCheck <> 0 Then FileWriteLine($WifiNetsParsed, $WifiNetLine) Local $AuthenticationCheck = StringInStr($WifiNetLine, "Authentication") If $AuthenticationCheck <> 0 Then FileWriteLine($WifiNetsParsed, $WifiNetLine) Local $EncryptionCheck = StringInStr($WifiNetLine, "Encryption") If $EncryptionCheck <> 0 Then FileWriteLine($WifiNetsParsed, $WifiNetLine) Local $SignalCheck = StringInStr($WifiNetLine, "Signal") If $SignalCheck <> 0 Then FileWriteLine($WifiNetsParsed, $WifiNetLine) Local $ChannelCheck = StringInStr($WifiNetLine, "Channel") If $ChannelCheck <> 0 Then FileWriteLine($WifiNetsParsed, $WifiNetLine) If $ChannelCheck <> 0 Then FileWriteLine($WifiNetsParsed, " ") Until $WifiNetLine = "END" FileClose("$WifiData2") FileWriteLine($WifiNetsParsed, "END") FileClose($WifiNetsParsed) $font = ("MS Sans Serif") GUISetFont(9, 400, 1, $font) Local $iListView = GUICtrlCreateListView("Detected Wifi Networks ", 30, 90, 725, 430) _GUICtrlListView_SetColumnWidth($iListView, 0, $LVSCW_AUTOSIZE_USEHEADER) $WifiNetsParsed = FileOpen($SCCTempDir & "WifiNetsParsed.txt", 0) Do $WifiNets = FileReadLine($WifiNetsParsed) GUICtrlCreateListViewItem($WifiNets, $iListView) Until $WifiNets = "END" EndFunc ;==>_WifiNets Func _BuildLV() ; Wifi data sort ConsoleWrite(@ScriptLineNumber & " Called _BuildLV" & @CRLF) ;~ Global $g_idListView Local $hImage, $aIcons[3] = [0, 3, 6] Local $iExWindowStyle = BitOR($WS_EX_DLGMODALFRAME, $WS_EX_CLIENTEDGE) Local $iExListViewStyle = BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES, $LVS_EX_GRIDLINES, $LVS_EX_DOUBLEBUFFER) GUISwitch($Gooey, $Tab5) $g_idListView = GUICtrlCreateListView("SSID|BSSID|Channel|Signal|Authentication|Encryption", 20, 25, 730, 500, -1, $iExWindowStyle) ;28, 25, 725, 500 _GUICtrlListView_SetExtendedListViewStyle($g_idListView, $iExListViewStyle) $WifiNets = FileOpen($WifiData2, 0) Do Global $WifiNetLine = FileReadLine($WifiNets) Global $SSIDCheck = StringInStr($WifiNetLine, "SSID") Global $AuthenticationCheck = StringInStr($WifiNetLine, "Authentication") Global $EncryptionCheck = StringInStr($WifiNetLine, "Encryption") Global $BSSIDCheck = StringInStr($WifiNetLine, "BSSID") Global $SignalCheck = StringInStr($WifiNetLine, "Signal") Global $ChannelCheck = StringInStr($WifiNetLine, "Channel") If $SSIDCheck <> 0 And $BSSIDCheck = 0 Then Call("_SSIDTrimmer") If $SSIDCheck <> 0 And $BSSIDCheck <> 0 Then Call("_BSSIDTrimmer") If $AuthenticationCheck <> 0 Then Call("_AuthenticationTrimmer") If $EncryptionCheck <> 0 Then Call("_EncryptionTrimmer") If $SignalCheck <> 0 Then Call("_SignalTrimmer") If $ChannelCheck <> 0 Then Call("_ChannelTrimmer") Until $WifiNetLine = "END" GUISetState(@SW_SHOW) _GUICtrlListView_RegisterSortCallBack($g_idListView) Local $count = 0 EndFunc ;==>_BuildLV Func _SortBy() ConsoleWrite( @ScriptLineNumber & " _SortBy" & @CRLF) $Column = GUICtrlGetState($g_idListView) _GUICtrlListView_SortItems($g_idListView, $Column) EndFunc ;==>_SortBy Func _SSIDTrimmer() ;ConsoleWrite( @ScriptLineNumber & " Called _SSIDTrimmer()" & @CRLF) ;msgbox (0, "Func _SSIDTrimmer()", "We're Here Now") Local $Colon = StringInStr($WifiNetLine, ":") $SSID = StringTrimLeft($WifiNetLine, $Colon) ;Local $BSSID_WAP = 0 ;msgbox (0, "$SSID ", $SSID) EndFunc ;==>_SSIDTrimmer Func _BSSIDTrimmer() ;ConsoleWrite( @ScriptLineNumber & " Called _BSSIDTrimmer()" & @CRLF) ;msgbox (0, "Func _BSSIDTrimmer()", "We're Here Now") Local $Colon = StringInStr($WifiNetLine, ":") $BSSID = StringTrimLeft($WifiNetLine, $Colon) ;Local $BSSID_WAP = 1 ;msgbox (0, "$BSSID ", $BSSID) EndFunc ;==>_BSSIDTrimmer Func _AuthenticationTrimmer() ;msgbox (0, "_SignalTrimmer()", "We're Here Now") Local $Colon = StringInStr($WifiNetLine, ":") $Authentication = StringTrimLeft($WifiNetLine, $Colon) ;msgbox (0, "$Authentication ", $Authentication) EndFunc ;==>_AuthenticationTrimmer Func _EncryptionTrimmer() ;msgbox (0, "_SignalTrimmer()", "We're Here Now") Local $Colon = StringInStr($WifiNetLine, ":") $Encryption = StringTrimLeft($WifiNetLine, $Colon) ;msgbox (0, "$Encryption ", $Encryption) EndFunc ;==>_EncryptionTrimmer Func _SignalTrimmer() ;msgbox (0, "_SignalTrimmer()", "We're Here Now") Local $Colon = StringInStr($WifiNetLine, ":") $Signal = StringTrimLeft($WifiNetLine, $Colon) ;msgbox (0, "$Signal ", $Signal) EndFunc ;==>_SignalTrimmer Func _ChannelTrimmer() ConsoleWrite(@ScriptLineNumber & " Called _ChannelTrimmer" & @CRLF) Local $Colon = StringInStr($WifiNetLine, ":") $Channel = StringTrimLeft($WifiNetLine, $Colon) $bChannel = Number($Channel) ;msgbox (0, "$bChannel ", $bChannel) _AddRow($g_idListView, $SSID & "|" & $BSSID & "|" & $bChannel & "|" & $Signal & "|" & $Authentication & "|" & $Encryption) ; Passing Data to AddRow ;$SSID = "" $BSSID = "" $Authentication = "" $Encryption = "" $Channel = "" $Signal = "" EndFunc ;==>_ChannelTrimmer Func _AddRow($hWnd, $sItem, $iPlus = 0) ConsoleWrite(@ScriptLineNumber & " Called _AddRow" & @CRLF) Local $aItem = StringSplit($sItem, "|") Local $iIndex = _GUICtrlListView_AddItem($hWnd, $aItem[1], +$iPlus, _GUICtrlListView_GetItemCount($hWnd) + 9999) _GUICtrlListView_SetColumnWidth($hWnd, 0, $LVSCW_AUTOSIZE_USEHEADER) For $x = 2 To $aItem[0] _GUICtrlListView_AddSubItem($hWnd, $iIndex, $aItem[$x], $x - 1, $iPlus) _GUICtrlListView_SetColumnWidth($hWnd, $x - 1, $LVSCW_AUTOSIZE) Next ConsoleWrite(@ScriptLineNumber & " Return from _AddRow" & @CRLF) EndFunc ;==>_AddRow Func _CleanUp() FileClose($SCCTempDir & "WifiNetsParsed.txt") FileClose($SCCTempDir & "WifiChannel.txt") Sleep(500) FileDelete($SCCTempDir & "WifiNetsParsed.txt") FileDelete($SCCTempDir & "WifiChannel.txt") EndFunc ;==>_CleanUp test overwrite on tabs.au3
    • nitekram
      By nitekram
      NO code, but a question...what is your method for adding a control in an already created GUI.

      Say you created your GUI, and then decided that there was something missing, and you wanted to put it in the middle or where ever...you have to move all the controls after it and it is a pain.

      Does anyone have an easy method, or the method you choose to begin with so you do not have to worry about this coming up in the future?