Horizontal Radio Group?

[Jerry Thomas]

Is it possible to have a Radio Group with the items in a Horizontal arrangement?

I have tried just taking out the #13#10
Replacing #13#10 with ' '
Replacing #131#10 with #9 (tab)

Nothing shows the 2nd and 3rd radio buttons, just the text

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Left = 299
  Top = 155
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'CustomDialog'
  ClientHeight = 212
  ClientWidth = 431
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object rgOptionList: tMSRadioGroup
    Left = 17
    Top = 14
    Width = 185
    Height = 105
    Caption = 'Pick an option:'
    TabOrder = 8
    Items.Strings = (
      'A'
      'B'
      'C')
    Text = 'A'#13#10'B'#13#10'C'#13#10
  end
end
EndDialog>Dialog1

//    Text = 'A''B''C'#13#10
//    Text = 'A''  ''B''  ''C'#13#10
//    Text = 'A'#9'B'#9'C'#13#10
//    Text = 'A'#13#10'B'#13#10'C'#13#10

Show>Dialog1,r

[JRL]

Code: Select all

Dialog>Dialog1
object Dialog1: TForm
  Left = 346
  Top = 224
  HelpContext = 5000
  BorderIcons = [biSystemMenu]
  Caption = 'CustomDialog'
  ClientHeight = 223
  ClientWidth = 439
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  ShowHint = True
  OnTaskBar = False
  PixelsPerInch = 96
  TextHeight = 13
  object MSRadioGroup1: tMSRadioGroup
    Left = 89
    Top = 59
    Width = 185
    Height = 105
    Caption = 'Set Column Property'
    Columns = 3
    Items.Strings = (
      'Item1'
      'Item2'
      'Item3')
    TabOrder = 8
    Text = 'Item1'#13#10'Item2'#13#10'Item3'#13#10
  end
end
EndDialog>Dialog1

Show>Dialog1,

[Jerry Thomas]

Ah yes, so simple

Column = 3

Thanks JRL