root/lang/ruby/ruwin/lib/ruwin/control.rb @ 28895

module Ruwin
  class Control < Component
    STYLE   = WS_VISIBLE | WS_CHILD
    EXSTYLE = 0
    
    property_accessor \
      :left       => 0,
      :top        => 0,
      :right      => nil,
      :bottom     => nil,
      :width      => 10,
      :height     => 10
    
    def initialize
      super
      move @proparty[:left]||0, @proparty[:top]||0, @proparty[:width]||0, @proparty[:height]||0
    end
    
    def parent_resized parent_width, parent_height
      return unless @proparty[:right] || @proparty[:bottom]
      
      size = Array.new(4)
      
      [
        [0, 2, parent_width,  :left, :right,  :width],
        [1, 3, parent_height, :top,  :bottom, :height],
      ].each do |(low_index, interval_index, parent, low, high, interval)|
        if @proparty[interval]
          size[interval_index] = @proparty[interval]
          if @proparty[low]
            size[low_index] = @proparty[low]
          else
            size[low_index] = parent - @proparty[high] - @proparty[interval]
          end
        else
          size[low_index] = @proparty[low]
          size[interval_index] = parent - @proparty[high] - @proparty[low]
        end
      end
      
      move *size
    end
    
    class << self
      def new parent
        super
      end
      
      def inherit name, &block
        klass = Class.new(self)
        klass.class_eval &block
        klass
      end
    end
  end
end