GDI+ Image in a Tab Control

[Damein]

I feel like this should have been answered before but I scoured for about 45 minutes with no success, so I was probably using the wrong search params ^^;

 

Example script of what I tried.

 

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

Opt("GUIOnEventMode", 1)

Global $NavigationBar

_CreateGui()

Func _CreateGUI()
    $MainGUI = GuiCreate("Test GUI", 1000, 500)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")
    GuiSetState()

    $NavigationBar = GuiCtrlCreateTab(20, 10, 960, 480)
    GUICtrlSetOnEvent(-1, "_NavigationCheck")

    $GlossaryTab = GuiCtrlCreateTabItem("Glossary")

    _GDIPlus_Startup()

    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "/Pics/Logo.png")
    $hGraphic = _GDIPlus_GraphicsCreateFromHWND($MainGui)
    _GDIPlus_GraphicsDrawImageRect($hGraphic, $hImage, 80, 200, 800, 200)

    _GDIPlus_Shutdown()

    $Item1Tab = GuiCtrlCreateTabItem("Tab 2")

    GuiCtrlCreateLabel("Test", 200, 200)
EndFunc

Func _NavigationCheck()
    $ReadNavigationBar = GUiCtrlRead($NavigationBar)
    ; Do other stuff if need be later
EndFunc

Func _Exit()
    Exit
EndFunc


While 1
    Sleep(10)
WEnd

 

[UEZ]

I would do it rather this way:

expandcollapse popup

#include <GUIConstantsEx.au3>
#include <GDIPlus.au3>

Opt("GUIOnEventMode", 1)

Global $NavigationBar

_CreateGui()

Func _CreateGUI()

    _GDIPlus_Startup()

    $hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir & "\FF.png") ;<-- your image
    $iWidth = _GDIPlus_ImageGetWidth($hImage)
    $iHeight = _GDIPlus_ImageGetHeight($hImage)
    $hGDIBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    _GDIPlus_ImageDispose($hImage)

    $MainGUI = GuiCreate("Test GUI", 1000, 500)
    GUISetOnEvent($GUI_EVENT_CLOSE, "_Exit")

    $NavigationBar = GuiCtrlCreateTab(20, 10, 960, 480)
    GUICtrlSetOnEvent(-1, "_NavigationCheck")

    $GlossaryTab = GuiCtrlCreateTabItem("Glossary")
    $iPic = GUICtrlCreatePic("", 80, 200, $iWidth, $iHeight)

    $Item1Tab = GuiCtrlCreateTabItem("Tab 2")
    GuiCtrlCreateLabel("Test", 200, 200)

    _WinAPI_DeleteObject(GUICtrlSendMsg($iPic, 0x0172, $IMAGE_BITMAP, $hGDIBitmap)) ;$STM_SETIMAGE = 0x0172
    _WinAPI_DeleteObject($hGDIBitmap)
    _GDIPlus_Shutdown()
    GuiSetState()

EndFunc

Func _NavigationCheck()
    $ReadNavigationBar = GUiCtrlRead($NavigationBar)
    ; Do other stuff if need be later
EndFunc

Func _Exit()
    Exit
EndFunc


While 1
    Sleep(10)
WEnd

 

Otherwise image will be erased when switching the tabs, GUI is minimized/restored again or GUI will be moved partial outside the screen borders.

Edited May 2, 2015 by UEZ