Destroy Edit Scroll Bar

[PhoenixXL]

Hi

Thisz the code,

#include <WinAPI.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>$hGUI = GUICreate('')
Local $Edit = GUICtrlCreateEdit('', 10, 10, 200, 120)
Local $_Handle=GUICtrlGetHandle($Edit)
Local $Style=_CtrlGetStyle($_Handle)
ConsoleWrite(_CtrlSetStyle($_Handle,_RemoveBit($Style,BitOR($WS_VSCROLL, $WS_HSCROLL)))&@CR)
GUISetState()

Local $iGUIGetMsg
While 1
$iGUIGetMsg = GUIGetMsg()
Switch $iGUIGetMsg
Case -3
ExitLoop
EndSwitch
WEnd

Func _CtrlSetStyle($hControl_hWnd,$Style)
Return _WinAPI_SetWindowLong($hControl_hWnd,0xFFFFFFF0,$Style)
EndFunc ;==>GUICtrlGetStyle

Func _CtrlGetStyle($hControl_hWnd)
Return _WinAPI_GetWindowLong($hControl_hWnd,0xFFFFFFF0)
EndFunc ;==>GUICtrlGetStyle

Func _RemoveBit($Original_Bits, $_ToRemove)
If BitAND($Original_Bits, $_ToRemove) Then
Return BitXOR($Original_Bits, $_ToRemove)
Else
Return SetExtended(1,$Original_Bits)
EndIf
EndFunc ;==>_RemoveBit

It makes an Edit Control with Default Styles and then Deletes the Scroll Bar style from it.

The Scroll bar disappears but the place would be still colored Blue

Is there Anyway to make the Blue color again White (or the color of the Edit/RichEdit)

Thanks for the Help

Edited August 9, 2012 by PhoenixXL

[UEZ]

Look at _GUIScrollBars_SetScrollInfo() function.

Something like that here:

expandcollapse popup

#include <ScrollBarConstants.au3>
#include <GuiScrollBars.au3>
#include <WinAPI.au3>;~~~
#include <EditConstants.au3>;~~~
#include <WindowsConstants.au3>
$hGUI = GUICreate('');~~~
Local $Edit = GUICtrlCreateEdit('', 10, 10, 200, 120, $ES_AUTOHSCROLL + $ES_AUTOVSCROLL + $ES_WANTRETURN)
Local $_Handle=GUICtrlGetHandle($Edit)
Local $Style=_CtrlGetStyle($_Handle)
;~ ConsoleWrite(_CtrlSetStyle($_Handle,_RemoveBit($Style,BitOR($WS_VSCROLL, $WS_HSCROLL)))&@CR)
_RemoveScrollBars($_Handle)
GUISetState()


Local $iGUIGetMsg
While 1
$iGUIGetMsg = GUIGetMsg()
Switch $iGUIGetMsg
Case -3
ExitLoop
EndSwitch
WEnd

Func _CtrlSetStyle($hControl_hWnd,$Style)
Return _WinAPI_SetWindowLong($hControl_hWnd,0xFFFFFFF0,$Style)
EndFunc ;==>GUICtrlGetStyle

Func _CtrlGetStyle($hControl_hWnd)
Return _WinAPI_GetWindowLong($hControl_hWnd,0xFFFFFFF0)
EndFunc ;==>GUICtrlGetStyle

Func _RemoveBit($Original_Bits, $_ToRemove)
If BitAND($Original_Bits, $_ToRemove) Then
Return BitXOR($Original_Bits, $_ToRemove)
Else
Return SetExtended(1,$Original_Bits)
EndIf
EndFunc ;==>_RemoveBit




Func _RemoveScrollBars($hWnd, $horz = True, $vert = True)
    Local $tSCROLLINFO = DllStructCreate($tagSCROLLINFO)
    DllStructSetData($tSCROLLINFO, "fMask", BitOR($SIF_RANGE, $SIF_PAGE))
    DllStructSetData($tSCROLLINFO, "nMin", 0)
    DllStructSetData($tSCROLLINFO, "nMax", 0)
    DllStructSetData($tSCROLLINFO, "nPage", 0)
    If $vert Then _GUIScrollBars_SetScrollInfo($hWnd, $SB_VERT, $tSCROLLINFO)
    If $horz Then _GUIScrollBars_SetScrollInfo($hWnd, $SB_HORZ, $tSCROLLINFO)
EndFunc   ;==>_Functions_RemoveScrollBars

Br,

UEZ

Edited August 9, 2012 by UEZ

[PhoenixXL]

I guess you are referring to the Redraw parameter

I have tried that but nothing just happens

expandcollapse popup

#include <WinAPI.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GuiScrollBars.au3>
#include <ScrollBarConstants.au3>
$hGUI = GUICreate('')
Local $Edit = GUICtrlCreateEdit('', 10, 10, 200, 120)
Local $_Handle=GUICtrlGetHandle($Edit)
Local $Style=_CtrlGetStyle($_Handle)
ConsoleWrite(_CtrlSetStyle($_Handle,_RemoveBit($Style,BitOR($WS_VSCROLL, $WS_HSCROLL)))&@CR)
_GUIScrollBars_SetScrollInfo($_Handle,Default,Default,1)
GUISetState()

Local $iGUIGetMsg
While 1
$iGUIGetMsg = GUIGetMsg()
Switch $iGUIGetMsg
Case -3
ExitLoop
EndSwitch
WEnd

Func _CtrlSetStyle($hControl_hWnd,$Style)
Return _WinAPI_SetWindowLong($hControl_hWnd,0xFFFFFFF0,$Style)
EndFunc ;==>GUICtrlGetStyle

Func _CtrlGetStyle($hControl_hWnd)
Return _WinAPI_GetWindowLong($hControl_hWnd,0xFFFFFFF0)
EndFunc ;==>GUICtrlGetStyle

Func _RemoveBit($Original_Bits, $_ToRemove)
If BitAND($Original_Bits, $_ToRemove) Then
Return BitXOR($Original_Bits, $_ToRemove)
Else
Return SetExtended(1,$Original_Bits)
EndIf
EndFunc ;==>_RemoveBit

[LarsJ]

Here is a simple solution:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ScrollBarConstants.au3>
#include <GuiScrollBars.au3>
#include <GuiEdit.au3>

Opt( "MustDeclareVars", 1 )
MainProgram()
Func MainProgram()
Local $iLinesPrPage = 10
Local $height = $iLinesPrPage * 13 + 6
Local $hGui = GUICreate( "Edit", 400, $height+20, 500, 200 )
Local $idEdit = GUICtrlCreateEdit( "", 10, 10, 380, $height, $ES_WANTRETURN+$WS_VSCROLL )
Local $hEdit = GUICtrlGetHandle( $idEdit )
_GUIScrollBars_ShowScrollBar($hEdit, $SB_VERT, False)
_GUIScrollBars_ShowScrollBar($hEdit, $SB_HORZ, False)
GUISetState()
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
EndFunc

[PhoenixXL]

Thanks,

both the solution works as required