Scrollable area and resizing
By
mpower, in AutoIt GUI Help and Support
-
Similar Content
-
By therks
I'm trying to create a simple clock widget that automatically scales the text to the size of the window. I came up with the following method, but it doesn't work as well as I'd like. It especially has trouble scaling to the width of the window for some reason (in the example, try resizing the window to be narrow and tall).
Does anyone have a better method?
#include <Misc.au3> #include <WinAPIConv.au3> #include <GUIConstants.au3> #include <GDIPlus.au3> Opt('MustDeclareVars', 1) Global $_FONT_FAMILY = 'Arial', $_LB_TEXT Main() Func Main() _GDIPlus_Startup() Local $hGUI GUIRegisterMsg($WM_SIZE, WM_SIZE) $hGUI = GUICreate('', 300, 100, Default, Default, $WS_OVERLAPPEDWINDOW, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST)) $_LB_TEXT = GUICtrlCreateLabel('This is a string', 0, 0, 300, 100, BitOR($SS_CENTER, $SS_CENTERIMAGE)) GUICtrlSetFont($_LB_TEXT, _MeasureString($hGUI, GUICtrlRead($_LB_TEXT), $_FONT_FAMILY), 0, 0, $_FONT_FAMILY, 5) GUISetState() Local $iGM While 1 $iGM = GUIGetMsg() Switch $iGM Case $GUI_EVENT_CLOSE ExitLoop EndSwitch WEnd _GDIPlus_Shutdown() EndFunc Func WM_SIZE($hWnd, $iMsg, $wParam, $lParam) GUICtrlSetFont($_LB_TEXT, _MeasureString($hWnd, GUICtrlRead($_LB_TEXT), $_FONT_FAMILY), 0, 0, $_FONT_FAMILY, 5) EndFunc Func _MeasureString($hWnd, $sString, $sFont = 'Arial') Local $iError, $aSize, $hGraphic, $hFormat, $hFamily, $tLayout, $iFontSize, $hFont, $aInfo If Not IsHWnd($hWnd) Then $hWnd = GUICtrlGetHandle($hWnd) EndIf $aSize = WinGetClientSize($hWnd) $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hWnd) $hFormat = _GDIPlus_StringFormatCreate() $hFamily = _GDIPlus_FontFamilyCreate($sFont) $tLayout = _GDIPlus_RectFCreate(0, 0, $aSize[0], $aSize[1]) $iFontSize = 0 Do If Not $hFamily Then $iError = 1 $iFontSize = 10 ExitLoop EndIf $iFontSize += 1 $hFont = _GDIPlus_FontCreate($hFamily, $iFontSize, 0) $aInfo = _GDIPlus_GraphicsMeasureString($hGraphic, $sString, $hFont, $tLayout, $hFormat) _GDIPlus_FontDispose($hFont) If $aInfo[1] = 0 Then ExitLoop Until DllStructGetData($aInfo[0], 3) >= $aSize[0] Or DllStructGetData($aInfo[0], 4) >= $aSize[1] $iFontSize -= 1 _GDIPlus_FontFamilyDispose($hFamily) _GDIPlus_StringFormatDispose($hFormat) _GDIPlus_GraphicsDispose($hGraphic) Return SetError($iError, 0, $iFontSize) EndFunc
-
By Ascer
Hello,
Do you have any idea to resize Vector graphic using some maths trick?
It's example to create Vector image 10x10px and write A
Local $a10x10 = [ _ 1,1,1,1,1,1,1,1,1,1, _ 1,1,1,0,0,0,0,1,1,1, _ 1,1,0,0,1,1,0,0,1,1, _ 1,1,0,1,1,1,1,0,1,1, _ 1,1,0,1,1,1,1,0,1,1, _ 1,1,0,0,0,0,0,0,1,1, _ 1,1,0,1,1,1,1,0,1,1, _ 1,1,0,1,1,1,1,0,1,1, _ 1,0,0,0,1,1,0,0,0,1, _ 1,1,1,1,1,1,1,1,1,1 _ ] Local $oVector = ObjCreate("WIA.Vector.1") If Not IsObj($oVector) Then ConsoleWrite("+++ Error " & @error & " durning create a Vector.object." & @CRLF) Exit EndIf Local $iBlue = 0xFF0000FF ; ARGB color Local $iWhite = 0xFFFFFFFF ; adding pixels to vector For $i = 0 To UBound($a10x10) - 1 Local $iPixel = $a10x10[$i] Local $iColor = $iBlue If $iPixel = 0 Then $iColor = $iWhite $oVector.Add($iColor) Next ; create a img 10x10 px Local $oImg = $oVector.ImageFile(10, 10) ; path to file Local $sPath = @ScriptDir & "\Vector.bmp" ; delete previous file if exits. FileDelete($sPath) ; save img to script direction. $oImg.SaveFile($sPath) ; show result, you have to use 800% size to see effects. ShellExecute("Vector.bmp")
-
By CYCho
#include <GUIConstants.au3>
#include <WindowsConstants.au3>
Local $oPlayer, $gVideo, $width, $height
$oPlayer = ObjCreate("WMPlayer.OCX.7")
$oPlayer.URL = 'http://www.clubbalcony.com/upload/culture/yong(2).wmv'
Local $srcFound = True
Local $time1 = TimerInit()
While 1
If $oPlayer.playState() = 3 Then
$width = $oPlayer.currentMedia.imageSourceWidth
$height = $oPlayer.currentMedia.imageSourceHeight
ExitLoop
EndIf
If TimerDiff($time1) > 5000 Then
$srcFound = False
ExitLoop
EndIf
Sleep(50)
WEnd
If Not $srcFound Or $width = 0 Then
$oPlayer.Close()
Exit
Else
$gVideo = GUICreate("Video Control", $width, $height+63, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX), $WS_EX_TOPMOST)
GUICtrlCreateObj($oPlayer, 0, 0, $width, $height+63)
$oPlayer.uiMode = "Full"
$oPlayer.stretchToFit = True
GUISetState(@SW_SHOW, $gVideo)
EndIf
While 1
$Msg = GUIGetMsg(1)
Switch $Msg[0]
Case $GUI_EVENT_CLOSE
ExitLoop
Case $GUI_EVENT_RESIZED
;This is where I want to resize the video image to fit the new window size
EndSwitch
WEnd
$oPlayer.Close()
How should I code the $GUI_EVENT_RESIZED portion to resize the video to fit the resized window? Your help will be greatly appreciated.
-
By slidy56fr
Internet Explorer 11, AutoIt 3.3.14.2
I want to download many files which are published with hyperlink on a web page. I use AutoIt and when there is a few files, it works even if It's on a website with secured links.
I have a script to download link items with the object method (I gave a partial sample), but when the number of link exceed the web page, there is not an auto scroll, then the links which are not on displayed without scroll are not downloaded.
Thank you
From France
EchantillonRecepAnonym.au3
-
By Guy_
Let's say a script has to do something that may or may not shift the page a fair bit in a general DTP program, browser, ...
In other words, the scrollbar was moved.
(1) Can the original scrollbar position be saved and restored?
I can think of a rough workaround or two, but I mean, more precisely...?
(2) If so, is it for example a different control for every program?
(3) Let's say for a workaround you might use the help of ...
MouseWheel ( "direction" [, clicks = 1] ) Is there an absolute relationship of clicks to pixels?
Or does the amount of scroll from these 'clicks' depend on how much movement was defined for the scroll wheel in Windows or Mouse driver software?
Thank You
-