thumbnail preview in Gui - picture won't adapt

jlorenz1 · December 23, 2006

I've simplified my problem. This script works and shows my problem. I've a picture with unknown width & height and I want to display a thumbnail of them. In the example and in the attachement I've created two different GIFs - a long one and a bold one. Both should be displayed correctly, but it doesn't work. It adapts only the frame not the pictures.

Has anyone an idea or have found a solution for this basic problem? Thanks Johannes

#include <GUIConstants.au3>
Global $pic1  = 'long45x90.gif'
Global $pic2  = 'bold90x45.gif'
Global $Title = 'Thumbnail-Preview'
Global $i    = 1

GUICreate($Title, 130, 130, -1,-1, -1, $WS_EX_TOPMOST)
$p   = GUICtrlCreatePic (@ScriptDir & '\' & $pic1, 20, 5, 90, 90, -1, $SS_WHITEFRAME )
$b01 = GUICtrlCreateButton('Next', 60, 105, 60, 24)
GUISetState (@SW_SHOW)     

While 1
    $msg = GUIGetMsg()
    
    Select 
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $b01
            If $i = 1 Then
                $i = 2
                $aSize = _GetImageSize(@ScriptDir  & '\' & $pic2)
                GUICtrlSetImage ($p, @ScriptDir  & '\' & $pic2)
                MsgBox(4160, 'Width & Height', 'width = ' & $aSize[0] & '  height = ' & $aSize[1]) 
                ControlMove ($Title, '', $p, 20, 5 +45 - ($aSize[1]/2), $aSize[0] , $aSize[1] )
                
            Else
                $i = 1
                $aSize = _GetImageSize(@ScriptDir & '\' & $pic1)
                GUICtrlSetImage ($p, @ScriptDir & '\' & $pic1)
                MsgBox(4160, 'Width & Height', 'width = ' & $aSize[0] & '  height = ' & $aSize[1]) 
                ControlMove ($Title, '', $p, 20 + 45 - ($aSize[0]/2), 5 , $aSize[0] , $aSize[1] )
            EndIf
    EndSelect
Wend





; These following functions are from Larry and working correctly
; Return Value an Array with  the width and the height of an unknown picture
;===============================================================================
;
; Description:    Return JPEG, TIFF, BMP, PNG and GIF image size.
; Parameter(s):  File name
; Requirement(s):   None
; Return Value(s):  On Success - array with width and height
;                  On Failure empty string and sets @ERROR:
;                      1 - Not valid image or info not found
; Author(s):        YDY (Lazycat) <mpc@nm.ru>
; Version:        1.0.00
; Date:          18.08.2004
; Note(s):        None
;
;===============================================================================



Func _GetImageSize($file)
    Local $header = _FileReadAtOffsetHEX($file, 1, 8); Get header bytes 
    Local $ident = StringSplit("FFD8 424D 89504E470D0A1A 4749463839 4749463837 4D4D 4949", " ")
    Local $size = ""
    For $ic = 1 To $ident[0]
        If StringInStr($header, $ident[$ic]) = 1 Then
            Select
                Case $ic = 1; JPEG
                    $size = _GetJpegSize($file)
                    Exitloop
                Case $ic = 2; BMP
                    $size = _GetSimpleSize($file, 19, 23, 0)
                    Exitloop
                Case $ic = 3; PNG
                    $size = _GetSimpleSize($file, 19, 23, 1)
                    Exitloop
                Case ($ic = 4) or ($ic = 5); GIF
                    $size = _GetSimpleSize($file, 7, 9, 0)
                    Exitloop
                Case ($ic = 6) or ($ic = 7); TIFF
                    $size = _GetTIFFSize($file)
                    Exitloop
            EndSelect
        Endif
    Next
    if not IsArray ($size) Then SetError(1)
    Return($size)
EndFunc

;; Functions

Func _GetSimpleSize($file, $xoff, $yoff, $ByteOrder)
    Local $size[2]
    $size[0] = _Dec(_FileReadAtOffsetHEX($file, $xoff, 2), $ByteOrder)
    $size[1] = _Dec(_FileReadAtOffsetHEX($file, $yoff, 2), $ByteOrder)
    Return ($size)
EndFunc

Func _GetJpegSize($file)
Local $size[2]
Local $fs, $pos = 3

$fs = FileGetSize($file)

While $pos < $fs
    $data = _FileReadAtOffsetHEX ($file, $pos, 4)
    if StringLeft($data, 2) = "FF" then; Valid segment start
        if StringInStr("C0 C2 CA C1 C3 C5 C6 C7 C9 CB CD CE CF", StringMid($data, 3, 2)) then; Segment with size data
           $seg = _FileReadAtOffsetHEX ($file, $pos+5, 4)
           $size[1] = Dec(StringLeft($seg, 4))
           $size[0] = Dec(StringRight($seg, 4))
           Return($size)
        else
           $pos = $pos + Dec(StringRight($data, 4)) + 2
        endif
    else
        exitloop
    endif
Wend
Return("")
EndFunc

Func _GetTIFFSize($file)
Local $pos = 3, $ByteOrder = 0, $size[2]

$id = _FileReadAtOffsetHEX ($file, 1, 2)
If $id = "4D4D" then $ByteOrder = 1

$offset = _Dec(_FileReadAtOffsetHEX($file, 5, 4), $ByteOrder) + 1
$fields = _Dec(_FileReadAtOffsetHEX($file, $offset, 2), $ByteOrder)

For $ic = 0 To $fields-1
    $field = _FileReadAtOffsetHEX($file, $offset + 2 + 12 * $ic, 12)
    $tag = StringLeft($field, 4)
    If $ByteOrder Then $tag = StringRight($tag, 2) & StringLeft($tag, 2)
    Select
        Case $tag = "0001"
            $size[0] = _ParseField($file, $field, $ByteOrder)
        Case $tag = "0101"
            $size[1] = _ParseField($file, $field, $ByteOrder)
    EndSelect
Next
If ($size[0] = 0) or ($size[1] = 0) Then Return("")
Return($size)
Endfunc

;; Parse TIFF fields

Func _ParseField($file, $tag, $ByteOrder)
    Local $type = _Dec(StringMid($tag, 5, 4), $ByteOrder)
    If $type < 5 Then Return (_Dec(StringRight($tag, 8), $ByteOrder))
    Local $count = _Dec(StringMid($tag, 9, 8), $ByteOrder)
    Local $offset = _Dec(StringRight($tag, 8), $ByteOrder)
    Local $tStr = _FileReadAtOffsetHEX ($file, $offset, $count)
    Local $oStr = ""
    While StringLen($tStr) > 0
       $oStr = $oStr & Chr(Dec(StringLeft($tStr, 2)))
       $tStr = StringTrimLeft($tStr, 2)
    WEnd
    Return($oStr)
EndFunc

Func _Dec($input, $ByteOrder)
    If $ByteOrder then Return(Dec($input))
    Local $tStr = ""
    While StringLen($input) > 0
        $tStr = $tStr & StringRight($input, 2)
        $input = StringTrimRight($input, 2)
    WEnd
    Return (Dec($tStr))
EndFunc

Func _FileReadAtOffsetHEX ($file, $offset, $bytes)
    Local $tfile = FileOpen($file, 0)
    Local $tstr = ""
    FileRead($tfile, $offset-1)
    For $i = $offset To $offset + $bytes - 1
        $tstr =  $tstr & Hex(Asc(FileRead($tfile, 1)), 2)
    Next
    FileClose($tfile)
    Return ($tstr)
Endfunc

thumbnail.zip

Edited December 23, 2006 by jlorenz1

GaryFrost · December 23, 2006

Opt("MustDeclareVars", 1)
#include <GUIConstants.au3>
#include <IE.au3>

_Main()

Func _Main()
    Local $pic1 = @ScriptDir & '\long45x90.gif'
    Local $pic2 = @ScriptDir & '\bold90x45.gif'
    Local $Title = 'Thumbnail-Preview'
    Local $i = 1
    Local $pheight = 50, $pwidth = 50, $oIE, $GUIActiveX, $gif, $b01
    $oIE = ObjCreate("Shell.Explorer.2")
    GUICreate("Embedded Web control Test", 130, 130)
    $gif = $pic1
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth, $pheight)
    _SetGifImage($GUIActiveX, $oIE, $gif, 0, 0, $pwidth, $pheight)
    $b01 = GUICtrlCreateButton('Next', 60, 105, 60, 24)
    GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $b01
                If $i = 1 Then
                    $i = 2
                    $gif = $pic2
                Else
                    $i = 1
                    $gif = $pic1
                EndIf
                _SetGifImage($GUIActiveX, $oIE, $gif, 0, 0, $pwidth, $pheight)
        EndSwitch
    WEnd
EndFunc   ;==>_Main

Func _SetGifImage(ByRef $GUIActiveX, ByRef $oIE, ByRef $gif, $x = 0, $y = 0, $pwidth = 50, $pheight = 50)
    GUISetState(@SW_LOCK)
    GUICtrlDelete($GUIActiveX)
    _GetGifPixWidth_Height($gif, $pwidth, $pheight)
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth, $pheight)
    $oIE.navigate ("about:blank")
    While _IEPropertyGet($oIE, "busy")
        Sleep(100)
    WEnd
    $oIE.document.body.background = $gif
    $oIE.document.body.scroll = "no"
    GUISetState(@SW_UNLOCK)
EndFunc   ;==>_SetGifImage

Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight)
    If FileGetSize($s_gif) > 9 Then
        Local $sizes = FileRead($s_gif, 10)
        ConsoleWrite("Gif version: " & StringMid($sizes, 1, 6) & @LF)
        $pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
        $pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
        ConsoleWrite($pwidth & " x " & $pheight & @LF)
    EndIf
EndFunc   ;==>_GetGifPixWidth_Height

jlorenz1 · December 23, 2006

It is really great and it's works correctly, but I must say: The idea of an ActiveX Control is still new for me. In this area I'm a Newbie and your horicont is much, much wider. I have only one question : Is it possible to center all these previews? Because it is more "eye-friendly", if always the pictures are changing in their width and their height., Or is it too much work Johannes :">

GaryFrost · December 23, 2006

It is really great and it's works correctly, but I must say: The idea of an ActiveX Control is still new for me. In this area I'm a Newbie and your horicont is much, much wider. I have only one question : Is it possible to center all these previews? Because it is more "eye-friendly", if always the pictures are changing in their width and their height., Or is it too much work Johannes :">

Should be easy enough for you to change the code to make the way you want.

for example:

Opt("MustDeclareVars", 1)
#include <GUIConstants.au3>
#include <IE.au3>

_Main()

Func _Main()
    Local $pic1 = @ScriptDir & '\long45x90.gif'
    Local $pic2 = @ScriptDir & '\bold90x45.gif'
    Local $Title = 'Thumbnail-Preview'
    Local $i = 1, $win_width = 200, $win_height = 200
    Local $pheight = 50, $pwidth = 50, $oIE, $GUIActiveX, $gif, $b01, $GUI
    $oIE = ObjCreate("Shell.Explorer.2")
    $GUI = GUICreate("Embedded Web control Test", $win_width, $win_height)
    $gif = $pic1
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, $pwidth, $pheight)
    _SetGifImage($GUIActiveX, $oIE, $gif, 0, 0, $pwidth, $pheight, 1, $win_width, $win_height)
    $b01 = GUICtrlCreateButton('Next', 60, 175, 60, 24)
    GUISetState()
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                ExitLoop
            Case $b01
                If $i = 1 Then
                    $i = 2
                    $gif = $pic2
                Else
                    $i = 1
                    $gif = $pic1
                EndIf
                _SetGifImage($GUIActiveX, $oIE, $gif, 0, 0, $pwidth, $pheight, 1, $win_width, $win_height)
        EndSwitch
    WEnd
EndFunc   ;==>_Main

Func _SetGifImage(ByRef $GUIActiveX, ByRef $oIE, ByRef $gif, $x = 0, $y = 0, $pwidth = 50, $pheight = 50, $center = 0, $win_width = 500, $win_height = 500)
    GUISetState(@SW_LOCK)
    GUICtrlDelete($GUIActiveX)
    _GetGifPixWidth_Height($gif, $pwidth, $pheight)
    If $center Then 
        $x = ($win_width/2) - ($pwidth/2)
        $y = ($win_height/2) - ($pheight/2)
    EndIf
    $GUIActiveX = GUICtrlCreateObj($oIE, $x, $y, $pwidth, $pheight)
    $oIE.navigate ("about:blank")
    While _IEPropertyGet($oIE, "busy")
        Sleep(100)
    WEnd
    $oIE.document.body.background = $gif
    $oIE.document.body.scroll = "no"
    GUISetState(@SW_UNLOCK)
EndFunc   ;==>_SetGifImage

Func _GetGifPixWidth_Height($s_gif, ByRef $pwidth, ByRef $pheight)
    If FileGetSize($s_gif) > 9 Then
        Local $sizes = FileRead($s_gif, 10)
        ConsoleWrite("Gif version: " & StringMid($sizes, 1, 6) & @LF)
        $pwidth = Asc(StringMid($sizes, 8, 1)) * 256 + Asc(StringMid($sizes, 7, 1))
        $pheight = Asc(StringMid($sizes, 10, 1)) * 256 + Asc(StringMid($sizes, 9, 1))
        ConsoleWrite($pwidth & " x " & $pheight & @LF)
    EndIf
EndFunc   ;==>_GetGifPixWidth_Height

Sign In

thumbnail preview in Gui - picture won't adapt

Recommended Posts

jlorenz1

Link to comment

Share on other sites

GaryFrost

Link to comment

Share on other sites

jlorenz1

Link to comment

Share on other sites

GaryFrost

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members

Browse

AutoIt Resources

Release

Beta