Perforated image in GUI

GreenCan · December 30, 2008

Hey World,

Considering that the last few days before New Year can be spend doing funny things (sometimes we don't have to be serious, right?) What about this one?

You have seen many examples of transparencies and other GUIholes on this forum.

I wrote a variant (of scripts like LogHole or CandleLight) with another (a bit more complex) objective in mind. You can see the result in following attached examples.

Dont be frightened by the long array table in the code. The array contains the coordinates of the perforated image (because thats what it is in fact).

Creating a perforated image by setting up a pattern in an array is nearly impossible, at least you have to be an artist and spend much time on counting the bits, you don't want to do this I guess...

To resolve this problem I wrote a script that scans a B/W image and that will create the code ready for it.

So the thing is done as fast as pasting the code in your GUI script, changing the position of the image, putting the referencial code on the right location and try it out.

Creating a perforated image takes about 30 secs. Creating the (duotone) image will take you more time of course

So what's the use of this? You to decide. Maybe include an original logo in your apps. That's what I do

Let me know what you think

A GreenCan

PS _WinAPI_GetSystemMetrics(4) is used in one of the examples. That's because the transparency is calculated from left upper corner of the frame. As the title bar is a userset of variable heigth, _WinAPI_GetSystemMetrics(4) gives the current height of the title bar (Height of caption).

Example of a window with perforated image

[autoit]#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.12.1

Author: GreenCan

Script Function:

Example of a window with perforated image

#ce ----------------------------------------------------------------------------

#include <GuiConstants.au3>

#include <GUIConstantsEx.au3>

#include <WindowsConstants.au3>

#include <EditConstants.au3>

#include <ButtonConstants.au3>

#include <StaticConstants.au3>

#include <Array.au3>

#include <WinAPI.au3>

$H_GUI = GuiCreate("Cowboy drinks coffee", 400, 250)

GuiCtrlCreateLabel("", 0,0,400,150)

GuiCtrlSetBkColor(-1, 0x000000)

GuiCtrlCreateEdit("I hope You like it" & @CRLF, 10, 160, 150, 70)

GuiCtrlCreateLabel("By GreenCan", 160, 135, 160, 15)

GuiCtrlSetBkColor(-1, 0x000000)

GUICtrlSetColor(-1, 0xFFFFFF) ; White

$OKbtn = GUICtrlCreateButton("Ok", 300, 210, 60, 20, $BS_DEFPUSHBUTTON )

; and the perforated Image !!!!

# ==> Start

Local $_Left_pos, $_Top_pos, $_GUI_NAME

$_Left_pos = 160 ; Replace with correct position

$_Top_pos = 40 + _WinAPI_GetSystemMetrics(4) +6 ; Just below the title bar (Must #include <WinAPI.au3> if using this function!!!)

GuiCtrlCreateLabel("", $_Left_pos - 6 , 40 ,106,84)

GuiCtrlSetBkColor(-1, 0xFF0000)

$_GUI_NAME = $H_GUI ; 'The name of your GUI window'

_GuiImageHole($_GUI_NAME, $_Left_pos, $_Top_pos, 100, 78)

# <== End

GUISetState()

$msg = 0

While $msg <> $GUI_EVENT_CLOSE

$msg = GUIGetMsg()

Select

Case $msg = $OKbtn

Exit

Case $msg = -3 ; escape key pressed so quit

Exit

EndSelect

WEnd

GUIDelete ( $H_GUI )

Exit

#comments-start

The lines below will generate the perforated image (bewteen start and end)

Move these lines into your GUI code, usually just before GUISetState()

Don't forget to fill in the correct coordinates for $Left_pos, $Top_pos

and enter the GUI Window Handle in the last line

# ==> Start

Local $_Left_pos, $_Top_pos, $_GUI_NAME

$_Left_pos = 10 ; Replace with correct position

$_Top_pos = _WinAPI_GetSystemMetrics(4) ; Just below the title bar (Must #include <WinAPI.au3> if using this function!!!)

$_GUI_NAME = 'The name of your GUI window'

_GuiImageHole($_GUI_NAME, $_Left_pos, $_Top_pos, 100, 78)

# <== End

#comments-end

#FUNCTION# ==============================================================

Func _GuiImageHole($window_handle, $pos_x, $pos_y,$Image_Width ,$Image_Height)

Local $aClassList, $aM_Mask, $aMask

#Region picture array

Local $PictArray[182]

$PictArray[0] = '8,1,24,1'

$PictArray[1] = '80,1,97,1'

$PictArray[2] = '7,2,23,2'

$PictArray[3] = '78,2,97,2'

$PictArray[4] = '7,3,23,3'

$PictArray[5] = '77,3,97,3'

$PictArray[6] = '6,4,22,4'

$PictArray[7] = '75,4,97,4'

$PictArray[8] = '6,5,20,5'

$PictArray[9] = '74,5,97,5'

$PictArray[10] = '5,6,19,6'

$PictArray[11] = '72,6,97,6'

$PictArray[12] = '5,7,18,7'

$PictArray[13] = '71,7,97,7'

$PictArray[14] = '5,8,17,8'

$PictArray[15] = '69,8,97,8'

$PictArray[16] = '5,9,17,9'

$PictArray[17] = '69,9,97,9'

$PictArray[18] = '5,10,17,10'

$PictArray[19] = '69,10,91,10'

$PictArray[20] = '5,11,18,11'

$PictArray[21] = '70,11,90,11'

$PictArray[22] = '5,12,18,12'

$PictArray[23] = '70,12,89,12'

$PictArray[24] = '5,13,19,13'

$PictArray[25] = '70,13,89,13'

$PictArray[26] = '5,14,19,14'

$PictArray[27] = '70,14,88,14'

$PictArray[28] = '94,14,97,14'

$PictArray[29] = '5,15,20,15'

$PictArray[30] = '71,15,88,15'

$PictArray[31] = '93,15,97,15'

$PictArray[32] = '5,16,20,16'

$PictArray[33] = '71,16,89,16'

$PictArray[34] = '94,16,97,16'

$PictArray[35] = '5,17,21,17'

$PictArray[36] = '71,17,89,17'

$PictArray[37] = '96,17,97,17'

$PictArray[38] = '5,18,22,18'

$PictArray[39] = '71,18,90,18'

$PictArray[40] = '97,18,97,18'

$PictArray[41] = '5,19,22,19'

$PictArray[42] = '71,19,91,19'

$PictArray[43] = '5,20,22,20'

$PictArray[44] = '71,20,92,20'

$PictArray[45] = '5,21,22,21'

$PictArray[46] = '71,21,93,21'

$PictArray[47] = '5,22,21,22'

$PictArray[48] = '71,22,93,22'

$PictArray[49] = '5,23,21,23'

$PictArray[50] = '71,23,92,23'

$PictArray[51] = '5,24,20,24'

$PictArray[52] = '70,24,90,24'

$PictArray[53] = '5,25,20,25'

$PictArray[54] = '71,25,89,25'

$PictArray[55] = '97,25,97,25'

$PictArray[56] = '5,26,20,26'

$PictArray[57] = '71,26,88,26'

$PictArray[58] = '95,26,97,26'

$PictArray[59] = '5,27,19,27'

$PictArray[60] = '71,27,87,27'

$PictArray[61] = '92,27,97,27'

$PictArray[62] = '5,28,19,28'

$PictArray[63] = '72,28,86,28'

$PictArray[64] = '91,28,97,28'

$PictArray[65] = '5,29,18,29'

$PictArray[66] = '72,29,87,29'

$PictArray[67] = '94,29,97,29'

$PictArray[68] = '5,30,18,30'

$PictArray[69] = '73,30,87,30'

$PictArray[70] = '95,30,97,30'

$PictArray[71] = '5,31,18,31'

$PictArray[72] = '24,31,25,31'

$PictArray[73] = '73,31,89,31'

$PictArray[74] = '96,31,97,31'

$PictArray[75] = '5,32,17,32'

$PictArray[76] = '23,32,26,32'

$PictArray[77] = '74,32,91,32'

$PictArray[78] = '96,32,97,32'

$PictArray[79] = '5,33,16,33'

$PictArray[80] = '22,33,26,33'

$PictArray[81] = '74,33,90,33'

$PictArray[82] = '96,33,97,33'

$PictArray[83] = '5,34,16,34'

$PictArray[84] = '20,34,26,34'

$PictArray[85] = '74,34,89,34'

$PictArray[86] = '96,34,97,34'

$PictArray[87] = '5,35,22,35'

$PictArray[88] = '74,35,87,35'

$PictArray[89] = '95,35,97,35'

$PictArray[90] = '5,36,18,36'

$PictArray[91] = '20,36,21,36'

$PictArray[92] = '69,36,85,36'

$PictArray[93] = '94,36,97,36'

$PictArray[94] = '6,37,17,37'

$PictArray[95] = '70,37,82,37'

$PictArray[96] = '93,37,97,37'

$PictArray[97] = '6,38,17,38'

$PictArray[98] = '69,38,80,38'

$PictArray[99] = '92,38,97,38'

$PictArray[100] = '6,39,16,39'

$PictArray[101] = '69,39,78,39'

$PictArray[102] = '90,39,97,39'

$PictArray[103] = '6,40,16,40'

$PictArray[104] = '70,40,77,40'

$PictArray[105] = '88,40,97,40'

$PictArray[106] = '6,41,16,41'

$PictArray[107] = '70,41,77,41'

$PictArray[108] = '86,41,97,41'

$PictArray[109] = '7,42,14,42'

$PictArray[110] = '69,42,76,42'

$PictArray[111] = '83,42,97,42'

$PictArray[112] = '7,43,13,43'

$PictArray[113] = '68,43,76,43'

$PictArray[114] = '81,43,97,43'

$PictArray[115] = '7,44,12,44'

$PictArray[116] = '68,44,76,44'

$PictArray[117] = '81,44,97,44'

$PictArray[118] = '8,45,11,45'

$PictArray[119] = '67,45,76,45'

$PictArray[120] = '81,45,97,45'

$PictArray[121] = '8,46,11,46'

$PictArray[122] = '66,46,76,46'

$PictArray[123] = '81,46,83,46'

$PictArray[124] = '88,46,97,46'

$PictArray[125] = '9,47,11,47'

$PictArray[126] = '66,47,77,47'

$PictArray[127] = '89,47,97,47'

$PictArray[128] = '9,48,11,48'

$PictArray[129] = '66,48,74,48'

$PictArray[130] = '89,48,97,48'

$PictArray[131] = '10,49,10,49'

$PictArray[132] = '66,49,72,49'

$PictArray[133] = '89,49,97,49'

$PictArray[134] = '66,50,70,50'

$PictArray[135] = '90,50,97,50'

$PictArray[136] = '52,51,52,51'

$PictArray[137] = '65,51,70,51'

$PictArray[138] = '90,51,97,51'

$PictArray[139] = '52,52,56,52'

$PictArray[140] = '58,52,58,52'

$PictArray[141] = '64,52,70,52'

$PictArray[142] = '90,52,97,52'

$PictArray[143] = '53,53,70,53'

$PictArray[144] = '91,53,96,53'

$PictArray[145] = '54,54,69,54'

$PictArray[146] = '90,54,95,54'

$PictArray[147] = '55,55,68,55'

$PictArray[148] = '91,55,94,55'

$PictArray[149] = '55,56,65,56'

$PictArray[150] = '87,56,87,56'

$PictArray[151] = '90,56,94,56'

$PictArray[152] = '55,57,62,57'

$PictArray[153] = '85,57,85,57'

$PictArray[154] = '90,57,93,57'

$PictArray[155] = '55,58,59,58'

$PictArray[156] = '90,58,92,58'

$PictArray[157] = '55,59,58,59'

$PictArray[158] = '89,59,90,59'

$PictArray[159] = '55,60,58,60'

$PictArray[160] = '74,60,75,60'

$PictArray[161] = '89,60,89,60'

$PictArray[162] = '56,61,58,61'

$PictArray[163] = '74,61,75,61'

$PictArray[164] = '87,61,89,61'

$PictArray[165] = '56,62,57,62'

$PictArray[166] = '75,62,75,62'

$PictArray[167] = '84,62,88,62'

$PictArray[168] = '56,63,57,63'

$PictArray[169] = '75,63,76,63'

$PictArray[170] = '81,63,87,63'

$PictArray[171] = '56,64,57,64'

$PictArray[172] = '76,64,85,64'

$PictArray[173] = '56,65,57,65'

$PictArray[174] = '76,65,84,65'

$PictArray[175] = '55,66,56,66'

$PictArray[176] = '76,66,83,66'

$PictArray[177] = '56,67,56,67'

$PictArray[178] = '76,67,81,67'

$PictArray[179] = '77,68,79,68'

$PictArray[180] = '77,69,79,69'

$PictArray[181] = '77,70,77,70'

#EndRegion picture array

; get the size of the active window

$size = WinGetClientSize($window_handle)

$Window_width = $size[0]

$Window_height = $size[1] + 40 ; include height of title bar up to 30 dots

; First hide the window

$aClassList = StringSplit(_WinGetClassListEx($window_handle), @LF)

$aM_Mask = DllCall('gdi32.dll', 'long', 'CreateRectRgn', 'long', 0, 'long', 0, 'long', 0, 'long', 0)

; rectangle A - left side

$aMask = DllCall('gdi32.dll', 'long', 'CreateRectRgn', 'long', 0, 'long', 0, 'long', $pos_x, 'long', $Window_height)