.net 2000 August/NET74.ISO/pc/Software/WAPDraw/WAPDraw.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 2000-03-17 | 9.4 KB | 417 lines

object MainForm: TMainForm
  Left = 162
  Top = 142
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = ' WAPDraw'
  ClientHeight = 519
  ClientWidth = 729
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 16
  object SizeLabel: TLabel
    Left = 624
    Top = 0
    Width = 36
    Height = 14
    Caption = '80 x 80'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object ZoomLabel: TLabel
    Left = 522
    Top = 0
    Width = 61
    Height = 14
    Caption = 'Zoom: 600%'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
  end
  object Fill: TSpeedButton
    Left = 664
    Top = 200
    Width = 25
    Height = 25
    Hint = 'Fill'
    AllowAllUp = True
    BiDiMode = bdLeftToRight
    GroupIndex = 2
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Glyph.Data = {
      66010000424D6601000000000000760000002800000014000000140000000100
      040000000000F0000000C30E0000C30E00001000000010000000000000008400
      00006BBD2900BDBDBD00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333
      3333333300003333333333333333333300003333333333333333333300003333
      1333333333333333000033311333333003333333000033311333330000333333
      0000331113333000000333330000331113330200000033330000331113302220
      0000033300003311130222220000003300003311302222222000003300003311
      3022222222000333000033111302222222203333000033311130444444033333
      0000333311130444403333330000333333333044033333330000333333333300
      3333333300003333333333333333333300003333333333333333333300003333
      33333333333333330000}
    ParentFont = False
    ParentShowHint = False
    ParentBiDiMode = False
    ShowHint = True
    OnClick = FillClick
  end
  object Pen: TSpeedButton
    Left = 624
    Top = 200
    Width = 25
    Height = 25
    Hint = 'Pen'
    AllowAllUp = True
    BiDiMode = bdLeftToRight
    GroupIndex = 1
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Glyph.Data = {
      42010000424D4201000000000000760000002800000011000000110000000100
      040000000000CC000000C30E0000C30E0000100000001000000000000000007B
      7B007B7B7B00BDBDBD0084F7FF0000FFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
      FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00333333333333
      3333300000003300333333333333300000003300003333333333300000003330
      0200333333333000000033303442003333333000000033330344200333333000
      0000333303340110333330000000333330301511033330000000333330055151
      1033300000003333330155151103300000003333333015515113300000003333
      3333015515133000000033333333301551533000000033333333330155133000
      0000333333333330155330000000333333333333015330000000333333333333
      333330000000}
    ParentFont = False
    ParentShowHint = False
    ParentBiDiMode = False
    ShowHint = True
    OnClick = PenClick
  end
  object Paneeli: TPanel
    Left = 10
    Top = 15
    Width = 576
    Height = 480
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 2
    object Boxi: TImage
      Left = 0
      Top = 0
      Width = 576
      Height = 480
      Picture.Data = {<image000.bmp>}
      Stretch = True
      OnMouseDown = BoxiMouseDown
      OnMouseMove = BoxiMouseMove
      OnMouseUp = BoxiMouseUp
    end
  end
  object PiirtoColor: TGroupBox
    Left = 624
    Top = 251
    Width = 96
    Height = 70
    Caption = ' Color '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object PiirtoWhite: TLabel
      Left = 16
      Top = 21
      Width = 20
      Height = 16
      Color = clWhite
      Constraints.MinHeight = 16
      Constraints.MinWidth = 20
      ParentColor = False
      OnClick = PiirtoWhiteClick
    end
    object PiirtoBlack: TLabel
      Left = 16
      Top = 44
      Width = 20
      Height = 16
      Color = clBlack
      Constraints.MinHeight = 16
      Constraints.MinWidth = 20
      ParentColor = False
      OnClick = PiirtoBlackClick
    end
    object ColorPaneeli: TPanel
      Left = 51
      Top = 21
      Width = 31
      Height = 39
      BevelInner = bvSpace
      BevelOuter = bvNone
      Color = clBlack
      TabOrder = 0
    end
  end
  object PikkuPaneeli: TPanel
    Left = 624
    Top = 15
    Width = 96
    Height = 80
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 3
    object PikkuBoxi: TImage
      Left = 0
      Top = 0
      Width = 96
      Height = 80
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 498
    Width = 729
    Height = 21
    BiDiMode = bdLeftToRight
    BorderWidth = 1
    Panels = <
      item
        Text = 'X:      Y:'
        Width = 70
      end
      item
        Width = 60
      end
      item
        Width = 50
      end>
    ParentBiDiMode = False
    SimplePanel = False
  end
  object Tiedot: TGroupBox
    Left = 624
    Top = 339
    Width = 96
    Height = 138
    Caption = ' Size '
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'Arial'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object HeightLabel: TLabel
      Left = 6
      Top = 69
      Width = 41
      Height = 14
      Caption = ' Height:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object WidthLabel: TLabel
      Left = 6
      Top = 29
      Width = 37
      Height = 14
      Caption = ' Width:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label1: TLabel
      Left = 55
      Top = 12
      Width = 34
      Height = 12
      Caption = 'max. 96'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 55
      Top = 52
      Width = 34
      Height = 12
      Caption = 'max. 80'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -9
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object OKButton: TBitBtn
      Left = 20
      Top = 102
      Width = 57
      Height = 25
      TabOrder = 2
      OnClick = OKButtonClick
      Kind = bkOK
    end
    object Leveys: TEdit
      Left = 55
      Top = 24
      Width = 33
      Height = 23
      MaxLength = 2
      TabOrder = 0
      Text = '1'
    end
    object Korkeus: TEdit
      Left = 55
      Top = 64
      Width = 33
      Height = 23
      MaxLength = 2
      TabOrder = 1
      Text = '1'
    end
  end
  object Alaviiva: TPanel
    Left = 10
    Top = 495
    Width = 577
    Height = 2
    BevelOuter = bvLowered
    TabOrder = 5
  end
  object Reunaviiva: TPanel
    Left = 586
    Top = 15
    Width = 2
    Height = 482
    BevelOuter = bvLowered
    TabOrder = 6
  end
  object UndoPaneeli1: TPanel
    Left = 728
    Top = 16
    Width = 96
    Height = 80
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 7
    Visible = False
    object UndoBoxi1: TImage
      Left = 0
      Top = 0
      Width = 96
      Height = 80
    end
  end
  object UndoPaneeli2: TPanel
    Left = 728
    Top = 112
    Width = 96
    Height = 80
    BevelOuter = bvNone
    Color = clWhite
    TabOrder = 8
    Visible = False
    object UndoBoxi2: TImage
      Left = 0
      Top = 0
      Width = 96
      Height = 80
    end
  end
  object TaustaWhite: TButton
    Left = 696
    Top = 144
    Width = 17
    Height = 25
    TabOrder = 9
    Visible = False
    OnClick = TaustaWhiteClick
  end
  object MainMenu1: TMainMenu
    Left = 648
    Top = 112
    object Demo1: TMenuItem
      Caption = '&File'
      object New: TMenuItem
        Caption = '&New'
        OnClick = NewClick
      end
      object Save: TMenuItem
        Caption = '&Save'
        OnClick = SaveClick
      end
      object SaveAs: TMenuItem
        Caption = 'Save &As'
        OnClick = SaveAsClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit: TMenuItem
        Caption = 'E&xit'
        OnClick = ExitClick
      end
    end
    object Editti: TMenuItem
      Caption = '&Edit'
      object Undo: TMenuItem
        Caption = '&Undo'
        ShortCut = 16474
        OnClick = UndoClick
      end
    end
    object Info1: TMenuItem
      Caption = '&Info'
      object AboutWAPDraw: TMenuItem
        Caption = 'About WAPDraw'
        OnClick = AboutWAPDrawClick
      end
    end
  end
  object SaveDialog: TSaveDialog
    Filter = 'Wireless Bitmap (*.wbmp)|*.wbmp'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 688
    Top = 112
  end
end