PC World 2000 April/PCWorld_2000-04_cd.bin/EPA/run.exe/0/RCDATA/TDEMOLANGUAGEDLG/TDEMOLANGUAGEDLG.txt

Text File | 2000-02-24 | 5KB | 210 lines

inherited DemoLanguageDlg: TDemoLanguageDlg
  Left = 375
  Top = 174
  Caption = 'DemoLanguageDlg'
  ClientHeight = 283
  ClientWidth = 357
  Color = 528956933
  OldCreateOrder = True
  Position = poScreenCenter
  OnPaint = FormPaint
  PixelsPerInch = 96
  TextHeight = 15
  object Framer1: TFramer [0]
    Left = 0
    Top = 0
    Width = 357
    Height = 283
    BLeftTop.Idx = 0
    BLeftTop.BmpArray = NCFramerBA
    BRightTop.Idx = 1
    BRightTop.BmpArray = NCFramerBA
    BRightBottom.Idx = 2
    BRightBottom.BmpArray = NCFramerBA
    BLeftBottom.Idx = 3
    BLeftBottom.BmpArray = NCFramerBA
    BTop.Idx = 4
    BTop.BmpArray = NCFramerBA
    BRight.Idx = 5
    BRight.BmpArray = NCFramerBA
    BBottom.Idx = 6
    BBottom.BmpArray = NCFramerBA
    BLeft.Idx = 7
    BLeft.BmpArray = NCFramerBA
    GLines = NCFramerBA
    GCorners = NCFramerBA
    GBmpArray = NCFramerBA
    Align = alClient
  end
  object CZ: TPaintedButton [1]
    Left = 240
    Top = 56
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 0
    Style = pbs_Button
  end
  object EN: TPaintedButton [2]
    Left = 34
    Top = 56
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 1
    Style = pbs_Button
  end
  object HU: TPaintedButton [3]
    Left = 137
    Top = 56
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 2
    Style = pbs_Button
  end
  object FR: TPaintedButton [4]
    Left = 34
    Top = 128
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 3
    Style = pbs_Button
  end
  object GE: TPaintedButton [5]
    Left = 137
    Top = 128
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 4
    Style = pbs_Button
  end
  object IT: TPaintedButton [6]
    Left = 240
    Top = 128
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 5
    Style = pbs_Button
  end
  object Label1: TLabel [7]
    Left = 34
    Top = 20
    Width = 161
    Height = 19
    Caption = 'Select your language'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    Transparent = True
  end
  object AR: TPaintedButton [8]
    Left = 34
    Top = 200
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 7
    Style = pbs_Button
  end
  object PL: TPaintedButton [9]
    Left = 137
    Top = 200
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 6
    Style = pbs_Button
  end
  object SP: TPaintedButton [10]
    Left = 240
    Top = 200
    Width = 85
    Height = 61
    OnClick = FlagBtnClick
    RegLeft = 0
    RegTop = 0
    RegUssages = [uf_HitTest, uf_Clipping]
    BitmapArray = BtnBA
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    BARows = 0
    BmpArrayColumn = 8
    Style = pbs_Button
  end
  inherited PaletteBMP: TBmpArray
    Left = 9
    Top = 55
  end
  object NCFramerBA: TBmpArray
    FileName = 'Design\Picts\Dialog\Frmbor.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Collumns = 8
    Picture.Data = {<image000.bmp>}
    Left = 10
    Top = 114
  end
  object BtnBA: TBmpArray
    FileName = 'Design\Picts\Dialog\Flags.bmp'
    FileSourcer.DesignStyle = [fss_LoadFromFile, fss_ErrShowException]
    Collumns = 9
    Rows = 4
    Picture.Data = {<image001.bmp>}
    Left = 8
    Top = 162
  end
end