Blitzmax и Vista 64x

[WaReZ_MEN]

Для начала попрошу не писать нах тебе виста и все такое...
Вопрос заключается в том что код тупо не работает под ней...
вот код:

Graphics 800, 600
Local LinePixmap:TPixmap
 LinePixmap = CreateGridLine() ;
'SavePixmapPNG LinePixmap, "c:\1.png"
 For i = 1 To 9
    DrawPixmap LinePixmap, I * 62, 0
 Next
 
   
  Flip
WaitKey
Function CreateGridLine:TPixmap() 
  Border = 2
  Fill = 4
  Length = 548
  W = Border * 2 + Fill
  SetColor (127, 113, 50) 
    DrawRect(0, 0, W, Length) 
  SetColor (242, 216, 109) 
    DrawRect(Border, 0, Fill, Length) 
    
  Flip
WaitKey

Local NewPixmap:TPixmap = CreatePixmap(W, Length, PF_RGBA8888) 
Local Colors:TPixmap = GrabPixmap(0, 0, W, Length) 
For X:Int = 0 Until W
 For Y:Int = 0 Until Length
  WritePixel NewPixmap, X, Y, (ReadPixel(Colors, X, Y) & $FFFFFF) 
 Next
Next
Cls
Return NewPixmap
End Function

хотелось бы понять почему не работает и как это исправить.
P.S. Значит рисуется 1 линия сбоку а потом она "размножается" еще на 8 штук так вот "размножения" не происходит... причем SavePixmapPNG прекрасно сохраняет в файл...

[SBJoker]

Что то я смысл этого цикла непонял:

For X:Int = 0 Until W
 For Y:Int = 0 Until Length
  WritePixel NewPixmap, X, Y, (ReadPixel(Colors, X, Y) & $FFFFFF) 
 Next
Next

А именно чем полученый пиксмап отличается от копируемого? Для тупого копирования есть встроеный метод.

По вопросу: убери из функции создания WaitKey нахрен он там ненужен.
И компиль как GUI приложение, для консольных WaitKey неработает ниразу, т.к. нет своего окна.

[WaReZ_MEN]

А побробнее? что то не помню я стандартных методов...

[SBJoker]

TPixmap.Copy() - трудно прогнозируемое название метода да?

[WaReZ_MEN]

чесное слово не подумал бы...
Спасибо попробую о результате отпишу...

[WaReZ_MEN]

Под XP копирует но черно-белые точек вместо линий и то какието странные под вистой пока не протестил.

[WaReZ_MEN]

Тож не работает подскажите как хоть сделать то?????