; German forum: http://robsite.de/php/pureboard/viewtopic.php?t=1779&highlight= ; Author: Danilo ; Date: 23. July 2003 ; ; by Danilo, 23.07.2003 - german forum ; Procedure UpdatePixelArray() FlipBuffers() ClearScreen(0,0,0) StartDrawing(ScreenOutput()) For x = 0 To 300 Step 2 For y = 0 To 400 Step 2 Select Random(2) Case 0 : color = $000000 Case 1 : color = $7F7F7F Case 2 : color = $FFFFFF EndSelect Plot(x,y,color) Next y Next x Locate(100,80) FrontColor($FF,$FF,$00) DrawingMode(1) DrawText("Pixel Array") StopDrawing() EndProcedure If InitSprite() And InitMouse() OpenWindow(1,200,200,400,180,#PB_Window_SystemMenu,"Yo!") CreateGadgetList(WindowID()) ListViewGadget(1,0,0,100,100) AddGadgetItem(1,-1,"ListBox") StringGadget(2,0,100,100,20,"StringGadget") ButtonGadget(3,0,120,100,20,"Taste 1") ButtonGadget(4,0,140,100,20,"Taste 2") ButtonGadget(5,0,160,100,20,"Taste 3") OpenWindowedScreen(WindowID(),110,10,280,160,0,0,0) Repeat Event = WindowEvent() Select Event Case #PB_Event_CloseWindow End Case 0 Delay(1) UpdatePixelArray() EndSelect ForEver EndIf ; ExecutableFormat=Windows ; FirstLine=1 ; EnableXP ; EOF