Need help deleting something in GUI

August 11, 2011

Look at that image below:

Posted Image

I want to delete only what I marked in red so that only what is marked in green will remain.

this is my code:

#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>
;
#region Basic GUI
;
Global $GUIActiveX, $oIE; probably these should be globals so you can delete them later.
$gif = FileOpenDialog("Select Animated Gif", @ScriptDir, "gif files (*.gif)", 3)
$hGui = GUICreate("MyStuff", 300, 300)
WinSetTrans($hGui, "", 160)
GUISetBkColor(0x000000)
;
;   || Label Controls  ||
GUICtrlSetColor(-1, 0xFFFED8)
GUICtrlSetBkColor(-1, 0x000000)
    $oIE = ObjCreate("Shell.Explorer")
    $GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
    $oIE.navigate("about:blank")
    _IELoadWait($oIE)
    $oIE.document.parentWindow.offscreenBuffering = "true"
    $oIE.document.body.style.overflow = "hidden";$oIE.document.body.scroll = "no"
    ;
    ; CSS background reference:  http://www.w3schools.com/css/css_background.asp
    $oIE.document.body.style.background = "#000000 url(" & $gif & ") repeat"
    $oIE.document.body.style.border = "0px";"4px outset"
    GUISetState()
    While 1
        Sleep(100)
    WEnd

What to do?

Thanks.

Edited August 11, 2011 by Guest

wakillon · August 11, 2011

Try

$hGui = GUICreate("MyStuff", 300, 300, -1, -1, BitOR ( $WS_POPUP, $WS_BORDER ) ) ; or BitOR ( $WS_POPUP, $WS_THICKFRAME )

Edited August 11, 2011 by wakillon

August 11, 2011

Thanks!

It worked

August 11, 2011

Now I want to move what I marked in red in the following picture:

Posted Image

To the center ..

How is it done?

wakillon · August 11, 2011

you want a gui with round corner ?

August 11, 2011

you want a gui with round corner ?

yes

wakillon · August 11, 2011

Try this for a round

#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>

#region Basic GUI

Global $GUIActiveX, $oIE; probably these should be globals so you can delete them later.
$gif = FileOpenDialog("Select Animated Gif", @ScriptDir, "gif files (*.gif)", 3)
$hGui = GUICreate("MyStuff", 300, 300, -1, -1, BitOR ( $WS_POPUP, $WS_BORDER ) )
$a = CreateRoundRectRgn(0,0,300,300,300,300)
SetWindowRgn($hGUI,$a)

WinSetTrans($hGui, "", 160)
GUISetBkColor(0x000000)

GUICtrlSetColor(-1, 0xFFFED8)
GUICtrlSetBkColor(-1, 0x000000)
$oIE = ObjCreate("Shell.Explorer")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
$oIE.navigate("about:blank")
_IELoadWait($oIE)
$oIE.document.parentWindow.offscreenBuffering = "true"
$oIE.document.body.style.overflow = "hidden";$oIE.document.body.scroll = "no"
$oIE.document.body.style.background = "#000000 url(" & $gif & ") repeat"
$oIE.document.body.style.border = "0px";"4px outset"
GUISetState()

While 1
    Sleep(100)
WEnd

Func SetWindowRgn($h_win, $rgn)
    DllCall("user32.dll", "long", "SetWindowRgn", "hwnd", $h_win, "long", $rgn, "int", 1)
EndFunc

Func CreatePolyRgn($pt)
    Local $ALTERNATE = 1
    Local $buffer = ""
    $pt = StringSplit($pt,",")
    For $i = 1 to $pt[0]
        $buffer = $buffer & "int;"
    Next
    $buffer = StringTrimRight($buffer,1)
    $lppt = DllStructCreate($buffer)
    For $i = 1 to $pt[0]
        DllStructSetData($lppt,$i,$pt[$i])
    Next
    $ret = DllCall("gdi32.dll","long","CreatePolygonRgn","ptr",DllStructGetPtr($lppt),"int",Int($pt[0] / 2),"int",$ALTERNATE)
    Return $ret[0]
EndFunc

Func CreateRoundRectRgn($l, $t, $w, $h, $e1, $e2)
    $ret = DllCall("gdi32.dll", "long", "CreateRoundRectRgn", "long", $l, "long", $t, "long", $l + $w, "long", $t + $h, "long", $e1, "long", $e2)
    Return $ret[0]
EndFunc

wakillon · August 11, 2011

Change this part

$a = CreateRoundRectRgn ( 0, 0, 300, 200, 300, 300 )

for an oval ! Posted Image

Posted Image

Edited August 11, 2011 by wakillon

August 11, 2011

Now it looks this:

Posted Image

I want to erase what I marked in red.

How is it done?

This new code:

#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>
;
#region Basic GUI
Global $GUIActiveX, $oIE, $size
$size = WinGetClientSize("Program Manager", "")
$gif = "D:\loading.gif"
$hGui = GUICreate("MyStuff", $size[0], $size[1], -1, -1, BitOR ( $WS_POPUP, $WS_BORDER ) ) ; or BitOR ( $WS_POPUP, $WS_THICKFRAME )
WinSetTrans($hGui, "", 160)
GUISetBkColor(0x000000)
GUICtrlSetColor(-1, 0xFFFED8)
GUICtrlSetBkColor(-1, 0x000000)
$oIE = ObjCreate("Shell.Explorer")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
$oIE.navigate("about:blank")
_IELoadWait($oIE)
$oIE.document.parentWindow.offscreenBuffering = "true"
$oIE.document.body.style.overflow = "hidden";$oIE.document.body.scroll = "no"
$oIE.document.body.style.background = "#000000 url(" & "" & ") repeat"
$oIE.document.body.style.border = "1px";"4px outset"
GUISetState()
Sleep(2500)
$hGui02 = GUICreate("MyStuff", 300, 300, -1, -1, BitOR ( $WS_POPUP, $WS_BORDER ) )
GUISetBkColor(0x000000)
GUICtrlSetColor(-1, 0xFFFED8)
GUICtrlSetBkColor(-1, 0x000000)
WinSetTrans($hGui02, "", 115)
WinSetOnTop($hGui02, "", 1)
$oIE = ObjCreate("Shell.Explorer")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
$oIE.navigate("about:blank")
_IELoadWait($oIE)
$oIE.document.parentWindow.offscreenBuffering = "true"
$oIE.document.body.style.overflow = "hidden";$oIE.document.body.scroll = "no"
$oIE.document.body.style.background = "#000000 url(" & $gif & ") repeat"
$oIE.document.body.style.border = "1px";"4px outset"
GUISetState()
Sleep(10000)

wakillon · August 11, 2011

Like this

#include <WindowsConstants.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <EditConstants.au3>
#include <IE.au3>
;
#region Basic GUI
Global $GUIActiveX, $oIE, $size
$size = WinGetClientSize("Program Manager", "")
$gif = "D:\loading.gif"
$hGui = GUICreate("MyStuff", $size[0], $size[1], -1, -1, BitOR ( $WS_POPUP, $WS_BORDER ), -1 , WinGetHandle ( AutoItWinGetTitle ( ) ) )
WinSetTrans($hGui, "", 160)
GUISetBkColor(0x000000)
GUICtrlSetColor(-1, 0xFFFED8)
GUICtrlSetBkColor(-1, 0x000000)
$oIE = ObjCreate("Shell.Explorer")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
$oIE.navigate("about:blank")
_IELoadWait($oIE)
$oIE.document.parentWindow.offscreenBuffering = "true"
$oIE.document.body.style.overflow = "hidden";$oIE.document.body.scroll = "no"
$oIE.document.body.style.background = "#000000 url(" & "" & ") repeat"
$oIE.document.body.style.border = "1px";"4px outset"

GUISetState()
Sleep(2500)
$hGui02 = GUICreate("MyStuff", 300, 300, -1, -1, BitOR ( $WS_POPUP, $WS_BORDER ), -1 , WinGetHandle ( AutoItWinGetTitle ( ) ) )
GUISetBkColor(0x000000)
GUICtrlSetColor(-1, 0xFFFED8)
GUICtrlSetBkColor(-1, 0x000000)
WinSetTrans($hGui02, "", 115)
WinSetOnTop($hGui02, "", 1)
$oIE = ObjCreate("Shell.Explorer")
$GUIActiveX = GUICtrlCreateObj($oIE, 0, 0, 300, 300)
$oIE.navigate("about:blank")
_IELoadWait($oIE)
$oIE.document.parentWindow.offscreenBuffering = "true"
$oIE.document.body.style.overflow = "hidden";$oIE.document.body.scroll = "no"
$oIE.document.body.style.background = "#000000 url(" & $gif & ") repeat"
$oIE.document.body.style.border = "1px";"4px outset"
GUISetState()
Sleep(10000)

August 12, 2011

Thanks!

Now I added more code. In this code and this code:

While statement 1
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p1", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p2", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p3", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p4", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p5", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p6", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p7", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p8", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p9", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p10", "explorer.exe"))
ExitLoop
WEnd
Sleep (1500)

So now the loading screen closeing after the Process Located in the INI loaded..

But there are some problems:

This loading screen a bit heavy and takes some time to load run when windows loads. It is necessary that all this will load faster because it should load first before any other programs that load on windows (it is necessary that this will appear immediately after the wolcome screen)

How is it done?

wakillon · August 12, 2011

Thanks!

Now I added more code. In this code and this code:

While statement 1
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p1", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p2", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p3", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p4", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p5", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p6", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p7", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p8", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p9", "explorer.exe"))
ProcessWait (IniRead (@ WorkingDir & "\ settings.ini", "proseses", "p10", "explorer.exe"))
ExitLoop
WEnd
Sleep (1500)

So now the loading screen closeing after the Process Located in the INI loaded..

But there are some problems:

This loading screen a bit heavy and takes some time to load run when windows loads. It is necessary that all this will load faster because it should load first before any other programs that load on windows (it is necessary that this will appear immediately after the wolcome screen)

How is it done?

Why use a while loop if you put an ExitLoop at the end ? Posted Image

August 12, 2011

oops.

I fixed that mistake already but I forgot to save it

wakillon · August 12, 2011

This loading screen a bit heavy and takes some time to load run when windows loads.

It's only because windows is loading that loading screen take some time.

When do you use this While/ Loop in your script ?

Need help deleting something in GUI

Recommended Posts

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Guest

Link to comment

Share on other sites

Link to comment

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members