⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 form1.frm

📁 这里给出了几个Delphi的实例
💻 FRM
📖 第 1 页 / 共 2 页
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Object = "{005725CD-C055-4AF7-88F8-C3D5AE11B55F}#1.0#0"; "NNSREA~1.OCX"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Form1"
   ClientHeight    =   6870
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8250
   Icon            =   "Form1.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6870
   ScaleWidth      =   8250
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame9 
      Caption         =   "视频输出模式"
      Height          =   675
      Left            =   6180
      TabIndex        =   45
      Top             =   5820
      Width           =   1965
      Begin VB.OptionButton optOutput 
         Caption         =   "VGA"
         Height          =   285
         Index           =   1
         Left            =   1110
         TabIndex        =   0
         Top             =   270
         Width           =   675
      End
      Begin VB.OptionButton optOutput 
         Caption         =   "TV"
         Height          =   285
         Index           =   0
         Left            =   210
         TabIndex        =   46
         Top             =   300
         Value           =   -1  'True
         Width           =   675
      End
   End
   Begin VB.Frame Frame8 
      Caption         =   "TV输出制式"
      Height          =   675
      Left            =   6180
      TabIndex        =   42
      Top             =   5070
      Width           =   1965
      Begin VB.OptionButton optTV 
         Caption         =   "NTSC"
         Height          =   195
         Index           =   1
         Left            =   1050
         TabIndex        =   44
         Top             =   330
         Width           =   795
      End
      Begin VB.OptionButton optTV 
         Caption         =   "PAL"
         Height          =   195
         Index           =   0
         Left            =   180
         TabIndex        =   43
         Top             =   330
         Value           =   -1  'True
         Width           =   645
      End
   End
   Begin VB.Frame Frame7 
      Caption         =   "DVD轨道选择"
      Enabled         =   0   'False
      Height          =   1785
      Left            =   6180
      TabIndex        =   33
      Top             =   3240
      Width           =   1965
      Begin VB.OptionButton optTrack 
         Caption         =   "8"
         Height          =   225
         Index           =   7
         Left            =   1110
         TabIndex        =   41
         Top             =   1440
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "7"
         Height          =   225
         Index           =   6
         Left            =   270
         TabIndex        =   40
         Top             =   1440
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "6"
         Height          =   225
         Index           =   5
         Left            =   1110
         TabIndex        =   39
         Top             =   1070
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "5"
         Height          =   225
         Index           =   4
         Left            =   270
         TabIndex        =   38
         Top             =   1070
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "4"
         Height          =   225
         Index           =   3
         Left            =   1110
         TabIndex        =   37
         Top             =   700
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "3"
         Height          =   225
         Index           =   2
         Left            =   270
         TabIndex        =   36
         Top             =   700
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "2"
         Height          =   225
         Index           =   1
         Left            =   1110
         TabIndex        =   35
         Top             =   330
         Width           =   555
      End
      Begin VB.OptionButton optTrack 
         Caption         =   "1"
         Height          =   225
         Index           =   0
         Left            =   270
         TabIndex        =   34
         Top             =   330
         Value           =   -1  'True
         Width           =   555
      End
   End
   Begin ComctlLib.StatusBar stBar 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   32
      Top             =   6555
      Width           =   8250
      _ExtentX        =   14552
      _ExtentY        =   556
      SimpleText      =   ""
      _Version        =   327682
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7} 
         NumPanels       =   6
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Bevel           =   0
            Object.Width           =   1589
            MinWidth        =   1589
            Text            =   "媒体模式"
            TextSave        =   "媒体模式"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   1587
            MinWidth        =   1587
            Text            =   "未知格式"
            TextSave        =   "未知格式"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Bevel           =   0
            Text            =   "当前帧/总帧数"
            TextSave        =   "当前帧/总帧数"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            AutoSize        =   2
            Object.Width           =   3519
            MinWidth        =   3528
            Text            =   "0/0"
            TextSave        =   "0/0"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel5 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Bevel           =   0
            Object.Width           =   882
            MinWidth        =   882
            Text            =   "状态"
            TextSave        =   "状态"
            Object.Tag             =   ""
         EndProperty
         BeginProperty Panel6 {0713E89F-850A-101B-AFC0-4210102A8DA7} 
            Alignment       =   1
            Object.Width           =   882
            MinWidth        =   882
            Text            =   "关闭"
            TextSave        =   "关闭"
            Object.Tag             =   ""
         EndProperty
      EndProperty
   End
   Begin VB.Frame Frame6 
      Caption         =   "音量控制"
      Height          =   795
      Left            =   120
      TabIndex        =   29
      Top             =   3900
      Width           =   6015
      Begin VB.CheckBox chkMute 
         Caption         =   "静音"
         Height          =   375
         Left            =   5190
         TabIndex        =   31
         Top             =   270
         Width           =   795
      End
      Begin ComctlLib.Slider Slider1 
         Height          =   405
         Left            =   120
         TabIndex        =   30
         Top             =   240
         Width           =   5025
         _ExtentX        =   8864
         _ExtentY        =   714
         _Version        =   327682
         Max             =   100
         SelStart        =   50
         TickFrequency   =   5
         Value           =   50
      End
   End
   Begin VB.Frame Frame5 
      Caption         =   "播放控制"
      Height          =   3045
      Left            =   6180
      TabIndex        =   20
      Top             =   120
      Width           =   1965
      Begin VB.CommandButton Command8 
         Caption         =   "快退"
         Height          =   345
         Left            =   150
         TabIndex        =   28
         Top             =   1755
         Width           =   765
      End
      Begin VB.CommandButton Command7 
         Caption         =   "快进"
         Height          =   345
         Left            =   990
         TabIndex        =   27
         Top             =   1760
         Width           =   765
      End
      Begin VB.CommandButton Command6 
         Caption         =   "关于"
         Height          =   345
         Left            =   990
         TabIndex        =   26
         Top             =   2430
         Width           =   765
      End
      Begin VB.CommandButton Command5 
         Caption         =   "关闭"
         Height          =   345
         Left            =   990
         TabIndex        =   25
         Top             =   420
         Width           =   765
      End
      Begin VB.CommandButton Command4 
         Caption         =   "停止"
         Height          =   345
         Left            =   150
         TabIndex        =   24
         Top             =   2430
         Width           =   765
      End
      Begin VB.CommandButton Command3 
         Caption         =   "暂停"
         Height          =   345
         Left            =   990
         TabIndex        =   23
         Top             =   1090
         Width           =   765
      End
      Begin VB.CommandButton Command2 
         Caption         =   "播放"
         Height          =   345
         Left            =   150
         TabIndex        =   22
         Top             =   1095
         Width           =   765
      End
      Begin VB.CommandButton Command1 
         Caption         =   "打开"
         Height          =   345
         Left            =   150
         TabIndex        =   21
         Top             =   420
         Width           =   765
      End
   End
   Begin VB.Frame Frame4 
      Caption         =   "图像输出效果"
      Height          =   1755
      Left            =   120
      TabIndex        =   13
      Top             =   4740
      Width           =   6015
      Begin ComctlLib.Slider Slider2 
         Height          =   450
         Left            =   690
         TabIndex        =   14
         Top             =   210
         Width           =   5205
         _ExtentX        =   9181
         _ExtentY        =   794
         _Version        =   327682
         Max             =   1000
         SelStart        =   500
         TickFrequency   =   50
         Value           =   500
      End
      Begin ComctlLib.Slider Slider3 
         Height          =   450
         Left            =   690

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -