Sign in to follow this  
Followers 0
emoyasha

grouping of object....

3 posts in this topic

is there any way to group say two picture controls togetehr so when the gui expants they move as 1 control and do not overlap?


Admin Of:http://notmyspace.info [Under Development, looking for volunteers to help improve]http://PSNetCards.co.ukhttp://ZacnAndLindsey.com [Under development, not quite sure what to do with it yet]http://revelm.com------------------------------------Radio Streams:http://75.185.53.88:8000 [128kb/s 44kHz]http://75.185.53.88:8002 [22kb/s 22kHz](works on mobile phones)-----------------------------------My Server:Owned By: http://jumpline.comIP:66.84.19.220Bandwidth:200GBStorage Space:1TBNetwork Connection: 1GB/S[up and down]Operating System: Red Hat LinuxInstalled Apps:Webmail, phpBB, Majordomo, phpMyAdmin, MySQL, Active Server Pages, FrontPage Extensions 2002, GraphicsMagick, Mod Perl, Perl, PHP: Hypertext Preprocessor, Python(want cheap good webhosting, or need a place to park your domain? contact me)-----------------------------------

Share this post


Link to post
Share on other sites

Show your code

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Show your code

[autoit];-----------------

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#include <EditConstants.au3>

#include <ButtonConstants.au3>

#include <inet.au3>

#include <string.au3>

#include <Constants.au3>

#include <Array.au3>

#include <Color.au3>

#include <GDIPlus.au3>

#include <Misc.au3>

#include <GuiTreeView.au3>

#include <TreeViewConstants.au3>

#include <ie.au3>

;------------------

;------------------

$GUIWidth = 320

$guiheight = 698

$red = 0

$green = 100

$blue = 225

Global $MaxChildWindow = 50

Global $iColor[2] = ["0xFFFF00","0x0000FF"], $Label[2], $Button[2]

Dim $ChildWindow[$MaxChildWindow], $ChildSendText[$MaxChildWindow], $ChildSendButton[$MaxChildWindow], $ChildShowText[$MaxChildWindow], $ChildConversation[$MaxChildWindow]

Dim $ChildFileMenu[$MaxChildWindow], $ChildLogOff[$MaxChildWindow], $ChildClose[$MaxChildWindow], $ChildToolsMenu[$MaxChildWindow], $ChildInsertSmiley[$MaxChildWindow], $SmileyWindow[$MaxChildWindow]

Dim $SmileyWindowInsert[$MaxChildWindow][23], $SmileyWindowLabel[$MaxChildWindow][23], $ChildPreviewButton[$MaxChildWindow], $ChildSaveLog[$MaxChildWindow], $Childcom[$MaxChildWindow], $Childform[$MaxChildWindow]

Global $Direction = 0

Global Const $WS_EX_COMPOSITED = 0x2000000

;------------------

;------------------

Opt("TrayMenuMode", 1)

Opt("TrayOnEventMode", 1)

Opt("GUIEventOptions", 1)

Opt("GUICloseOnESC", 1)

;-------------------

;-------------------

SplashImageOn("verified","verified.gif", 285, 70)

;-------------------

;--------------------

$site = "http://notmyspace.info"

$picloc = IniRead("data.dll", "prof", "pic", "")

$usern = IniRead("data.dll", "prof", "login", "UserName")

$passw = IniRead("data.dll", "prof", "pass", "")

$version = IniRead("data.dll", "system", "version", "0.0.1.2")

$welcome = IniRead("data.dll", "system", "welcome", "YourSpace Messenger")

$pass2 = _StringEncrypt(0, $passw, "yourspace")

;--------------------

;--------------------

TrayCreateItem("Show")

TrayItemSetOnEvent(-1, "show")

TrayCreateItem("")

TrayCreateItem("Exit")

TrayItemSetOnEvent(-1, "Terminate")

TraySetToolTip("YourSpace Messenger "&$Version)

TraySetOnEvent($TRAY_EVENT_PRIMARYDOUBLE, "show")

TraySetClick(16)

;--------------------

;--------------------

$ads = _INetGetSource($site&"/messenger/ads.ym")

$adaray = stringsplit($ads, "|")

$countx = UBound($adaray)

$county = Random(1, $countx)

;--------------------

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("YourSpace Messenger", $GUIWidth, $GUIHeight, 277, 174)

GUISetCursor (3)

GUISetBkColor(0x00FFFF)

$Button3 = GUICtrlCreateButton("V", 300, 20, 20, 25, $BS_FLAT)

$Graphic = GUICtrlCreateGraphic (0,0, $GUIWidth, $GUIHeight)

GUICtrlSetState(-1, $GUI_DISABLE)

;=============

GradientFill($Graphic, 0, 0, $GUIWidth, $GUIHeight, _ArrayCreate($blue,$green,$red), _ArrayCreate(255,255,255));

GUICtrlSetGraphic($Graphic,$GUI_GR_REFRESH)

;=============

$Input1 = GUICtrlCreateInput($usern , 58, 294, 209, 21)

$Input2 = GUICtrlCreateInput($pass2 , 58, 320, 209, 21, $ES_PASSWORD)

$Pic2 = GUICtrlCreatePic("frame.gif", 50, 24, 220, 204 )

$Pic3 = GUICtrlCreatePic($picloc, 58, 35, 204, 180)

$Button1 = GUICtrlCreateButton("Sign In", 122, 350, 75, 25, $BS_DEFPUSHBUTTON )

$adr = $adaray[$county]

$wmp = _wmpcreate(1, 10, 510, 300, 180);creates object

GUICtrlSetState($wmp, $GUI_DISABLE)

_wmpvalue( $wmp, "nocontrols" );hides controls

_wmploadmedia( $wmp, $adr);loads media

; -----------------

$File = GUICtrlCreateMenu("&File")

$LogOff = GUICtrlCreateMenuItem("Log Off", $File)

$Info = GUICtrlCreateMenuItem("Info", $File)

$com = GUICtrlCreateMenuItem("Commands", $File)

$form = GUICtrlCreateMenuItem("formating tags", $File)

$sets = GUICtrlCreateMenuItem("change text to speech settings", $File)

GUICtrlCreateMenuItem("", $File)

$Exit = GUICtrlCreateMenuItem("Exit", $File)

$ContactsMenu = GUICtrlCreateMenu("&Contacts")

$AddContact = GUICtrlCreateMenuItem("Add a contact", $ContactsMenu)

$DelContact = GUICtrlCreateMenuItem("Delete a contact", $ContactsMenu)

GUICtrlCreateMenuItem("", $ContactsMenu)

$Import = GUICtrlCreateMenuItem("Import contacts from file", $ContactsMenu)

$Export = GUICtrlCreateMenuItem("Export contacts to file", $ContactsMenu)

For $x = $LogOff To $Export

GUICtrlSetState($x, $GUI_DISABLE)

Next

GUICtrlSetState($Exit, $GUI_ENABLE)

GUICtrlSetState($ContactsMenu, $GUI_ENABLE)

;--------------------

SplashOff()

GUISetState(@SW_SHOW)

#EndRegion ### END Koda GUI section ###

;------------------------

TextEffect($welcome, 0, 0, 17, 17, 1, 1, 0x00ff00, 0xff0000, 25, 25, 1, 1)

;------------------------

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $Exit

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 200, "long", 0x00090000)

Exit

CASE $Button3

$Clr = _ChooseColor(2, 0, 2, $Form1)

$blue = _ColorGetBlue($clr)

$green = _ColorGetGreen($clr)

$red = _ColorGetRed($clr)

GradientFill($Graphic, 0, 0, $GUIWidth, $GUIHeight, _ArrayCreate($blue,$green,$red), _ArrayCreate(255,255,255));

GUICtrlSetGraphic($Graphic,$GUI_GR_REFRESH)

GUICtrlSetBkColor($Button3, $Clr)

Case $GUI_EVENT_CLOSE

exit

Case $Button1

;------------------

GUICtrlSetState($Input1, $GUI_DISABLE)

GUICtrlSetState($Input2, $GUI_DISABLE)

GUICtrlSetState($Button1, $GUI_DISABLE)

;------------------

;------------------

$pass = _MD5(GUICtrlRead($input2))

;------------------

$login = _INetGetSource($site&"/messenger/check2.php?login="&GUICtrlRead($Input1)&"&pass="&$pass&"&act=signin")

$login = StringSplit($login,"\")

if $login[1] = "YES" Then

ExitLoop

Else

msgbox(64, "No", "login unsucessfull")

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 200, "long", 0x00090000)

exit

EndIf

EndSwitch

WEnd

;========================

;MAIN LOOP

;========================

TraySetIcon("show.ico")

$picdl = StringSplit($login[2],".")

inetget($login[2], "pic."&$picdl[3])

IniWrite("data.dll","prof","pic","pic."&$picdl[3])

IniWrite("data.dll","prof","login",GUICtrlRead($Input1))

IniWrite("data.dll","prof","pass",_StringEncrypt(1, GUICtrlRead($Input2), "yourspace"))

SoundPlay("newemail.wma", 1)

$on = _INetGetSource($site&"/messenger/check2.php?login="&GUICtrlRead($Input1)&"&pass="&$pass&"&act=online")

$off = _INetGetSource($site&"/messenger/check2.php?login="&GUICtrlRead($Input1)&"&pass="&$pass&"&act=offline")

GUIDelete()

#Region ### START Koda GUI section ### Form=

$Form1 = GUICreate("YourSpace Messenger", 232, 537, 193, 125)

$TreeView = GUICtrlCreateTreeView(0, 0, 232, 537)

GUICtrlSetOnEvent(-1, "_TreeViewItem_Read")

#EndRegion ### END Koda GUI section ###

displayusers()

GUISetState(@SW_SHOW)

While 1

$nMsg = GUIGetMsg()

Switch $nMsg

Case $GUI_EVENT_CLOSE

$Handle = WinGetHandle("")

If $Handle = $Form1 Then

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form1, "int", 200, "long", 0x00090000)

TraySetIcon("hidden.ico")

GUISetState(@SW_HIDE)

Else

For $y = 0 To $MaxChildWindow - 1

If $Handle = $ChildWindow[$y] Then

GUIDelete($Handle)

$ChildWindow[$y] = ""

$ChildConversation[$y] = ""

EndIf

Next

For $y = 0 To $MaxChildWindow - 1

If $Handle = $SmileyWindow[$y] Then

GUIDelete($Handle)

$SmileyWindow[$y] = ""

EndIf

Next

EndIf

Case $GUI_EVENT_MINIMIZE

$Handle = WinGetHandle("")

If $Handle = $Form1 Then

WinSetState($Form1, "", @SW_MINIMIZE)

Else

For $y = 0 To $MaxChildWindow - 1

If $Handle = $ChildWindow[$y] Then

WinSetState($Handle, "", @SW_MINIMIZE)

EndIf

Next

EndIf

Case $GUI_EVENT_MAXIMIZE, $GUI_EVENT_RESTORE

Switch $nMsg

Case $GUI_EVENT_MAXIMIZE

$s = @SW_MAXIMIZE

Case $GUI_EVENT_RESTORE

$s = @SW_RESTORE

EndSwitch

$Handle = WinGetHandle("")

If $Handle = $Form1 Then

WinSetState($Form1, "", $s)

Else

For $y = 0 To $MaxChildWindow - 1

If $Handle = $ChildWindow[$y] Then

WinSetState($Handle, "", $s)

EndIf

Next

EndIf

EndSwitch

WEnd

Func _wmpcreate($show, $left, $top, $width = 100, $height = 100)

$oWMP = ObjCreate("WMPlayer.OCX")

If $oWMP = 0 Then Return 0

$oWMP.settings.autoStart = "False"

If $show = 1 Then

GUICtrlCreateObj($oWMP, $left, $top, $width, $height)

EndIf

Return $oWMP

EndFunc

Func _wmploadmedia( $object, $URL, $autostart = 1 )

$object.URL = $URL

While Not $object.controls.isAvailable("play")

Sleep(1)

WEnd

If $autostart = 1 Then $object.controls.play()

EndFunc

Func _wmpvalue( $object, $setting, $para=1 )

Select

Case $setting = "play"

If $object.controls.isAvailable("play") Then $object.controls.play()

Case $setting = "stop"

If $object.controls.isAvailable("stop") Then $object.controls.stop()

Case $setting = "pause"

If $object.controls.isAvailable("pause") Then $object.controls.pause()

Case $setting = "invisible"

$object.uiMode = "invisible"

Case $setting = "controls"

$object.uiMode = "mini"

Case $setting = "nocontrols"

$object.uiMode = "none"

Case $setting = "fullscreen"

$object.fullscreen = "true"

Case $setting = "step"

If $object.controls.isAvailable("step") Then $object.controls.step($para)

Case $setting = "fastForward"

If $object.controls.isAvailable("fastForward") Then $object.controls.fastForward()

Case $setting = "fastReverse"

If $object.controls.isAvailable("fastReverse") Then $object.controls.fastReverse()

Case $setting = "volume"

$object.settings.volume = $para

Case $setting = "rate"

$object.settings.rate = $para

Case $setting = "playcount"

$object.settings.playCount = $para

Case $setting = "setposition"

$object.controls.currentPosition = $para

Case $setting = "getposition"

Return $object.controls.currentPosition

Case $setting = "getpositionstring";Returns HH:MM:SS

Return $object.controls.currentPositionString

Case $setting = "getduration"

Return $object.currentMedia.duration

EndSelect

EndFunc

func _MD5($stext)

$s_url = $site&"/messenger/md5.php?text="&$stext

$s_header = ''

Local $h_DLL = DllOpen("wininet.dll")

Local $ai_IRF, $md5 = ''

Local $ai_IO = DllCall($h_DLL, 'int', 'InternetOpen', 'str', "AutoIt v3", 'int', 0, 'int', 0, 'int', 0, 'int', 0)

If @error Or $ai_IO[0] = 0 Then

DllClose($h_DLL)

SetError(1)

Return ""

EndIf

Local $ai_IOU = DllCall($h_DLL, 'int', 'InternetOpenUrl', 'int', $ai_IO[0], 'str', $s_URL, 'str', $s_Header, 'int', StringLen($s_Header), 'int', 0x80000000, 'int', 0)

If @error Or $ai_IOU[0] = 0 Then

DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])

DllClose($h_DLL)

SetError(1)

Return ""

EndIf

Local $v_Struct = DllStructCreate('udword')

DllStructSetData($v_Struct, 1, 1)

While DllStructGetData($v_Struct, 1) <> 0

$ai_IRF = DllCall($h_DLL, 'int', 'InternetReadFile', 'int', $ai_IOU[0], 'str', '', 'int', 256, 'ptr', DllStructGetPtr($v_Struct))

$md5 &= StringLeft($ai_IRF[2], DllStructGetData($v_Struct, 1))

WEnd

DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IOU[0])

DllCall($h_DLL, 'int', 'InternetCloseHandle', 'int', $ai_IO[0])

DllClose($h_DLL)

Return $md5

EndFunc

func _RegisterProtocol($pname,$pcommandloc)

$tkey="HKEY_CLASSES_ROOT\"&$pname

RegWrite($tkey)

sleep(10)

RegWrite($tkey,"","REG_SZ","URL: "&$pname&" protocol")

sleep(10)

RegWrite($tkey,"URL Protocol","REG_SZ","")

sleep(10)

RegWrite($tkey&"\shell")

sleep(10)

RegWrite($tkey&"\shell\open")

sleep(10)

RegWrite($tkey&"\shell\open\command")

sleep(10)

RegWrite($tkey&"\shell\open\command","","REG_SZ",'"'&$pcommandloc&'" %1')

sleep(10)

MsgBox(0,"Fin","protocol "&$pname&": registered.",2)

Exit

EndFunc

Func _SpeakToWAV($sText,$sFile)

$ObjVoice=ObjCreate("Sapi.SpVoice")

$ObjFile=ObjCreate("SAPI.SpFileStream.1")

$objFile.Open($sFile,3)

$objVoice.AudioOutputStream = $objFile

$objVoice.Speak ($sText)

EndFunc

Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ja")

Local Const $FileName = "Translation.jsn"

Local Const $Pattern = '"translatedText":"([^"]+)"'

Local $GoogleURL = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s%%7C%s"

Local $File

$GoogleURL = StringFormat($GoogleURL, $sText, $sFrom, $sTo)

If Not InetGet($GoogleURL, $FileName, 1) Then Return SetError(1, 0, 0)

$File = FileOpen($FileName, 4)

FileGetSize($FileName)

$Translation = FileRead($File, FileGetSize($FileName))

FileClose($File)

FileDelete($FileName)

$Translation = BinaryToString($Translation, 4)

If StringRegExp($Translation , $Pattern) Then

$Translation = StringRegExp($Translation , $Pattern, 1)

$Translation = $Translation[0]

Return $Translation

EndIf

EndFunc

func Terminate()

DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $Form, "int", 200, "long", 0x00090000)

Exit

EndFunc

func show()

TraySetIcon("show.ico")

GUISetState(@SW_SHOW)

EndFunc

Func GradientFill($im, $x1, $y1, $width, $height, $left_color, $right_color)

$color0=($left_color[0]-$right_color[0])/$height

$color1=($left_color[1]-$right_color[1])/$height

$color2=($left_color[2]-$right_color[2])/$height

For $Y=0 to $height

$red=$left_color[0]-floor($Y*$color0)

$green=$left_color[1]-floor($Y*$color1)

$blue=$left_color[2]-floor($Y*$color2)

;Convert RGB to decimal

$col = Dec(Hex($blue,2) & Hex($green,2) & Hex($red,2))

GUICtrlSetGraphic($im,$GUI_GR_COLOR, $col)

GUICtrlSetGraphic($im,$GUI_GR_MOVE,0,$Y)

GUICtrlSetGraphic($im,$GUI_GR_LINE,$GUIWidth,$Y)

Next

EndFunc

Func TextEffect($Text, $Left, $Top, $Fontsize, $Fontspace, $Step, $Delay, $Color, $Color2, $Colorstep, $Colorstep2, $Shadow, $Gradient)

$Color = Colors($Color, $Color2, $Colorstep, $Colorstep2)

$Letters = "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v

"

$letters&=",w,x,y,z,0,1,2,3,4,5,6,7,8,9"

$Let = StringSplit($Letters, ",", 1)

$Len = StringLen($Text)

Local $Control[$Len + 1], $Fontspace2 = 0

For $i = 1 To $Len

$pLeft = (($Left + ($i * $Fontspace)) - $Fontspace2) - $Fontspace

$Control[$i] = GUICtrlCreateLabel("", $pLeft, 0, $Fontspace, $Fontspace * 2)

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUICtrlSetFont(-1, $Fontsize)

$sLeft = StringLeft($Text, $i)

If $i <> 1 Then $sLeft = StringTrimLeft($sLeft, $i - 1)

If $sLeft <> " " Then

For $z = 1 To $Step

GUICtrlSetPos(-1, $pLeft, $z * ($Top / $Step))

$Text2 = $Let[Random(1, UBound($Let) - 1, 1)]

GUICtrlSetData(-1, $Text2)

GUICtrlSetColor(-1, $Color[$z * ($Colorstep / $Step)])

Sleep($Delay)

Next

EndIf

GUICtrlSetData(-1, $sLeft)

If $Gradient = 1 Then

If $i < $Len / 2 Then

GUICtrlSetColor(-1, $Color[$Colorstep - ($i * (($Colorstep / 2) / ($Len / 2)))])

Else

GUICtrlSetColor(-1, $Color[($Colorstep / 2) + (($i - ($Len / 2)) * (($Colorstep / 2) / ($Len / 2)))])

EndIf

EndIf

If $Shadow = 1 Then

GUICtrlCreateLabel($sLeft, $pLeft - 3, $Top + 3, $Fontspace, $Fontspace * 2)

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)

GUICtrlSetColor(-1, $Color[$Step / 1.2])

GUICtrlSetFont(-1, $Fontsize)

GUICtrlSetPos($Control[$i], $pLeft, $Top)

EndIf

If $sLeft = "i" Or $sLeft = "i" Then $Fontspace2 += $Fontspace / 2

If $sLeft = "f" Or $sLeft = "l" Then $Fontspace2 += $Fontspace / 2.5

Next

EndFunc ;==>TextEffect

Func Colors($nStartColor = 0x00FF00, $nEndColor = 0x000000, $Step = 50, $Step2 = 50)

Local $color1R = _ColorGetRed($nStartColor)

Local $color1G = _ColorGetGreen($nStartColor)

Local $color1B = _ColorGetBlue($nStartColor)

Local $nStepR = (_ColorGetRed($nEndColor) - $color1R) / $Step2

Local $nStepG = (_ColorGetGreen($nEndColor) - $color1G) / $Step2

Local $nStepB = (_ColorGetBlue($nEndColor) - $color1B) / $Step2

For $i = 1 To $Step

$sColor = "0x" & StringFormat("%02X%02X%02X", $color1R + $nStepR * $i, $color1G + $nStepG * $i, $color1B + $nStepB * $i)

If $i = 1 Then

$Colors = $sColor

Else

$Colors &= "," & $sColor

EndIf

Next

$Colors = StringSplit($Colors, ",", 1)

Return $Colors

EndFunc ;==>Colors

func _unicodeini($inifile, $section, $key)

$LangFile = FileOpen($inifile, 128)

$inifilec = FileRead($LangFile)

$inisets = StringSplit($inifilec, "~")

$y = UBound($inisets)

$x = 1

while $x < $y

$string = StringSplit($inisets[$x], "]")

$string2 = StringReplace($string[1], "[", "")

$x = $x + 1

$test = StringInStr($string2, $section)

if $test = 0 Then

Else

$inikey = StringSplit($string[2], "=")

$b = UBound($inikey)

$a=1

while $a < $b

$test = StringInStr($inikey[$a], $key)

$a = $a + 1

if $test = 0 Then

Else

return $inikey[$a]

EndIf

WEnd

EndIf

wend

EndFunc

Func _TreeViewItem_Read()

MsgBox(0, "Item Text", GUICtrlRead(@GUI_CtrlId, 1))

EndFunc

Func StartConversation($sUsername)

For $y = 0 To $MaxChildWindow - 1

If $ChildWindow[$y] = "" Then

ExitLoop

ElseIf $y = $MaxChildWindow - 1 Then

Return

EndIf

Next

$ChildWindow[$y] = GUICreate($sUsername & " - Conversation", 528, 420, -1, -1, BitOR($GUI_SS_DEFAULT_GUI, $WS_SIZEBOX, $WS_MAXIMIZEBOX))

$ChildConversation[$y] = $sUsername

GUISetCursor(3, 1)

GUISetFont(10, 400, 0, "Verdana")

$ChildSendText[$y] = GUICtrlCreateEdit("", 5, 338, 420, 55, $ES_WANTRETURN)

GUICtrlSetResizing(-1, $GUI_DOCKLEFT + $GUI_DOCKRIGHT + $GUI_DOCKBOTTOM + $GUI_DOCKHEIGHT)

$ChildShowText[$y] = _IECreateEmbedded()

GUICtrlCreateObj($ChildShowText[$y], 5, 20, 520, 329)

GUICtrlSetResizing(-1, $GUI_DOCKBORDERS)

_IENavigate($ChildShowText[$y], "about:blank")

$ChildSendButton[$y] = GUICtrlCreateButton("Send", 430, 338, 95, 30, 0)

GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)

$ChildPreviewButton[$y] = GUICtrlCreateButton("webcams", 430, 373, 95, 20, 0)

GUICtrlSetResizing(-1, $GUI_DOCKSIZE + $GUI_DOCKBOTTOM)

GUICtrlSetBkColor(-1, 0xFFFFFF)

$ChildFileMenu[$y] = GUICtrlCreateMenu("&File")

$ChildLogOff[$y] = GUICtrlCreateMenuItem("Log Off", $ChildFileMenu[$y])

GUICtrlCreateMenuItem("", $ChildFileMenu[$y])

$ChildClose[$y] = GUICtrlCreateMenuItem("Close", $ChildFileMenu[$y])

$ChildToolsMenu[$y] = GUICtrlCreateMenu("&Tools")

$ChildInsertSmiley[$y] = GUICtrlCreateMenuItem("Insert Smileys", $ChildToolsMenu[$y])

$ChildSaveLog[$y] = GUICtrlCreateMenuItem("Save Chat Log", $ChildToolsMenu[$y])

GUISetState()

GUISetCursor(3, 1)

GUICtrlSetState($ChildSendText[$y], $GUI_FOCUS)

SetExtended($y)

GUISetCursor(3, 1)

EndFunc ;==>StartConversation

func displayusers()

$online = GUICtrlCreateTreeViewItem("online", $treeview)

GUICtrlSetTip(-1, "Online Users")

GUICtrlSetOnEvent(-1, "_TreeViewItem_Read")

GUICtrlSetColor(-1, 0x0000C0)

$offline = GUICtrlCreateTreeViewItem("offline", $treeview)

GUICtrlSetOnEvent(-1, "_TreeViewItem_Read")

GUICtrlSetColor(-1, 0xff0000)

$onlinex = StringSplit($on, " ")

$onliney = UBound($onlinex)

$onliney = $onliney - 1

For $i = 1 To $onliney

$friend = $onlinex[$i]

if $friend = "" Then

elseif $friend = " " Then

elseif $friend = " " Then

elseif $friend = " " Then

elseif $friend = "

Edited by ChildOfGod

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  
Followers 0