TPaul81 Posted February 14, 2008 Share Posted February 14, 2008 (edited) Myspace Profile Editor v.1.2.2 (Code ReVised)Functions:Choose:Background imageContact Box imageExtended Network image (new 1.2)Background ColorText ColorBorder ColorScrollbar Colors (new 1.2)Generates textfile with the html code and instructions included.Extra Options:Hide FriendsHide CommentsCenter ProfileTo Do:Upload image to (free) imagehosting through GUIOptions for headers and scrollbarsCreate full previewFixed:1.2.0: Color Selection works with GUI (thanks to Bert for pointing out _choosecolor function and conditional state for saving file with extension)1.2.1: Sample Colors button was removed. Colors are previewed immediately after selection. Thanks to JamesB for the idea and gesller for pointing out bits and bytes of other codes.1.2.2: Sample Colors triggers didnt work as expected and selected colors werent outputed. Fixed that in 1.2.2Code and Attachment updated!expandcollapse popup#Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_icon=myspace.ico #AutoIt3Wrapper_outfile=MyspaceProfileEditor.exe #AutoIt3Wrapper_Compression=4 #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> #Include <Misc.au3> Opt("TrayIconHide", 1) dim $bT_BG dim $bT_T1 dim $bT_T2 dim $text_color1 dim $text_color2 dim $background_color dim $Gt_Bg_Color dim $gt_T1_Color dim $gt_T2_Color dim $sample_bg Dim $sample_T1 Dim $sample_T2 GUICreate("MySpace Layout Editor", 480, 640, 50, 50) $background_setup_url = GUICtrlCreateInput("Background image URL", 10, 10, 455, 20) $contact_box_url = GUICtrlCreateInput("Contact Box image URL", 10, 40, 455, 20) $extended_url = GUICtrlCreateInput("Extended Network image URL", 10, 70, 455, 20) $bT_T1 = GUICtrlCreateButton("Select Text 1 color", 10, 130, 455, 20) $bT_T2 = GUICtrlCreateButton("Select Text 2 color", 10, 160, 455, 20) $bT_BG = GUICtrlCreateButton("Select Background color", 10, 190, 455, 20) $Colors = GUICtrlCreateLabel("Colors Preview", 10, 220, 455, 20) $scrollbars = GUICtrlCreateCheckbox("Use defined colors for scrollbars", 10, 310) $hidefriends = GUICtrlCreateCheckbox("Hide friends", 10, 340) $hidecomments = GUICtrlCreateCheckbox("Hide comments", 10, 370) $centerprofile = GUICtrlCreateCheckbox("Center Profile", 10, 400) $addinstructions = GUICtrlCreateCheckbox("Add instructions to the final layout textfile", 10, 430) $bT_Output = GUICtrlCreateButton("Output Profile Code as textfile", 10, 460, 455, 20) GUISetState() Func Color_T1() $gt_T1_Color = _ChooseColor (2,0,2) $sample_T1=0 EndFunc Func Color_T2() $gt_T2_Color = _ChooseColor (2,0,2) $sample_T2=0 EndFunc Func Color_BG() $Gt_Bg_Color = _ChooseColor (2,0,2) $sample_bg=0 EndFunc Func SaveLayout() $filename = FileSaveDialog("Choose a name for your layout:", @WorkingDir, "Textfile layout code (*.txt)", 2) If @error Then MsgBox(0, "", "Save cancelled. Please set your selections again.") Else If StringRight ($filename, 4) <> ".txt" Then $filename &= ".txt" EndIf $file = FileOpen($filename, 1) ;Set Colors for html use, trims out 0x $Gt_Bg_Color = StringRight($Gt_Bg_Color,6) $gt_T1_Color = StringRight($gt_T1_Color,6) $gt_T2_Color = StringRight($gt_T2_Color,6) ;Get Images URLs $gt_bg_url = GUICtrlRead($background_setup_url) $gt_cb_url = GUICtrlRead($contact_box_url) $gt_extended = GUICtrlRead($extended_url) ;Get other options $gt_scrollbars = GUICtrlRead($scrollbars) $gt_hidefriends = GUICtrlRead($hidefriends) $gt_hidecomments = GUICtrlRead($hidecomments) $gt_centerprofile = GUICtrlRead($centerprofile) $gt_addinstructions = GUICtrlRead($addinstructions) $addinstructions_setup = "<!-- Please follow the instructions for your profile layout installation. 1. Delete all previously installed codes in your profile 2. Paste the following code as it appears 3. Save the profile layout 4. View your profile and refresh by hitting CTRL+F5-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & @CRLF $contact_box = "<!--Place the code after this in the About Me section-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<!--Contact Box Code-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & "> .contactTable { width:300px !important; height:150px !important; background-image:url(" & Chr(34) & $gt_cb_url & Chr(34) & "); background-repeat:no-repeat; background-color:transparent; background-attachment:scroll; background-position:center center; padding:0px !important;} .contactTable table, table.contactTable td { background-color:transparent; background-image:none; padding:0px !important;} .contactTable a img {visibility:hidden; border:0px !important;} .contactTable .text {font-size:1px !important;} </style>" & @CRLF & @CRLF $extended_setup = "<!--Extended Network Image-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "table table table td {vertical-align:top ! important;}" & @CRLF & "span.blacktext12 {" & @CRLF & "visibility:visible !important;" & @CRLF & "background-color:transparent;" & @CRLF &"background-image:url(" & Chr(34) & $gt_extended & Chr(34) & ");" & @CRLF & "background-repeat:no-repeat;" & @CRLF & "background-position:center center;" & @CRLF & "width:435px; height:75px; display:block !important;" & @CRLF & "font-size:0.0em; letter-spacing:-5px;}" & @CRLF & "span.blacktext12 span," & @CRLF & "span.blacktext12 img {display:none;}" & @CRLF & "</style>" & @CRLF $background_setup = "<!--Background Image-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<STYLE type=text/css>table, td {background-color:transparent;border:solid;border-width:0}</STYLE>" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "body{background-color:" & $Gt_Bg_Color & ";" & @CRLF & "background-image:url(" & $gt_bg_url & ") !important;" & @CRLF & "background-attachment:fixed;" & @CRLF & "background-repeat: no-repeat;" & @CRLF & "background-position: bottom center;}" & @CRLF & "</style>" & @CRLF & @CRLF $text_setup = "<!--Colors codes-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<STYLE type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "table, td {background-color:transparent;" & @CRLF & "border:none;border-width:5;}" & @CRLF & "</STYLE>" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "td, table {color: " & $gt_T1_Color & "}" & @CRLF & ".whitetext12 {display:none}" & @CRLF & ".lightbluetext8 {display:none}" & @CRLF & ".blacktext12 {display:none}" & @CRLF & ".btext {display:none}" & @CRLF & ".blacktext10 {display:none}" & @CRLF & ".text {color: " & $gt_T2_Color & "}" & @CRLF & ".orangetext15 {display:none}" & @CRLF & ".nametext {color: " & $gt_T2_Color & "}" & @CRLF & ".redbtext{display:none}" & @CRLF & "A:link, A:visited, A:active, A:hover, a.navbar, a.navbar:link, a.navbar:active, a.navbar:visited, a.navbar:hover, a.redlink:link, a.redlink:active, a.redlink:visited, a.redlink:hover, a.searchlinksmall, a.searchlinksmall:link, a.searchlinksmall:active, " & @CRLF & "a.searchlinksmall:visited, " & @CRLF & "a.searchlinksmall:hover{color:" & $gt_T1_Color & "}" & @CRLF & ".navigationbar{display:none}" & @CRLF & "</style>" & @CRLF & @CRLF $scrollbars_setup = "<!--Scrollbar codes-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "body { " & @CRLF & "scrollbar-face-color:" & $gt_T2_Color & ";" & @CRLF & "scrollbar-highlight-color:" & $gt_T1_Color & ";" & @CRLF & "scrollbar-3dlight-color:" & $gt_T2_Color & ";" & @CRLF & "scrollbar-shadow-color:" & $Gt_Bg_Color & ";" & @CRLF & "scrollbar-darkshadow-color:" & $gt_T2_Color & ";" & @CRLF & "scrollbar-arrow-color:" & $gt_T1_Color & ";" & @CRLF & "scrollbar-track-color:" & $gt_T1_Color & "; " & @CRLF & "}" & @CRLF & "</style>" & @CRLF $hidefriends_setup = "<!--Hide Friends-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "td.text td.text table table table, td.text td.text table br, td.text td.text table .orangetext15, td.text td.text .redlink, td.text td.text span.btext {display:none;}" & @CRLF & "td.text td.text table {background-color:transparent;}" & @CRLF & "td.text td.text table td, td.text td.text table {height:0;padding:0;border:0;}" & @CRLF & "td.text td.text table table td {padding:3;}" & @CRLF & "td.text td.text table table br {display:inline;}" & @CRLF & "</style>" & @CRLF $centerprofile_setup = "<!--Center Profile-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "table table table table table {direction:rtl;}" & @CRLF & "table table table table table td {direction:ltr;}" & @CRLF & "</style>" & @CRLF $hidecomments_setup = "<!--Place this in the Id Like to meet section-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<!--Hide Comments-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<div style=" & Chr(34) & "position:relative; height:400px; overflow:hidden; border:0px;" & Chr(34) & "><table><tr><td><table><tr><td>" If $gt_addinstructions = "1" Then FileWriteLine($file, $addinstructions_setup) EndIf If $gt_cb_url<> "Contact Box image URL" Then FileWriteLine($file, $contact_box) EndIf If $gt_bg_url<> "Background image URL" Then FileWriteLine($file, $background_setup) EndIf If $gt_extended<> "Extended Network image URL" Then FileWriteLine($file, $extended_setup) EndIf If $sample_bg=1 and $sample_T1=1 and $sample_T2=1 Then FileWriteLine($file, $text_setup) EndIf ;Checks for additional options If $gt_hidefriends = "1" Then FileWriteLine($file, $hidefriends_setup) EndIf If $gt_centerprofile = "1" Then FileWriteLine($file, $centerprofile_setup) EndIf If $gt_scrollbars = "1" Then FileWriteLine($file, $scrollbars_setup) EndIf If $gt_hidecomments = "1" Then FileWriteLine($file, $hidecomments_setup) EndIf FileClose($file) ShellExecute($filename) EndIf EndFunc;==>SaveLayout While 1 If $Gt_Bg_Color<>0 And $sample_bg<>1 Then $background_color_sample = GUICtrlCreateGraphic(10, 250, 40, 40) GUICtrlSetBkColor($background_color_sample, $Gt_Bg_Color) GUICtrlCreateLabel("Background", 60, 270, 60, 20) GUICtrlSetColor(-1, $Gt_Bg_Color) $sample_bg=1 EndIf If $gt_T1_Color<>0 And $sample_T1<>1 Then $text1_color_sample = GUICtrlCreateGraphic(130, 250, 40, 40) GUICtrlSetBkColor($text1_color_sample, $gt_T1_Color) GUICtrlCreateLabel("Text 1", 180, 270, 60, 20) GUICtrlSetColor(-1, $gt_T1_Color) $sample_T1=1 EndIf If $gt_T2_Color<>0 And $sample_T2<>1 Then $text2_color_sample = GUICtrlCreateGraphic(250, 250, 40, 40) GUICtrlSetBkColor($text2_color_sample, $gt_T2_Color) GUICtrlCreateLabel("Text 2", 300, 270, 60, 20) GUICtrlSetColor(-1, $gt_T2_Color) $sample_T2=1 EndIf $msg = GUIGetMsg() Select Case $msg = $bT_T1 Call("Color_T1") Case $msg = $bT_T2 Call("Color_T2") Case $msg = $bT_BG Call("Color_BG") Case $msg = $bT_Output Call("SaveLayout") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEndScreenshot:myspace_profile_122.au3 Edited February 26, 2008 by TPaul81 My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
gseller Posted February 14, 2008 Share Posted February 14, 2008 Awesome! Lots of potential here.. It didn't save the file as a txt file, it did not have an ext but have no time to look at the code. I have to go to work.. Nice start! Thanks for sharing... Link to comment Share on other sites More sharing options...
BrettF Posted February 14, 2008 Share Posted February 14, 2008 A great thing to have would be a colour picker for those who can't remember hex codes that well... #Include <Misc.au3> _ChooseColor([$iReturnType = 0[, $iColorRef = 0[, $iRefType = 0[, $hWndOwnder = 0]]]]) This does have great potentail though. Also, add this on line 47 (or there bouts, just after the else... If StringRight ($filename, 4) <> ".txt" Then $filename &= ".txt" EndIf Great Job! Also, I noticed you used Call (), you can just go SaveLayout () instead of you current implemntation. Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
TPaul81 Posted February 14, 2008 Author Share Posted February 14, 2008 Thank you guys for your kind words. Im planning to improve it a bit and add on some more stuff, e.g. flash header codes, etc. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
James Posted February 14, 2008 Share Posted February 14, 2008 Very nice! Maybe make a bit more functions. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 Minor modifications. See post #1. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
James Posted February 15, 2008 Share Posted February 15, 2008 How about notification of the colour that the user selected? Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
BrettF Posted February 15, 2008 Share Posted February 15, 2008 What I would love to see implemented in this is like, WYSIWYG, but mostly that is impossible. Meh. How bout a preview page? That would be cool I like the additions, but maybe you should have those boxes that are featured down the bottom, where the buttons are, and instead of the buttons, just sent the even when you click on the label control. Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 What I would love to see implemented in this is like, WYSIWYG, but mostly that is impossible.Impossible probably not, way out of my league for sure. How bout a preview page? That would be coolWorking on that. The hardest part is the javascripts myspace is using to to perform some functions. They have an impact on the way the profile looks. Im trying to make sort of a static webpage of a profile that could be used as a profile preview. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 How about notification of the colour that the user selected?I dont quite understand what do you mean by "notification". You can use the "Sample Colors" button to see what you chose. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 Added options for scrollbars' colors and custom network image. Also if an image url is blank, it wont add that part of the code in the generated textfile anymore. Please Note: The generated profile layout has lots of transparencies, cause that was the original html code I liked and based my editor. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 Someone rate my script? Please? My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
BrettF Posted February 15, 2008 Share Posted February 15, 2008 Uh, uh, uh... Slow down there mate... Many people are sleeping at this hour. It's still looking good and its still there! No need to bump 10mins after an update... Vist my blog!UDFs: Opens The Default Mail Client | _LoginBox | Convert Reg to AU3 | BASS.au3 (BASS.dll) (Includes various BASS Libraries) | MultiLang.au3 (Multi-Language GUIs!)Example Scripts: Computer Info Telnet Server | "Secure" HTTP Server (Based on Manadar's Server)Software: AAMP- Advanced AutoIt Media Player | WorldCam | AYTU - Youtube Uploader Tutorials: Learning to Script with AutoIt V3Projects (Hardware + AutoIt): ArduinoUseful Links: AutoIt 1-2-3 | The AutoIt Downloads Section: | SciTE4AutoIt3 Full Version! Link to comment Share on other sites More sharing options...
gseller Posted February 15, 2008 Share Posted February 15, 2008 Morning All! Hey, This always makes input elements look good and professional I think. I added it to a version of your script I have.. Link to comment Share on other sites More sharing options...
James Posted February 15, 2008 Share Posted February 15, 2008 Well when you select the colour, then you there should be a box which is coloured the same, Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 Morning All! Hey, This always makes input elements look good and professional I think. I added it to a version of your script I have..Be so kind and share the modified code? I dont see a way to implement it ( = still a noob, I know, but do give me a break). My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
gseller Posted February 15, 2008 Share Posted February 15, 2008 (edited) Well, Here is where I am so far. Kinda messy and all I have is the choose a color and calls the sample colors, have not been able to tie the color selection to the sample color or the code that is written. But since you asked.. LOL Here it is..edited: put in working code from TPaul81expandcollapse popup#Region;**** Directives created by AutoIt3Wrapper_GUI **** #AutoIt3Wrapper_outfile=MyspaceProfileEditor.exe #EndRegion;**** Directives created by AutoIt3Wrapper_GUI **** #include <GUIConstants.au3> #Include <Misc.au3> Opt("TrayIconHide", 1) dim $bT_BG dim $bT_T1 dim $bT_T2 dim $text_color1 dim $text_color2 dim $background_color dim $Gt_Bg_Color dim $gt_T1_Color dim $gt_T2_Color dim $sample_bg Dim $sample_T1 Dim $sample_T2 GUICreate("MySpace Layout Editor", 480, 640, 50, 50) $background_setup_url = GUICtrlCreateInput("Background image URL", 10, 10, 455, 20) $contact_box_url = GUICtrlCreateInput("Contact Box image URL", 10, 40, 455, 20) $extended_url = GUICtrlCreateInput("Extended Network image URL", 10, 70, 455, 20) $bT_T1 = GUICtrlCreateButton("Select Text 1 color", 10, 130, 455, 20) $bT_T2 = GUICtrlCreateButton("Select Text 2 color", 10, 160, 455, 20) $bT_BG = GUICtrlCreateButton("Select Background color", 10, 190, 455, 20) $Colors = GUICtrlCreateLabel("Colors Preview", 10, 220, 455, 20) $scrollbars = GUICtrlCreateCheckbox("Use defined colors for scrollbars", 10, 310) $hidefriends = GUICtrlCreateCheckbox("Hide friends", 10, 340) $hidecomments = GUICtrlCreateCheckbox("Hide comments", 10, 370) $centerprofile = GUICtrlCreateCheckbox("Center Profile", 10, 400) $addinstructions = GUICtrlCreateCheckbox("Add instructions to the final layout textfile", 10, 430) $bT_Output = GUICtrlCreateButton("Output Profile Code as textfile", 10, 460, 455, 20) GUISetState() Func Color_T1() $gt_T1_Color = _ChooseColor (2,0,2) $sample_T1=0 EndFunc Func Color_T2() $gt_T2_Color = _ChooseColor (2,0,2) $sample_T2=0 EndFunc Func Color_BG() $Gt_Bg_Color = _ChooseColor (2,0,2) $sample_bg=0 EndFunc Func SaveLayout() $filename = FileSaveDialog("Choose a name for your layout:", @WorkingDir, "Textfile layout code (*.txt)", 2) If @error Then MsgBox(0, "", "Save cancelled. Please set your selections again.") Else If StringRight ($filename, 4) <> ".txt" Then $filename &= ".txt" EndIf $file = FileOpen($filename, 1) ;Set Colors for html use, trims out 0x $Gt_Bg_Color = StringRight($Gt_Bg_Color,6) $gt_T1_Color = StringRight($gt_T1_Color,6) $gt_T2_Color = StringRight($gt_T2_Color,6) ;Get Images URLs $gt_bg_url = GUICtrlRead($background_setup_url) $gt_cb_url = GUICtrlRead($contact_box_url) $gt_extended = GUICtrlRead($extended_url) ;Get other options $gt_scrollbars = GUICtrlRead($scrollbars) $gt_hidefriends = GUICtrlRead($hidefriends) $gt_hidecomments = GUICtrlRead($hidecomments) $gt_centerprofile = GUICtrlRead($centerprofile) $gt_addinstructions = GUICtrlRead($addinstructions) $addinstructions_setup = "<!-- Please follow the instructions for your profile layout installation. 1. Delete all previously installed codes in your profile 2. Paste the following code as it appears 3. Save the profile layout 4. View your profile and refresh by hitting CTRL+F5-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & @CRLF $contact_box = "<!--Place the code after this in the About Me section-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<!--Contact Box Code-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & "> .contactTable { width:300px !important; height:150px !important; background-image:url(" & Chr(34) & $gt_cb_url & Chr(34) & "); background-repeat:no-repeat; background-color:transparent; background-attachment:scroll; background-position:center center; padding:0px !important;} .contactTable table, table.contactTable td { background-color:transparent; background-image:none; padding:0px !important;} .contactTable a img {visibility:hidden; border:0px !important;} .contactTable .text {font-size:1px !important;} </style>" & @CRLF & @CRLF $extended_setup = "<!--Extended Network Image-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "table table table td {vertical-align:top ! important;}" & @CRLF & "span.blacktext12 {" & @CRLF & "visibility:visible !important;" & @CRLF & "background-color:transparent;" & @CRLF &"background-image:url(" & Chr(34) & $gt_extended & Chr(34) & ");" & @CRLF & "background-repeat:no-repeat;" & @CRLF & "background-position:center center;" & @CRLF & "width:435px; height:75px; display:block !important;" & @CRLF & "font-size:0.0em; letter-spacing:-5px;}" & @CRLF & "span.blacktext12 span," & @CRLF & "span.blacktext12 img {display:none;}" & @CRLF & "</style>" & @CRLF $background_setup = "<!--Background Image-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<STYLE type=text/css>table, td {background-color:transparent;border:solid;border-width:0}</STYLE>" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "body{background-color:" & $Gt_Bg_Color & ";" & @CRLF & "background-image:url(" & $gt_bg_url & ") !important;" & @CRLF & "background-attachment:fixed;" & @CRLF & "background-repeat: no-repeat;" & @CRLF & "background-position: bottom center;}" & @CRLF & "</style>" & @CRLF & @CRLF $text_setup = "<!--Colors codes-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<STYLE type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "table, td {background-color:transparent;" & @CRLF & "border:none;border-width:5;}" & @CRLF & "</STYLE>" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "td, table {color: " & $gt_T1_Color & "}" & @CRLF & ".whitetext12 {display:none}" & @CRLF & ".lightbluetext8 {display:none}" & @CRLF & ".blacktext12 {display:none}" & @CRLF & ".btext {display:none}" & @CRLF & ".blacktext10 {display:none}" & @CRLF & ".text {color: " & $gt_T2_Color & "}" & @CRLF & ".orangetext15 {display:none}" & @CRLF & ".nametext {color: " & $gt_T2_Color & "}" & @CRLF & ".redbtext{display:none}" & @CRLF & "A:link, A:visited, A:active, A:hover, a.navbar, a.navbar:link, a.navbar:active, a.navbar:visited, a.navbar:hover, a.redlink:link, a.redlink:active, a.redlink:visited, a.redlink:hover, a.searchlinksmall, a.searchlinksmall:link, a.searchlinksmall:active, " & @CRLF & "a.searchlinksmall:visited, " & @CRLF & "a.searchlinksmall:hover{color:" & $gt_T1_Color & "}" & @CRLF & ".navigationbar{display:none}" & @CRLF & "</style>" & @CRLF & @CRLF $scrollbars_setup = "<!--Scrollbar codes-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "body { " & @CRLF & "scrollbar-face-color:" & $gt_T2_Color & ";" & @CRLF & "scrollbar-highlight-color:" & $gt_T1_Color & ";" & @CRLF & "scrollbar-3dlight-color:" & $gt_T2_Color & ";" & @CRLF & "scrollbar-shadow-color:" & $Gt_Bg_Color & ";" & @CRLF & "scrollbar-darkshadow-color:" & $gt_T2_Color & ";" & @CRLF & "scrollbar-arrow-color:" & $gt_T1_Color & ";" & @CRLF & "scrollbar-track-color:" & $gt_T1_Color & "; " & @CRLF & "}" & @CRLF & "</style>" & @CRLF $hidefriends_setup = "<!--Hide Friends-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "td.text td.text table table table, td.text td.text table br, td.text td.text table .orangetext15, td.text td.text .redlink, td.text td.text span.btext {display:none;}" & @CRLF & "td.text td.text table {background-color:transparent;}" & @CRLF & "td.text td.text table td, td.text td.text table {height:0;padding:0;border:0;}" & @CRLF & "td.text td.text table table td {padding:3;}" & @CRLF & "td.text td.text table table br {display:inline;}" & @CRLF & "</style>" & @CRLF $centerprofile_setup = "<!--Center Profile-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<style type=" & Chr(34) & "text/css" & Chr(34) & ">" & @CRLF & "table table table table table {direction:rtl;}" & @CRLF & "table table table table table td {direction:ltr;}" & @CRLF & "</style>" & @CRLF $hidecomments_setup = "<!--Place this in the Id Like to meet section-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<!--Hide Comments-DO NOT ADD THIS LINE IN YOUR PROFILE-->" & @CRLF & "<div style=" & Chr(34) & "position:relative; height:400px; overflow:hidden; border:0px;" & Chr(34) & "><table><tr><td><table><tr><td>" If $gt_addinstructions = "1" Then FileWriteLine($file, $addinstructions_setup) EndIf If $gt_cb_url<> "Contact Box image URL" Then FileWriteLine($file, $contact_box) EndIf If $gt_bg_url<> "Background image URL" Then FileWriteLine($file, $background_setup) EndIf If $gt_extended<> "Extended Network image URL" Then FileWriteLine($file, $extended_setup) EndIf If $Gt_Bg_Color<>0 And $gt_T1_Color<>0 And $gt_T2_Color<>0 Then FileWriteLine($file, $text_setup) EndIf ;Checks for additional options If $gt_hidefriends = "1" Then FileWriteLine($file, $hidefriends_setup) EndIf If $gt_centerprofile = "1" Then FileWriteLine($file, $centerprofile_setup) EndIf If $gt_scrollbars = "1" Then FileWriteLine($file, $scrollbars_setup) EndIf If $gt_hidecomments = "1" Then FileWriteLine($file, $hidecomments_setup) EndIf FileClose($file) ShellExecute($filename) EndIf EndFunc ;==>SaveLayout While 1 If $Gt_Bg_Color<>0 And $sample_bg<>1 Then $background_color_sample = GUICtrlCreateGraphic(10, 250, 40, 40) GUICtrlSetBkColor($background_color_sample, $Gt_Bg_Color) GUICtrlCreateLabel("Background", 60, 270, 60, 20) GUICtrlSetColor(-1, $Gt_Bg_Color) $sample_bg=1 EndIf If $gt_T1_Color<>0 And $sample_T1<>1 Then $text1_color_sample = GUICtrlCreateGraphic(130, 250, 40, 40) GUICtrlSetBkColor($text1_color_sample, $gt_T1_Color) GUICtrlCreateLabel("Text 1", 180, 270, 60, 20) GUICtrlSetColor(-1, $gt_T1_Color) $sample_T1=1 EndIf If $gt_T2_Color<>0 And $sample_T2<>1 Then $text2_color_sample = GUICtrlCreateGraphic(250, 250, 40, 40) GUICtrlSetBkColor($text2_color_sample, $gt_T2_Color) GUICtrlCreateLabel("Text 2", 300, 270, 60, 20) GUICtrlSetColor(-1, $gt_T2_Color) $sample_T2=1 EndIf $msg = GUIGetMsg() Select Case $msg = $bT_T1 Call("Color_T1") Case $msg = $bT_T2 Call("Color_T2") Case $msg = $bT_BG Call("Color_BG") Case $msg = $bT_Output Call("SaveLayout") Case $msg = $GUI_EVENT_CLOSE Exit EndSelect WEnd Edited February 15, 2008 by gesller Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 Well when you select the colour, then you there should be a box which is coloured the same,Added in Version 1.2.1. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
TPaul81 Posted February 15, 2008 Author Share Posted February 15, 2008 I tried implementing the code shown above, I ended up to get lost in my own script. My Scripts (so far)Myspace Layout EditorAnother Boss ScreenClipboard Collector Link to comment Share on other sites More sharing options...
gseller Posted February 15, 2008 Share Posted February 15, 2008 Cool! You got the color selection working. Looking forward to seeinig more functions... Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now