Auf Image malen...

[man-in-black]

tach,

würde gern mal wissen, wie man innerhalb eines Fensters auf einem Image malen kann. So wie Paint.

ich weis zwar, dass man einen Windowedsreen benutzen kann.
Doch sobald man sich mit der Mouse im Screen befindet, kann man keine anderen Gadgets im Fenster mehr aktivieren (z.B. Farbe ändern )

MFG
MIB

[DarkSoul]

so:

Code: Alles auswählen

If OpenWindow(0,400,300,200,200,#PB_Window_ScreenCentered,"Mal drauf!") And CreateGadgetList(WindowID()) And CreateImage(0,200,200)
  ImageGadget(0,0,0,200,200,UseImage(0))
EndIf
xborder=GetSystemMetrics_(#SM_CXDLGFRAME)
yborder=GetSystemMetrics_(#SM_CYFIXEDFRAME)+GetSystemMetrics_(#SM_CYCAPTION)

Repeat
  x=WindowMouseX()-xborder
  y=WindowMouseY()-yborder
  event=WaitWindowEvent()
  If GetAsyncKeyState_(#VK_LBUTTON)
    If x > -1 And y > -1 And x < ImageWidth() +1 And y < ImageHeight() +1
      StartDrawing(ImageOutput())
        If Klack = 0
          Plot(x,y,$FFFFFF)  
          Klack=1
          
        Else
          LineXY(x,y,ax,ay,$FFFFFF)
        EndIf
        ax=x
        ay=y
      StopDrawing()
      SetGadgetState(0,UseImage(0))
    EndIf
  Else
    Klack=0
  EndIf
Until event=#PB_Event_CloseWindow

gruß biedermeier [/code]

[man-in-black]

@Biedermeier

Danke

Es klappt.

MIB