 |
| Main display on KVM showing Linux workstation, while monitoring Mac on tablet |
Vista 64bit has been a fairly smooth move for me, but one feature of Windows XP I missed dearly was Send To Clipboard As Name (from the Power Toys).
Developers likely already know about dxdiag, a good tool to get information related to graphics. However, did you know about msinfo32?
 | Genetic algorithm placing 50 polygons to represent the Mona Lisa I'm a fan of genetic algorithms... I'd have loved to see this one with triangles instead of n-polygons, though. This image is early in the evolution, the final image is a good approximation. ;) |
 | Reset A fun, short, game. Cool novelty: the gameplay is synchronized with the music. Friend Adrienne Walker pointed out that this could be a great game jam theme. |
 | Google Native Client A plugin recently revealed by Google. Cross browser, runs sand boxed native code. Could be a good alternative to ActiveX. |
 | WinDirStat I recently gave up on SpaceMonger -- it was having issues with lots of files. This survey convinced me to move over to WinDirStat, which works very well. |
 | Mr EditGotoFindCombo Nice tip for Visual Studio programmers: Quickly open files with sub-string prefix matching: CTRL-D, type:">of ", then start your file name. More tips on the linked page. |
Machines from Dell can easily be configured with a RAID controller these days. I was curious to see: Would using RAID-0 (striping) improve build times? The short answer: no.
Example solution file, with projects broken into logical groups
Macro Dialog confirming dependencies about to be set.
Imports System
Imports EnvDTE
Imports EnvDTE80
Imports System.Diagnostics
' Need List:
Imports System.Collections.Generic
Public Module Module1
Sub Step1_SelectDependentProjects()
'DESCRIPTION: Step 1 of 2 for setting dependencies on projects
SelectedProjects = GetSelectedProjects()
Dim OutputString As String
OutputString = SelectedProjects.Count.ToString
OutputString += " Selected Projects:" + vbLf
OutputString += GetStringOfEachProject(SelectedProjects)
MsgBox(OutputString)
End Sub
Sub Step2_SelectDependeeProjects_AssignDependencies()
'DESCRIPTION: Step 2 of 2 for setting dependencies on projects
If SelectedProjects Is Nothing Then
MsgBox("You must first select projects to have dependencies set on, with SelectDependentProjects macro")
Return
End If
Dim DependentProjs As List(Of EnvDTE.Project) = SelectedProjects
Dim DependeeProjs As List(Of EnvDTE.Project) = GetSelectedProjects()
Dim OutputString As String
OutputString = "Are you sure you want to set" + vbLf + vbLf
OutputString += DependentProjs.Count.ToString + " Projects:" + vbLf
OutputString += GetStringOfEachProject(DependentProjs) + vbLf + vbLf
OutputString += "As dependent upon" + vbLf + vbLf
OutputString += DependeeProjs.Count.ToString + " Projects:" + vbLf
OutputString += GetStringOfEachProject(DependeeProjs) + vbLf + vbLf
If MsgBox(OutputString, MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
Return
End If
For Each Dependent As EnvDTE.Project In DependentProjs
For Each Dependee As EnvDTE.Project In DependeeProjs
Try
DTE.Solution.SolutionBuild.BuildDependencies.Item(Dependent).AddProject(Dependee.UniqueName)
Catch ex As System.Exception
Dim Result As Microsoft.VisualBasic.MsgBoxResult
Result = MsgBox("Failed to add dependency: " + vbLf _
+ "Dependent: " + Dependent.Name + vbLf _
+ "on" + vbLf _
+ "Dependee: " + Dependee.Name + vbLf + vbLf _
+ "Error is:" + vbLf + ex.Message + vbLf + vbLf _
+ "CONTINUE????", MsgBoxStyle.YesNo)
If Result = MsgBoxResult.No Then
Return
End If
End Try
Next
Next
MsgBox("Done.")
End Sub
' Storage for list of projects:
Public SelectedProjects As List(Of EnvDTE.Project)
' Helper functions:
Function GetSelectedProjects() As List(Of EnvDTE.Project)
Dim projs As List(Of EnvDTE.Project) = New List(Of EnvDTE.Project)
For Each selectedItem As EnvDTE.SelectedItem In DTE.SelectedItems
Try ' to get projects
If Not selectedItem.Project Is Nothing Then
If Not projs.Contains(selectedItem.Project) Then
projs.Add(selectedItem.Project)
End If
End If
Catch
End Try
Next
Return projs
End Function
Function GetStringOfEachProject(ByVal ProjectsList As List(Of EnvDTE.Project)) As String
Dim OutputString As String = ""
For Each proj As EnvDTE.Project In ProjectsList
If OutputString.Length > 0 Then ' add new line
OutputString += vbLf
End If
OutputString += " " + proj.Name
Next
Return OutputString
End Function
End Module
Note the bar graphs adjacent to the data columns from above
