Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

Repository URL to install this package:

Details    
lazarus / usr / share / lazarus / 1.6 / examples / translation / main.lfm
Size: Mime:
inherited MainForm: TMainForm
  Left = 371
  Height = 280
  Top = 150
  Width = 247
  Caption = 'Translation demo'
  ClientHeight = 280
  ClientWidth = 247
  OnCreate = FormCreate
  object Label1: TLabel[0]
    Left = 14
    Height = 13
    Top = 16
    Width = 76
    Caption = 'Select language'
    FocusControl = CbLanguage
    ParentColor = False
  end
  object CbLanguage: TComboBox[1]
    Left = 136
    Height = 21
    Top = 13
    Width = 100
    ItemHeight = 13
    Items.Strings = (
      'de - Deutsch'
      'en - English'
      'es - Español'
      'fr - Français'
      'he - Hebrew'
      'ru - Russian'
    )
    OnChange = CbLanguageChange
    Style = csDropDownList
    TabOrder = 0
  end
  object Button1: TButton[2]
    Left = 14
    Height = 25
    Top = 240
    Width = 222
    Caption = 'Open second form'
    OnClick = Button1Click
    TabOrder = 1
  end
  object RgDrinks: TRadioGroup[3]
    Left = 14
    Height = 97
    Top = 47
    Width = 218
    AutoFill = True
    Caption = 'Please select a drink'
    ChildSizing.LeftRightSpacing = 6
    ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
    ChildSizing.EnlargeVertical = crsHomogenousChildResize
    ChildSizing.ShrinkHorizontal = crsScaleChilds
    ChildSizing.ShrinkVertical = crsScaleChilds
    ChildSizing.Layout = cclLeftToRightThenTopToBottom
    ChildSizing.ControlsPerLine = 1
    ClientHeight = 79
    ClientWidth = 214
    Items.Strings = (
      'beer'
      'wine'
      'water'
    )
    OnClick = RgDrinksClick
    TabOrder = 2
  end
  object Button2: TButton[4]
    Left = 18
    Height = 25
    Top = 184
    Width = 158
    Caption = 'What did you select?'
    OnClick = Button2Click
    TabOrder = 3
  end
  object Bevel1: TBevel[5]
    Left = 9
    Height = 3
    Top = 224
    Width = 223
    Shape = bsTopLine
  end
  object LblCurrentSelection: TLabel[6]
    Left = 18
    Height = 13
    Top = 154
    Width = 86
    Caption = 'No drink selected.'
    ParentColor = False
  end
end