PureBoard

Code: Alles auswählen

;Test Source painting on Windows PB4

Procedure.w ScreenWidth ()
  ProcedureReturn GetSystemMetrics_ (#SM_CXSCREEN)
EndProcedure
;
Procedure.w ScreenHeight ()
  ProcedureReturn GetSystemMetrics_ (#SM_CYSCREEN)
EndProcedure
;
Procedure CopyWindow (fromWindow, x, y)

  width = ScreenWidth ()
  height = ScreenHeight ()
  
  fromDC = GetWindowDC_ (fromWindow)
      toDC = StartDrawing (ImageOutput (0))
          BitBlt_ (toDC, 0,-49, WindowWidth(0), WindowHeight(0)+49, fromDC, x, y, #SRCCOPY)
      StopDrawing ()
  ReleaseDC_ (fromWindow, fromDC)

EndProcedure
;
Procedure Lin(x,y,x1,y1,Width,Color,Style) 
   hDC=GetDC_(WindowID(0)) 
   pen=CreatePen_(Style,Width,color)  
   hPenOld=SelectObject_(hDC,pen) 
   MoveToEx_(hDC,x,y,0):LineTo_(hDC,x1,y1) 
   DeleteObject_(pen) 
   DeleteObject_(hPenOld) 
EndProcedure 

Procedure Styles(); Nur bei einer Dicke 0 und 1
SetGadgetState(0,GetGadgetState(0)) 
     Style_$=GetGadgetText(0)
     If Style_$="#PS_SOLID"
        Style=#PS_SOLID
     ElseIf Style_$="#PS_DASH"
        Style=#PS_DASH   
     ElseIf Style_$="#PS_DOT"
        Style=#PS_DOT 
     ElseIf Style_$="#PS_DASH"
        Style=#PS_DASH 
     ElseIf Style_$="#PS_DASHDOT"
        Style=#PS_DASHDOT    
     ElseIf Style_$="#PS_DASHDOTDOT"
        Style=#PS_DASHDOTDOT
     EndIf 
     ProcedureReturn Style 
 EndProcedure
  
  
_X=GetSystemMetrics_(#SM_CXSCREEN)-8 : _Y=GetSystemMetrics_(#SM_CYSCREEN)-68 


OpenWindow(0,0,0,_X,_Y,"",#PB_Window_SystemMenu)
If CreateGadgetList(WindowID(0))
  ComboBoxGadget(0, _X-100, 0, 100, 100)
  AddGadgetItem(0, -1, "#PS_SOLID")
  AddGadgetItem(0, -1, "#PS_DASH")
  AddGadgetItem(0, -1, "#PS_DOT")
  AddGadgetItem(0, -1, "#PS_DASHDOT")
  AddGadgetItem(0, -1, "#PS_DASHDOTDOT")
  SetGadgetState(0,0)
EndIf 
  
  
If CreateMenu(0, WindowID(0))
    MenuTitle("Einstellungen")
        MenuItem( 1, "Linienstärke")
         MenuItem( 2, "Linienfarbe")
     CloseSubMenu()
      MenuBar()
      MenuItem( 3, "&Quit")
EndIf
CreateImage (0, WindowWidth(0) ,WindowHeight(0) )
CopyWindow (WindowID(0),0,0)
; 
Set=0
Style=#PS_SOLID ; Andere Linienstile sind: #PS_DASH	, #PS_DOT	, #PS_DASHDOT, #PS_DASHDOTDOT
Repeat 
event = WaitWindowEvent()
    
Select event
  Case  #PB_Event_Gadget
   
   
     
   Case #PB_Event_Menu
             Select EventMenu()  
              Case 1
                Ld=Val(InputRequester("Strichstärke eingeben", "Bitte geben sie die Lininendicke ein","5"))
              Case 2
                Lf=Farbe = ColorRequester()
              Case 3
                End
             EndSelect
   
             
   Case #PB_Event_MoveWindow 
            StartDrawing (WindowOutput (0))
            DrawImage (ImageID (0), -4, 0)
            StopDrawing ()
   Case  #WM_LBUTTONDOWN 
            x1 = WindowMouseX(0) 
            y1 = WindowMouseY(0)
            Set=1
   Case #WM_LBUTTONUP
            If Set=1
              x2 = WindowMouseX(0) 
              y2 = WindowMouseY(0)
              lin(x1,y1,x2,y2,Ld,Lf,Styles())
              CopyWindow (WindowID(0),0,0)
              Set=0
            EndIf
EndSelect 
Until event = #PB_Event_CloseWindow