Playing with GDI+ (brushes) (Ruby recipe) by greg zakharov

ActiveState Code (http://code.activestate.com/recipes/578346/)

require 'mscorlib'
require 'System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a'
require 'System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'

Application         = System::Windows::Forms::Application
BorderStyle         = System::Windows::Forms::BorderStyle
Bitmap              = System::Drawing::Bitmap
Button              = System::Windows::Forms::Button
Color               = System::Drawing::Color
ColorDialog         = System::Windows::Forms::ColorDialog
ComboBox            = System::Windows::Forms::ComboBox
Convert             = System::Convert
Decimal             = System::Decimal
DialogResult        = System::Windows::Forms::DialogResult
Enum                = System::Enum
EventArgs           = System::EventArgs
Font                = System::Drawing::Font
FontStyle           = System::Drawing::FontStyle
Form                = System::Windows::Forms::Form
FormBorderStyle     = System::Windows::Forms::FormBorderStyle
FormStartPosition   = System::Windows::Forms::FormStartPosition
HatchBrush          = System::Drawing::Drawing2D::HatchBrush
HatchStyle          = System::Drawing::Drawing2D::HatchStyle
Icon                = System::Drawing::Icon
Label               = System::Windows::Forms::Label
LinearGradientBrush = System::Drawing::Drawing2D::LinearGradientBrush
LinearGradientMode  = System::Drawing::Drawing2D::LinearGradientMode
MainMenu            = System::Windows::Forms::MainMenu
MenuItem            = System::Windows::Forms::MenuItem
MessageBox          = System::Windows::Forms::MessageBox
MessageBoxButtons   = System::Windows::Forms::MessageBoxButtons
MessageBoxIcon      = System::Windows::Forms::MessageBoxIcon
NumericUpDown       = System::Windows::Forms::NumericUpDown
PathGradientBrush   = System::Drawing::Drawing2D::PathGradientBrush
Pen                 = System::Drawing::Pen
PictureBox          = System::Windows::Forms::PictureBox
PictureBoxSizeMode  = System::Windows::Forms::PictureBoxSizeMode
Point               = System::Drawing::Point
Rectangle           = System::Drawing::Rectangle
Size                = System::Drawing::Size
Shortcut            = System::Windows::Forms::Shortcut
SolidBrush          = System::Drawing::SolidBrush
StatusBar           = System::Windows::Forms::StatusBar
TextBox             = System::Windows::Forms::TextBox
TextureBrush        = System::Drawing::TextureBrush
WrapMode            = System::Drawing::Drawing2D::WrapMode

class Frm < Form
  def initialize
    #for texture brush only
    @pic = Bitmap.new('D:\source\Clouds.jpg')
    #for other brushes
    @col1 = Color.Blue
    @col2 = Color.White
    #initialization
    self.InitializeComponent()
  end

  def InitializeComponent()
    @mnuMain = MainMenu.new()
    @mnuFile = MenuItem.new()
    @mnuExit = MenuItem.new()
    @mnuHelp = MenuItem.new()
    @mnuInfo = MenuItem.new()
    @lblLabel0 = Label.new()
    @lblLabel1 = Label.new()
    @lblLabel2 = Label.new()
    @lblLabel3 = Label.new()
    @lblLabel4 = Label.new()
    @lblLabel5 = Label.new()
    @lblLabel6 = Label.new()
    @lblLabel7 = Label.new()
    @lblLabel8 = Label.new()
    @lblLabel9 = Label.new()
    @cboBrushType = ComboBox.new()
    @cboDrawing = ComboBox.new()
    @txtColor1 = TextBox.new()
    @txtColor2 = TextBox.new()
    @btnColor1 = Button.new()
    @btnColor2 = Button.new()
    @cboBrushSize = ComboBox.new()
    @cboWrapMode = ComboBox.new()
    @cboHatchStyle = ComboBox.new()
    @nudRotation = NumericUpDown.new()
    @nudGradBlend = NumericUpDown.new()
    @cboGradMode = ComboBox.new()
    @picDemoArea = PictureBox.new()
    @sbStatusBar = StatusBar.new()
    @cdlg = ColorDialog.new()
    #
    #mnuMain
    #
    [@mnuFile, @mnuHelp].each {|item| @mnuMain.MenuItems.Add item}
    #
    #mnuFile
    #
    @mnuFile.MenuItems.Add @mnuExit
    @mnuFile.Text = '&File'
    #
    #mnuExit
    #
    @mnuExit.Shortcut = Shortcut.CtrlX
    @mnuExit.Text = 'E&xit'
    @mnuExit.Click {|sender, e| mnuExit_Click(sender, e)}
    #
    #mnuHelp
    #
    @mnuHelp.MenuItems.Add @mnuInfo
    @mnuHelp.Text = '&Help'
    #
    #mnuInfo
    #
    @mnuInfo.Text = 'About'
    @mnuInfo.Click {|sender, e| mnuInfo_Click(sender, e)}
    #
    #lblLabel0
    #
    @lblLabel0.Location = Point.new(8, 16)
    @lblLabel0.Size = Size.new(96, 23)
    @lblLabel0.Text = 'Brush Type:'
    #
    #lblLabel1
    #
    @lblLabel1.Location = Point.new(8, 40)
    @lblLabel1.Size = Size.new(96, 23)
    @lblLabel1.Text = 'Drawing:'
    #
    #lblLabel2
    #
    @lblLabel2.Location = Point.new(8, 80)
    @lblLabel2.Size = Size.new(96, 23)
    @lblLabel2.Text = 'Color 1:'
    #
    #lblLabel3
    #
    @lblLabel3.Location = Point.new(8, 104)
    @lblLabel3.Size = Size.new(96, 23)
    @lblLabel3.Text = 'Color 2:'
    #
    #lblLabel4
    #
    @lblLabel4.Location = Point.new(8, 152)
    @lblLabel4.Size = Size.new(96, 23)
    @lblLabel4.Text = 'Brush Size:'
    #
    #lblLabel5
    #
    @lblLabel5.Location = Point.new(8, 184)
    @lblLabel5.Size = Size.new(96, 23)
    @lblLabel5.Text = 'Wrap Mode:'
    #
    #lblLabel6
    #
    @lblLabel6.Location = Point.new(8, 216)
    @lblLabel6.Size = Size.new(96, 23)
    @lblLabel6.Text = 'Hatch Style:'
    #
    #lblLabel7
    #
    @lblLabel7.Location = Point.new(8, 248)
    @lblLabel7.Size = Size.new(96, 23)
    @lblLabel7.Text = 'Rotation:'
    #
    #lblLabel8
    #
    @lblLabel8.Location = Point.new(8, 280)
    @lblLabel8.Size = Size.new(104, 23)
    @lblLabel8.Text = 'Gradient Blend:'
    #
    #lblLabel9
    #
    @lblLabel9.Location = Point.new(8, 312)
    @lblLabel9.Size = Size.new(104, 23)
    @lblLabel9.Text = 'Gradient Mode:'
    #
    #cboBrushType
    #
    ['Solid', 'Hatch', 'Texture', 'LinearGradient',
     'PathGradient'].each {|item| @cboBrushType.Items.Add item}
    @cboBrushType.Location = Point.new(112, 13)
    @cboBrushType.Size = Size.new(176, 24)
    @cboBrushType.SelectedItem = 'Solid'
    @cboBrushType.SelectedIndexChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #cboDrawing
    #
    ['Fill', 'Ellipses', 'Lines'].each {|item| @cboDrawing.Items.Add item}
    @cboDrawing.Location = Point.new(112, 40)
    @cboDrawing.Size = Size.new(176, 24)
    @cboDrawing.SelectedItem = 'Fill'
    @cboDrawing.SelectedIndexChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #txtColor1
    #
    @txtColor1.BackColor = @col1
    @txtColor1.Location = Point.new(112, 77)
    @txtColor1.Size = Size.new(144, 23)
    @txtColor1.Text = 'Color [Blue]'
    @txtColor1.TextChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #txtColor2
    #
    @txtColor2.BackColor = @col2
    @txtColor2.Location = Point.new(112, 104)
    @txtColor2.Size = Size.new(144, 23)
    @txtColor2.Text = 'Color [White]'
    @txtColor2.TextChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #btnColor1
    #
    @btnColor1.Location = Point.new(256, 76)
    @btnColor1.Size = Size.new(32, 25)
    @btnColor1.Text = '...'
    @btnColor1.Click {|sender, e| btnColor1_Click(sender, e)}
    #
    #btnColor2
    #
    @btnColor2.Location = Point.new(256, 103)
    @btnColor2.Size = Size.new(32, 25)
    @btnColor2.Text = '...'
    @btnColor2.Click {|sender, e| btnColor2_Click(sender, e)}
    #
    #cboBrushSize
    #
    ['Large', 'Medium', 'Small'].each {|item| @cboBrushSize.Items.Add item}
    @cboBrushSize.Location = Point.new(112, 149)
    @cboBrushSize.Size = Size.new(176, 24)
    @cboBrushSize.SelectedItem = 'Large'
    @cboBrushSize.SelectedIndexChanged {|sender, e| cboBrushSize_SelectedIndexChanged(sender, e)}
    #
    #cboWrapMode
    #
    @cboWrapMode.Location = Point.new(112, 181)
    @cboWrapMode.Size = Size.new(176, 24)
    @cboWrapMode.SelectedIndexChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #cboHatchStyle
    #
    @cboHatchStyle.Location = Point.new(112, 213)
    @cboHatchStyle.Size = Size.new(176, 24)
    @cboHatchStyle.SelectedIndexChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #nudRotation
    #
    @nudRotation.Increment = Decimal.new(5)
    @nudRotation.Location = Point.new(112, 245)
    @nudRotation.Maximum = Decimal.new(180)
    @nudRotation.Size = Size.new(176, 23)
    @nudRotation.ValueChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #nudGradBlend
    #
    @nudGradBlend.DecimalPlaces = 2
    @nudGradBlend.Increment = Decimal.new(0.10)
    @nudGradBlend.Location = Point.new(112, 277)
    @nudGradBlend.Maximum = Decimal.new(1)
    @nudGradBlend.Size = Size.new(176, 23)
    @nudGradBlend.Value = Decimal.new(1)
    @nudGradBlend.ValueChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #cboGradMode
    #
    @cboGradMode.Location = Point.new(112, 309)
    @cboGradMode.Size = Size.new(176, 24)
    @cboGradMode.SelectedIndexChanged {|sender, e| RedrawPicture(sender, e)}
    #
    #picDemoArea
    #
    @picDemoArea.BorderStyle = BorderStyle.FixedSingle
    @picDemoArea.Location = Point.new(304, 16)
    @picDemoArea.Size = Size.new(312, 320)
    #
    #sbStatusBar
    #
    @sbStatusBar.SizingGrip = false
    #
    #Frm
    #
    self.ClientSize = Size.new(626, 371)
    [@lblLabel0, @lblLabel1, @lblLabel2, @lblLabel3, @lblLabel4, @lblLabel5,
     @lblLabel6, @lblLabel7, @lblLabel8, @lblLabel9, @cboBrushType, @cboDrawing,
     @txtColor1, @txtColor2, @btnColor1, @btnColor2, @cboBrushSize, @cboWrapMode,
     @cboHatchStyle, @nudRotation, @nudGradBlend, @cboGradMode, @picDemoArea,
     @sbStatusBar].each {|item| self.Controls.Add item}
    self.Font = Font.new('Microsoft Sans Serif', 10)
    self.FormBorderStyle = FormBorderStyle.FixedSingle
    self.MaximizeBox = false
    self.Menu = @mnuMain
    self.StartPosition = FormStartPosition.CenterScreen
    self.Text = 'Brushes'
    self.Load {|sender, e| frmMain_Load(sender, e)}
  end

  def mnuExit_Click(sender, e)
    Application.exit
  end

  def mnuInfo_Click(sender, e)
    FrmA.new().ShowDialog()
  end

  def btnColor1_Click(sender, e)
    if @cdlg.ShowDialog() == DialogResult.OK
      @col1 = @cdlg.Color
      @txtColor1.Text = @cdlg.Color.to_s
      @txtColor1.BackColor = @cdlg.Color
    end
  end

  def btnColor2_Click(sender, e)
    if @cdlg.ShowDialog() == DialogResult.OK
      @col2 = @cdlg.Color
      @txtColor2.Text = @cdlg.Color.to_s
      @txtColor2.BackColor = @cdlg.Color
    end
  end

  def cboBrushSize_SelectedIndexChanged(sender, e)
    case @cboBrushSize.Text
      when 'Large'
        @rec = Rectangle.new(0, 0, @picDemoArea.Width, @picDemoArea.Height)
      when 'Medium'
        @rec = Rectangle.new(0, 0, @picDemoArea.Width / 2, @picDemoArea.Height / 2)
      when 'Small'
        @rec = Rectangle.new(0, 0, @picDemoArea.Width / 4, @picDemoArea.Height / 4)
    end
    RedrawPicture(@cboBrushSize, EventArgs.new())
  end

  def RedrawPicture(sender, e)
    @picDemoArea.CreateGraphics().Clear(@col2)
    @picDemoArea.Refresh()

    #brush selector
    case @cboBrushType.Text
      when 'Solid'
        @txtColor2.Enabled = false
        @btnColor2.Enabled = false
        @cboBrushSize.Enabled = false
        @cboWrapMode.Enabled = false
        @cboHatchStyle.Enabled = false
        @nudRotation.Enabled = false
        @nudGradBlend.Enabled = false
        @cboGradMode.Enabled = false
        @brush = SolidBrush.new(@col1)
      when 'Hatch'
        @sbStatusBar.Text = ''
        @txtColor1.Enabled = true
        @txtColor2.Enabled = true
        @btnColor1.Enabled = true
        @btnColor2.Enabled = true
        @cboBrushSize.Enabled = false
        @cboWrapMode.Enabled = false
        @cboHatchStyle.Enabled = true
        @nudRotation.Enabled = false
        @nudGradBlend.Enabled = false
        @cboGradMode.Enabled = false
        @brush = HatchBrush.new(@cboHatchStyle.SelectedItem, @col1, @col2)
      when 'Texture'
        @txtColor1.Enabled = false
        @txtColor2.Enabled = false
        @btnColor1.Enabled = false
        @btnColor2.Enabled = false
        @cboBrushSize.Enabled = true
        @cboWrapMode.Enabled = true
        @cboHatchStyle.Enabled = false
        @nudRotation.Enabled = true
        @nudGradBlend.Enabled = false
        @cboGradMode.Enabled = false
        begin
          tb = TextureBrush.new(@pic, @rec)
          tb.WrapMode = @cboWrapMode.SelectedItem
          tb.RotateTransform(Convert.ToSingle(@nudRotation.Value))
          @brush = tb
        rescue Exception => e
          @sbStatusBar.Text = e.Message
        end
      when 'LinearGradient'
        @sbStatusBar.Text = ''
        @txtColor1.Enabled = true
        @txtColor2.Enabled = true
        @btnColor1.Enabled = true
        @btnColor2.Enabled = true
        @cboBrushSize.Enabled = true
        @cboWrapMode.Enabled = false
        @cboHatchStyle.Enabled = false
        @nudGradBlend.Enabled = true
        @cboGradMode.Enabled = true
        lgb = LinearGradientBrush.new(@rec, @col1, @col2, @cboGradMode.SelectedItem)
        lgb.RotateTransform(Convert.ToSingle(@nudRotation.Value))
        lgb.SetBlendTriangularShape(Convert.ToSingle(@nudGradBlend.Value))
        @brush = lgb
      when 'PathGradient'
        @cboWrapMode.Enabled = true
        @cboGradMode.Enabled = false
        points = System::Array[Point].new([Point.new(0, @rec.Height),
                                           Point.new(@rec.Width, @rec.Height),
                                           Point.new(@rec.Width, 0)])
        pgb = PathGradientBrush.new(points)
        pgb.CenterColor = @col1
        pgb.SurroundColors = System::Array[Color].new([@col2])
        pgb.WrapMode = @cboWrapMode.SelectedItem
        pgb.RotateTransform(Convert.ToSingle(@nudRotation.Value))
        pgb.SetBlendTriangularShape(Convert.ToSingle(@nudGradBlend.Value))
        @brush = pgb
    end

    #drawing images
    gfx = @picDemoArea.CreateGraphics()

    case @cboDrawing.Text
      when 'Fill'
        gfx.FillRectangle(@brush, 0, 0, @picDemoArea.Width, @picDemoArea.Height)
      when 'Ellipses'
        gfx.FillEllipse(@brush, @picDemoArea.Width / 10, @picDemoArea.Height / 10,
                                  @picDemoArea.Width / 2, @picDemoArea.Height / 2)
        gfx.FillEllipse(@brush, @picDemoArea.Width / 3, @picDemoArea.Height / 3,
                                @picDemoArea.Width / 2, @picDemoArea.Height / 2)
      when 'Lines'
        pen = Pen.new(@brush, 40)
        gfx.DrawLine(pen, 0, 0, @picDemoArea.Width, @picDemoArea.Height)
        gfx.DrawLine(pen, 0, 0, 0, @picDemoArea.Height)
        gfx.DrawLine(pen, 0, 0, @picDemoArea.Width, 0)
        gfx.DrawLine(pen, @picDemoArea.Width, 0, @picDemoArea.Width, @picDemoArea.Height)
        gfx.DrawLine(pen, 0, @picDemoArea.Height, @picDemoArea.Width, @picDemoArea.Height)
        gfx.DrawLine(pen, @picDemoArea.Width, 0, 0, @picDemoArea.Height)
    end
  end

  def frmMain_Load(sender, e)
    @rec = Rectangle.new(0, 0, @picDemoArea.Width, @picDemoArea.Height)
    #cboWrapMode filling
    Enum.GetValues(WrapMode.to_clr_type).each {|i| @cboWrapMode.Items.Add i}
    @cboWrapMode.SelectedIndex = 0
    #cboHatchStyle filling
    Enum.GetValues(HatchStyle.to_clr_type).each {|i| @cboHatchStyle.Items.Add i}
    @cboHatchStyle.SelectedIndex = 0
    #cboGradMode filling
    Enum.GetValues(LinearGradientMode.to_clr_type).each {|i| @cboGradMode.Items.Add i}
    @cboGradMode.SelectedIndex = 0
  end
end

class FrmA < Form
  def initialize
    self.InitializeComponent()
  end

  def InitializeComponent()
    @pbImage = PictureBox.new()
    @lblName = Label.new()
    @lblCopy = Label.new()
    @btnExit = Button.new()
    #
    #pbImage
    #
    @pbImage.Location = Point.new(16, 16)
    @pbImage.Size = Size.new(32, 32)
    @pbImage.SizeMode = PictureBoxSizeMode.StretchImage
    #
    #lblName
    #
    @lblName.Font = Font.new('Microsoft Sans Serif', 9, FontStyle.Bold)
    @lblName.Location = Point.new(53, 19)
    @lblName.Size = Size.new(360, 18)
    @lblName.Text = 'Brushes v1.00'
    #
    #lblCopy
    #
    @lblCopy.Location = Point.new(55, 37)
    @lblCopy.Size = Size.new(360, 23)
    @lblCopy.Text = '(C) 2012 Grigori Zakharov gregzakh@gmail.com'
    #
    #btnExit
    #
    @btnExit.Location = Point.new(135, 67)
    @btnExit.Text = 'OK'
    #
    #FrmA
    #
    self.AcceptButton = @btnExit
    self.CancelButton = @btnExit
    self.ClientSize = Size.new(350, 110)
    [@pbImage, @lblName, @lblCopy, @btnExit].each {|item| self.Controls.Add item}
    self.ControlBox = false
    self.FormBorderStyle = FormBorderStyle.FixedSingle
    self.ShowInTaskbar = false
    self.StartPosition = FormStartPosition.CenterParent
    self.Text = 'About...'
    self.Load {|sender, e| frmAbout_Load(sender, e)}
  end

  def frmAbout_Load(sender, e)
    begin
      icon = Icon
      @pbImage.Image = self.icon.ToBitmap()
    rescue Exception => e
      MessageBox.Show(e.Message, self.Text, MessageBoxButtons.OK, MessageBoxIcon.Stop)
    end
  end
end

Application.enable_visual_styles
Application.run Frm.new()