PC Format Collection 48/SENT14D.ISO/tech/delphi/disk15/pagectrl.pak/PAGEFORM.DFM/PAGEFORM.txt

Text File | 1995-08-24 | 4.4 KB | 217 lines

object Form1: TForm1
  Left = 231
  Top = 101
  ActiveControl = Button1
  BorderStyle = bsDialog
  Caption = 'Form1'
  ClientHeight = 228
  ClientWidth = 378
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  PopupMenu = PopupMenu1
  OnCreate = FormCreate
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 8
    Width = 265
    Height = 172
  end
  object Button1: TButton
    Left = 288
    Top = 40
    Width = 66
    Height = 30
    Caption = 'OK'
    DragCursor = crDefault
    TabOrder = 0
    OnClick = ButtonClick
  end
  object Button2: TButton
    Left = 288
    Top = 80
    Width = 66
    Height = 30
    Caption = 'Cancel'
    DragCursor = crDefault
    TabOrder = 1
    OnClick = ButtonClick
  end
  object TabControl1: TTabSet
    Left = 0
    Top = 184
    Width = 361
    Height = 33
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    TabHeight = 0
    OnClick = TabControl1Click
  end
  object PageControl1: TNotebook
    Left = 16
    Top = 16
    Width = 249
    Height = 161
    TabOrder = 3
    object TPage
      Left = 0
      Top = 0
      Caption = 'One'
      object Label1: TLabel
        Left = 15
        Top = 7
        Width = 218
        Height = 20
        Alignment = taCenter
        AutoSize = False
        Caption = 'This is page One'
        DragCursor = crDefault
        WordWrap = True
      end
      object RadioButton1: TRadioButton
        Left = 15
        Top = 31
        Width = 120
        Height = 20
        Caption = 'RadioButton1'
        Checked = True
        DragCursor = crDefault
        TabOrder = 0
        TabStop = True
      end
      object RadioButton2: TRadioButton
        Left = 15
        Top = 55
        Width = 120
        Height = 20
        Caption = 'RadioButton2'
        DragCursor = crDefault
        TabOrder = 1
      end
      object RadioButton3: TRadioButton
        Left = 15
        Top = 79
        Width = 120
        Height = 20
        Caption = 'RadioButton3'
        DragCursor = crDefault
        TabOrder = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Two'
      object Label2: TLabel
        Left = 15
        Top = 7
        Width = 202
        Height = 20
        Alignment = taCenter
        AutoSize = False
        Caption = 'This is a page Two'
        DragCursor = crDefault
        WordWrap = True
      end
      object CheckBox1: TCheckBox
        Left = 15
        Top = 31
        Width = 90
        Height = 20
        Caption = 'CheckBox1'
        DragCursor = crDefault
        TabOrder = 0
      end
      object CheckBox2: TCheckBox
        Left = 15
        Top = 55
        Width = 90
        Height = 20
        Caption = 'CheckBox2'
        DragCursor = crDefault
        TabOrder = 1
      end
      object CheckBox3: TCheckBox
        Left = 15
        Top = 79
        Width = 90
        Height = 20
        Caption = 'CheckBox3'
        DragCursor = crDefault
        TabOrder = 2
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'Three'
      object Label3: TLabel
        Left = 7
        Top = 7
        Width = 226
        Height = 20
        Alignment = taCenter
        AutoSize = False
        Caption = 'This is page Three'
        DragCursor = crDefault
        WordWrap = True
      end
      object ListBox1: TListBox
        Left = 7
        Top = 31
        Width = 145
        Height = 121
        DragCursor = crDefault
        ItemHeight = 13
        Items.Strings = (
          'This'
          'is'
          'a'
          'listbox'
          'control')
        TabOrder = 0
      end
      object Button3: TButton
        Left = 167
        Top = 87
        Width = 58
        Height = 30
        Caption = '&Clear'
        DragCursor = crDefault
        TabOrder = 1
        OnClick = Button3Click
      end
      object Button4: TButton
        Left = 167
        Top = 39
        Width = 58
        Height = 30
        Caption = '&Sort'
        DragCursor = crDefault
        TabOrder = 2
        OnClick = Button4Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    AutoPopup = False
    Left = 307
    Top = 126
    object Next: TMenuItem
      Caption = 'Next'
      OnClick = NextClick
      ShortCutText = 'Ctrl+Tab'
    end
    object Previous: TMenuItem
      Caption = 'Previous'
      OnClick = PreviousClick
      ShortCutText = 'Shift+Ctrl+Tab'
    end
  end
end