Index: lcl/interfaces/win32/win32object.inc
===================================================================
--- lcl/interfaces/win32/win32object.inc	(revision 25226)
+++ lcl/interfaces/win32/win32object.inc	(working copy)
@@ -730,9 +730,31 @@
 
   Set the color of the specified pixel on the canvas
  ------------------------------------------------------------------------------}
+
+var
+  IntSetPixel : function (DC:HDC; X, Y:longint; cl:Windows.COLORREF):Windows.COLORREF; stdcall = nil;
+
+function VistaSetPixel(DC:HDC; X,Y:longint; cl:Windows.COLORREF):Windows.COLORREF; stdcall;
+var
+  pen, oldpen: HPEN;
+begin
+  if x and $100=0 then
+    Result:=Windows.SetPixel(DC,X,Y,cl)
+  else
+  begin
+    pen := Windows.CreatePen(PS_SOLID, 1, Windows.ColorRef(ColorToRGB(cl)));
+    oldpen := Windows.SelectObject(DC, pen);
+    Windows.MoveToEx(DC, X, Y, nil);
+    Windows.LineTo(DC, X, Y + 1);
+    Windows.SelectObject(DC, oldpen);
+    Windows.DeleteObject(pen);
+    Result:=cl;
+  end;
+end;
+
 procedure TWin32WidgetSet.DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor);
 begin
-  Windows.SetPixel(CanvasHandle, X, Y, Windows.ColorRef(ColorToRGB(AColor)));
+  IntSetPixel(CanvasHandle, X, Y, Windows.ColorRef(ColorToRGB(AColor)));
 end;
 
 {------------------------------------------------------------------------------
Index: lcl/interfaces/win32/win32int.pp
===================================================================
--- lcl/interfaces/win32/win32int.pp	(revision 25226)
+++ lcl/interfaces/win32/win32int.pp	(working copy)
@@ -305,6 +305,11 @@
   then MMenuItemInfoSize := W95_MENUITEMINFO_SIZE
   else MMenuItemInfoSize := sizeof(MENUITEMINFO);
 
+  if WindowsVersion=wvVista then
+    IntSetPixel:=@VistaSetPixel
+  else
+    IntSetPixel:=@Windows.SetPixel;
+
 finalization
   if CurDoubleBuffer.Bitmap <> 0 then
   begin