Needle Craft Plus/NeedleCraftPlusVolume1.iso/win/dotmat/dotmat2a.exe/dotmat.exe/0/RCDATA/TMODELFRM/TMODELFRM.txt

Text File | 1996-05-03 | 4KB | 167 lines

object ModelFrm: TModelFrm
  Left = 228
  Top = 108
  Width = 507
  Height = 349
  ActiveControl = SpinEdit1
  Caption = 'Make a design'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Icon.Data = {<image000.ico>}
  Position = poDefault
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 499
    Height = 54
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 28
      Top = 7
      Width = 56
      Height = 13
      Caption = 'Cell size :'
    end
    object SpinEdit1: TSpinEdit
      Left = 28
      Top = 24
      Width = 58
      Height = 22
      Hint = '|Size of one cell of the design in pixels'
      MaxLength = 3
      MaxValue = 50
      MinValue = 3
      TabOrder = 0
      Value = 10
      OnChange = SpinEdit1Change
    end
    object Panel2: TPanel
      Left = 112
      Top = 2
      Width = 285
      Height = 49
      BevelOuter = bvLowered
      TabOrder = 1
      object BtnReset: TButton
        Left = 23
        Top = 2
        Width = 78
        Height = 22
        Hint = '|Reset design by clearing picture'
        Caption = '&Reset'
        TabOrder = 0
        OnClick = BtnResetClick
      end
      object colors: TButton
        Left = 23
        Top = 26
        Width = 78
        Height = 22
        Hint = '|Draw the color list'
        Caption = '&Colors'
        Enabled = False
        TabOrder = 1
        OnClick = colorsClick
      end
      object btnfont: TButton
        Left = 103
        Top = 26
        Width = 79
        Height = 22
        Hint = '|Choose the font for the color list'
        Caption = '&Font'
        TabOrder = 2
        OnClick = btnfontClick
      end
      object drawgrd: TButton
        Left = 103
        Top = 2
        Width = 79
        Height = 22
        Hint = '|Draw the design grid'
        Caption = '&Draw Grid'
        TabOrder = 3
        OnClick = drawgrdClick
      end
      object mapimg: TButton
        Left = 185
        Top = 2
        Width = 77
        Height = 22
        Hint = '|Draw the image in the grid'
        Caption = '&Map Image'
        Enabled = False
        TabOrder = 4
        OnClick = mapimgClick
      end
      object btnsave: TButton
        Left = 185
        Top = 26
        Width = 77
        Height = 22
        Hint = '|Save the design to BMP files'
        Caption = '&Save'
        TabOrder = 5
        OnClick = btnsaveClick
      end
    end
  end
  object ScrollBox2: TScrollBox
    Left = 0
    Top = 54
    Width = 499
    Height = 183
    Align = alClient
    TabOrder = 1
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 134
      Height = 103
      AutoSize = True
    end
  end
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 237
    Width = 499
    Height = 85
    Align = alBottom
    TabOrder = 2
    object Image2: TImage
      Left = 0
      Top = 0
      Width = 92
      Height = 54
      AutoSize = True
    end
  end
  object FontDialog1: TFontDialog
    Font.Color = clWindowText
    Font.Height = -17
    Font.Name = 'System'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 5
    Top = 174
  end
  object SaveDialog: TSaveDialog
    DefaultExt = 'bmp'
    FileEditStyle = fsEdit
    Filter = 'Bitmap Files (*.bmp)|*.bmp'
    Left = 33
    Top = 175
  end
end