Button on top of $Pic_1 = GUICtrlCreatePic("icon.gif", 10, 20, 102, 100)

[Robin]

The button on top of ---> $Pic_1 = GUICtrlCreatePic("icon.gif", 10, 20, 102, 100) <---

does not function. Is there a way of telling the button to be on top, so it can function?

If i click on a button without a pic underneath, it works 100%...

[Aceguy]

show us what you have programed so far

[Robin]

show us what you have programed so far

Func booster()

Local $BUTTON_1, $BUTTON_2, $BUTTON_3, $MSG, $var1, $font, $var2, $var3, $var4, $FILENAME, $FIND, $REPLACE, $Retval3, $Lan_adsl

Local $I, $test1, $exists, $check1

$var1 = "Compiled by:"

$var2 = "Me"

$font = "Comic Sans MS"

GUICreate("XP-Booster - V1.00", 290, 150)

Opt("GUICoordMode", 1)

GUICtrlCreateLabel(" Compiled by: Me", 10, 10)

GUICtrlSetColor(-1, 0x3333cc)

;GUISetBkColor(0x000)

TraySetState(2)

;$Pic_1 = GUICtrlCreatePic("icon.gif", 10, 20, 102, 100)<---THIS IS THE PROB

$BUTTON_1 = GUICtrlCreateButton("Speedup PC?", 10, 40, 120)<--- tHIS BUTTON STANDS STILL

$BUTTON_2 = GUICtrlCreateButton("Speedup Internet?", 140, 40, 140)

$BUTTON_3 = GUICtrlCreateButton("Create/Restore Registry...", 80, 90, 140)

$FILENAME = "c:\boot.ini"

$FIND = "optin"

$REPLACE = "Alwaysoff"

$percentMax = 50

$pbLeft = 10

$pbTop = 130

$pbWidth = 270

$pbHeigth = 10

$pb = GUICtrlCreateProgress($pbLeft, $pbTop, $pbWidth, $pbHeigth, BitOR($WS_CLIPSIBLINGS, $PBS_SMOOTH))

GUISetState()

While 1

$MSG = GUIGetMsg()

Select

Case $MSG = $GUI_EVENT_CLOSE

ExitLoop

Case $MSG = $BUTTON_1

If FileExists($FILENAME) = 1 Then

$Retval3 = FileSetAttrib("C:\boot.ini", "-R+A-S-H")

_ReplaceStringInFile($FILENAME, $FIND, $REPLACE)

Else

MsgBox(0, "Booster V1.00", "No Boot.ini or not accessable...Sure this is WIN-XP?")

EndIf

If FileExists($FILENAME) = 1 Then

DirCreate("C:\bstr")

FileInstall("Speed-xp2-xp3.reg", "c:\bstr\Speed-xp2-xp3.reg", 1)

FileInstall("shellnoroam.reg", "c:\bstr\shellnoroam.reg", 1)

$var3 = FileInstall("shell.reg", "c:\bstr\shell.reg", 1)

If $var3 = 1 Then

For $I = 0 To 100 Step 5

$test1 = GUICtrlSetData($pb, $I)

RunWait("regedit /s c:\bstr\Speed-xp2-xp3.reg")

RunWait("regedit /s c:\bstr\shellnoroam.reg")

RunWait("regedit /s c:\bstr\shell.reg")

FileDelete("c:\bstr\*.*")

DirRemove("C:\bstr")

Next

MsgBox(0, "All Done!", "PLEASE RE-START COMPUTER!!", 10)

For $I = 100 To 0 Step -10

$test1 = GUICtrlSetData($pb, $I)

Next

EndIf

EndIf

If FileExists($FILENAME) = 0 Then

$check1 = MsgBox(0x4, "Question", "Do you still want to add the registry settings?")

If $check1 = 6 Then

DirCreate("C:\bstr")

FileInstall("Speed-xp2-xp3.reg", "c:\bstr\Speed-xp2-xp3.reg", 1)

FileInstall("shellnoroam.reg", "c:\bstr\shellnoroam.reg", 1)

$var3 = FileInstall("shell.reg", "c:\bstr\shell.reg", 1)

If $var3 = 1 Then

For $I = 0 To 100 Step 5

$test1 = GUICtrlSetData($pb, $I)

;GUICtrlSetColor(-1, 32250)

RunWait("regedit /s c:\bstr\Speed-xp2-xp3.reg")

RunWait("regedit /s c:\bstr\shellnoroam.reg")

RunWait("regedit /s c:\bstr\shell.reg")

FileDelete("c:\bstr\*.*")

DirRemove("C:\bstr")

Next

MsgBox(0, "All Done!", "PLEASE RE-START COMPUTER!!", 10)

For $I = 100 To 0 Step -10

$test1 = GUICtrlSetData($pb, $I)

Sleep(100)

Next

EndIf

Else

MsgBox(0, "Abort", "Aborting...", 1)

EndIf

EndIf

its not the whole code, but will give u an idea.

Basicly, any button thats on top of a bitmap/graphic doesnt buldge at all

Edited March 27, 2009 by Robin

[Robin]

Func booster()

Local $BUTTON_1, $BUTTON_2, $BUTTON_3, $MSG, $var1, $font, $var2, $var3, $var4, $FILENAME, $FIND, $REPLACE, $Retval3, $Lan_adsl

Local $I, $test1, $exists, $check1

$var1 = "Compiled by:"

$var2 = "Me"

$font = "Comic Sans MS"

GUICreate("XP-Booster - V1.00", 290, 150)

Opt("GUICoordMode", 1)

GUICtrlCreateLabel(" Compiled by: Me", 10, 10)

GUICtrlSetColor(-1, 0x3333cc)

;GUISetBkColor(0x000)

TraySetState(2)

;$Pic_1 = GUICtrlCreatePic("icon.gif", 10, 20, 102, 100)<---THIS IS THE PROB

$BUTTON_1 = GUICtrlCreateButton("Speedup PC?", 10, 40, 120)<--- tHIS BUTTON STANDS STILL

$BUTTON_2 = GUICtrlCreateButton("Speedup Internet?", 140, 40, 140)

$BUTTON_3 = GUICtrlCreateButton("Create/Restore Registry...", 80, 90, 140)

$FILENAME = "c:\boot.ini"

$FIND = "optin"

$REPLACE = "Alwaysoff"

$percentMax = 50

$pbLeft = 10

$pbTop = 130

$pbWidth = 270

$pbHeigth = 10

$pb = GUICtrlCreateProgress($pbLeft, $pbTop, $pbWidth, $pbHeigth, BitOR($WS_CLIPSIBLINGS, $PBS_SMOOTH))

GUISetState()

While 1

$MSG = GUIGetMsg()

Select

Case $MSG = $GUI_EVENT_CLOSE

ExitLoop

Case $MSG = $BUTTON_1

If FileExists($FILENAME) = 1 Then

$Retval3 = FileSetAttrib("C:\boot.ini", "-R+A-S-H")

_ReplaceStringInFile($FILENAME, $FIND, $REPLACE)

Else

MsgBox(0, "Booster V1.00", "No Boot.ini or not accessable...Sure this is WIN-XP?")

EndIf

If FileExists($FILENAME) = 1 Then

DirCreate("C:\bstr")

FileInstall("Speed-xp2-xp3.reg", "c:\bstr\Speed-xp2-xp3.reg", 1)

FileInstall("shellnoroam.reg", "c:\bstr\shellnoroam.reg", 1)

$var3 = FileInstall("shell.reg", "c:\bstr\shell.reg", 1)

If $var3 = 1 Then

For $I = 0 To 100 Step 5

$test1 = GUICtrlSetData($pb, $I)

RunWait("regedit /s c:\bstr\Speed-xp2-xp3.reg")

RunWait("regedit /s c:\bstr\shellnoroam.reg")

RunWait("regedit /s c:\bstr\shell.reg")

FileDelete("c:\bstr\*.*")

DirRemove("C:\bstr")

Next

MsgBox(0, "All Done!", "PLEASE RE-START COMPUTER!!", 10)

For $I = 100 To 0 Step -10

$test1 = GUICtrlSetData($pb, $I)

Next

EndIf

EndIf

If FileExists($FILENAME) = 0 Then

$check1 = MsgBox(0x4, "Question", "Do you still want to add the registry settings?")

If $check1 = 6 Then

DirCreate("C:\bstr")

FileInstall("Speed-xp2-xp3.reg", "c:\bstr\Speed-xp2-xp3.reg", 1)

FileInstall("shellnoroam.reg", "c:\bstr\shellnoroam.reg", 1)

$var3 = FileInstall("shell.reg", "c:\bstr\shell.reg", 1)

If $var3 = 1 Then

For $I = 0 To 100 Step 5

$test1 = GUICtrlSetData($pb, $I)

;GUICtrlSetColor(-1, 32250)

RunWait("regedit /s c:\bstr\Speed-xp2-xp3.reg")

RunWait("regedit /s c:\bstr\shellnoroam.reg")

RunWait("regedit /s c:\bstr\shell.reg")

FileDelete("c:\bstr\*.*")

DirRemove("C:\bstr")

Next

MsgBox(0, "All Done!", "PLEASE RE-START COMPUTER!!", 10)

For $I = 100 To 0 Step -10

$test1 = GUICtrlSetData($pb, $I)

Sleep(100)

Next

EndIf

Else

MsgBox(0, "Abort", "Aborting...", 1)

EndIf

EndIf

its not the whole code, but will give u an idea.

Basicly, any button thats on top of a bitmap/graphic doesnt buldge at all

Anyone?

Please note, this aint the full script...im just trying to point out where i get the hassle

tia

[Melba23]

Robin,

1. Bumping yourself...and copying your own code again. :-( Please use the "Add Reply" button, not "Reply" (it is only 1cm below!)

2. Please use code tags. Put [code ] before and [/code ] after the code in your post (omit the trailing spaces - they are only there so the tags display).

3. And finally, from that ever useful help file:

"If a picture is set as a background picture, as the other controls will overlap, it's important to disable the pic control and create it after the others controls: GuiCtrlSetState(-1,$GUI_DISABLE). "

M23

[TerarinK]

TraySetState(2)
    $Pic_1 = GUICtrlCreatePic("icon.gif", 10, 12, 640, 512) ;<---THIS IS THE PROB

    $BUTTON_1 = GUICtrlCreateButton("Speedup PC?", 10, 40, 120) ;< - - - tHIS BUTTON STANDS STILL

remember you are suppose to put the x and y along with the dimension on the full picture.

Edited March 28, 2009 by TerarinK

[Robin]

Thanks guys...