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

module Ruwin
  class EditField
    class Rich < EditField
      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
      
      module Format
        class Char
          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
              
              def #{option}
                get_char_format(#{mask})[2]&#{effect} == #{effect}
              end
            END
          end
          
          {
            :height     => %w{CFM_SIZE    twip},
            :offset     => %w{CFM_OFFSET  twip},
            :color      => %w{CFM_COLOR   color},
          }.each do |option, (mask, variable)|
            class_eval <<-"END"
              def #{option}= #{variable}
                set_char_format(#{mask}, :#{option} => #{variable})
              end
            END
          end
          
          def height
            SIGNEDLONG(get_char_format(CFM_SIZE)[3])
          end
          
          def offset
            SIGNEDLONG(get_char_format(CFM_OFFSET)[4])
          end
          
          def color
            get_char_format(CFM_OFFSET)[5]
          end
          
          
          private
          CHARFORMAT = "LLLLLLCCU"
          
          def set_char_format mask, options
            @control.sendMessage EM_SETCHARFORMAT, @extent_flag, char_format(mask, options)
          end
          
          def get_char_format mask
            charformat = char_format mask
            @control.sendMessage EM_GETCHARFORMAT, @extent_flag, charformat
            charformat.unpack CHARFORMAT
          end
          
          def char_format mask, options = {}
            [
              60,
              mask,
              options[:effects] || 0,
              options[:height]  || 0,
              options[:offset]  || 0,
              options[:color]   || 0,
              0,
              0,
              0,
            ].pack CHARFORMAT
          end
        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
        
        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 wm_notify msg
        hwndFrom, idFrom, code = *SWin::Application.cstruct2array(msg.lParam, "UUU")
        case code
        when EN_MSGFILTER
          en_msgfilter msg
        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
      
      class Multiline < Rich
        STYLE = EditField::Multiline::STYLE
      end
    end
  end
end