root/lang/ruby/ruwin/lib/ruwin/edit_field/rich.rb @ 29077

module Ruwin
  class EditField
    class Rich < EditField
      autoload :Format, "ruwin/edit_field/rich/format"
      
      class Selection < EditField::Selection
        attr_reader :format
        
        def initialize *args
          super
          @format = Format::Char.new self, SCF_SELECTION
        end
        
        def string
          result = "\0"*length
          sendMessage EM_GETSELTEXT, 0, result
          result
        end
      end
      
      SELECTION_CLASS = Selection
      
      LoadLibrary = Win32API.new("kernel32","LoadLibrary",["P"],"I")
      if LoadLibrary.call("riched20") != 0
        CLASS_NAME = "RICHEDIT20A"
      elsif LoadLibrary.call("riched32") != 0
        CLASS_NAME = "RICHEDIT"
      end
      
      property_accessor :background_color => nil, :color => nil
      attr_reader :default
      
      def initialize
        super
        
        sendMessage EM_SETEVENTMASK, 0, ENM_KEYEVENTS|ENM_LINK
        
        self.background_color = @proparty[:background_color] if @proparty[:background_color]
        
        @default = Format::Char.new self, SCF_DEFAULT
        @default.color = @proparty[:color] if @proparty[:color]
      end
      
      
      def background_color= color
        if color
          sendMessage EM_SETBKGNDCOLOR, 0, color
        else
          sendMessage EM_SETBKGNDCOLOR, 1, 0
        end
      end
      
      def auto_url_detect= enable
        if enable
          sendMessage EM_AUTOURLDETECT, 1, 0
        else
          sendMessage EM_AUTOURLDETECT, 0, 0
        end
      end
      
      notifies = {
        :EN_MSGFILTER => :en_msgfilter,
        :EN_LINK      => :en_link,
      }.map{|command, event| "when #{command}; #{event} msg;" }.join
      class_eval <<-"END"
        def wm_notify msg, hwndFrom, idFrom, code
          case code
          #{notifies}
          else
            super
          end
        end
      END
      
      def en_msgfilter msg
        nmhdr1, nmhdr2, nmhdr2, msg, wParam, lParam = *SWin::Application.cstruct2array(msg.lParam, "UUUUUU")
        case msg
        when WM_KEYDOWN
          [:keydown, wParam]
        end
      end
      
      def en_link msg
        nmhdr1, nmhdr2, nmhdr2, msg, wParam, lParam, first, last = *SWin::Application.cstruct2array(msg.lParam, "UUUUUUUU")
        case msg
        when WM_LBUTTONDOWN
          [:link_lmousedown, first, last]
        end
      end
      
      class Multiline < Rich
        STYLE = EditField::Multiline::STYLE
      end
    end
  end
end