Changeset 28950

Timestamp:

01/24/09 12:30:58 (4 years ago)

Author:

isaisstillalive

Message:

• EditField::Rich::Formatクラスを作成。とりあえずRich#defaultで取得でき、各種テキストスタイルを設定できるようにした。未完成。
  

Location:

lang/ruby/ruwin

Files:

• lib/ruwin/edit_field/rich.rb (modified) (2 diffs)
• test/ruwin/edit_field/test_rich.rb (modified) (2 diffs)

lang/ruby/ruwin/lib/ruwin/edit_field/rich.rb

@@ -7 +7 @@
           sendMessage EM_GETSELTEXT, 0, result
           result
+        end
+      end
+      
+      class Format
+        include Ruwin
+        include Const::EditField
+        
+        def initialize control, extent_flag
+          @control = control
+          @extent_flag = extent_flag
+        end
+        
+        {
+          :bold       => %w{CFM_BOLD      CFE_BOLD},
+          :italic     => %w{CFM_ITALIC    CFE_ITALIC},
+          :underline  => %w{CFM_UNDERLINE CFE_UNDERLINE},
+          :strikeout  => %w{CFM_STRIKEOUT CFE_STRIKEOUT},
+          :protected  => %w{CFM_PROTECTED CFE_PROTECTED},
+        }.each do |option, (mask, effect)|
+          class_eval <<-"END"
+            def #{option}= enable
+              set_char_format(#{mask}, :effects => (enable ? #{effect} : 0))
+            end
+          END
+        end
+        
+        {
+          :height     => %w{CFM_SIZE},
+          :offset     => %w{CFM_OFFSET},
+        }.each do |option, mask|
+          class_eval <<-"END"
+            def #{option}= twip
+              set_char_format(#{mask}, :#{option} => twip)
+            end
+          END
+        end
+        
+        
+        private
+        def set_char_format mask, options
+          @control.sendMessage EM_SETCHARFORMAT, @extent_flag, char_format(mask, options)
+        end
+        
+        def char_format mask, options
+          [
+            60,
+            mask,
+            options[:effects] || 0,
+            options[:height]  || 0,
+            options[:offset]  || 0,
+            0,
+            0,
+            0,
+            0,
+          ].pack("LLLLLLCCU")
         end
       end
@@ -20 +75 @@
       
       property_accessor :background_color => nil
+      attr_reader :default
       
       def initialize
         super
         self.background_color = @proparty[:background_color] if @proparty[:background_color]
+        @default = Format.new self, SCF_DEFAULT
       end
       

lang/ruby/ruwin/test/ruwin/edit_field/test_rich.rb

@@ -23 +23 @@
     assert_equal [[EM_SETBKGNDCOLOR, 1, 0]], @control.message_log
   end
+  
+  
+  def test_default_format
+    assert_kind_of Ruwin::EditField::Rich::Format, @control.default
+    assert_same @control, @control.default.instance_variable_get(:@control)
+  end
+  
   
   
@@ -83 +90 @@
 end
 
+class TestRuwinEditFieldRichFormatDefault < Test::Unit::TestCase
+  include Ruwin::Const::EditField
+  
+  def setup
+    @control = Ruwin::EditField::Rich.new(HiddenWindow.new)
+    @format = @control.default
+  end
+  
+  {
+    :bold       => %w{CFM_BOLD      CFE_BOLD},
+    :italic     => %w{CFM_ITALIC    CFE_ITALIC},
+    :underline  => %w{CFM_UNDERLINE CFE_UNDERLINE},
+    :strikeout  => %w{CFM_STRIKEOUT CFE_STRIKEOUT},
+    :protected  => %w{CFM_PROTECTED CFE_PROTECTED},
+  }.each do |option, (mask, effect)|
+    {
+      :on  => true,
+      :off => false,
+    }.each do |name, enable|
+      effect = "0" if name == :off
+      
+      class_eval <<-"END"
+        def test_effects_#{option}_#{name}
+          @format.#{option} = #{enable}
+          
+          assert_equal 1, @control.message_log.size
+          assert_setcharformat @control.message_log.last, 1 => #{mask}, 2 => #{effect}
+        end
+      END
+    end
+  end
+  
+  {
+    :height     => %w{CFM_SIZE      3},
+    :offset     => %w{CFM_OFFSET    4},
+  }.each do |option, (mask, index)|
+    %w{20 -20}.each do |value|
+      class_eval <<-"END"
+        def test_#{option}_#{value.gsub "-", "minus"}
+          @format.#{option} = #{value}
+          
+          assert_equal 1, @control.message_log.size
+          assert_setcharformat @control.message_log.last, 1 => #{mask}, #{index} => #{value}
+        end
+      END
+    end
+  end
+  
+  
+  def assert_setcharformat expected, options
+    assert_equal EM_SETCHARFORMAT, expected[0]
+    assert_equal SCF_DEFAULT,      expected[1]
+    
+    charformat = @control.message_log.last[2].unpack("LLLLLLCCU")
+    options.each do |index, value|
+      assert_equal value, Ruwin::SIGNEDLONG(charformat[index])
+    end
+  end
+end