AutoHotkey Community

Code: Select all

;No smooth scroll:
FileRead, mytext, C:\IN.TXT
Gui, Add, Edit, h200 w200, %mytext%  ;This edit control can't smooth-middle-button-drag&scroll text!
Gui, Show
return

Code: Select all

FileSelectFile, OutputVar      ;a very totally useless line of code here... hmm ... or is it now?
FileRead, mytext, C:\IN.TXT
Gui, Add, Edit, h200 w200, %mytext%     ;This edit control MAGICALLY CAN smooth auto-scroll text!!! WTF???
Gui, Show
return

Code: Select all

COM_AtlAxWinInit()
Gui, +Resize +LastFound
Gui, Show, w500 h500
pweb := COM_AtlAxCreateControl( WinExist(), "Shell.Explorer")
COM_Invoke(pweb, "Navigate2", "C:\in.htm" )   ;dispalyed text can be rich htm/html web-page file format not just plain text file
Return

GuiClose:
Gui, Destroy
COM_Release(pweb), COM_AtlAxWinTerm()
ExitApp

Code: Select all

Gui, +Resize +LastFound
Gui, Margin, 0, 0
Gui, Add, ActiveX, w500 h500 vweb, Shell.Explorer
Gui, Show, w500 h500
web.Navigate2("C:\in.htm")
Return

GuiClose:
ExitApp

Code: Select all

Gui, +Resize +LastFound
Gui, Margin, 0, 0
Gui, Add, ActiveX, w500 h500, C:\in.htm
Gui, Show, w500 h500
Return

GuiClose:
ExitApp

Code: Select all

Gui, temp: Add, ActiveX, , Shell.Explorer
Gui, temp: Destroy
FileRead, mytext, C:\IN.TXT
Gui, Add, Edit, h200 w200, %mytext%
Gui, Show
return

Code: Select all

Gui, Reader: +Resize +LastFound
Gui, Reader: Add, ActiveX, x0 y30 w500 h470 vweb, Shell.Explorer
Gui, Reader: Add, Button, x0 y0 w30 h30 gdecfont, f-
Gui, Reader: Add, Button, x30 y0 w30 h30 gincfont, f+
Gui, Reader: Add, Button, x60 y0 w30 h30 gdecspd, s-
Gui, Reader: Add, Button, x90 y0 w30 h30 gincspd, s+
web.Navigate2("C:\in.htm")
Gui, Reader: Show, w500 h500 , Reader
rollspeed:=15
CoordMode, Mouse, Screen
Loop {
	 MouseGetPos, x, y
	 PostMessage, 0x20A, -rollspeed << 16 , y << 16 | x , Internet Explorer_Server1 , Reader ;found an auto-scroll line of code somewhere and paste it here.
	 sleep, 100
	}
return

decfont: ;zoom out
;ControlSend , Internet Explorer_Server1, {Ctrl Down}, Reader
;ControlSend , Internet Explorer_Server1, {WheelDown} , Reader
;ControlSend , Internet Explorer_Server1, {Ctrl Up}, Reader
SendMessage,0x100,0x11,,Internet Explorer_Server1, Reader ; why isn't this line of code working?
PostMessage, 0x115, 1, 0, Internet Explorer_Server1, Reader ;this line seems to do it's job
SendMessage,0x101,0x11,,Internet Explorer_Server1, Reader  ; this line dosen't work also...hmm...what am I missing?
return

incfont: ;zoom in
;ControlSend , Internet Explorer_Server1, {Ctrl Down}, Reader
;ControlSend , Internet Explorer_Server1, {WheelUp} , Reader
;ControlSend , Internet Explorer_Server1, {Ctrl Up}, Reader
SendMessage,0x100,0x11,,Internet Explorer_Server1, Reader 
PostMessage, 0x115, 0, 0, Internet Explorer_Server1, Reader 
SendMessage,0x101,0x11,,Internet Explorer_Server1, Reader 
return

decspd:
rollspeed-=10
return

incspd:
rollspeed+=10
return

ReaderGuiSize:
GuiControl, Move, Internet Explorer_Server1, % "x0 y30 h" . A_GuiHeight . " w" . A_GuiWidth ;This doesn't work. No wonder if i'm programming with copy&paste. Have no idea what I'm doing
return

ReaderGuiClose:
ExitApp