root/lang/ruby/ruwin/test/ruwin/edit_field/test_rich.rb @ 29128

require File.expand_path(File.join(File.dirname(__FILE__), "..", "..", "helper"))
require "ruwin"
require "ruwin/edit_field"
require File.expand_path(File.join(File.dirname(__FILE__), "..", "testm_edit_field"))

module TestModuleEditFieldRich
  include Ruwin::Const::Window
  include Ruwin::Const::EditField
  
  def test_eventmask
    eventmask = @control.sendMessage(EM_GETEVENTMASK, 0, 0)
    assert_equal ENM_KEYEVENTS, eventmask&ENM_KEYEVENTS
    assert_equal ENM_LINK, eventmask&ENM_LINK
  end
  
  def test_background_color_property
    klass = Class.new(self.class::TARGET_CLASS)
    klass.class_eval "background_color 0x010203"
    control = klass.new(@window)
    assert control.message_log.include?([EM_SETBKGNDCOLOR, 0, 0x010203])
  end
  
  def test_background_color_setter
    @control.background_color = 0x010203
    assert_equal [[EM_SETBKGNDCOLOR, 0, 0x010203]], @control.message_log
  end
  
  def test_background_color_setter_nil
    @control.background_color = nil
    assert_equal [[EM_SETBKGNDCOLOR, 1, 0]], @control.message_log
  end
  
  
  def test_color_property
    klass = Class.new(self.class::TARGET_CLASS)
    klass.class_eval "color 0x010203"
    control = klass.new(@window)
    
    expected = control.message_log.find{|v| v[0] == EM_SETCHARFORMAT}
    assert_equal EM_SETCHARFORMAT, expected[0]
    assert_equal SCF_DEFAULT,      expected[1]
    
    charformat = expected[2].unpack("LLLLLLCCU")
    assert_equal 0x010203, charformat[5]
  end
  
  def test_auto_url_detect_true
    @control.auto_url_detect = true
    assert_equal [[EM_AUTOURLDETECT, 1, 0]], @control.message_log
  end
  
  def test_auto_url_detect_false
    @control.auto_url_detect = false
    assert_equal [[EM_AUTOURLDETECT, 0, 0]], @control.message_log
  end
  
  
  def test_default_format
    assert_kind_of Ruwin::EditField::Rich::Format::Char, @control.default
    assert_same @control, @control.default.instance_variable_get(:@control)
  end
  
  [
    %w{EN_MSGFILTER en_msgfilter},
    %w{EN_LINK      en_link},
  ].each do |(event, method)|
    class_eval <<-"END2"
      def test_wm_notify_#{event}
        klass = Class.new(Ruwin::EditField::Rich)
        klass.class_eval <<-'END'
          attr_reader :wm_notify_msg
          def #{method} msg
            @wm_notify_msg = [:#{method}, msg]
          end
        END
        instance = klass.new(HiddenWindow.new)
        
        msg = DummyMSG.new nil, nil, nil, nil
        instance.wm_notify msg, 0, 0, #{event}
        assert_equal [:#{method}, msg], instance.wm_notify_msg
      end
    END2
  end
  
  [
    %w{WM_KEYDOWN     [:keydown,\ 11]},
    %w{WM_LBUTTONDOWN [:lmousedown,\ 1,2]},
    %w{WM_RBUTTONDOWN [:rmousedown,\ 1,2]},
  ].each do |(message, args)|
    class_eval <<-"END"
      def test_en_msgfilter_#{message}
        klass = Class.new(Ruwin::EditField::Rich)
        instance = klass.new(HiddenWindow.new)
        
        lParam = SWin::Application.arg2cstructStr("UUUUUU", 0, 0, 0, #{message}, 11, 1|2<<16)
        lParam_ptr = [lParam].pack("P").unpack("L")[0]
        msg = DummyMSG.new nil, nil, nil, lParam_ptr
        assert_equal #{args}, instance.en_msgfilter(msg)
      end
    END
  end
  
  [
    %w{WM_LBUTTONDOWN link_lmousedown},
    %w{WM_RBUTTONDOWN link_rmousedown},
  ].each do |(message, event)|
    class_eval <<-"END"
      def test_en_link_#{message}
        klass = Class.new(Ruwin::EditField::Rich)
        instance = klass.new(HiddenWindow.new)
        
        lParam = SWin::Application.arg2cstructStr("UUUUUUUU", 0, 0, 0, #{message}, 0, 0, 5, 10)
        lParam_ptr = [lParam].pack("P").unpack("L")[0]
        msg = DummyMSG.new nil, nil, nil, lParam_ptr
        assert_equal [:#{event}, 5, 10], instance.en_link(msg)
      end
    END
  end
end

class TestRuwinEditFieldRich < Test::Unit::TestCase
  include TestModuleEditFieldSingle
  include TestModuleEditFieldRich
  include Ruwin::Const::EditField
  TARGET_CLASS = Ruwin::EditField::Rich
  
  def test_classname
    assert_equal "RICHEDIT20A", @control.classname
  end
end

class TestRuwinEditFieldRichMultiline < Test::Unit::TestCase
  include TestModuleEditFieldMultiline
  include TestModuleEditFieldRich
  include Ruwin::Const::EditField
  TARGET_CLASS = Ruwin::EditField::Rich::Multiline
  
  def test_classname
    assert_equal "RICHEDIT20A", @control.classname
  end
end