mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 18:57:58 +02:00
1374 lines
32 KiB
Plaintext
1374 lines
32 KiB
Plaintext
object QueryFrame: TQueryFrame
|
|
Left = 0
|
|
Height = 505
|
|
Top = 0
|
|
Width = 640
|
|
ClientHeight = 505
|
|
ClientWidth = 640
|
|
TabOrder = 0
|
|
DesignLeft = 671
|
|
DesignTop = 285
|
|
object TBQuery: TToolBar
|
|
Left = 0
|
|
Height = 26
|
|
Top = 0
|
|
Width = 640
|
|
Caption = 'TBQuery'
|
|
Images = ImgDatamodule.AppImages
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
TabOrder = 0
|
|
object TBExecute: TToolButton
|
|
Left = 24
|
|
Top = 2
|
|
Action = AExecute
|
|
DropdownMenu = PMExecute
|
|
Style = tbsDropDown
|
|
end
|
|
object TBSep1: TToolButton
|
|
Left = 82
|
|
Height = 22
|
|
Top = 2
|
|
Caption = 'TBSep1'
|
|
Style = tbsSeparator
|
|
end
|
|
object TBPrevious: TToolButton
|
|
Left = 90
|
|
Top = 2
|
|
Action = APreviousQuery
|
|
end
|
|
object TBNext: TToolButton
|
|
Left = 113
|
|
Top = 2
|
|
Action = ANextQuery
|
|
end
|
|
object TBSep2: TToolButton
|
|
Left = 136
|
|
Height = 22
|
|
Top = 2
|
|
Caption = 'TBSep2'
|
|
Style = tbsSeparator
|
|
end
|
|
object TBClose: TToolButton
|
|
Left = 59
|
|
Top = 2
|
|
Action = ACloseQuery
|
|
end
|
|
object TBLoadSQL: TToolButton
|
|
Left = 144
|
|
Top = 2
|
|
Action = ALoadSQL
|
|
end
|
|
object TBSaveSQL: TToolButton
|
|
Left = 167
|
|
Top = 2
|
|
Action = ASaveSQL
|
|
end
|
|
object TBSep3: TToolButton
|
|
Left = 190
|
|
Height = 22
|
|
Top = 2
|
|
Caption = 'TBSep3'
|
|
Style = tbsSeparator
|
|
end
|
|
object TBExport: TToolButton
|
|
Left = 198
|
|
Top = 2
|
|
Action = AExport
|
|
end
|
|
object TBCreateCode: TToolButton
|
|
Left = 221
|
|
Top = 2
|
|
Action = ACreateCode
|
|
end
|
|
object btnCommit: TToolButton
|
|
Left = 252
|
|
Top = 2
|
|
Action = aCommit
|
|
end
|
|
object btnRollback: TToolButton
|
|
Left = 275
|
|
Top = 2
|
|
Action = aRollBack
|
|
end
|
|
object ToolButton5: TToolButton
|
|
Left = 244
|
|
Height = 22
|
|
Top = 2
|
|
Caption = 'ToolButton5'
|
|
Style = tbsSeparator
|
|
end
|
|
object tbPrepareParams: TToolButton
|
|
Left = 1
|
|
Top = 2
|
|
Action = aPrepareParameters
|
|
end
|
|
end
|
|
object PCResult: TPageControl
|
|
Left = 0
|
|
Height = 244
|
|
Top = 261
|
|
Width = 640
|
|
ActivePage = TSParams
|
|
Align = alBottom
|
|
TabIndex = 2
|
|
TabOrder = 1
|
|
object TSResult: TTabSheet
|
|
Caption = 'Result'
|
|
ClientHeight = 214
|
|
ClientWidth = 630
|
|
inline MResult: TSynEdit
|
|
Left = 0
|
|
Height = 214
|
|
Top = 0
|
|
Width = 630
|
|
Align = alClient
|
|
Font.Height = 13
|
|
Font.Name = 'DejaVu Sans Mono'
|
|
Font.Pitch = fpFixed
|
|
Font.Quality = fqNonAntialiased
|
|
ParentColor = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
Gutter.Visible = False
|
|
Gutter.Width = 57
|
|
Gutter.MouseActions = <>
|
|
RightGutter.Width = 0
|
|
RightGutter.MouseActions = <>
|
|
Keystrokes = <
|
|
item
|
|
Command = ecUp
|
|
ShortCut = 38
|
|
end
|
|
item
|
|
Command = ecSelUp
|
|
ShortCut = 8230
|
|
end
|
|
item
|
|
Command = ecScrollUp
|
|
ShortCut = 16422
|
|
end
|
|
item
|
|
Command = ecDown
|
|
ShortCut = 40
|
|
end
|
|
item
|
|
Command = ecSelDown
|
|
ShortCut = 8232
|
|
end
|
|
item
|
|
Command = ecScrollDown
|
|
ShortCut = 16424
|
|
end
|
|
item
|
|
Command = ecLeft
|
|
ShortCut = 37
|
|
end
|
|
item
|
|
Command = ecSelLeft
|
|
ShortCut = 8229
|
|
end
|
|
item
|
|
Command = ecWordLeft
|
|
ShortCut = 16421
|
|
end
|
|
item
|
|
Command = ecSelWordLeft
|
|
ShortCut = 24613
|
|
end
|
|
item
|
|
Command = ecRight
|
|
ShortCut = 39
|
|
end
|
|
item
|
|
Command = ecSelRight
|
|
ShortCut = 8231
|
|
end
|
|
item
|
|
Command = ecWordRight
|
|
ShortCut = 16423
|
|
end
|
|
item
|
|
Command = ecSelWordRight
|
|
ShortCut = 24615
|
|
end
|
|
item
|
|
Command = ecPageDown
|
|
ShortCut = 34
|
|
end
|
|
item
|
|
Command = ecSelPageDown
|
|
ShortCut = 8226
|
|
end
|
|
item
|
|
Command = ecPageBottom
|
|
ShortCut = 16418
|
|
end
|
|
item
|
|
Command = ecSelPageBottom
|
|
ShortCut = 24610
|
|
end
|
|
item
|
|
Command = ecPageUp
|
|
ShortCut = 33
|
|
end
|
|
item
|
|
Command = ecSelPageUp
|
|
ShortCut = 8225
|
|
end
|
|
item
|
|
Command = ecPageTop
|
|
ShortCut = 16417
|
|
end
|
|
item
|
|
Command = ecSelPageTop
|
|
ShortCut = 24609
|
|
end
|
|
item
|
|
Command = ecLineStart
|
|
ShortCut = 36
|
|
end
|
|
item
|
|
Command = ecSelLineStart
|
|
ShortCut = 8228
|
|
end
|
|
item
|
|
Command = ecEditorTop
|
|
ShortCut = 16420
|
|
end
|
|
item
|
|
Command = ecSelEditorTop
|
|
ShortCut = 24612
|
|
end
|
|
item
|
|
Command = ecLineEnd
|
|
ShortCut = 35
|
|
end
|
|
item
|
|
Command = ecSelLineEnd
|
|
ShortCut = 8227
|
|
end
|
|
item
|
|
Command = ecEditorBottom
|
|
ShortCut = 16419
|
|
end
|
|
item
|
|
Command = ecSelEditorBottom
|
|
ShortCut = 24611
|
|
end
|
|
item
|
|
Command = ecToggleMode
|
|
ShortCut = 45
|
|
end
|
|
item
|
|
Command = ecCopy
|
|
ShortCut = 16429
|
|
end
|
|
item
|
|
Command = ecPaste
|
|
ShortCut = 8237
|
|
end
|
|
item
|
|
Command = ecDeleteChar
|
|
ShortCut = 46
|
|
end
|
|
item
|
|
Command = ecCut
|
|
ShortCut = 8238
|
|
end
|
|
item
|
|
Command = ecDeleteLastChar
|
|
ShortCut = 8
|
|
end
|
|
item
|
|
Command = ecDeleteLastChar
|
|
ShortCut = 8200
|
|
end
|
|
item
|
|
Command = ecDeleteLastWord
|
|
ShortCut = 16392
|
|
end
|
|
item
|
|
Command = ecUndo
|
|
ShortCut = 32776
|
|
end
|
|
item
|
|
Command = ecRedo
|
|
ShortCut = 40968
|
|
end
|
|
item
|
|
Command = ecLineBreak
|
|
ShortCut = 13
|
|
end
|
|
item
|
|
Command = ecSelectAll
|
|
ShortCut = 16449
|
|
end
|
|
item
|
|
Command = ecCopy
|
|
ShortCut = 16451
|
|
end
|
|
item
|
|
Command = ecBlockIndent
|
|
ShortCut = 24649
|
|
end
|
|
item
|
|
Command = ecLineBreak
|
|
ShortCut = 16461
|
|
end
|
|
item
|
|
Command = ecInsertLine
|
|
ShortCut = 16462
|
|
end
|
|
item
|
|
Command = ecDeleteWord
|
|
ShortCut = 16468
|
|
end
|
|
item
|
|
Command = ecBlockUnindent
|
|
ShortCut = 24661
|
|
end
|
|
item
|
|
Command = ecPaste
|
|
ShortCut = 16470
|
|
end
|
|
item
|
|
Command = ecCut
|
|
ShortCut = 16472
|
|
end
|
|
item
|
|
Command = ecDeleteLine
|
|
ShortCut = 16473
|
|
end
|
|
item
|
|
Command = ecDeleteEOL
|
|
ShortCut = 24665
|
|
end
|
|
item
|
|
Command = ecUndo
|
|
ShortCut = 16474
|
|
end
|
|
item
|
|
Command = ecRedo
|
|
ShortCut = 24666
|
|
end
|
|
item
|
|
Command = ecGotoMarker0
|
|
ShortCut = 16432
|
|
end
|
|
item
|
|
Command = ecGotoMarker1
|
|
ShortCut = 16433
|
|
end
|
|
item
|
|
Command = ecGotoMarker2
|
|
ShortCut = 16434
|
|
end
|
|
item
|
|
Command = ecGotoMarker3
|
|
ShortCut = 16435
|
|
end
|
|
item
|
|
Command = ecGotoMarker4
|
|
ShortCut = 16436
|
|
end
|
|
item
|
|
Command = ecGotoMarker5
|
|
ShortCut = 16437
|
|
end
|
|
item
|
|
Command = ecGotoMarker6
|
|
ShortCut = 16438
|
|
end
|
|
item
|
|
Command = ecGotoMarker7
|
|
ShortCut = 16439
|
|
end
|
|
item
|
|
Command = ecGotoMarker8
|
|
ShortCut = 16440
|
|
end
|
|
item
|
|
Command = ecGotoMarker9
|
|
ShortCut = 16441
|
|
end
|
|
item
|
|
Command = ecSetMarker0
|
|
ShortCut = 24624
|
|
end
|
|
item
|
|
Command = ecSetMarker1
|
|
ShortCut = 24625
|
|
end
|
|
item
|
|
Command = ecSetMarker2
|
|
ShortCut = 24626
|
|
end
|
|
item
|
|
Command = ecSetMarker3
|
|
ShortCut = 24627
|
|
end
|
|
item
|
|
Command = ecSetMarker4
|
|
ShortCut = 24628
|
|
end
|
|
item
|
|
Command = ecSetMarker5
|
|
ShortCut = 24629
|
|
end
|
|
item
|
|
Command = ecSetMarker6
|
|
ShortCut = 24630
|
|
end
|
|
item
|
|
Command = ecSetMarker7
|
|
ShortCut = 24631
|
|
end
|
|
item
|
|
Command = ecSetMarker8
|
|
ShortCut = 24632
|
|
end
|
|
item
|
|
Command = ecSetMarker9
|
|
ShortCut = 24633
|
|
end
|
|
item
|
|
Command = EcFoldLevel1
|
|
ShortCut = 41009
|
|
end
|
|
item
|
|
Command = EcFoldLevel2
|
|
ShortCut = 41010
|
|
end
|
|
item
|
|
Command = EcFoldLevel3
|
|
ShortCut = 41011
|
|
end
|
|
item
|
|
Command = EcFoldLevel4
|
|
ShortCut = 41012
|
|
end
|
|
item
|
|
Command = EcFoldLevel5
|
|
ShortCut = 41013
|
|
end
|
|
item
|
|
Command = EcFoldLevel6
|
|
ShortCut = 41014
|
|
end
|
|
item
|
|
Command = EcFoldLevel7
|
|
ShortCut = 41015
|
|
end
|
|
item
|
|
Command = EcFoldLevel8
|
|
ShortCut = 41016
|
|
end
|
|
item
|
|
Command = EcFoldLevel9
|
|
ShortCut = 41017
|
|
end
|
|
item
|
|
Command = EcFoldLevel0
|
|
ShortCut = 41008
|
|
end
|
|
item
|
|
Command = EcFoldCurrent
|
|
ShortCut = 41005
|
|
end
|
|
item
|
|
Command = EcUnFoldCurrent
|
|
ShortCut = 41003
|
|
end
|
|
item
|
|
Command = EcToggleMarkupWord
|
|
ShortCut = 32845
|
|
end
|
|
item
|
|
Command = ecNormalSelect
|
|
ShortCut = 24654
|
|
end
|
|
item
|
|
Command = ecColumnSelect
|
|
ShortCut = 24643
|
|
end
|
|
item
|
|
Command = ecLineSelect
|
|
ShortCut = 24652
|
|
end
|
|
item
|
|
Command = ecTab
|
|
ShortCut = 9
|
|
end
|
|
item
|
|
Command = ecShiftTab
|
|
ShortCut = 8201
|
|
end
|
|
item
|
|
Command = ecMatchBracket
|
|
ShortCut = 24642
|
|
end
|
|
item
|
|
Command = ecColSelUp
|
|
ShortCut = 40998
|
|
end
|
|
item
|
|
Command = ecColSelDown
|
|
ShortCut = 41000
|
|
end
|
|
item
|
|
Command = ecColSelLeft
|
|
ShortCut = 40997
|
|
end
|
|
item
|
|
Command = ecColSelRight
|
|
ShortCut = 40999
|
|
end
|
|
item
|
|
Command = ecColSelPageDown
|
|
ShortCut = 40994
|
|
end
|
|
item
|
|
Command = ecColSelPageBottom
|
|
ShortCut = 57378
|
|
end
|
|
item
|
|
Command = ecColSelPageUp
|
|
ShortCut = 40993
|
|
end
|
|
item
|
|
Command = ecColSelPageTop
|
|
ShortCut = 57377
|
|
end
|
|
item
|
|
Command = ecColSelLineStart
|
|
ShortCut = 40996
|
|
end
|
|
item
|
|
Command = ecColSelLineEnd
|
|
ShortCut = 40995
|
|
end
|
|
item
|
|
Command = ecColSelEditorTop
|
|
ShortCut = 57380
|
|
end
|
|
item
|
|
Command = ecColSelEditorBottom
|
|
ShortCut = 57379
|
|
end>
|
|
MouseActions = <>
|
|
MouseTextActions = <>
|
|
MouseSelActions = <>
|
|
Lines.Strings = (
|
|
'MResult'
|
|
)
|
|
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
|
ReadOnly = True
|
|
SelectedColor.BackPriority = 50
|
|
SelectedColor.ForePriority = 50
|
|
SelectedColor.FramePriority = 50
|
|
SelectedColor.BoldPriority = 50
|
|
SelectedColor.ItalicPriority = 50
|
|
SelectedColor.UnderlinePriority = 50
|
|
SelectedColor.StrikeOutPriority = 50
|
|
BracketHighlightStyle = sbhsBoth
|
|
BracketMatchColor.Background = clNone
|
|
BracketMatchColor.Foreground = clNone
|
|
BracketMatchColor.Style = [fsBold]
|
|
FoldedCodeColor.Background = clNone
|
|
FoldedCodeColor.Foreground = clGray
|
|
FoldedCodeColor.FrameColor = clGray
|
|
MouseLinkColor.Background = clNone
|
|
MouseLinkColor.Foreground = clBlue
|
|
LineHighlightColor.Background = clNone
|
|
LineHighlightColor.Foreground = clNone
|
|
inline SynLeftGutterPartList1: TSynGutterPartList
|
|
object SynGutterMarks1: TSynGutterMarks
|
|
Width = 24
|
|
MouseActions = <>
|
|
end
|
|
object SynGutterLineNumber1: TSynGutterLineNumber
|
|
Width = 17
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clBtnFace
|
|
MarkupInfo.Foreground = clNone
|
|
DigitCount = 2
|
|
ShowOnlyLineNumbersMultiplesOf = 1
|
|
ZeroStart = False
|
|
LeadingZeros = False
|
|
end
|
|
object SynGutterChanges1: TSynGutterChanges
|
|
Width = 4
|
|
MouseActions = <>
|
|
ModifiedColor = 59900
|
|
SavedColor = clGreen
|
|
end
|
|
object SynGutterSeparator1: TSynGutterSeparator
|
|
Width = 2
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clWhite
|
|
MarkupInfo.Foreground = clGray
|
|
end
|
|
object SynGutterCodeFolding1: TSynGutterCodeFolding
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clNone
|
|
MarkupInfo.Foreground = clGray
|
|
MouseActionsExpanded = <>
|
|
MouseActionsCollapsed = <>
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object TSData: TTabSheet
|
|
Caption = 'Data'
|
|
end
|
|
object TSParams: TTabSheet
|
|
Caption = 'Parameters'
|
|
end
|
|
end
|
|
inline FMSQL: TSynEdit
|
|
Left = 0
|
|
Height = 230
|
|
Top = 26
|
|
Width = 640
|
|
Align = alClient
|
|
Font.Height = -13
|
|
Font.Name = 'Courier New'
|
|
Font.Pitch = fpFixed
|
|
Font.Quality = fqNonAntialiased
|
|
ParentColor = False
|
|
ParentFont = False
|
|
PopupMenu = pmSynEdit
|
|
TabOrder = 2
|
|
OnKeyDown = OnMemoKey
|
|
ExtraLineSpacing = 2
|
|
Gutter.Width = 57
|
|
Gutter.MouseActions = <>
|
|
RightGutter.Width = 0
|
|
RightGutter.MouseActions = <>
|
|
Highlighter = SQLSyn
|
|
Keystrokes = <
|
|
item
|
|
Command = ecUp
|
|
ShortCut = 38
|
|
end
|
|
item
|
|
Command = ecSelUp
|
|
ShortCut = 8230
|
|
end
|
|
item
|
|
Command = ecScrollUp
|
|
ShortCut = 16422
|
|
end
|
|
item
|
|
Command = ecDown
|
|
ShortCut = 40
|
|
end
|
|
item
|
|
Command = ecSelDown
|
|
ShortCut = 8232
|
|
end
|
|
item
|
|
Command = ecScrollDown
|
|
ShortCut = 16424
|
|
end
|
|
item
|
|
Command = ecLeft
|
|
ShortCut = 37
|
|
end
|
|
item
|
|
Command = ecSelLeft
|
|
ShortCut = 8229
|
|
end
|
|
item
|
|
Command = ecWordLeft
|
|
ShortCut = 16421
|
|
end
|
|
item
|
|
Command = ecSelWordLeft
|
|
ShortCut = 24613
|
|
end
|
|
item
|
|
Command = ecRight
|
|
ShortCut = 39
|
|
end
|
|
item
|
|
Command = ecSelRight
|
|
ShortCut = 8231
|
|
end
|
|
item
|
|
Command = ecWordRight
|
|
ShortCut = 16423
|
|
end
|
|
item
|
|
Command = ecSelWordRight
|
|
ShortCut = 24615
|
|
end
|
|
item
|
|
Command = ecPageDown
|
|
ShortCut = 34
|
|
end
|
|
item
|
|
Command = ecSelPageDown
|
|
ShortCut = 8226
|
|
end
|
|
item
|
|
Command = ecPageBottom
|
|
ShortCut = 16418
|
|
end
|
|
item
|
|
Command = ecSelPageBottom
|
|
ShortCut = 24610
|
|
end
|
|
item
|
|
Command = ecPageUp
|
|
ShortCut = 33
|
|
end
|
|
item
|
|
Command = ecSelPageUp
|
|
ShortCut = 8225
|
|
end
|
|
item
|
|
Command = ecPageTop
|
|
ShortCut = 16417
|
|
end
|
|
item
|
|
Command = ecSelPageTop
|
|
ShortCut = 24609
|
|
end
|
|
item
|
|
Command = ecLineStart
|
|
ShortCut = 36
|
|
end
|
|
item
|
|
Command = ecSelLineStart
|
|
ShortCut = 8228
|
|
end
|
|
item
|
|
Command = ecEditorTop
|
|
ShortCut = 16420
|
|
end
|
|
item
|
|
Command = ecSelEditorTop
|
|
ShortCut = 24612
|
|
end
|
|
item
|
|
Command = ecLineEnd
|
|
ShortCut = 35
|
|
end
|
|
item
|
|
Command = ecSelLineEnd
|
|
ShortCut = 8227
|
|
end
|
|
item
|
|
Command = ecEditorBottom
|
|
ShortCut = 16419
|
|
end
|
|
item
|
|
Command = ecSelEditorBottom
|
|
ShortCut = 24611
|
|
end
|
|
item
|
|
Command = ecToggleMode
|
|
ShortCut = 45
|
|
end
|
|
item
|
|
Command = ecCopy
|
|
ShortCut = 16429
|
|
end
|
|
item
|
|
Command = ecPaste
|
|
ShortCut = 8237
|
|
end
|
|
item
|
|
Command = ecDeleteChar
|
|
ShortCut = 46
|
|
end
|
|
item
|
|
Command = ecCut
|
|
ShortCut = 8238
|
|
end
|
|
item
|
|
Command = ecDeleteLastChar
|
|
ShortCut = 8
|
|
end
|
|
item
|
|
Command = ecDeleteLastChar
|
|
ShortCut = 8200
|
|
end
|
|
item
|
|
Command = ecDeleteLastWord
|
|
ShortCut = 16392
|
|
end
|
|
item
|
|
Command = ecUndo
|
|
ShortCut = 32776
|
|
end
|
|
item
|
|
Command = ecRedo
|
|
ShortCut = 40968
|
|
end
|
|
item
|
|
Command = ecLineBreak
|
|
ShortCut = 13
|
|
end
|
|
item
|
|
Command = ecSelectAll
|
|
ShortCut = 16449
|
|
end
|
|
item
|
|
Command = ecCopy
|
|
ShortCut = 16451
|
|
end
|
|
item
|
|
Command = ecBlockIndent
|
|
ShortCut = 24649
|
|
end
|
|
item
|
|
Command = ecLineBreak
|
|
ShortCut = 16461
|
|
end
|
|
item
|
|
Command = ecInsertLine
|
|
ShortCut = 16462
|
|
end
|
|
item
|
|
Command = ecDeleteWord
|
|
ShortCut = 16468
|
|
end
|
|
item
|
|
Command = ecBlockUnindent
|
|
ShortCut = 24661
|
|
end
|
|
item
|
|
Command = ecPaste
|
|
ShortCut = 16470
|
|
end
|
|
item
|
|
Command = ecCut
|
|
ShortCut = 16472
|
|
end
|
|
item
|
|
Command = ecDeleteLine
|
|
ShortCut = 16473
|
|
end
|
|
item
|
|
Command = ecDeleteEOL
|
|
ShortCut = 24665
|
|
end
|
|
item
|
|
Command = ecUndo
|
|
ShortCut = 16474
|
|
end
|
|
item
|
|
Command = ecRedo
|
|
ShortCut = 24666
|
|
end
|
|
item
|
|
Command = ecGotoMarker0
|
|
ShortCut = 16432
|
|
end
|
|
item
|
|
Command = ecGotoMarker1
|
|
ShortCut = 16433
|
|
end
|
|
item
|
|
Command = ecGotoMarker2
|
|
ShortCut = 16434
|
|
end
|
|
item
|
|
Command = ecGotoMarker3
|
|
ShortCut = 16435
|
|
end
|
|
item
|
|
Command = ecGotoMarker4
|
|
ShortCut = 16436
|
|
end
|
|
item
|
|
Command = ecGotoMarker5
|
|
ShortCut = 16437
|
|
end
|
|
item
|
|
Command = ecGotoMarker6
|
|
ShortCut = 16438
|
|
end
|
|
item
|
|
Command = ecGotoMarker7
|
|
ShortCut = 16439
|
|
end
|
|
item
|
|
Command = ecGotoMarker8
|
|
ShortCut = 16440
|
|
end
|
|
item
|
|
Command = ecGotoMarker9
|
|
ShortCut = 16441
|
|
end
|
|
item
|
|
Command = ecSetMarker0
|
|
ShortCut = 24624
|
|
end
|
|
item
|
|
Command = ecSetMarker1
|
|
ShortCut = 24625
|
|
end
|
|
item
|
|
Command = ecSetMarker2
|
|
ShortCut = 24626
|
|
end
|
|
item
|
|
Command = ecSetMarker3
|
|
ShortCut = 24627
|
|
end
|
|
item
|
|
Command = ecSetMarker4
|
|
ShortCut = 24628
|
|
end
|
|
item
|
|
Command = ecSetMarker5
|
|
ShortCut = 24629
|
|
end
|
|
item
|
|
Command = ecSetMarker6
|
|
ShortCut = 24630
|
|
end
|
|
item
|
|
Command = ecSetMarker7
|
|
ShortCut = 24631
|
|
end
|
|
item
|
|
Command = ecSetMarker8
|
|
ShortCut = 24632
|
|
end
|
|
item
|
|
Command = ecSetMarker9
|
|
ShortCut = 24633
|
|
end
|
|
item
|
|
Command = EcFoldLevel1
|
|
ShortCut = 41009
|
|
end
|
|
item
|
|
Command = EcFoldLevel2
|
|
ShortCut = 41010
|
|
end
|
|
item
|
|
Command = EcFoldLevel3
|
|
ShortCut = 41011
|
|
end
|
|
item
|
|
Command = EcFoldLevel4
|
|
ShortCut = 41012
|
|
end
|
|
item
|
|
Command = EcFoldLevel5
|
|
ShortCut = 41013
|
|
end
|
|
item
|
|
Command = EcFoldLevel6
|
|
ShortCut = 41014
|
|
end
|
|
item
|
|
Command = EcFoldLevel7
|
|
ShortCut = 41015
|
|
end
|
|
item
|
|
Command = EcFoldLevel8
|
|
ShortCut = 41016
|
|
end
|
|
item
|
|
Command = EcFoldLevel9
|
|
ShortCut = 41017
|
|
end
|
|
item
|
|
Command = EcFoldLevel0
|
|
ShortCut = 41008
|
|
end
|
|
item
|
|
Command = EcFoldCurrent
|
|
ShortCut = 41005
|
|
end
|
|
item
|
|
Command = EcUnFoldCurrent
|
|
ShortCut = 41003
|
|
end
|
|
item
|
|
Command = EcToggleMarkupWord
|
|
ShortCut = 32845
|
|
end
|
|
item
|
|
Command = ecNormalSelect
|
|
ShortCut = 24654
|
|
end
|
|
item
|
|
Command = ecColumnSelect
|
|
ShortCut = 24643
|
|
end
|
|
item
|
|
Command = ecLineSelect
|
|
ShortCut = 24652
|
|
end
|
|
item
|
|
Command = ecTab
|
|
ShortCut = 9
|
|
end
|
|
item
|
|
Command = ecShiftTab
|
|
ShortCut = 8201
|
|
end
|
|
item
|
|
Command = ecMatchBracket
|
|
ShortCut = 24642
|
|
end
|
|
item
|
|
Command = ecColSelUp
|
|
ShortCut = 40998
|
|
end
|
|
item
|
|
Command = ecColSelDown
|
|
ShortCut = 41000
|
|
end
|
|
item
|
|
Command = ecColSelLeft
|
|
ShortCut = 40997
|
|
end
|
|
item
|
|
Command = ecColSelRight
|
|
ShortCut = 40999
|
|
end
|
|
item
|
|
Command = ecColSelPageDown
|
|
ShortCut = 40994
|
|
end
|
|
item
|
|
Command = ecColSelPageBottom
|
|
ShortCut = 57378
|
|
end
|
|
item
|
|
Command = ecColSelPageUp
|
|
ShortCut = 40993
|
|
end
|
|
item
|
|
Command = ecColSelPageTop
|
|
ShortCut = 57377
|
|
end
|
|
item
|
|
Command = ecColSelLineStart
|
|
ShortCut = 40996
|
|
end
|
|
item
|
|
Command = ecColSelLineEnd
|
|
ShortCut = 40995
|
|
end
|
|
item
|
|
Command = ecColSelEditorTop
|
|
ShortCut = 57380
|
|
end
|
|
item
|
|
Command = ecColSelEditorBottom
|
|
ShortCut = 57379
|
|
end>
|
|
MouseActions = <>
|
|
MouseTextActions = <>
|
|
MouseSelActions = <>
|
|
Lines.Strings = (
|
|
''
|
|
)
|
|
Options = [eoBracketHighlight, eoGroupUndo, eoScrollPastEol, eoSmartTabs, eoTabIndent, eoTabsToSpaces, eoTrimTrailingSpaces]
|
|
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
|
SelectedColor.BackPriority = 50
|
|
SelectedColor.ForePriority = 50
|
|
SelectedColor.FramePriority = 50
|
|
SelectedColor.BoldPriority = 50
|
|
SelectedColor.ItalicPriority = 50
|
|
SelectedColor.UnderlinePriority = 50
|
|
SelectedColor.StrikeOutPriority = 50
|
|
BracketHighlightStyle = sbhsBoth
|
|
BracketMatchColor.Background = clNone
|
|
BracketMatchColor.Foreground = clNone
|
|
BracketMatchColor.Style = [fsBold]
|
|
FoldedCodeColor.Background = clNone
|
|
FoldedCodeColor.Foreground = clGray
|
|
FoldedCodeColor.FrameColor = clGray
|
|
MouseLinkColor.Background = clNone
|
|
MouseLinkColor.Foreground = clBlue
|
|
LineHighlightColor.Background = clNone
|
|
LineHighlightColor.Foreground = clNone
|
|
inline SynLeftGutterPartList1: TSynGutterPartList
|
|
object SynGutterMarks1: TSynGutterMarks
|
|
Width = 24
|
|
MouseActions = <>
|
|
end
|
|
object SynGutterLineNumber1: TSynGutterLineNumber
|
|
Width = 17
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clBtnFace
|
|
MarkupInfo.Foreground = clNone
|
|
DigitCount = 2
|
|
ShowOnlyLineNumbersMultiplesOf = 1
|
|
ZeroStart = False
|
|
LeadingZeros = False
|
|
end
|
|
object SynGutterChanges1: TSynGutterChanges
|
|
Width = 4
|
|
MouseActions = <>
|
|
ModifiedColor = 59900
|
|
SavedColor = clGreen
|
|
end
|
|
object SynGutterSeparator1: TSynGutterSeparator
|
|
Width = 2
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clWhite
|
|
MarkupInfo.Foreground = clGray
|
|
end
|
|
object SynGutterCodeFolding1: TSynGutterCodeFolding
|
|
MouseActions = <>
|
|
MarkupInfo.Background = clNone
|
|
MarkupInfo.Foreground = clGray
|
|
MouseActionsExpanded = <>
|
|
MouseActionsCollapsed = <>
|
|
end
|
|
end
|
|
end
|
|
object SQuery: TSplitter
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 5
|
|
Top = 256
|
|
Width = 640
|
|
Align = alBottom
|
|
ResizeAnchor = akBottom
|
|
end
|
|
object ALQuery: TActionList
|
|
Images = ImgDatamodule.AppImages
|
|
Left = 85
|
|
Top = 48
|
|
object AExecute: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Execute statement'
|
|
Hint = 'Execute SQL statement(s)'
|
|
ImageIndex = 39
|
|
OnExecute = AExecuteExecute
|
|
OnUpdate = NotBusy
|
|
ShortCut = 16453
|
|
end
|
|
object ACloseQuery: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Close Query'
|
|
Hint = 'Close dataset'
|
|
ImageIndex = 44
|
|
OnExecute = CloseQueryClick
|
|
OnUpdate = DataShowing
|
|
end
|
|
object APreviousQuery: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Previous SQL'
|
|
Hint = 'Previous SQL statement'
|
|
ImageIndex = 40
|
|
OnExecute = PreviousQueryClick
|
|
OnUpdate = HavePreviousQuery
|
|
end
|
|
object ANextQuery: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Next SQL'
|
|
Hint = 'Next SQL statement'
|
|
ImageIndex = 41
|
|
OnExecute = NextQueryClick
|
|
OnUpdate = HaveNextQuery
|
|
end
|
|
object ALoadSQL: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Load SQL from file'
|
|
Hint = 'Load SQL from file'
|
|
ImageIndex = 12
|
|
OnExecute = LoadQueryClick
|
|
OnUpdate = NotBusy
|
|
end
|
|
object ASaveSQL: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Save SQL'
|
|
Hint = 'Save SQL to file'
|
|
ImageIndex = 15
|
|
OnExecute = SaveQueryClick
|
|
OnUpdate = NotBusy
|
|
end
|
|
object AExport: TAction
|
|
Category = 'Data'
|
|
Caption = 'Export data'
|
|
Hint = 'Export Data'
|
|
ImageIndex = 10
|
|
OnExecute = ExportDataClick
|
|
OnUpdate = DataShowing
|
|
end
|
|
object ACreateCode: TAction
|
|
Category = 'Data'
|
|
Caption = 'Create Code'
|
|
Hint = 'Create code from dataset'
|
|
ImageIndex = 11
|
|
OnExecute = CreateCodeClick
|
|
OnUpdate = DataShowing
|
|
end
|
|
object AExecuteSingle: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Execute as statement'
|
|
OnExecute = AExecuteSingleExecute
|
|
end
|
|
object AExecuteSelection: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Execute selection as statement'
|
|
OnExecute = AExecuteSelectionExecute
|
|
OnUpdate = HaveSQLSelection
|
|
end
|
|
object AExecuteScript: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Execute as script'
|
|
OnExecute = AExecuteScriptExecute
|
|
end
|
|
object AExecuteSelectionScript: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Execute selection as script'
|
|
OnExecute = AExecuteSelectionScriptExecute
|
|
end
|
|
object aCommit: TAction
|
|
Category = 'Data'
|
|
Caption = 'Commit'
|
|
ImageIndex = 42
|
|
OnExecute = aCommitExecute
|
|
OnUpdate = aCommitUpdate
|
|
end
|
|
object aRollBack: TAction
|
|
Category = 'Data'
|
|
Caption = 'RollBack'
|
|
ImageIndex = 43
|
|
OnExecute = aRollBackExecute
|
|
OnUpdate = aRollBackUpdate
|
|
end
|
|
object aCut: TEditCut
|
|
Category = 'Edit'
|
|
Caption = 'Cu&t'
|
|
Hint = 'Cut'
|
|
ShortCut = 16472
|
|
end
|
|
object aCopy: TEditCopy
|
|
Category = 'Edit'
|
|
Caption = '&Copy'
|
|
Hint = 'Copy'
|
|
ShortCut = 16451
|
|
end
|
|
object aPaste: TEditPaste
|
|
Category = 'Edit'
|
|
Caption = '&Paste'
|
|
Hint = 'Paste'
|
|
ShortCut = 16470
|
|
end
|
|
object aSelectAll: TEditSelectAll
|
|
Category = 'Edit'
|
|
Caption = 'Select &All'
|
|
Hint = 'Select All'
|
|
ShortCut = 16449
|
|
end
|
|
object aCopyAsSQLConst: TAction
|
|
Category = 'Edit'
|
|
Caption = 'Copy as pascal string constant'
|
|
OnExecute = aCopyAsSQLConstExecute
|
|
end
|
|
object aCopyAsTStringsAdd: TAction
|
|
Category = 'Edit'
|
|
Caption = 'TStrings.Add statements'
|
|
OnExecute = aCopyAsTStringsAddExecute
|
|
end
|
|
object aCleanPascalCode: TAction
|
|
Category = 'Edit'
|
|
Caption = 'Clean up pascal code'
|
|
OnExecute = aCleanPascalCodeExecute
|
|
end
|
|
object aPrepareParameters: TAction
|
|
Category = 'SQL'
|
|
Caption = 'Prepare Parameters'
|
|
Hint = 'Prepare parameter values'
|
|
ImageIndex = 49
|
|
OnExecute = aPrepareParametersExecute
|
|
OnUpdate = NotBusy
|
|
end
|
|
end
|
|
object SQLSyn: TSynSQLSyn
|
|
DefaultFilter = 'SQL Files (*.sql)|*.sql'
|
|
Enabled = False
|
|
TableNameAttri.Foreground = 2779939
|
|
SQLDialect = sqlInterbase6
|
|
Left = 200
|
|
Top = 47
|
|
end
|
|
object ODSQL: TOpenDialog
|
|
DefaultExt = '.sql'
|
|
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
|
|
Left = 144
|
|
Top = 48
|
|
end
|
|
object SDSQL: TSaveDialog
|
|
Options = [ofOverwritePrompt, ofPathMustExist, ofEnableSizing]
|
|
Left = 256
|
|
Top = 48
|
|
end
|
|
object PMExecute: TPopupMenu
|
|
Images = ImgDatamodule.AppImages
|
|
Left = 88
|
|
Top = 112
|
|
object MIExecuteSingle: TMenuItem
|
|
Action = AExecuteSingle
|
|
Caption = 'Execute as single SQL statement'
|
|
end
|
|
object MIExecuteSelection: TMenuItem
|
|
Action = AExecuteSelection
|
|
Caption = 'Execute Selection Only'
|
|
end
|
|
object MIExecuteScript: TMenuItem
|
|
Action = AExecuteScript
|
|
end
|
|
object MIExecuteSelectionScript: TMenuItem
|
|
Action = AExecuteSelectionScript
|
|
end
|
|
end
|
|
object pmSynEdit: TPopupMenu
|
|
Images = ImgDatamodule.AppImages
|
|
Left = 158
|
|
Top = 111
|
|
object mnuCopy: TMenuItem
|
|
Action = aCopy
|
|
end
|
|
object mnuCut: TMenuItem
|
|
Action = aCut
|
|
end
|
|
object mnuPaste: TMenuItem
|
|
Action = aPaste
|
|
end
|
|
object mnuSelectAll: TMenuItem
|
|
Action = aSelectAll
|
|
end
|
|
object MenuItem1: TMenuItem
|
|
Caption = 'Copy as...'
|
|
object MenuItem2: TMenuItem
|
|
Action = aCopyAsSQLConst
|
|
end
|
|
object MenuItem3: TMenuItem
|
|
Action = aCopyAsTStringsAdd
|
|
end
|
|
end
|
|
object MenuItem4: TMenuItem
|
|
Action = aCleanPascalCode
|
|
end
|
|
object mnuSep: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object mnuPrevSQL: TMenuItem
|
|
Action = APreviousQuery
|
|
end
|
|
object mnuNextSQL: TMenuItem
|
|
Action = ANextQuery
|
|
end
|
|
object mnuSep2: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
end
|
|
end
|