GLScene/Externals/Graphics32/Examples/Drawing/GradFills/MainUnit.dfm

object MainForm: TMainForm
  Left = 225
  Top = 177
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Filling Polygons with Color Gradients'
  ClientHeight = 489
  ClientWidth = 571
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyPress = FormKeyPress
  TextHeight = 15
  object PnlControl: TPanel
    Left = 0
    Top = 0
    Width = 145
    Height = 489
    Align = alLeft
    ParentBackground = False
    TabOrder = 0
    ExplicitHeight = 464
    object LblColorStopsTop: TLabel
      Left = 14
      Top = 15
      Width = 68
      Height = 15
      Caption = 'Color Stops:'
      FocusControl = MemoColorStops
    end
    object LblLookupTableOrder: TLabel
      Left = 14
      Top = 225
      Width = 111
      Height = 15
      Caption = 'Lookup Table Order:'
    end
    object MemoColorStops: TMemo
      Left = 14
      Top = 38
      Width = 114
      Height = 139
      Lines.Strings = (
        '0.0: clRed32'
        '0.1: clYellow32'
        '0.3: clLime32'
        '0.5: $AA00FFFF'
        '0.7: clBlue32'
        '0.9: clFuchsia32'
        '1.0: $80FF0000')
      TabOrder = 0
      WordWrap = False
      OnChange = MemoColorStopsChange
    end
    object RgpEllipseFillStyle: TRadioGroup
      Left = 14
      Top = 400
      Width = 114
      Height = 69
      Caption = 'Radial &Fill Style'
      ItemIndex = 1
      Items.Strings = (
        'Simple'
        'SVG')
      ParentBackground = False
      TabOrder = 1
      OnClick = RgpEllipseFillStyleClick
    end
    object RgpWrapMode: TRadioGroup
      Left = 14
      Top = 272
      Width = 114
      Height = 122
      Caption = '&Wrap Mode'
      ItemIndex = 0
      Items.Strings = (
        'Clamp'
        'Repeat'
        'Mirror'
        'Reflect')
      ParentBackground = False
      TabOrder = 2
      OnClick = RgpWrapModeClick
    end
    object BtnDefaults: TButton
      Left = 34
      Top = 183
      Width = 75
      Height = 25
      Caption = '&Defaults'
      TabOrder = 3
      OnClick = BtnDefaultsClick
    end
    object CmbLUT: TComboBox
      Left = 14
      Top = 243
      Width = 114
      Height = 23
      ItemIndex = 5
      TabOrder = 4
      Text = '9 (= 512 Values)'
      OnChange = CmbLUTChange
      Items.Strings = (
        '4 (= 16 Values)'
        '5 (= 32 Values)'
        '6 (= 64 Values)'
        '7 (= 128 Values)'
        '8 (= 256 Values)'
        '9 (= 512 Values)'
        '10 (= 1024 Values)'
        '11 (= 2048 Values)'
        '12 (= 4096 Values)'
        '13 (= 8192 Values)')
    end
  end
  object ImgView32: TImgView32
    Left = 145
    Top = 0
    Width = 426
    Height = 489
    Align = alClient
    Bitmap.ResamplerClassName = 'TNearestResampler'
    BitmapAlign = baTile
    RepaintMode = rmOptimizer
    Scale = 1.000000000000000000
    ScaleMode = smNormal
    ScrollBars.Increment = 0
    ScrollBars.Size = 16
    ScrollBars.Visibility = svHidden
    OverSize = 0
    TabOrder = 1
    OnDblClick = ImgView32DblClick
    OnMouseDown = ImgView32MouseDown
    OnMouseMove = ImgView32MouseMove
    OnMouseUp = ImgView32MouseUp
    ExplicitWidth = 418
    ExplicitHeight = 464
  end
  object MainMenu: TMainMenu
    Left = 193
    Top = 16
    object MnuFile: TMenuItem
      Caption = '&File'
      object MnuFileOpen: TMenuItem
        Caption = 'Open...'
        OnClick = MnuFileOpenClick
      end
      object MnuFileSaveAs: TMenuItem
        Caption = 'Save As...'
        OnClick = MnuFileSaveAsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object MnuExit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 27
        OnClick = BtnExitClick
      end
    end
    object MnuWrapMode: TMenuItem
      Caption = '&Wrap Mode'
      object MnuClamp: TMenuItem
        Caption = '&Clamp'
        Checked = True
        RadioItem = True
        OnClick = MnuSpreadClick
      end
      object MnuRepeat: TMenuItem
        Tag = 1
        Caption = '&Repeat'
        RadioItem = True
        OnClick = MnuSpreadClick
      end
      object MnuMirror: TMenuItem
        Tag = 2
        Caption = '&Mirror'
        RadioItem = True
        OnClick = MnuSpreadClick
      end
      object MnuReflect: TMenuItem
        Tag = 3
        Caption = 'Reflect'
        RadioItem = True
        OnClick = MnuSpreadClick
      end
    end
    object MnuRadialFillStyle: TMenuItem
      Caption = 'Radial &Fill Style'
      object MnuSimple: TMenuItem
        Caption = '&Simple'
        RadioItem = True
        OnClick = MnuRadialFillStyleClick
      end
      object MnuSVG: TMenuItem
        Tag = 1
        Caption = 'S&VG'
        Checked = True
        RadioItem = True
        OnClick = MnuRadialFillStyleClick
      end
    end
    object MnuLookupTableOrder: TMenuItem
      Caption = '&Lookup Table Order'
      object MnuOrder4: TMenuItem
        Caption = '4 (= 16 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder5: TMenuItem
        Tag = 1
        Caption = '5 (= 32 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder6: TMenuItem
        Tag = 2
        Caption = '6 (= 64 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder7: TMenuItem
        Tag = 3
        Caption = '7 (= 128 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder8: TMenuItem
        Tag = 4
        Caption = '8 (= 256 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder9: TMenuItem
        Tag = 5
        Caption = '9 (= 512 Values)'
        Checked = True
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder10: TMenuItem
        Tag = 6
        Caption = '10 (= 1024 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder11: TMenuItem
        Tag = 7
        Caption = '11 (= 2048 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder12: TMenuItem
        Tag = 8
        Caption = '12 (= 4096 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
      object MnuOrder13: TMenuItem
        Tag = 9
        Caption = '13 (= 8192 Values)'
        RadioItem = True
        OnClick = MnuOrderClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = '.stops.txt'
    Left = 192
    Top = 80
  end
  object SaveDialog: TSaveDialog
    DefaultExt = '.stops.txt'
    Filter = 'Color Stops (*.stops.txt)|*.stops.txt'
    Left = 192
    Top = 136
  end
end