Jump to content
Sign in to follow this  
jackraymund

Scroll bar with objects

Recommended Posts

jackraymund

So, i make program like a screenshooter, and i need a (left bar in ss)

like this

http://scr.hu/0rby/k4lig

how can i do this? because i search, and i cant find that

@edit

i found, its richedit but how can i take here a picture?

http://www.autoitscript.com/autoit3/docs/libfunctions/GuiRichEdit%20Management.htm

@edit2

i found how to place here image, but how to disable this?(to dont resize) and jpg

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

Global $hRichEdit, $mnu, $mnuUndo, $mnuRedo, $mnuCut, $mnuCopy
Global $mnuPaste, $mnuPasteSpl, $mnuPasteSplRTF, $mnuPasteSplwObjs,$tagMSGFILTER

Main()

Func Main()
    Local $hGui
    $hGui = GUICreate("Example (" &amp;amp; StringTrimRight(@ScriptName, 4) &amp;amp; ")", 320, 350, -1, -1)
    $hRichEdit = _GUICtrlRichEdit_Create($hGui, "This is a test.", 10, 10, 300, 220, _
    BitOR($ES_MULTILINE, $WS_VSCROLL, $ES_AUTOVSCROLL))
    GUISetState(@SW_SHOW)

    _GUICtrlRichEdit_AppendText($hRichEdit, ReadBmpToRtf(FindFirstBMP()) &amp;amp; @CR)

    While True
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                _GUICtrlRichEdit_Destroy($hRichEdit) ; needed unless script crashes
;~              GUIDelete()     ; is OK too
                Exit
        EndSwitch
    WEnd
EndFunc   ;==>Main

Func ReadBmpToRtf($sBmpFilspc)
    Local $hFile, $sRtf
    $hFile = FileOpen($sBmpFilspc, 16)
    If FileRead($hFile, 2) <> "0x424D" Then Return SetError(1, 0, "")
    FileRead($hFile, 12)
    $sRtf = '{\rtf1{\pict\dibitmap ' &amp;amp; Hex(FileRead($hFile)) &amp;amp; '}}'
    FileClose($hFile)
    Return $sRtf
EndFunc   ;==>ReadBmpToRtf

Func FindFirstBMP($sPath = @WindowsDir)
    Local $hFind, $sBmpFilspc
    $hFind = FileFindFirstFile($sPath &amp;amp; "\*.bmp")
    $sBmpFilspc = FileFindNextFile($hFind)
    FileClose($hFind)
    Return $sPath &amp;amp; "\" &amp;amp; $sBmpFilspc
EndFunc   ;==>FindFirstBMP
Edited by jackraymund

thanks you BrewManNH

Share this post


Link to post
Share on other sites
jackraymund

re


thanks you BrewManNH

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
Sign in to follow this  

×