Jump to content
Sign in to follow this  
Rawox

Transparent GUICtrlCreateIcon?

Recommended Posts

Rawox

Hi there,

I'm trying to use transparent icons (5x5) in my GUI.

But for some reason they are not transparent.

I've included an image on which you can see my problem and of course the source code:

#include <GDIPlus.au3>
#include <GuiComboBox.au3>
#include <File.au3>
#include <Array.au3>
#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <ButtonConstants.au3>
Opt ( "MustDeclareVars", 0 )

FileInstall ( "D:\Scripts\Todo Corner\background.png", @TempDir, 1 )
FileInstall ( "D:\Scripts\Todo Corner\grey.gif", @TempDir, 1 )
FileInstall ( "D:\Scripts\Todo Corner\close.ico", @TempDir, 1 )
FileInstall ( "D:\Scripts\Todo Corner\minimize.ico", @TempDir, 1 )

Global Const $AC_SRC_ALPHA = 1
Global Const $Title = "Todo Corner"
Global Const $Version = "1.2"
Global Const $FullTitle = $Title & " " & $Version
Global Const $Author = "Cas Cornelissen"
Global Const $AuthorNick = "Rawox"
Global Const $ReleaseDate = "24-02-2010"

_GDIPlus_Startup()
$pngSrc = @ScriptDir & "\background.png"
$hImage = _GDIPlus_ImageLoadFromFile ( $pngSrc )
$width = _GDIPlus_ImageGetWidth ( $hImage )
$height = _GDIPlus_ImageGetHeight ( $hImage )

$GUI = GUICreate( $FullTitle, $width, $height, -1, -1, $WS_POPUP, $WS_EX_LAYERED)
SetBitmap ( $GUI, $hImage, 255 )
GUIRegisterMsg ( $WM_NCHITTEST, "WM_NCHITTEST" )
GUISetState ( )
WinSetOnTop ( $GUI, "", 1 )

$controlGui = GUICreate ( "Controls", $width, $height, 0, 0, $WS_POPUP, BitOR ( $WS_EX_LAYERED, $WS_EX_MDICHILD ), $GUI )
GUICtrlCreatePic ( @ScriptDir & "\grey.gif", 0, 0, $width, $height )
GUICtrlSetState ( -1, $GUI_DISABLE )
$CloseIcon = GUICtrlCreateIcon ( @ScriptDir & "\close.ico", -1, 20, 20, 5, 5 )
GUICtrlSetBkColor ( $CloseIcon, $GUI_BKCOLOR_TRANSPARENT )
Global Const $NrOfGreyLabels = 5
Global Const $NrOfWhitLabels = 1
Dim $GreyLabel[$NrOfGreyLabels]
Dim $WhitLabel[$NrOfWhitLabels]
$WhitLabel[0] = GUICtrlCreateLabel ( $FullTitle, 24, 23 )
$GreyLabel[0] = GUICtrlCreateLabel ( "Add Item", 34,270 )
$GreyLabel[1] = GUICtrlCreateLabel ( "Clear list", 115,270 )
$GreyLabel[2] = GUICtrlCreateLabel ( "Configuration", 200,270 )
$GreyLabel[3] = GUICtrlCreateLabel ( "About", 315,270 )
$GreyLabel[4] = GUICtrlCreateLabel ( "Quit", 395,270 )
$i = 0
Do
    GUICtrlSetBkColor ( $GreyLabel[$i], $GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetColor ( $GreyLabel[$i], 0x909090 )
    $i += 1
Until $i = $NrOfGreyLabels
$i = 0
Do
    GUICtrlSetBkColor ( $WhitLabel[$i], $GUI_BKCOLOR_TRANSPARENT )
    GUICtrlSetColor ( $WhitLabel[$i], 0xFFFFFF )
    $i += 1
Until $i = $NrOfWhitLabels
GUISetState()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            hideWindow()
    EndSelect
WEnd

Func hideWindow()
    GUISetState ( @SW_HIDE, $controlGui )
    GUISetState ( @SW_HIDE, $GUI )
    Exit
EndFunc

Func exitProg()
    _WinAPI_DeleteObject($hImage)
    _GDIPlus_Shutdown()
    Exit
EndFunc

Func WM_NCHITTEST($hWnd, $iMsg, $iwParam, $ilParam)
    If ($hWnd = $GUI) And ($iMsg = $WM_NCHITTEST) Then Return $HTCAPTION
EndFunc

Func SetBitmap($hGUI, $hImage, $iOpacity)
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend

    $hScrDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate($tagSIZE)
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", _GDIPlus_ImageGetWidth($hImage))
    DllStructSetData($tSize, "Y", _GDIPlus_ImageGetHeight($hImage))
    $tSource = DllStructCreate($tagPOINT)
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate($tagBLENDFUNCTION)
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", $iOpacity)
    DllStructSetData($tBlend, "Format", $AC_SRC_ALPHA)
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteDC($hMemDC)
EndFunc
Edited by Rawox

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.