PC Expert 29/Pce29cd.iso/RUNIMAGE/DELPHI40/BIN/CORIDE40.BPL/0/RCDATA/TGALLERYBROWSEDLG/TGALLERYBROWSEDLG.txt

Text File | 1998-06-16 | 4KB | 190 lines

object GalleryBrowseDlg: TGalleryBrowseDlg
  Left = 205
  Top = 122
  HelpContext = 3070
  AutoScroll = False
  BorderIcons = [biSystemMenu]
  Caption = 'New Items'
  ClientHeight = 338
  ClientWidth = 435
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = True
  PopupMenu = GalBrowPopup
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object OKButton: TButton
    Left = 196
    Top = 308
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = 'OK'
    Default = True
    ModalResult = 1
    TabOrder = 1
  end
  object CancelButton: TButton
    Left = 276
    Top = 308
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Cancel = True
    Caption = 'Cancel'
    ModalResult = 2
    TabOrder = 2
  end
  object HelpButton: TButton
    Left = 356
    Top = 308
    Width = 75
    Height = 25
    Anchors = [akRight, akBottom]
    Caption = '&Help'
    TabOrder = 3
    OnClick = HelpButtonClick
  end
  object TabControl: TTabControl
    Left = 5
    Top = 5
    Width = 426
    Height = 295
    Anchors = [akLeft, akTop, akRight, akBottom]
    HotTrack = True
    MultiLine = True
    TabOrder = 0
    Tabs.Strings = (
      'New')
    TabIndex = 0
    OnChange = TabControlChange
    object Panel1: TPanel
      Left = 4
      Top = 266
      Width = 418
      Height = 25
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 0
      object RReference: TRadioButton
        Left = 129
        Top = 6
        Width = 71
        Height = 17
        Hint = 'Add Object to Project'
        Caption = '&Use'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
      end
      object RInherit: TRadioButton
        Left = 69
        Top = 6
        Width = 58
        Height = 17
        Hint = 'Make an Inherited Form from Object'
        Caption = '&Inherit'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
      end
      object RCopy: TRadioButton
        Left = 9
        Top = 6
        Width = 54
        Height = 17
        Hint = 'Make a copy of Object'
        Caption = '&Copy'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
    end
  end
  object GalBrowPopup: TPopupMenu
    Left = 8
    Top = 283
    object LargeIcons1: TMenuItem
      Caption = 'View &Large Icons'
      GroupIndex = 1
      RadioItem = True
      OnClick = LargeIconsClick
    end
    object SmallIcons1: TMenuItem
      Caption = 'View &Small Icons'
      GroupIndex = 1
      RadioItem = True
      OnClick = SmallIconsClick
    end
    object List1: TMenuItem
      Caption = 'View L&ist'
      GroupIndex = 1
      RadioItem = True
      OnClick = ListClick
    end
    object Details1: TMenuItem
      Caption = 'View &Details'
      GroupIndex = 1
      RadioItem = True
      OnClick = DetailsClick
    end
    object N1: TMenuItem
      Caption = '-'
      GroupIndex = 1
    end
    object ArrangeName: TMenuItem
      Caption = 'Arrange by &Name'
      Checked = True
      GroupIndex = 2
      RadioItem = True
      OnClick = ArrangeNameClick
    end
    object ArrangeDescription: TMenuItem
      Caption = 'Arrange by D&escription'
      GroupIndex = 2
      RadioItem = True
      OnClick = ArrangeDescriptionClick
    end
    object ArrangeDate: TMenuItem
      Caption = 'Arrange by D&ate'
      GroupIndex = 2
      RadioItem = True
      OnClick = ArrangeDateClick
    end
    object ArrangeAuthor: TMenuItem
      Caption = 'Arrange by A&uthor'
      GroupIndex = 2
      RadioItem = True
      OnClick = ArrangeAuthorClick
    end
    object N2: TMenuItem
      Caption = '-'
      GroupIndex = 2
    end
    object PropertiesItem: TMenuItem
      Caption = 'P&roperties'
      GroupIndex = 2
      OnClick = PropertiesItemClick
    end
    object dNextPage: TMenuItem
      Caption = 'Next Page'
      GroupIndex = 2
      Visible = False
      OnClick = dNextPageClick
    end
    object dPrevPage: TMenuItem
      Caption = 'Previous Page'
      GroupIndex = 2
      Visible = False
      OnClick = dPrevPageClick
    end
  end
end