Longhorn PDC - Slate

[Trust]

Thin? I won't cuz it's not Slate or Luna tone.

For Choice....

A: Which one you're using it

B: Which one you posted

do whatever you want Windows X... I recommend that you release something definitive if you wanna be the 1st that makes the 1st version of this theme because there are good looking slate themes now out there... ;)

[BMac]

I'd say option B. I like the continuous effect. Plz do option B.

A thin taskbar would be nice too.

[audioscheine]

:D i do too love think taskbars.

but what are talk about "Choice B: Make Toolbar background suited with Caption Bar but cost with all inactive images in caption and frameborder. Frameborder won't change when inactive and captionbar is almost same to active mode because I have to make bottom looks like toolbar background."

you mean make it look like this

[BMac]

No I posted a pic a few pages back. Check it out for what I mean.

[audioscheine]

:huh: well is windows X planning to make slate have a headder like that for files like my music and my videos, ect. that would really make my day, and make it my #1 theme of all time. he's done it befor but last time he just made it say "Longhorn". just wondering if he will do it again, but 100times better, like my screenny

[xxdesmus]

the lack of a thin taskbar is the only thing keeping me from using this beauty. keep up the good work ;) ;)

[darkmark327]

the lack of a thin taskbar is the only thing keeping me from using this beauty. keep up the good work ;) ;)

What visual style is in your screenshot

[xxdesmus]

What visual style is in your screenshot

it's called 6pack ....here is the link for it:

HERE

[insanekiwi]

heh. 6pack looks like a sevent7 winflag rip :(

[Meshuggah]

im kinda mad at a few of you....

first you ask him to release a beta of this theme...and he reluctantly agrees

then you help him out in the things you dont like....

BUT WHAT P***ES ME OFF IS THIS

you want the BEST longhorn Slate theme he can possibly make YET you want another theme with a thin taskbar

so which is it? i mean yes hes a good themer but it seems that you are making so much work for him that 1. its going to take even longer for him to release it and 2. you keep adding features to add

i understand that he "took on" the duty to do this theme but cut the man some slack....seriously

and something else that kind of made me mad was the post about "THINK ABOUT THE PEOPLE" ....well all i can say is how have you helped him out besides rushing him to release it?

im sorry if this feels like a rant but i know how long Windows-X has been working on his Longhorn Transformation Pack 4.0 (over a month now) and he is just trying to make it perfect for everyone as best he can, but complaining is not the way to go.

[Windows X]

So thankful CiN|FuL :) I'm so sad and hopeless to do this becasue it waste my life time, school, my bed time (I slept for 2 hrs in a week till now) and nothing positive thing I have got.

I will do everything you want me to do if I get paid for it. I told you that I won't make taskbar in thin because I can't merge theme up more than 10 in one. But now I changed to put seperate theme in pack so I made thin version too in Slate.

Longhorn Transformation Pack 4.0 almost ready except sidebar. If I can make one more task for it (there's google, filemirrors, news links and slideshow). ONLY ONE MORE BASED ON HTML, JAVA SCRIPT OR FLASH!

[Meshuggah]

Longhorn Transformation Pack 4.0 almost ready except sidebar. If I can make one more task for it (there's google, filemirrors, news links and slideshow). ONLY ONE MORE BASED ON HTML, JAVA SCRIPT OR FLASH!

if anyone has any ideas on what to add please say something....he wants this perfect and until he thinks of another task for the sidebar he isnt going to release it

this is all thats left for him to do....ive tried to get him to release as is but i understand why he wont :)

anyway i couldnt think of s-hit to add... maybe one of you can :yes:

[Silencer]

:D Great work!

[xxdesmus]

How about a current weather and weather forecast space in the sidebar? would anyone else like that? ...just an idea ;) ;) Thank you for all the hard work on this :D

[darkmark327]

That'd be great, maybe you can use the code from sideshow

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<TITLE>Forecast</TITLE>

<script LANGUAGE="VBScript">
Dim sTooltipHTML
Dim imageSet
imageSet=0
sTooltipHTML = ""



'/***********************************************************/
'/* Ticket authored by Jurai
'/***********************************************************/


'/***********************************************************/
'/* Change the string in the functio below to modify the URL
'/* that IE browses to when the ticket is double-clicked.
'/***********************************************************/
Public Function DoubleClickURL()
	DoubleClickURL = "http://www.weather.com/weather/local/11790"
End Function

'/***********************************************************/
'/* Change the number below to modify the width of the tooltip
'/***********************************************************/
Public Function TooltipWidth()
	TooltipWidth = 440
End Function

'/***********************************************************/
'/* Change the number below to modify the height of the tooltip
'/***********************************************************/
Public Function TooltipHeight()
	TooltipHeight = 600
End Function


'/***********************************************************/
'/* Change the number below to modify how long the ticket waits
'/* before refreshing its data.
'/***********************************************************/
Public Function ReloadInterval()
	ReloadInterval = 30	' in minutes
End Function


'/* ----------------------------------------------------------


'/***********************************************************/
'/* Following two functions are where the text scraping happens.
'/***********************************************************/
Public Sub StartThumbnailHTMLRetreive(attempt)
	dim ret
	if(attempt=1) then
  ret = g_ticketObj.DoVerb("HTTPPageRetrieveAsync","http://www.weather.com/weather/print/11790","ThumbnailHTMLRetreiveComplete1")
	else
  ret = g_ticketObj.DoVerb("HTTPPageRetrieveAsync","http://www.weather.com/weather/print/11790","ThumbnailHTMLRetreiveComplete2")
	end if
End Sub



Public Sub ThumbnailHTMLRetreiveComplete1(pPage)
	dim copyOfPage
	copyOfPage=pPage

	iStartPos = InStr(1, pPage, "<BR>")
	if(iStartPos <= 0) then
  StartThumbnailHTMLRetreive(2)
	else
  TooltipHTMLRetrieveFinish copyOfPage,iStartPos
  ThumbnailHTMLRetrieveFinish pPage,iStartPos
	end if	
End Sub



Public Sub ThumbnailHTMLRetreiveComplete2(pPage)
	dim copyOfPage
	copyOfPage=pPage

	iStartPos = InStr(1, pPage, "<BR>")
	if(iStartPos <= 0) then
  sTooltipHTML = "<FONT face=Arial size=1>Error</FONT>"
  theBody.innerHTML = "<FONT face=Arial size=1>Error</FONT>"
  exit sub
	end if

	TooltipHTMLRetrieveFinish copyOfPage,iStartPos
	ThumbnailHTMLRetrieveFinish pPage,iStartPos
End Sub



'/***********************************************************/
'/* Scrapes the page to get the thumbnail data.
'/*
'/* Strategy here is to grab the page we want to scrape as
'/* one long string.  We then use basic string manipulation
'/* functions to search the string for the one number we want to
'/* extract.
'/***********************************************************/
Public Sub ThumbnailHTMLRetrieveFinish(pPage,iStartPos)
	iStartPos = iStartPos + 10

	iEndPos = InStr(iStartPos, pPage, """")
	if(iEndPos <= 0) then
  theBody.innerHTML = "<FONT face=Arial size=1>Error</FONT>"
  exit sub
	end if

	sStage = Mid(pPage, iStartPos, iEndPos - iStartPos)
	if ( Left(sStage, 5) <> "http:" ) then
  sStage = sStage
	end if
	sStage = "<IMG SRC=""http://image.weather.com/web/common/wxicons/31/30.gif"" width=""20"" height=""20""><font size=1>Forecast"

	theBody.innerHTML = sStage

	imageSet = 1
	Headlines.width = document.body.offsetWidth
	Headlines.height = document.body.offsetHeight * 0.9
End Sub



'/***********************************************************/
'/* Scrapes the page to get the tooltip data.
'/*
'/* Strategy here is to grab the page we want to scrape as
'/* one long string.  We then use basic string manipulation
'/* functions to search the string for the data we want to
'/* extract.  To make for a prettier tooltip, instead of
'/* extracting individual numbers, we just extract an entire
'/* table.
'/*
'/* Note that since this code takes a while to execute, instead
'/* of calling it every time the user wants to see the tooltip,
'/* we keep the tooltip HTML in a global variable and update it
'/* when we update the thumbnail.
'/***********************************************************/
Public Sub TooltipHTMLRetrieveFinish(pPage,iInStartPos)
	Dim iEndPos
	Dim iStartPos
	Dim sStage
	Dim pPageCopy
	Dim iLocPos
	Dim regularReplace

	iStartPos=iInStartPos
	pPageCopy=Cstr (pPage)

	iEndPos = InStr(1, pPageCopy, "<!-- insert 300 x 250 ad -->")
	if(iEndPos <= 0) then
  iEndPos = InStr(1, pPageCopy, "<!-- insert 300 x 250 ad -->")
	end if

	if(iEndPos <= 0) then
     iEndPos = InStr(1, pPageCopy, "</A>")
  if(iEndPos <= 0) then
 	 sTooltipHTML = "<FONT face=Arial size=1>Error</FONT>"
 	 exit sub
  end if

  iStartPos = InStr(1, pPageCopy, "<A HREF")
  iEndPos = iEndPos + 4
	else
  iEndPos = iEndPos + 6
	end if

	sStage = Mid(pPageCopy, iStartPos, iEndPos - iStartPos)


	regularReplace = 1
	iLocPos = InStr(1, pPageCopy, "SRC=""/")
	if(iLocPos <= 0) then
  iLocPos = InStr(1, pPageCopy, "SRC=""http:")
  if(iLocPos <= 0) then
 	 sStage = Replace(sStage, "SRC=""", "SRC=""http://www.msnbc.com/news/")
 	 regularReplace = 0
  end if
	end if

	if(regularReplace = 1) then
  sStage = Replace(sStage, "SRC=""/", "SRC=""http://www.msnbc.com/news/")
  sStage = Replace(sStage, "src=""/", "src=""http://www.msnbc.com/news/")
	end if


	sStage = Replace(sStage, "HREF=""", " target=""Weather"" HREF=""http://www.weather.com")
	sStage = Replace(sStage, "href=""", " target=""Weather"" href=""http://www.weather.com")

	sTooltipHTML = ""
	sTooltipHTML = sTooltipHTML & "<IMG SRC=""http://image.weather.com/web/common/global/generic_header_banner.jpg"" border=0>"
	sTooltipHTML = sTooltipHTML & sStage

End Sub

</SCRIPT>


<script LANGUAGE="JavaScript">
/***********************************************************/
/***********************************************************/
/* Don't modify code below this comment        */
/* (More code you can modify comes after this block)       */
/***********************************************************/
/***********************************************************/
var g_ticketObj=null;

document.onmousedown = cancelmenu;
document.onmouseup = handleMouseUp;
document.onmousemove = handleMouseMove;
document.ondblclick = handleDoubleClk;

function cancelmenu(e)
{
try
  {
  theBody.setCapture(true);
  if(event.button==1)
    g_ticketObj.OnLButtonDown();
  else if(event.button==2)
    g_ticketObj.OnRButtonUp();
  }
catch(exception)
  {
  }
return 0;
}

function handleMouseUp(e)
{
try
  {
  theBody.releaseCapture();
  if(event.button==1)
    g_ticketObj.OnLButtonUp();
  else if(event.button==2)
    g_ticketObj.OnRButtonUp();
  }
catch(exception)
  {
  }
}

function handleMouseMove(e)
{
try
  {
  g_ticketObj.OnMouseMove();
  }
catch(exception)
  {
  }
}

function handleDoubleClk(e)
{
try
  {
  g_ticketObj.OnDoubleClk();
  }
catch(exception)
  {
  }
}

function TicketInitialize(ticketObj,washFile,washSolidColor,textSolidColor)
{
try
  {
  g_ticketObj=ticketObj;
  if(washFile.length > 1)
    theBody.background=washFile;
  else
    {
    theBody.background="";
    theBody.bgColor=washSolidColor;
    }
  theBody.text=textSolidColor;
  onResize();
  }
catch(exception)
  {
  }
}
/***********************************************************/
/***********************************************************/
/* Don't modify code above this comment, except to set color
/* specific color behavior in TicketInitialize
/***********************************************************/
/***********************************************************/
</SCRIPT>



<script LANGUAGE="VBScript">


'/***********************************************************/
'/* Purpose:
'/*	Following two functions control the size of the thumbnail
'/* if no constraints are in place.  These functions also control
'/* the proportions of the thumbnail when constraints are in place.
'/***********************************************************/
Public Function BestWidth()
	BestWidth = 20
End Function

Public Function BestHeight()
	BestHeight = 10
End Function

'/***********************************************************/
'/* Purpose:
'/*	This function gets called when the container background color
'/* or patter has changed.
'/***********************************************************/
Public Function ColorSchemeChanged(washFile,washSolidColor,textSolidColor)

	if(Len(washFile) > 1) then
   theBody.background=washFile
	else
   theBody.background=""
   theBody.bgColor=washSolidColor
	end if

	theBody.text=textSolidColor

End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called to request the width of a ticket
'/* given its height
'/*
'/* Return Value:
'/*  Returns a string in the format "width" 
'/***********************************************************/
Public Function WidthFromHeight(height)

	width = height * (BestWidth / BestHeight)
	WidthFromHeight = CStr(width)

End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called to request the width of a ticket
'/* given its height
'/*
'/* Return Value:
'/*  Returns a string in the format "width" 
'/***********************************************************/
Public Function HeightFromWidth(width)

	height = width * (BestHeight / BestWidth)
	HeightFromWidth = CStr(height)

End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called to request the ticket's ideal
'/* sizing if hosted in a non-size restricted mode.
'/*
'/* Return Value:
'/*  Returns a string in the format "width,height" 
'/***********************************************************/
Public Function BestDimensions()

	Dim height, width

	height = BestHeight
	width = BestWidth

	BestDimensions = width & "," & height

End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called to request the ticket's smallest
'/* sizing if hosted in a non-size restricted mode.
'/*
'/* Return Value:
'/*  Returns a string in the format "width,height" 
'/***********************************************************/
Public Function MinDimensions()
	width = 16
	MinDimensions = CStr(width & "," & HeightFromWidth(width))
End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called before the Tooltip is 
'/* displayed in order to set its size.
'/*
'/* Return Value:
'/*  Returns a string in the format "width,height" 
'/***********************************************************/
Public Function GetTooltipDimensions()
	GetTooltipDimensions = CStr((TooltipWidth+6) & "," & (TooltipHeight+6))
End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called before the Tooltip is 
'/* displayed to set its content.
'/*
'/* Return Value:
'/*  Returns the HTML the tooltip should display which will be
'/* placed into the <BODY> tag, sized to the above returned dimensions.
'/***********************************************************/
Public Function GetTooltipHTML()

	' note that we cache the tooltipHTML and refresh it when we refresh the thumbnail
	GetTooltipHTML = sTooltipHTML

End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called when the ticket is requested to 
'/* display it's most detailed information, in response to a
'/* doubleclick or Open event.
'/***********************************************************/
Public Function ShowDetails()
	window.open DoubleClickURL
End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called in order to populate the 
'/* context menu.
'/*
'/* Return Value: A string with the following format:
'/*    menu item text|command name,menu item text|command name, ...
'/*
'/*    "Menu item text" is the text as it should appear in the menu item.
'/*
'/*    "command name" is the string passed to MenuCommand when the item
'/*       is clicked.
'/***********************************************************/
Public Function GetContextMenuItems()
	GetContextMenuItems = "Open in browser...|OpenBrowser,Refresh|Refresh"
End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called when one of the above supplied
'/* menu items get selected. 
'/*
'/* Parameters:
'/*	Command string of menu item selected.
'/***********************************************************/
Public Function MenuCommand(command)
	Select Case LCase(command)
  case "openbrowser"
 	 window.open("http://www.weather.com/")
  case "refresh"
 	 reLoader()
  case else
 	 window.alert("Not Implemented")
	End Select
End Function


'/***********************************************************/
'/* DO NOT REMOVE THIS FUNCTION
'/* Purpose:
'/*	This function gets called when the ticket has been resized
'/***********************************************************/
Public Function onResize()
' Every time something occurs that requires the thumbnail's size
' to change (sidebar is resized, tickets get added or removed), we
' have to reset the sizes of the images.  Note that this ticket is
' a little different because the thumbnail is actually composed
' of two images:  the header stipe, and the headlines block.
'
' Both images are the same width, but the HeaderStipe takes up
' 1/5 of the height while the Headlines take up the other 4/5.

	if (imageSet) then
  Headlines.width = document.body.offsetWidth
  Headlines.height = document.body.offsetHeight * 0.9
	end if
End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called when the ticket is first loaded
'/***********************************************************/
Public Function onLoad()
	' Let the user know we're loading

	theBody.innerHTML = "<FONT face=Arial size=1>Loading...</FONT>"
	sTooltipHTML = "<FONT face=Arial size=1>Loading...</FONT>"

	' Call the function to load everything
	reLoader

	' Set a timer that will fire the reLoader function every X milliseconds
	setInterval "reLoader()",ReloadInterval* 3600000
End Function


'/***********************************************************/
'/* Purpose:
'/*	This function gets called when the ticket needs to refresh
'/* its data.
'/***********************************************************/
Public Function reLoader()
	' refresh the thumbnail and the tooltip
	StartThumbnailHTMLRetreive(1)
End Function

</SCRIPT>

</HEAD>


<BODY id=theBody leftMargin=0 rightMargin=0 topMargin=0 bottomMargin=0 scroll="no" onResize="onResize" onLoad="onLoad">
</BODY>


</HTML>

[wulijun2050]

thanks

[jznomoney]

where is the final download link?

[Samoa]

Windows X, I like your Slate theme, I am using it now. I really like it, I hope you keep it in msstyles format.

As I don't really want a transformation pack, the OSX one screwed up my system before. So please

keep it a mssytles verision. I like how it is now, a blue verions would be nice too. but it is up to you being

the artist.

[edit] The only request I would like to make is that bar that shows things loading, normally green in XP,

but you have it orange in Slate, could you make it blue, in the black slate? thanks.

Edited October 28, 2003 by Samoa

[Windows X]

I already made slideshow. Can't webpage do anything more than I told you?

[Windows X]

Here's 4 request from me for condition abour completing Longhorn. There're...

Request 1:

I want file moricons.dll or file which contains about window picture in LH4051

Request 2:

I want png screenshot for two arrows around tray in taskbar.

Request 3:

I want to you to see my attached picture and help me decide to add it or not.

Request 4:

I want you to help me think about one more Longhorn SideBar feature except (FileMirrors, Google, News Links and SlideShow)

If I can done these 4 conditions, you guys will have completed Slate theme.

Edited October 28, 2003 by Windows X

[Eli]

Answer to Request 4: Neowin News.

[Windows X]

Answer to Request 4: Neowin News.

It added already in News Links.

[enigma-penguin Veteran]

ill see what i can do for 1 & 2

[Eli]

4. Links to certain folders (which you can Decide). So If I want to quickly access "C:\MS Office\Templates\June 2002\Red\7pm\45566\New Folder", I can.

[Makki]

WindowsX i have nothing but admiration and gratitude towards you man and the fine work you have done in this theme. I like it alot i am using it now and shall continue to use it.

I really believe WindowsX that you should stick to what was your original inspiration and remember you are making this theme the way you would like it and to be true to the original longhorn style.

I believe that others complaints and so on should be ignored and focus instead on those of us who really appreciate your work you have done here.

Thank you for being kind and releasing a preview of the theme. I like it alot.

Take Care and good luck

Makki