📄 command.xfm
字号:
inherited CommandFrame: TCommandFrame Width = 451 Height = 304 HorzScrollBar.Range = 486 VertScrollBar.Range = 191 Align = alClient object Splitter1: TSplitter Left = 0 Top = 188 Width = 486 Height = 3 Cursor = crVSplit Align = alTop end object Label1: TLabel Left = 456 Top = 48 Width = 30 Height = 13 Caption = 'Label1' end object ToolBar: TPanel Left = 0 Top = 0 Width = 486 Height = 26 Align = alTop BevelOuter = bvNone TabOrder = 0 object Panel1: TPanel Left = 2 Top = 1 Width = 250 Height = 24 BevelOuter = bvNone Color = 16591631 ParentColor = False TabOrder = 0 object btExecute: TSpeedButton Left = 1 Top = 1 Width = 82 Height = 22 Caption = 'Execute' Flat = True Transparent = False OnClick = btExecuteClick end object btBreakExec: TSpeedButton Left = 167 Top = 1 Width = 82 Height = 22 Caption = 'Break' Enabled = False Flat = True Transparent = False OnClick = btBreakExecClick end object btExecInThread: TSpeedButton Left = 84 Top = 1 Width = 82 Height = 22 Hint = 'Assing a long-drawn command to memo (e.g. `SELECT SLEEP(10);`) a' + 'nd push this button.' Caption = 'Exec in thread' Flat = True ParentShowHint = False ShowHint = True Transparent = False OnClick = btExecInThreadClick end end end object meSQL: TMemo Left = 0 Top = 26 Width = 486 Height = 162 Align = alTop Font.Color = clText Font.Height = 11 Font.Name = 'MS Sans Serif' Font.Pitch = fpVariable Font.Style = [] Lines.Strings = ( 'INSERT INTO DEPT VALUES (11,'#39'ACCOUNTING'#39','#39'NEW YORK'#39')') ParentFont = False TabOrder = 1 end object meResult: TMemo Left = 0 Top = 191 Width = 486 Height = 97 Align = alClient Font.Color = clText Font.Height = 13 Font.Name = 'Courier New' Font.Pitch = fpVariable Font.Style = [] ParentFont = False ReadOnly = True TabOrder = 2 TabStop = False end object MyCommand: TMyCommand Connection = MyDACForm.MyConnection AfterExecute = MySQLAfterExecute Left = 109 Top = 42 endend
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -