main.dfm

Very interesting program which can model fires in a forest. Language: Russian only

object mainwin: Tmainwin
  Left = 50
  Top = 48
  Width = 913
  Height = 577
  Caption = 'Fire'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  DesignSize = (
    905
    523)
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel2: TBevel
    Left = 296
    Top = 0
    Width = 600
    Height = 374
    Anchors = [akLeft, akTop, akRight, akBottom]
  end
  object btn_play: TSpeedButton
    Left = 304
    Top = 473
    Width = 23
    Height = 22
    Anchors = [akLeft, akBottom]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F3333F333337F3E0F33303333370E337F3337FF33337F3E0F333003333
      70E337F33377FF3337F3E0F33300033370E337F333777FF337F3E0F333000033
      70E337F33377773337F3E0F33300033370E337F33377733337F3E0F333003333
      70E337F33377333337F3E0F33303333370E337F33373333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = btn_playClick
  end
  object btn_pause: TSpeedButton
    Left = 327
    Top = 473
    Width = 23
    Height = 22
    Anchors = [akLeft, akBottom]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F33333333337F3E0F33333333370E337F333FF3FF337F3E0F330030033
      70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
      70E337F3377F77F337F3E0F33003003370E337F3377F77F337F3E0F330030033
      70E337F33773773337F3E0F33333333370E337F33333333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = btn_pauseClick
  end
  object btn_stop: TSpeedButton
    Left = 351
    Top = 473
    Width = 23
    Height = 22
    Anchors = [akLeft, akBottom]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F33333333337F3E0F33333333370E337F333FFFFF337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F33777773337F3E0F33333333370E337F33333333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = btn_stopClick
  end
  object btn_beginrecord: TSpeedButton
    Left = 375
    Top = 473
    Width = 23
    Height = 22
    Anchors = [akLeft, akBottom]
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      33333333333333333333EEEEEEEEEEEEEEE333FFFFFFFFFFFFF3E00000000000
      00E337777777777777F3E0F77777777770E337F33333333337F3E0F333333333
      70E337F33333333337F3E0F33333333370E337F3333FFF3337F3E0F337000733
      70E337F333777FF337F3E0F33000003370E337F3377777F337F3E0F330000033
      70E337F3377777F337F3E0F33000003370E337F33777773337F3E0F337000733
      70E337F33377733337F3E0F33333333370E337F33333333337F3E0F333333333
      70E337F33333333337F3E0FFFFFFFFFFF0E337FFFFFFFFFFF7F3E00000000000
      00E33777777777777733EEEEEEEEEEEEEEE33333333333333333}
    NumGlyphs = 2
    OnClick = btn_beginrecordClick
  end
  object PerformanceGraph1: TPerformanceGraph
    Left = 12
    Top = 394
    Width = 877
    Height = 70
    Anchors = [akLeft, akRight, akBottom]
    GridSize = 10
    StepSize = 10
    Scale = 100
    Gradient = 100
    PenWidth = 10
  end
  object Bevel7: TBevel
    Left = 4
    Top = 384
    Width = 892
    Height = 124
    Anchors = [akLeft, akRight, akBottom]
  end
  object Bevel8: TBevel
    Left = 288
    Top = 467
    Width = 9
    Height = 33
    Anchors = [akLeft, akBottom]
    Shape = bsLeftLine
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 504
    Width = 905
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 289
    Height = 377
    ActivePage = TabSheet1
    Anchors = [akLeft, akTop, akBottom]
    TabIndex = 0
    TabOrder = 1
    object TabSheet1: TTabSheet
      Caption = #1057#1080#1084#1091#1083#1103#1094#1080#1103
      object Label4: TLabel
        Left = 4
        Top = 8
        Width = 51
        Height = 13
        Caption = #1057#1082#1086#1088#1086#1089#1090#1100':'
      end
      object Label5: TLabel
        Left = 4
        Top = 25
        Width = 24
        Height = 20
        Caption = 'U='
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -16
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label10: TLabel
        Left = 4
        Top = 80
        Width = 23
        Height = 13
        Caption = #1051#1077#1089':'
      end
      object Label11: TLabel
        Left = 4
        Top = 96
        Width = 64
        Height = 13
        Caption = #1056#1077#1076#1082#1086#1083#1077#1089#1100#1077':'
      end
      object Label12: TLabel
        Left = 4
        Top = 112
        Width = 41
        Height = 13
        Caption = #1044#1086#1088#1086#1075#1080':'
      end
      object Label13: TLabel
        Left = 4
        Top = 128
        Width = 50
        Height = 13
        Caption = #1042#1086#1076#1086#1105#1084#1099':'
      end
      object Label14: TLabel
        Left = 4
        Top = 144
        Width = 42
        Height = 13
        Caption = #1050#1072#1085#1072#1074#1099':'
      end
      object Label15: TLabel
        Left = 4
        Top = 160
        Width = 60
        Height = 13
        Caption = #1058#1086#1088#1092#1103#1085#1085#1080#1082':'
      end
      object Label16: TLabel
        Left = 4
        Top = 200
        Width = 51
        Height = 13
        Caption = #1042#1077#1088#1093#1086#1074#1086#1081':'
      end
      object Label17: TLabel
        Left = 4
        Top = 216
        Width = 47
        Height = 13
        Caption = #1053#1080#1079#1086#1074#1086#1081':'
      end
      object Label18: TLabel
        Left = 4
        Top = 232
        Width = 63
        Height = 13
        Caption = #1055#1086#1076#1079#1077#1084#1085#1099#1081':'
      end
      object lbl_forest_begin: TLabel
        Left = 72
        Top = 80
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_sforest_begin: TLabel
        Left = 72
        Top = 96
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_road_begin: TLabel
        Left = 72
        Top = 112
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_pond_begin: TLabel
        Left = 72
        Top = 128
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_drain_begin: TLabel
        Left = 72
        Top = 144
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_peatbog_begin: TLabel
        Left = 72
        Top = 160
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_fireup_begin: TLabel
        Left = 72
        Top = 200
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_firemidle_begin: TLabel
        Left = 72
        Top = 216
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_firedown_begin: TLabel
        Left = 72
        Top = 232
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_forest_now: TLabel
        Left = 136
        Top = 80
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_sforest_now: TLabel
        Left = 136
        Top = 96
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_peatbog_now: TLabel
        Left = 136
        Top = 160
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_fireup_now: TLabel
        Left = 136
        Top = 200
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_firemidle_now: TLabel
        Left = 136
        Top = 216
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_firedown_now: TLabel
        Left = 136
        Top = 232
        Width = 18
        Height = 13
        Caption = '000'
      end
      object Label37: TLabel
        Left = 4
        Top = 184
        Width = 22
        Height = 13
        Caption = #1053#1077#1090':'
      end
      object lbl_firenull_begin: TLabel
        Left = 72
        Top = 184
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_firenull_now: TLabel
        Left = 136
        Top = 184
        Width = 18
        Height = 13
        Caption = '000'
      end
      object Label40: TLabel
        Left = 4
        Top = 248
        Width = 50
        Height = 13
        Caption = #1057#1086#1078#1078#1077#1085#1086':'
      end
      object lbl_carbons_begin: TLabel
        Left = 72
        Top = 248
        Width = 18
        Height = 13
        Caption = '000'
      end
      object lbl_carbons_now: TLabel
        Left = 136
        Top = 248
        Width = 18