wrb 2.0.0

data/lib/wrb/components/panel.rb

@@ -0,0 +1,103 @@
+# Panel is a window
+require 'wrb'
+
+module WR
+  
+  # This control is a window container that can layout any controls on. (WRB original) 
+  class Panel < WinControl
+    include ModParent
+    WinStyles = {
+      :disabled => WS_DISABLED,
+      :hscroll  => WS_HSCROLL,
+      :vscroll  => WS_VSCROLL,
+      :border   => WS_BORDER,
+      :thickframe => WS_THICKFRAME
+    }
+    attr_reader :sendto
+    
+    def initialize(*args)
+      super
+      @_classname = "RUBYWIN"
+      @_acceptable_events = {}.update(SubclassedHandlers)
+      register_event(WM_GETFONT, "__getfont__")
+      register_event(WM_SETFONT, "__setfont__", 'ii')
+    end
+    
+    # Sets so that this panel may send the messages to the specified window.
+    def sendto=(win)
+      if @controls
+        raise "Already exist controls." unless @controls.empty?
+        def @controls.sendto=(to)
+          @sendto = to
+        end
+        @controls.sendto = win
+        class << @controls
+          undef :sendto=
+        end
+      else
+        @controls = Controls.new(self, self, win)
+      end
+      @_sendto = win
+    end
+    
+    # Retreives a window which would be received the messages from this panel.
+    def sendto()
+      @_sendto
+    end
+    
+    # Adds a control to this panel.
+    def <<(*args)
+      controls << args
+    end
+    
+    protected
+    def _apply_options(arg)
+      if st=WinStyles[arg]
+        @_style |= st
+        return nil
+      end
+      super
+    end
+    
+    private
+    def __setfont__(hfont, redraw)
+      if !@_font
+         @_font = Font.wraphandle(hfont) if hfont!=0
+      elsif @_font._hfont != hfont
+        @_font.dispose
+        @_font = Font.wraphandle(hfont)
+      end
+    end
+    def __getfont__()#; dpp @_font
+      CancelDefWindowProc(@_font && @_font.is_a?(Font) ? @_font._hfont : 0)
+    end
+  end
+end
+
+#----- For testing. This will be removed soon. ------#
+module WR
+  class MyForm < Form
+    def initialize()
+      self.font = ['Meiryo', -12]
+      self.inheritfont = true
+      _<< Button[:button1, "Button0", 10, 10, 100, 30]
+#      _panel1.events = :paint
+    end
+    
+    def created()
+      _<< Panel[:panel1, "", 100, 100, 200, 200, :thickframe, :font=>:parent, :inheritfont=>true]
+      _panel1.sendto = self
+      _panel1 << Button[:button1, "Button1", 10, 10, 100, 30, :margin=>[0,nil,0,nil]]
+      _panel1 << Button[:button1, "Button2", 10, 100, 100, 30, :margin=>[0,nil,0,nil]]
+      def _panel1.self_paint(cv)
+        cv.LineTo(*clientsize)
+      end
+      dpp _panel1.sendto
+    end
+    
+    def button1_clicked(*)
+      _panel1.visible ? _panel1.hide : _panel1.show
+    end
+    self.start
+  end
+end if __FILE__ == $0

data/lib/wrb/components/picture.rb

@@ -0,0 +1,55 @@
+require 'wrb'
+
+module WR
+  
+  # The very small subset of GDI+ functions, only for getting and saving sevral types of an image file.<br>
+  # This class is using the GDI+ Flat API functions written by C. So see `wrb/ext/rw_graphics.c' and `rw_gdiplus.h' for more information.
+  class Picture < RWin::Picture
+  
+=begin
+following methods are defined at the super class.
+:singleton_methods
+  self._load(str)
+    Loads from a string. Give a String as <i>str</i>.
+  self.fromfile(path)
+    Loads from an image file. Give a String as <i>path</i> to image file.<br>
+    Allowed types of image are bitmap, jpeg, png, and so on.
+:instance_methods
+  _dump(encoder, resolution)
+  _himage()
+    Retrieves a handle of self.<br>
+    Returns 32/64 bits integer as it.
+  getproperty(index)
+    Retreives a property of specified index.
+  getpropertylist()
+    Retreives the property list of self.<br>
+    Retruens an array of integers and strings.
+  resolution()
+    Retreives the resolution of self.<br>
+    Returns an array of two floats as [<i>xres, yres</i>].
+  rotateflip(rotate_type)
+    Rotates and flips this image. Give an integer fore <i>rotate_type</i>.
+  saveto(path, encoder="image/png")
+    Saves to file as an image file with specified encodeing.<br> 
+    Give a String as <i>path</i> to image file. And give a String for encoder. 
+  size()
+    Retreives the image size of self.<br>
+    Retruns an array of two integers as [<i>width, height</i>].
+  thumbnail(w, h)
+    Retreves a small image from this image with specified size.<br>
+    Returns a RWin::Picture object.
+  to_bitmap()
+    Creates a new bitmap from self. Returns a RWin::Bitmap object.
+  to_icon()
+    Creates a new icon from self. Returns a RWin::Icon object.
+
+=end
+    
+    # Dumps self to a string for Marshal object with specified encoder and resolution.<br>
+    # Give a string as encoder such as "png" or "jpeg", and a float as resolution.
+    def _dump(encoder='image/png', resolution=nil)
+      encoder[0, 0] = 'image/' if encoder.split('/').size == 1
+      super(encoder, resolution)
+    end
+  end
+end

data/lib/wrb/components/printdlg.rb

@@ -0,0 +1,148 @@
+require 'wrb/commdlg'
+
+module WR
+  module RC
+    PD_ALLPAGES = 0x0
+    PD_SELECTION = 0x1
+    PD_PAGENUMS = 0x2
+    PD_NOSELECTION = 0x4
+    PD_NOPAGENUMS = 0x8
+    PD_COLLATE = 0x10
+    PD_PRINTTOFILE = 0x20
+    PD_PRINTSETUP = 0x40
+    PD_NOWARNING = 0x80
+    PD_RETURNDC = 0x100
+    PD_RETURNIC = 0x200
+    PD_RETURNDEFAULT = 0x400
+    PD_SHOWHELP = 0x800
+    PD_ENABLEPRINTHOOK = 0x1000
+    PD_ENABLESETUPHOOK = 0x2000
+    PD_ENABLEPRINTTEMPLATE = 0x4000
+    PD_ENABLESETUPTEMPLATE = 0x8000
+    PD_ENABLEPRINTTEMPLATEHANDLE = 0x10000
+    PD_ENABLESETUPTEMPLATEHANDLE = 0x20000
+    PD_USEDEVMODECOPIES = 0x40000
+    PD_USEDEVMODECOPIESANDCOLLATE = 0x40000
+    PD_DISABLEPRINTTOFILE = 0x80000
+    PD_HIDEPRINTTOFILE = 0x100000
+    PD_NONETWORKBUTTON = 0x200000
+    PD_CURRENTPAGE = 0x400000
+    PD_NOCURRENTPAGE = 0x800000
+    PD_EXCLUSIONFLAGS = 0x1000000
+    PD_USELARGETEMPLATE = 0x10000000
+    
+    START_PAGE_GENERAL = 0xffffffff
+
+    PD_RESULT_CANCEL = 0
+    PD_RESULT_PRINT  = 1
+    PD_RESULT_APPLY  = 2
+  end
+  
+  # This dialog box enables the user to specify the properties of a particular print job.
+  class PrintDlg < CommonDialog
+    
+    API.typealias 'HGLOBAL', 'Q'
+    API.typealias 'LPPRINTHOOKPROC', 'Q'
+    API.typealias 'LPSETUPHOOKPROC', 'Q'
+    
+    PRINTDLG = API.defstruct true, "
+      DWORD lStructSize;
+      HWND hwndOwner;
+      HGLOBAL hDevMode;
+      HGLOBAL hDevNames;
+      HDC hDC;
+      DWORD Flags;
+      WORD nFromPage;
+      WORD nToPage;
+      WORD nMinPage;
+      WORD nMaxPage;
+      WORD nCopies;
+      HINSTANCE hInstance;
+      LPARAM lCustData;
+      LPPRINTHOOKPROC lpfnPrintHook;
+      LPSETUPHOOKPROC lpfnSetupHook;
+      LPCWSTR lpPrintTemplateName;
+      LPCWSTR lpSetupTemplateName;
+      HGLOBAL hPrintTemplate;
+      HGLOBAL hSetupTemplate;"
+    
+    API.defun "PrintDlg(LPPRINTDLGEX lppd)"
+    
+    attr_reader :_printdlg
+    
+    def self.show(owner=nil, flags: nil, frompage: nil, topage: nil, minpage: nil, maxpage: nil, copies: nil)
+      pd = self.new
+      pd.flags = flags if flags
+      pd.frompage = frompage if frompage
+      pd.topage = topage if topage
+      pd.minpage = minpage if minpage
+      pd.maxpage = maxpage if maxpage
+      pd.copies = copies if copies
+      pd.show(owner)
+    end
+    
+    def initialize()
+      @_printdlg = PRINTDLG[PRINTDLG::Size]
+    end
+    
+    def flags()
+      @_printdlg.Flags
+    end
+    def flags=(f)
+      @_printdlg.Flags = f
+    end
+    
+    def frompage()
+      @_printdlg.nFromPage
+    end
+    def frompage=(n)
+      @_printdlg.nFromPage = n
+    end
+    
+    def topage()
+      @_printdlg.nToPage
+    end
+    def topage=(n)
+      @_printdlg.nToPage = n
+    end
+    
+    def minpage()
+      @_printdlg.nMinPage
+    end
+    def minpage=(n)
+      @_printdlg.nMinPage = n
+    end
+    
+    def maxpage()
+      @_printdlg.nMaxPage
+    end
+    def maxpage=(n)
+      @_printdlg.nMaxPage = n
+    end
+    
+    def copies()
+      @_printdlg.nCopies
+    end
+    def copies=(n)
+      @_printdlg.nCopies = n
+    end
+    
+    def show(owner=nil)
+      @_printdlg.hwndOwner = owner if owner
+      r = API.PrintDlg(@_printdlg)
+      return nil if r==0
+      if @_printdlg.Flags & PD_RETURNDC != 0
+        return @_printdlg.hdc
+      end
+      devmode = API::DEVMODE.new_from_pointer(API.GlobalLock(@_printdlg.hDevMode));
+      API.GlobalUnlock(@_printdlg.hDevMode);
+      devmode
+    end
+  end
+end
+
+module WR
+  dpp PrintDlg.show(flags: RC::PD_SELECTION, maxpage: 10)
+#  dpp PrintDlg.new.show()
+end if $0==__FILE__
+

data/lib/wrb/components/printdlgex.rb

@@ -0,0 +1,117 @@
+
+module WR
+  require_relative './printdlg' unless defined?(PrintDlg)
+  
+  # Displays a Print property sheet that enables the user to specify the properties of a particular print job.
+  class PrintDlgEx < CommonDialog
+    
+    PRINTPAGERANGE =  API.defstruct "
+      DWORD nFromPage;
+      DWORD nToPage;"
+    
+    API.typealias 'HPROPSHEETPAGE', 'Q'
+    API.typealias 'LPUNKNOWN', 'Q'
+    
+    PRINTDLGEX = API.defstruct "
+      DWORD lStructSize;
+      HWND hwndOwner;
+      HGLOBAL hDevMode;
+      HGLOBAL hDevNames;
+      HDC hDC;
+      DWORD Flags;
+      DWORD Flags2;
+      DWORD ExclusionFlags;
+      DWORD nPageRanges;
+      DWORD nMaxPageRanges;
+      PRINTPAGERANGE *lpPageRanges;
+      DWORD nMinPage;
+      DWORD nMaxPage;
+      DWORD nCopies;
+      HINSTANCE hInstance;
+      LPCTSTR lpPrintTemplateName;
+      LPUNKNOWN lpCallback;
+      DWORD nPropertyPages;
+      HPROPSHEETPAGE *lphPropertyPages;
+      DWORD nStartPage;
+      DWORD dwResultAction;"
+    
+    API.defun "PrintDlgEx(LPPRINTDLGEX lppd)"
+    
+    attr_reader :_printdlg
+    
+    def self.show(owner=nil, flags: nil, frompage: nil, topage: nil, minpage: nil, maxpage: nil, copies: nil)
+      pd = self.new
+      pd.flags = flags if flags
+      pd.frompage = frompage if frompage
+      pd.topage = topage if topage
+      pd.minpage = minpage if minpage
+      pd.maxpage = maxpage if maxpage
+      pd.copies = copies if copies
+      pd.show(owner)
+    end
+    
+    def initialize()
+      @_printdlgex = PRINTDLGEX[PRINTDLGEX::Size]
+    end
+    
+    def flags()
+      @_printdlgex.Flags
+    end
+    def flags=(f)
+      @_printdlgex.Flags = f
+    end
+    
+    def frompage()
+      @_printdlgex.nFromPage
+    end
+    def frompage=(n)
+      @_printdlgex.nFromPage = n
+    end
+    
+    def topage()
+      @_printdlgex.nToPage
+    end
+    def topage=(n)
+      @_printdlgex.nToPage = n
+    end
+    
+    def minpage()
+      @_printdlgex.nMinPage
+    end
+    def minpage=(n)
+      @_printdlgex.nMinPage = n
+    end
+    
+    def maxpage()
+      @_printdlgex.nMaxPage
+    end
+    def maxpage=(n)
+      @_printdlgex.nMaxPage = n
+    end
+    
+    def copies()
+      @_printdlgex.nCopies
+    end
+    def copies=(n)
+      @_printdlgex.nCopies = n
+    end
+    
+    def show(owner=nil)
+      @_printdlgex.hwndOwner = owner if owner
+      r = API.PrintDlgEx(@_printdlgex)
+#      return nil if r==0
+#      if @_printdlgex.Flags & PD_RETURNDC != 0
+#        return @_printdlgex.hdc
+#      end
+#      devmode = API::DEVMODE.new_from_pointer(API.GlobalLock(@_printdlgex.hDevMode));
+#      API.GlobalUnlock(@_printdlgex.hDevMode);
+#      devmode
+    end
+  end
+end
+
+module WR
+  dpp PrintDlg.show(flags: RC::PD_SELECTION, maxpage: 10)
+  dp "@%#x", PrintDlgEx.new.show()
+end if $0==__FILE__
+

data/lib/wrb/components/printer.rb

@@ -0,0 +1,97 @@
+require 'wrb'
+
+# wrapper of DEVMODE
+module WR
+  # Provides an interface that allows an application to access the printer. 
+  class Printer < RWin::Printer
+    
+=begin
+Following methods are defined at the super class.
+:singleton_methods
+  self.GetDefaultPrinter()
+
+:instance_methods
+  _devmode()
+  _hdc()
+  close()
+  open()
+  print()
+
+=end
+
+    def self.open(dev)
+      return nil unless dev
+      prt = self.new(dev)
+      prt.open
+    end
+    
+    def initialize(device)
+      super
+      @_devmode = self._devmode if self._hdc==0
+    end
+    
+    def devicename()
+      @_devmode.dmDeviceName.to_s
+    end
+    
+    def scale()
+      @_devmode.dmScale
+    end
+    def scale=(s)
+      @_devmode.dmScale = s
+    end
+    
+    def orientation()
+      @_devmode.dmOrientation
+    end
+    def orientation(o)
+      @_devmode.dmOrientation = o
+    end
+    
+    def papersize()
+      @_devmode.dmPaperSize
+    end
+    def papersize=(s)
+      @_devmode.dmPaperSize = s
+    end
+    
+    def paperlength()
+      @_devmode.dmPaperLength
+    end
+    def paperlength=(l)
+      @_devmode.dmPaperLength = l
+    end
+    
+    def paperwidth()
+      @_devmode.dmPaperWidth
+    end
+    def paperwidth=(w)
+      @_devmode.dmPaperWidth = w
+    end
+    
+    def copies()
+      @_devmode.dmCopies
+    end
+    def copies=(n)
+      @_devmode.dmCopies = n
+    end
+    
+  end
+end
+
+module WR
+#  devmode = PrintDlg.show
+#  exit unless devmode
+  prt = Printer.open(PrintDlg.show)
+  dpp prt.papersize
+  prt.print("TestPage", RWin::Canvas){|cv|
+      cv.TextOut(100, 100, 'Page 1')
+      cv.SetPen(0x0000ff)
+      cv.LineTo(1000, 1000)
+      cv.TextOut(1000, 1000, 'HogeHoge123')
+      cv.NextPage
+      cv.TextOut(100, 100, 'Page 2')
+      cv.LineTo(100, 1000)
+  } if prt
+  
+end if $0==__FILE__