PureBasic

Code : Tout sélectionner

Procedure SetZoom(Z.l=100)
  Shared zoom.l,Page_W,Page_H  
  zoom = z
  SendMessage_(GadgetID(0), #EM_SETZOOM, z, 100)
  newH.d = Page_H * zoom/100
  If newH < WindowHeight(0)
    H = Int(newH) 
  Else
    H = WindowHeight(0)
  EndIf
  newW.d = Page_W * zoom/100
  If newW < WindowWidth(0)
    W = Int(newW)
  Else
    W = WindowWidth(0)
  EndIf
  X1 = WindowWidth(0)/2 - W/2
  ResizeGadget(0,X1,40,W, H-70)       
EndProcedure

Procedure SetEditor()
  Shared Page_W,Page_H  
  Page_W = 400
  Page_H = 300
  EditorGadget(0, WindowWidth(0)/2 - Page_W/2, 40, Page_W, Page_H)
  For a = 0 To 5
    AddGadgetItem(0, a, "Line "+Str(a))
  Next
EndProcedure

Procedure SetMargin(PageW,PageH, LeftM, TopM, RightM, BottomM)
  Shared zoom.l
  r.RECT
  r\left = LeftM * zoom/100
  r\top = TopM * zoom/100
  r\right = (PageW - RightM) * zoom/100
  r\bottom = (PageH - BottomM) * zoom/100
  width = r\right - r\left
  height = r\bottom - r\top
  SendMessage_(GadgetID(0), #EM_SETRECTNP, 0, r)
EndProcedure


If OpenWindow(0, 0, 0, 800,600, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  SetEditor()
  setzoom()
  SetMargin(400,300,20,20,20,20)
    
  CreateMenu(0,WindowID(0))
  MenuTitle("zoom")
  MenuItem(0,"Zoom 50")
  MenuItem(1,"Zoom 100")
  MenuItem(2,"Zoom 120")
  MenuItem(3,"Zoom 150")
  
  
  Repeat 
    
    Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Menu
        Select EventMenu()
            
          Case 0
            SetZoom(50)
          Case 1
            SetZoom()
          Case 2
            SetZoom(120)
          Case 3
            SetZoom(150)
        EndSelect
        
        
    EndSelect
    
  ForEver
  
EndIf