Ctrl RichEdit Lost borders in multiline only in a tab

[caramen]

Hello, This reproducer is rdy for try. Escape for quit.

Why my borders disappear in multi lines in first RishEdit (into tab) But not the second one. (Push enter to get multi lines and reproduce the despairing) 

Can I dodge this ?

expandcollapse popup

#Region "HOtkeySettings" --------------------------------------------------------------------------------------------------------------
HotKeySet("{Escape}", "_Exit") ;Shift-Alt-E to Exit the script
;~ MsgBox(64, "Outloock Ticket", "Raccourcis pour quitter le script: 'ECHAP'!")
#EndRegion "Global Const" -------------------------------------------------------------------------------------------------------------


#Region "GuiMainWindows"
Global $hGui = GUICreate ("Ticket mail", 800 , 600 -1, -1 ) ;, False, False )
;~    $GUI_WHNDL=$hGui[0]       ;_ $Handles[0] = "GUI windows handle"
;~    $GUI_CLOSEBTN=$hGui[1]    ;_ $Handles[1] = "Close button controlID"
;~    $GUI_MINIMIZEBTN=$hGui[2] ;_ $Handles[2] = "Minimize button controlID"
#EndRegion ""

#Region "Include" ---------------------------------------------------------------------------------------------------------------------
#include <GuiComboBoxEx.au3>
;~ #include <MTSkin-UDF.au3>
;~ #include "MTSkin-UDF.au3"
#include <OutlookEX.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <StaticConstants.au3>
#Include <WinAPI.au3>
#include <SendMessage.au3>
#include <GuiRichEdit.au3>
#EndRegion "" -------------------------------------------------------------------------------------------------------------------------


Global $Tab0 = GUICtrlCreateTab ( 5 , 5 , 790 , 320 )
Global $SubTab1 = GUICtrlCreateTabItem ( "Mode Semi Auto" )
;~ ==========
Global $hLabel4 = GUICtrlCreateLabel ( "Body:    "  , 20 , 185 , 50 , 50 )
Global $hInput4 = _GUICtrlRichEdit_Create(  $hGui, ""  , 50 , 170 , 710 , 130 , BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL ) )
Global $hInput5 = _GUICtrlRichEdit_Create(  $hGui, ""  , 50 , 370 , 710 , 130 , BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL ) )

GUISetState ( @SW_SHOW , $hGui )


Func _Exit()                                                        ;On quitte le script
    Exit
EndFunc   ;==>_Exit

While 1
    Sleep (10)
WEnd

 

 

 

 

Edited October 4, 2020 by caramen

[Dan_555]

The problem is, that the RichEdit control is not an AutoIt standard control and therefore it is not included in the Tab definition.

Remember to use GUICtrlCreateTabItem("") at end the tab item definition.

You can fix the disappearing borderline, by bringing the control at the top of the tab:

While 1
    $n=GUIGetMsg()
    if $n=$hInput4 then GUISetState(@SW_SHOW, $hInput4)
    Sleep (10)
WEnd

More about tabs you can read here. Will come in handy when you add more tabs.

Edited October 4, 2020 by Dan_555

[caramen]

Did you tried ? 😮 

It does not work for me :

expandcollapse popup

#Region "HOtkeySettings" --------------------------------------------------------------------------------------------------------------
HotKeySet("{Escape}", "_Exit") ;Shift-Alt-E to Exit the script
;~ MsgBox(64, "Outloock Ticket", "Raccourcis pour quitter le script: 'ECHAP'!")
#EndRegion "Global Const" -------------------------------------------------------------------------------------------------------------
#Region "Include" ---------------------------------------------------------------------------------------------------------------------
#include <GuiComboBoxEx.au3>
;~ #include <MTSkin-UDF.au3>
;~ #include "MTSkin-UDF.au3"
#include <OutlookEX.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <StaticConstants.au3>
#Include <WinAPI.au3>
#include <SendMessage.au3>
#include <GuiRichEdit.au3>
#include <ColorConstants.au3>

#EndRegion "" -------------------------------------------------------------------------------------------------------------------------


#Region "GuiMainWindows"
Global $hGui = GUICreate ("Ticket mail", 800 , 600 -1, -1 ) ;, False, False )
;~    $GUI_WHNDL=$hGui[0]       ;_ $Handles[0] = "GUI windows handle"
;~    $GUI_CLOSEBTN=$hGui[1]    ;_ $Handles[1] = "Close button controlID"
;~    $GUI_MINIMIZEBTN=$hGui[2] ;_ $Handles[2] = "Minimize button controlID"
GUICtrlSetBkColor (-1 , $COLOR_RED )
#EndRegion ""



Global $Tab0 = GUICtrlCreateTab ( 5 , 5 , 790 , 320 )
GUICtrlSetBkColor (-1 , $COLOR_RED )
Global $SubTab1 = GUICtrlCreateTabItem ( "Mode Semi Auto" )
GUICtrlSetBkColor (-1 , $COLOR_RED )
;~ ==========
Global $hLabel4 = GUICtrlCreateLabel ( "Body:    "  , 20 , 185 , 50 , 50 )
Global $hInput4 = _GUICtrlRichEdit_Create(  $hGui, ""  , 50 , 170 , 710 , 130 , BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL ) )
_GUICtrlRichEdit_SetBkColor ( $hInput4 , 0xE8CCCC )
Global $hInput5 = _GUICtrlRichEdit_Create(  $hGui, ""  , 50 , 370 , 710 , 130 , BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL ) )

GUISetState ( @SW_SHOW , $hGui )
    _GUICtrlRichEdit_SetText ( $hInput4 , "ALLO" & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & "ALLO" )

Func _Exit()                                                        ;On quitte le script
    Exit
EndFunc   ;==>_Exit

While 1
    $n=GUIGetMsg()
    if $n=$hInput4 then GUISetState(@SW_SHOW, $hInput4)
    Sleep (10)
WEnd

I even tried with switch. 

 

Edited October 4, 2020 by caramen

[Nine]

Just put GUISetState ( @SW_SHOW , $hGui ) after _GUICtrlRichEdit_SetText. 

Remember :

1 hour ago, Dan_555 said:

GUICtrlCreateTabItem("") at end the tab item definition

Tested on Win7.

Edited October 4, 2020 by Nine

[caramen]

It does not work for me :

expandcollapse popup

HotKeySet("{Escape}", "_Exit") ;Shift-Alt-E to Exit the script
;~ MsgBox(64, "Outloock Ticket", "Raccourcis pour quitter le script: 'ECHAP'!")

#include <GuiComboBoxEx.au3>
;~ #include <MTSkin-UDF.au3>
;~ #include "MTSkin-UDF.au3"
#include <OutlookEX.au3>
#include <GUIConstants.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WindowsConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <StaticConstants.au3>
#Include <WinAPI.au3>
#include <SendMessage.au3>
#include <GuiRichEdit.au3>
#include <ColorConstants.au3>







Global $hGui = GUICreate ("Ticket mail", 800 , 600 -1, -1 ) ;, False, False )
;~    $GUI_WHNDL=$hGui[0]       ;_ $Handles[0] = "GUI windows handle"
;~    $GUI_CLOSEBTN=$hGui[1]    ;_ $Handles[1] = "Close button controlID"
;~    $GUI_MINIMIZEBTN=$hGui[2] ;_ $Handles[2] = "Minimize button controlID"



Global $Tab0 = GUICtrlCreateTab ( 5 , 5 , 790 , 320 )
Global $SubTab1 = GUICtrlCreateTabItem ( "Mode Semi Auto" )
Global $hLabel4 = GUICtrlCreateLabel ( "Body:    "  , 20 , 185 , 50 , 50 )
Global $hInput4 = _GUICtrlRichEdit_Create(  $hGui, ""  , 50 , 170 , 710 , 130 , BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL ) )
_GUICtrlRichEdit_SetBkColor ( $hInput4 , 0xE8CCCC )
Global $hInput5 = _GUICtrlRichEdit_Create(  $hGui, ""  , 50 , 370 , 710 , 130 , BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL ) )

GUISetState ( @SW_SHOW , $hGui )

_GUICtrlRichEdit_SetText ( $hInput4 , "ALLO" & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & "ALLO" )

GUISetState ( @SW_SHOW , $hGui )



Func _Exit()                                                        ;On quitte le script
    Exit
EndFunc   ;==>_Exit

While 1
    $n=GUIGetMsg()
    if $n=$hInput4 then GUISetState(@SW_SHOW, $hInput4)
    Sleep (10)
WEnd

 

 

 

Edited October 4, 2020 by caramen

[Nine]

Tested on Win10 and it is working fine for me.

[caramen]

1 minute ago, Nine said:

Tested on Win10 and it is working fine for me.

Win 10 too 😕 autoIT downloaded 2 week ago on website.

Keyboard:0000040C  OS:WIN_10/  CPU:X64 OS:X64  Environment(Language:040C)  CodePage:0  utf8

Running:(3.3.14.5)

[Nine]

IDK. Could you try to minimize the window and restore it ?  See if that helps.

[caramen]

Oh yep it's repairing borders.

[caramen]

This fix it : 

GUISetState ( @SW_SHOW , $hGui )

_GUICtrlRichEdit_SetText ( $hInput4 , "ALLO" & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & "ALLO" )

GUISetState ( @SW_HIDE , $hGui )
GUISetState ( @SW_SHOW , $hGui )

 

[caramen]

It is less flashy like that : 

GUICtrlSetState ( $hInput4 , $GUI_DISABLE )
    GUICtrlSetState ( $hInput4 , $GUI_ENABLE )

 

[Nine]

Maybe try either one :

_WinAPI_RedrawWindow

or

_WinAPI_UpdateWindow

[caramen]

Much better yes. And working.

[Dan_555]

4 hours ago, caramen said:

Did you tried ? 😮 

 

Sorry, in my testings i moved the bottom RichEdit box to the same position as the top one, because i created another tab.

Later i removed the additional tab, but forgot to place the other control back down. And when i found the seeming solution, i had to go AFK ... 

[caramen]

Np thanks  

[caramen]

Next issue x)

I tried everything said before and it's not affecting the control... 😮. I can delete and remake the control. 

 

May you guys know an other way ?

Edited October 4, 2020 by caramen

[Nine]

5 hours ago, Dan_555 said:

More about tabs you can read here. Will come in handy when you add more tabs.

Already answered, please read the link, it is all very well explained...