885 lines
26 KiB
Plaintext
885 lines
26 KiB
Plaintext
object Form1: TForm1
|
||
Left = 340
|
||
Height = 628
|
||
Top = 150
|
||
Width = 1172
|
||
Caption = 'BGRAScript'
|
||
ClientHeight = 628
|
||
ClientWidth = 1172
|
||
Color = 15790320
|
||
OnCreate = FormCreate
|
||
Position = poDesktopCenter
|
||
ShowHint = True
|
||
LCLVersion = '1.2.4.0'
|
||
inline SynEdit1: TSynEdit
|
||
Left = 0
|
||
Height = 343
|
||
Hint = 'Ctrl + Spacebar to show templates.'
|
||
Top = 285
|
||
Width = 1172
|
||
Align = alBottom
|
||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||
Font.Height = -16
|
||
Font.Name = 'Courier New'
|
||
Font.Pitch = fpFixed
|
||
Font.Quality = fqCleartypeNatural
|
||
ParentColor = False
|
||
ParentFont = False
|
||
TabOrder = 0
|
||
Gutter.Width = 61
|
||
Gutter.MouseActions = <>
|
||
RightGutter.Width = 0
|
||
RightGutter.MouseActions = <>
|
||
Highlighter = SynAnySyn1
|
||
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 = EcFoldLevel1
|
||
ShortCut = 41011
|
||
end
|
||
item
|
||
Command = EcFoldLevel1
|
||
ShortCut = 41012
|
||
end
|
||
item
|
||
Command = EcFoldLevel1
|
||
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 = (
|
||
'{ BGRAScript }'
|
||
'FillTransparent'
|
||
''
|
||
'// "store some values"'
|
||
'let oneh 100'
|
||
'let drawmode "dmDrawWithTransparency"'
|
||
'let blendmode "boTransparent"'
|
||
'let filename "file.png"'
|
||
'let color1 "rgba(250,250,250,1)"'
|
||
'let color2 "rgba(255,255,255,1)"'
|
||
'GetWidth width'
|
||
'GetHeight height'
|
||
''
|
||
'// "Draw rectangles, lines and bitmap"'
|
||
'Rectangle 0,0,oneh,oneh,"rgba(0,0,0,0.6)",color1,drawmode'
|
||
'Rectangle 20,20,80,80,"rgba(0,0,0,0.4)",color2,drawmode'
|
||
'SetHorizLine 0,10,98,"rgba(0,0,0,.3)"'
|
||
'SetVertLine 90,1,98,"rgba(0,0,0,.3)"'
|
||
'BlendBitmap 26,26,"test.png",blendmode'
|
||
''
|
||
'// "Save and weird things step 1"'
|
||
'SaveToFile filename'
|
||
'Negative'
|
||
'BlendBitmap 0,oneh,filename,blendmode'
|
||
''
|
||
'// "Save and weird things step 2"'
|
||
'SaveToFile filename'
|
||
'Negative'
|
||
'FilterFastBlur 3,"False"'
|
||
'BlendBitmap oneh,0,filename,blendmode'
|
||
''
|
||
'// "Flip the world and save it"'
|
||
'VerticalFlip 0,0,100,100'
|
||
'HorizontalFlip 100,100,200,200'
|
||
'VerticalFlip 100,0,200,100'
|
||
'HorizontalFlip 100,0,200,100'
|
||
'SaveToFile filename'
|
||
'// "goto line (skip all the intermediate lines)"'
|
||
'goto 47'
|
||
''
|
||
'// "Weird things level 3"'
|
||
'DrawCheckers 200,0,300,300,"rgba(100,100,100,255)","rgba(0,0,0,0)"'
|
||
'InplaceGrayscaleRect 0,0,100,100'
|
||
'FilterSmooth "False"'
|
||
'ApplyBitmapMask filename,100,100,200,200,0,100'
|
||
''
|
||
'DrawHorizLine 0,0,width,"rgba(0,0,0,1)"'
|
||
'DrawVertLine 0,0,height,"rgba(0,0,0,1)"'
|
||
''
|
||
'// "Save this in your hard disk (again)"'
|
||
'SaveToFile filename'
|
||
'print "End: ''",filename,"'' saved!"'
|
||
)
|
||
VisibleSpecialChars = [vscSpace, vscTabAtLast]
|
||
SelectedColor.FrameEdges = sfeAround
|
||
SelectedColor.BackPriority = 50
|
||
SelectedColor.ForePriority = 50
|
||
SelectedColor.FramePriority = 50
|
||
SelectedColor.BoldPriority = 50
|
||
SelectedColor.ItalicPriority = 50
|
||
SelectedColor.UnderlinePriority = 50
|
||
SelectedColor.StrikeOutPriority = 50
|
||
IncrementColor.FrameEdges = sfeAround
|
||
HighlightAllColor.FrameEdges = sfeAround
|
||
BracketHighlightStyle = sbhsBoth
|
||
BracketMatchColor.Background = clNone
|
||
BracketMatchColor.Foreground = clNone
|
||
BracketMatchColor.FrameEdges = sfeAround
|
||
BracketMatchColor.Style = [fsBold]
|
||
FoldedCodeColor.Background = clNone
|
||
FoldedCodeColor.Foreground = clGray
|
||
FoldedCodeColor.FrameColor = clGray
|
||
FoldedCodeColor.FrameEdges = sfeAround
|
||
MouseLinkColor.Background = clNone
|
||
MouseLinkColor.Foreground = clBlue
|
||
MouseLinkColor.FrameEdges = sfeAround
|
||
LineHighlightColor.Background = clNone
|
||
LineHighlightColor.Foreground = clNone
|
||
LineHighlightColor.FrameEdges = sfeAround
|
||
inline SynLeftGutterPartList1: TSynGutterPartList
|
||
object SynGutterMarks1: TSynGutterMarks
|
||
Width = 24
|
||
MouseActions = <>
|
||
end
|
||
object SynGutterLineNumber1: TSynGutterLineNumber
|
||
Width = 21
|
||
MouseActions = <>
|
||
MarkupInfo.Background = clBtnFace
|
||
MarkupInfo.Foreground = clNone
|
||
MarkupInfo.FrameEdges = sfeAround
|
||
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
|
||
MarkupInfo.FrameEdges = sfeAround
|
||
end
|
||
object SynGutterCodeFolding1: TSynGutterCodeFolding
|
||
MouseActions = <>
|
||
MarkupInfo.Background = clNone
|
||
MarkupInfo.Foreground = clGray
|
||
MarkupInfo.FrameEdges = sfeAround
|
||
MouseActionsExpanded = <>
|
||
MouseActionsCollapsed = <>
|
||
end
|
||
end
|
||
end
|
||
object Splitter1: TSplitter
|
||
Cursor = crVSplit
|
||
Left = 0
|
||
Height = 5
|
||
Top = 280
|
||
Width = 1172
|
||
Align = alBottom
|
||
ResizeAnchor = akBottom
|
||
end
|
||
object BGRAGraphicControl1: TBGRAGraphicControl
|
||
Left = 8
|
||
Height = 220
|
||
Hint = 'Click to update.'
|
||
Top = 56
|
||
Width = 496
|
||
OnRedraw = BGRAGraphicControl1Redraw
|
||
Color = clWhite
|
||
ColorOpacity = 128
|
||
Alignment = taCenter
|
||
OnClick = BGRAGraphicControl1Click
|
||
Caption = 'BGRAGraphicControl1'
|
||
end
|
||
object BGRAVirtualScreen1: TBGRAVirtualScreen
|
||
Left = 0
|
||
Height = 50
|
||
Top = 0
|
||
Width = 1172
|
||
OnRedraw = BGRAVirtualScreen1Redraw
|
||
Align = alTop
|
||
Alignment = taLeftJustify
|
||
ChildSizing.LeftRightSpacing = 8
|
||
ChildSizing.TopBottomSpacing = 8
|
||
ChildSizing.HorizontalSpacing = 8
|
||
ChildSizing.VerticalSpacing = 8
|
||
ChildSizing.Layout = cclTopToBottomThenLeftToRight
|
||
ClientHeight = 50
|
||
ClientWidth = 1172
|
||
Color = clWhite
|
||
ParentColor = False
|
||
TabOrder = 2
|
||
object BCButton1: TBCButton
|
||
Left = 1026
|
||
Height = 32
|
||
Top = 9
|
||
Width = 137
|
||
Align = alRight
|
||
AutoSize = True
|
||
StateClicked.Background.Color = clBlack
|
||
StateClicked.Background.ColorOpacity = 255
|
||
StateClicked.Background.Gradient1.StartColor = 7726591
|
||
StateClicked.Background.Gradient1.StartColorOpacity = 255
|
||
StateClicked.Background.Gradient1.DrawMode = dmSet
|
||
StateClicked.Background.Gradient1.EndColor = 7067903
|
||
StateClicked.Background.Gradient1.EndColorOpacity = 255
|
||
StateClicked.Background.Gradient1.ColorCorrection = True
|
||
StateClicked.Background.Gradient1.GradientType = gtLinear
|
||
StateClicked.Background.Gradient1.Point1XPercent = 0
|
||
StateClicked.Background.Gradient1.Point1YPercent = 0
|
||
StateClicked.Background.Gradient1.Point2XPercent = 0
|
||
StateClicked.Background.Gradient1.Point2YPercent = 100
|
||
StateClicked.Background.Gradient1.Sinus = False
|
||
StateClicked.Background.Gradient2.StartColor = 7067903
|
||
StateClicked.Background.Gradient2.StartColorOpacity = 255
|
||
StateClicked.Background.Gradient2.DrawMode = dmSet
|
||
StateClicked.Background.Gradient2.EndColor = 8515583
|
||
StateClicked.Background.Gradient2.EndColorOpacity = 255
|
||
StateClicked.Background.Gradient2.ColorCorrection = True
|
||
StateClicked.Background.Gradient2.GradientType = gtLinear
|
||
StateClicked.Background.Gradient2.Point1XPercent = 0
|
||
StateClicked.Background.Gradient2.Point1YPercent = 0
|
||
StateClicked.Background.Gradient2.Point2XPercent = 0
|
||
StateClicked.Background.Gradient2.Point2YPercent = 100
|
||
StateClicked.Background.Gradient2.Sinus = False
|
||
StateClicked.Background.Gradient1EndPercent = 50
|
||
StateClicked.Background.Style = bbsGradient
|
||
StateClicked.Border.Color = 4170178
|
||
StateClicked.Border.ColorOpacity = 255
|
||
StateClicked.Border.LightColor = clGray
|
||
StateClicked.Border.LightOpacity = 100
|
||
StateClicked.Border.LightWidth = 1
|
||
StateClicked.Border.Style = bboSolid
|
||
StateClicked.Border.Width = 1
|
||
StateClicked.FontEx.Color = clBlack
|
||
StateClicked.FontEx.EndEllipsis = False
|
||
StateClicked.FontEx.FontQuality = fqSystemClearType
|
||
StateClicked.FontEx.Height = 0
|
||
StateClicked.FontEx.SingleLine = True
|
||
StateClicked.FontEx.Shadow = False
|
||
StateClicked.FontEx.ShadowColor = clBlack
|
||
StateClicked.FontEx.ShadowColorOpacity = 255
|
||
StateClicked.FontEx.ShadowRadius = 5
|
||
StateClicked.FontEx.ShadowOffsetX = 5
|
||
StateClicked.FontEx.ShadowOffsetY = 5
|
||
StateClicked.FontEx.Style = []
|
||
StateClicked.FontEx.TextAlignment = bcaCenter
|
||
StateClicked.FontEx.WordBreak = False
|
||
StateHover.Background.Color = clBlack
|
||
StateHover.Background.ColorOpacity = 255
|
||
StateHover.Background.Gradient1.StartColor = 12448254
|
||
StateHover.Background.Gradient1.StartColorOpacity = 255
|
||
StateHover.Background.Gradient1.DrawMode = dmSet
|
||
StateHover.Background.Gradient1.EndColor = 8840446
|
||
StateHover.Background.Gradient1.EndColorOpacity = 255
|
||
StateHover.Background.Gradient1.ColorCorrection = True
|
||
StateHover.Background.Gradient1.GradientType = gtLinear
|
||
StateHover.Background.Gradient1.Point1XPercent = 0
|
||
StateHover.Background.Gradient1.Point1YPercent = 0
|
||
StateHover.Background.Gradient1.Point2XPercent = 0
|
||
StateHover.Background.Gradient1.Point2YPercent = 100
|
||
StateHover.Background.Gradient1.Sinus = False
|
||
StateHover.Background.Gradient2.StartColor = 8840446
|
||
StateHover.Background.Gradient2.StartColorOpacity = 255
|
||
StateHover.Background.Gradient2.DrawMode = dmSet
|
||
StateHover.Background.Gradient2.EndColor = 12908798
|
||
StateHover.Background.Gradient2.EndColorOpacity = 255
|
||
StateHover.Background.Gradient2.ColorCorrection = True
|
||
StateHover.Background.Gradient2.GradientType = gtLinear
|
||
StateHover.Background.Gradient2.Point1XPercent = 0
|
||
StateHover.Background.Gradient2.Point1YPercent = 0
|
||
StateHover.Background.Gradient2.Point2XPercent = 0
|
||
StateHover.Background.Gradient2.Point2YPercent = 100
|
||
StateHover.Background.Gradient2.Sinus = False
|
||
StateHover.Background.Gradient1EndPercent = 50
|
||
StateHover.Background.Style = bbsGradient
|
||
StateHover.Border.Color = 5362420
|
||
StateHover.Border.ColorOpacity = 255
|
||
StateHover.Border.LightColor = clWhite
|
||
StateHover.Border.LightOpacity = 200
|
||
StateHover.Border.LightWidth = 1
|
||
StateHover.Border.Style = bboSolid
|
||
StateHover.Border.Width = 1
|
||
StateHover.FontEx.Color = clBlack
|
||
StateHover.FontEx.EndEllipsis = False
|
||
StateHover.FontEx.FontQuality = fqSystemClearType
|
||
StateHover.FontEx.Height = 0
|
||
StateHover.FontEx.SingleLine = True
|
||
StateHover.FontEx.Shadow = False
|
||
StateHover.FontEx.ShadowColor = clBlack
|
||
StateHover.FontEx.ShadowColorOpacity = 255
|
||
StateHover.FontEx.ShadowRadius = 5
|
||
StateHover.FontEx.ShadowOffsetX = 5
|
||
StateHover.FontEx.ShadowOffsetY = 5
|
||
StateHover.FontEx.Style = []
|
||
StateHover.FontEx.TextAlignment = bcaCenter
|
||
StateHover.FontEx.WordBreak = False
|
||
StateNormal.Background.Color = clBlack
|
||
StateNormal.Background.ColorOpacity = 255
|
||
StateNormal.Background.Gradient1.StartColor = clWhite
|
||
StateNormal.Background.Gradient1.StartColorOpacity = 255
|
||
StateNormal.Background.Gradient1.DrawMode = dmSet
|
||
StateNormal.Background.Gradient1.EndColor = 15855597
|
||
StateNormal.Background.Gradient1.EndColorOpacity = 255
|
||
StateNormal.Background.Gradient1.ColorCorrection = True
|
||
StateNormal.Background.Gradient1.GradientType = gtLinear
|
||
StateNormal.Background.Gradient1.Point1XPercent = 0
|
||
StateNormal.Background.Gradient1.Point1YPercent = 0
|
||
StateNormal.Background.Gradient1.Point2XPercent = 0
|
||
StateNormal.Background.Gradient1.Point2YPercent = 100
|
||
StateNormal.Background.Gradient1.Sinus = False
|
||
StateNormal.Background.Gradient2.StartColor = 13137169
|
||
StateNormal.Background.Gradient2.StartColorOpacity = 255
|
||
StateNormal.Background.Gradient2.DrawMode = dmSet
|
||
StateNormal.Background.Gradient2.EndColor = 15722194
|
||
StateNormal.Background.Gradient2.EndColorOpacity = 255
|
||
StateNormal.Background.Gradient2.ColorCorrection = True
|
||
StateNormal.Background.Gradient2.GradientType = gtLinear
|
||
StateNormal.Background.Gradient2.Point1XPercent = 0
|
||
StateNormal.Background.Gradient2.Point1YPercent = 0
|
||
StateNormal.Background.Gradient2.Point2XPercent = 0
|
||
StateNormal.Background.Gradient2.Point2YPercent = 100
|
||
StateNormal.Background.Gradient2.Sinus = False
|
||
StateNormal.Background.Gradient1EndPercent = 100
|
||
StateNormal.Background.Style = bbsGradient
|
||
StateNormal.Border.Color = 13816015
|
||
StateNormal.Border.ColorOpacity = 255
|
||
StateNormal.Border.LightColor = clWhite
|
||
StateNormal.Border.LightOpacity = 255
|
||
StateNormal.Border.LightWidth = 1
|
||
StateNormal.Border.Style = bboSolid
|
||
StateNormal.Border.Width = 1
|
||
StateNormal.FontEx.Color = clBlack
|
||
StateNormal.FontEx.EndEllipsis = False
|
||
StateNormal.FontEx.FontQuality = fqSystemClearType
|
||
StateNormal.FontEx.Height = 0
|
||
StateNormal.FontEx.SingleLine = True
|
||
StateNormal.FontEx.Shadow = False
|
||
StateNormal.FontEx.ShadowColor = clBlack
|
||
StateNormal.FontEx.ShadowColorOpacity = 255
|
||
StateNormal.FontEx.ShadowRadius = 5
|
||
StateNormal.FontEx.ShadowOffsetX = 5
|
||
StateNormal.FontEx.ShadowOffsetY = 5
|
||
StateNormal.FontEx.Style = []
|
||
StateNormal.FontEx.TextAlignment = bcaCenter
|
||
StateNormal.FontEx.WordBreak = False
|
||
Caption = 'Commands'
|
||
Color = clNone
|
||
DropDownWidth = 16
|
||
DropDownArrowSize = 8
|
||
GlobalOpacity = 255
|
||
Glyph.Data = {
|
||
36040000424D3604000000000000360000002800000010000000100000000100
|
||
2000000000000004000064000000640000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
00000000000000000000000000000000000000000000000000000000008F0000
|
||
008F0000008F0000008F0000008F0000008F0000008F0000008F0000008F0000
|
||
008F0000008F0000008F0000008F0000008F0000008F0000008F000000B70000
|
||
00B7000000B7000000B7000000B7000000B7000000B7000000B7000000B70000
|
||
00B7000000B7000000B7000000B7000000B7000000B7000000B7000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
00000000000000000000000000000000000000000000000000000000009F0000
|
||
009F0000009F0000009F0000009F0000009F0000009F0000009F0000009F0000
|
||
009F0000009F0000009F0000009F0000009F0000009F0000009F0000009F0000
|
||
009F0000009F0000009F0000009F0000009F0000009F0000009F0000009F0000
|
||
009F0000009F0000009F0000009F0000009F0000009F0000009F000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000B70000
|
||
00B7000000B7000000B7000000B7000000B7000000B7000000B7000000B70000
|
||
00B7000000B7000000B7000000B7000000B7000000B7000000B70000008F0000
|
||
008F0000008F0000008F0000008F0000008F0000008F0000008F0000008F0000
|
||
008F0000008F0000008F0000008F0000008F0000008F0000008F000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000000000000000
|
||
0000000000000000000000000000000000000000000000000000
|
||
}
|
||
OnClick = BCButton1Click
|
||
ParentColor = False
|
||
Rounding.RoundX = 3
|
||
Rounding.RoundY = 3
|
||
Rounding.RoundOptions = []
|
||
RoundingDropDown.RoundX = 1
|
||
RoundingDropDown.RoundY = 1
|
||
RoundingDropDown.RoundOptions = []
|
||
TextApplyGlobalOpacity = False
|
||
end
|
||
end
|
||
object ListBox1: TListBox
|
||
Left = 512
|
||
Height = 220
|
||
Top = 56
|
||
Width = 648
|
||
Anchors = [akTop, akLeft, akRight]
|
||
ItemHeight = 0
|
||
OnDblClick = ListBox1DblClick
|
||
TabOrder = 3
|
||
Visible = False
|
||
end
|
||
object SynCompletion1: TSynCompletion
|
||
Position = 0
|
||
LinesInWindow = 6
|
||
SelectedColor = clHighlight
|
||
CaseSensitive = False
|
||
Width = 500
|
||
LongLineHintType = sclpNone
|
||
ShortCut = 16416
|
||
EndOfTokenChr = '()[].'
|
||
ExecCommandID = ecSynCompletionExecute
|
||
Editor = SynEdit1
|
||
left = 664
|
||
top = 248
|
||
end
|
||
object SynAnySyn1: TSynAnySyn
|
||
Enabled = False
|
||
CommentAttri.Foreground = clGreen
|
||
CommentAttri.FrameEdges = sfeAround
|
||
Comments = [csPasStyle]
|
||
DetectPreprocessor = False
|
||
IdentifierAttri.FrameEdges = sfeAround
|
||
IdentifierChars = '!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~'
|
||
KeyAttri.FrameEdges = sfeAround
|
||
ConstantAttri.FrameEdges = sfeAround
|
||
ObjectAttri.FrameEdges = sfeAround
|
||
EntityAttri.FrameEdges = sfeAround
|
||
VariableAttri.FrameEdges = sfeAround
|
||
DotAttri.FrameEdges = sfeAround
|
||
KeyWords.Strings = (
|
||
'GOTO'
|
||
'INPUT'
|
||
'LET'
|
||
'PRINT'
|
||
)
|
||
NumberAttri.Foreground = clMaroon
|
||
NumberAttri.FrameEdges = sfeAround
|
||
PreprocessorAttri.FrameEdges = sfeAround
|
||
SpaceAttri.FrameEdges = sfeAround
|
||
StringAttri.Foreground = 16744448
|
||
StringAttri.FrameEdges = sfeAround
|
||
SymbolAttri.Foreground = 4227327
|
||
SymbolAttri.FrameEdges = sfeAround
|
||
StringDelim = sdDoubleQuote
|
||
Markup = False
|
||
Entity = False
|
||
DollarVariables = False
|
||
ActiveDot = False
|
||
left = 248
|
||
top = 112
|
||
end
|
||
end
|