mainform.dfm

image converter source code

object fwbMainForm: TfwbMainForm
  Left = 205
  Top = 206
  Width = 696
  Height = 480
  Caption = 'FreeWinBitmap - MainDemo'
  Color = clCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  ShowHint = True
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnPaint = FormPaint
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 411
    Width = 688
    Height = 23
    Panels = <
      item
        Alignment = taCenter
        Width = 120
      end
      item
        Alignment = taCenter
        Width = 80
      end
      item
        Width = 50
      end>
  end
  object tbTools: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 29
    Caption = 'ToolBar'
    Color = clBtnFace
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = ImageList1
    ParentColor = False
    TabOrder = 1
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Width = 8
      Caption = 'ToolButton1'
      ImageIndex = 1
      Style = tbsSeparator
    end
    object btnOpen: TToolButton
      Left = 8
      Top = 0
      Hint = 'Open image file...'
      Caption = 'Open...'
      ImageIndex = 0
      OnClick = mnuFileOpenClick
    end
    object ToolButton4: TToolButton
      Left = 31
      Top = 0
      Width = 8
      Caption = 'ToolButton4'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object btnCopy: TToolButton
      Left = 39
      Top = 0
      Hint = 'Copy to clipboard'
      Caption = 'Copy'
      ImageIndex = 1
      OnClick = btnCopyClick
    end
    object btnPaste: TToolButton
      Left = 62
      Top = 0
      Hint = 'Paste from from clipboard'
      Caption = 'Paste'
      ImageIndex = 2
      OnClick = btnPasteClick
    end
    object ToolButton3: TToolButton
      Left = 85
      Top = 0
      Width = 8
      Caption = 'ToolButton3'
      ImageIndex = 4
      Style = tbsSeparator
    end
    object btnClear: TToolButton
      Left = 93
      Top = 0
      Caption = 'Clear'
      ImageIndex = 3
      OnClick = btnClearClick
    end
  end
  object MainMenu: TMainMenu
    Left = 120
    Top = 48
    object mnuFile: TMenuItem
      Caption = '&File'
      object mnuFileOpen: TMenuItem
        Caption = '&Open'
        OnClick = mnuFileOpenClick
      end
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuExitClick
      end
    end
    object mnuImage: TMenuItem
      Caption = 'Image'
      object mnuImageFlip: TMenuItem
        Caption = 'Flip'
        object mnuFlipHorz: TMenuItem
          Caption = 'Horizontal'
          OnClick = mnuFlipHorzClick
        end
        object mnuFlipVert: TMenuItem
          Caption = 'Vertical'
          OnClick = mnuFlipHorzClick
        end
      end
      object mnuConvert: TMenuItem
        Caption = 'Convert'
        object mnuTo4Bits: TMenuItem
          Caption = 'To 4 Bits'
          OnClick = mnuFlipHorzClick
        end
        object mnuTo8Bits: TMenuItem
          Caption = 'To 8 Bits'
          OnClick = mnuFlipHorzClick
        end
        object mnuTo16Bits555: TMenuItem
          Caption = 'To 16 Bits (555)'
          OnClick = mnuFlipHorzClick
        end
        object mnuTo16Bits565: TMenuItem
          Caption = 'To 16 Bits (565)'
          OnClick = mnuFlipHorzClick
        end
        object mnuTo24Bits: TMenuItem
          Caption = 'To 24 Bits'
          OnClick = mnuFlipHorzClick
        end
        object mnuTo32Bits: TMenuItem
          Caption = 'To 32 Bits'
          OnClick = mnuFlipHorzClick
        end
        object mnuDither: TMenuItem
          Caption = 'Dither'
          OnClick = mnuFlipHorzClick
        end
        object mnuQuantize: TMenuItem
          Caption = 'Quantize'
          OnClick = mnuFlipHorzClick
        end
        object mnuGrayScale: TMenuItem
          Caption = 'GrayScale'
          OnClick = mnuFlipHorzClick
        end
      end
      object mnuRotate: TMenuItem
        Caption = 'Rotate'
        object mnuClockwise: TMenuItem
          Caption = 'Clockwise'
          OnClick = mnuFlipHorzClick
        end
        object mnuAntiClockwise: TMenuItem
          Caption = 'AntiClockwise'
          OnClick = mnuFlipHorzClick
        end
      end
      object mnuInvert: TMenuItem
        Caption = 'Invert'
        OnClick = mnuFlipHorzClick
      end
      object mnuClear: TMenuItem
        Caption = 'Clear'
        OnClick = mnuFlipHorzClick
      end
    end
  end
  object OD: TOpenDialog
    Title = 'Open file ...'
    Left = 152
    Top = 48
  end
  object ImageList1: TImageList
    Left = 184
    Top = 48
    Bitmap = {