PureBoard

Verfasst: **26.12.2006 11:09**

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

Verfasst: **26.12.2006 12:44**

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]

Verfasst: **26.12.2006 18:08**

@Biedermeier

Danke

Es klappt.

MIB

PureBoard

Auf Image malen...

Auf Image malen...