Code : Tout sélectionner
StartDrawing(ImageOutput(TonImage))
Couleur = Point(x, y)
Rouge = Red(Couleur)
Vert = Green(Couleur)
Bleu = Blue(Couleur)
StopDrawing()
merci, j'ai vu cette commande mais j'ai compris que c'est comme plot, donc la tu me sauve la vie, merciCode : Tout sélectionner
; English forum: http://purebasic.myforums.net/viewtopic.php?t=8736&highlight=
; Author: Danilo (updated for PB3.93 by ts-soft)
; Date: 14. December 2003
;
; Bitmap Bits Test
; Danilo, 10.04.2003
Structure myBITMAPINFO
bmiHeader.BITMAPINFOHEADER
bmiColors.RGBQUAD[1]
EndStructure
Structure s_pixel
B.b
V.b
R.b
A.b
EndStructure
hBmp = CreateImage(1,300,100)
hDC = StartDrawing(ImageOutput(1))
ImageWidth = ImageWidth(1)
ImageHeight = ImageHeight(1)
Dim mem.s_pixel(ImageHeight-1, ImageWidth-1)
bmi.myBITMAPINFO
bmi\bmiHeader\biSize = SizeOf(BITMAPINFOHEADER)
bmi\bmiHeader\biWidth = ImageWidth
bmi\bmiHeader\biHeight = ImageHeight
bmi\bmiHeader\biPlanes = 1
bmi\bmiHeader\biBitCount = 32
bmi\bmiHeader\biCompression = #BI_RGB
If GetDIBits_(hDC,hBmp,0,ImageHeight(1),mem(),bmi,#DIB_RGB_COLORS) <> 0
; Fill
y=45
For x = 0 To ImageWidth-1
mem(y,x)\R = $FF
mem(y,x)\V = $FF
mem(y,x)\B = $00
mem(y,x)\A = $00
Next x
; Copy back
If SetDIBits_(hDC,hBmp,0,ImageHeight(1),mem(),bmi,#DIB_RGB_COLORS) <> 0
StopDrawing()
OpenWindow(0,0,0,ImageWidth,ImageHeight,"Image",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
CreateGadgetList(WindowID(0))
ButtonImageGadget(0,0,0,ImageWidth,ImageHeight,hBmp)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
Else
StopDrawing()
EndIf
EndIf