Ignore:
Timestamp:
May 6, 2019, 11:03:00 AM (6 years ago)
Author:
chronos
Message:
  • Added: TargetCode form use SynEdit for syntax highlighting.
  • Fixed: Do not show error if specific target doesn't have assigned compiler. Not all targets use compiler. Some of them are just interpreted.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UFormTargetCode.lfm

    r103 r106  
    11object FormTargetCode: TFormTargetCode
    2   Left = 682
    3   Height = 288
    4   Top = 485
    5   Width = 384
     2  Left = 555
     3  Height = 435
     4  Top = 379
     5  Width = 612
    66  Caption = 'Target code'
    7   ClientHeight = 288
    8   ClientWidth = 384
    9   DesignTimePPI = 144
    10   LCLVersion = '2.0.0.4'
    11   object MemoTarget: TMemo
     7  ClientHeight = 435
     8  ClientWidth = 612
     9  DesignTimePPI = 120
     10  LCLVersion = '2.0.2.0'
     11  inline SynEditTarget: TSynEdit
    1212    Left = 0
    13     Height = 288
     13    Height = 435
    1414    Top = 0
    15     Width = 384
     15    Width = 612
    1616    Align = alClient
     17    Font.Height = -13
    1718    Font.Name = 'Courier New'
     19    Font.Pitch = fpFixed
     20    Font.Quality = fqNonAntialiased
     21    ParentColor = False
    1822    ParentFont = False
    1923    PopupMenu = PopupMenuTarget
    20     ReadOnly = True
    21     ScrollBars = ssAutoBoth
    2224    TabOrder = 0
     25    Gutter.Width = 68
     26    Gutter.MouseActions = <>
     27    RightGutter.Width = 0
     28    RightGutter.MouseActions = <>
     29    Keystrokes = <   
     30      item
     31        Command = ecUp
     32        ShortCut = 38
     33      end   
     34      item
     35        Command = ecSelUp
     36        ShortCut = 8230
     37      end   
     38      item
     39        Command = ecScrollUp
     40        ShortCut = 16422
     41      end   
     42      item
     43        Command = ecDown
     44        ShortCut = 40
     45      end   
     46      item
     47        Command = ecSelDown
     48        ShortCut = 8232
     49      end   
     50      item
     51        Command = ecScrollDown
     52        ShortCut = 16424
     53      end   
     54      item
     55        Command = ecLeft
     56        ShortCut = 37
     57      end   
     58      item
     59        Command = ecSelLeft
     60        ShortCut = 8229
     61      end   
     62      item
     63        Command = ecWordLeft
     64        ShortCut = 16421
     65      end   
     66      item
     67        Command = ecSelWordLeft
     68        ShortCut = 24613
     69      end   
     70      item
     71        Command = ecRight
     72        ShortCut = 39
     73      end   
     74      item
     75        Command = ecSelRight
     76        ShortCut = 8231
     77      end   
     78      item
     79        Command = ecWordRight
     80        ShortCut = 16423
     81      end   
     82      item
     83        Command = ecSelWordRight
     84        ShortCut = 24615
     85      end   
     86      item
     87        Command = ecPageDown
     88        ShortCut = 34
     89      end   
     90      item
     91        Command = ecSelPageDown
     92        ShortCut = 8226
     93      end   
     94      item
     95        Command = ecPageBottom
     96        ShortCut = 16418
     97      end   
     98      item
     99        Command = ecSelPageBottom
     100        ShortCut = 24610
     101      end   
     102      item
     103        Command = ecPageUp
     104        ShortCut = 33
     105      end   
     106      item
     107        Command = ecSelPageUp
     108        ShortCut = 8225
     109      end   
     110      item
     111        Command = ecPageTop
     112        ShortCut = 16417
     113      end   
     114      item
     115        Command = ecSelPageTop
     116        ShortCut = 24609
     117      end   
     118      item
     119        Command = ecLineStart
     120        ShortCut = 36
     121      end   
     122      item
     123        Command = ecSelLineStart
     124        ShortCut = 8228
     125      end   
     126      item
     127        Command = ecEditorTop
     128        ShortCut = 16420
     129      end   
     130      item
     131        Command = ecSelEditorTop
     132        ShortCut = 24612
     133      end   
     134      item
     135        Command = ecLineEnd
     136        ShortCut = 35
     137      end   
     138      item
     139        Command = ecSelLineEnd
     140        ShortCut = 8227
     141      end   
     142      item
     143        Command = ecEditorBottom
     144        ShortCut = 16419
     145      end   
     146      item
     147        Command = ecSelEditorBottom
     148        ShortCut = 24611
     149      end   
     150      item
     151        Command = ecToggleMode
     152        ShortCut = 45
     153      end   
     154      item
     155        Command = ecCopy
     156        ShortCut = 16429
     157      end   
     158      item
     159        Command = ecPaste
     160        ShortCut = 8237
     161      end   
     162      item
     163        Command = ecDeleteChar
     164        ShortCut = 46
     165      end   
     166      item
     167        Command = ecCut
     168        ShortCut = 8238
     169      end   
     170      item
     171        Command = ecDeleteLastChar
     172        ShortCut = 8
     173      end   
     174      item
     175        Command = ecDeleteLastChar
     176        ShortCut = 8200
     177      end   
     178      item
     179        Command = ecDeleteLastWord
     180        ShortCut = 16392
     181      end   
     182      item
     183        Command = ecUndo
     184        ShortCut = 32776
     185      end   
     186      item
     187        Command = ecRedo
     188        ShortCut = 40968
     189      end   
     190      item
     191        Command = ecLineBreak
     192        ShortCut = 13
     193      end   
     194      item
     195        Command = ecSelectAll
     196        ShortCut = 16449
     197      end   
     198      item
     199        Command = ecCopy
     200        ShortCut = 16451
     201      end   
     202      item
     203        Command = ecBlockIndent
     204        ShortCut = 24649
     205      end   
     206      item
     207        Command = ecLineBreak
     208        ShortCut = 16461
     209      end   
     210      item
     211        Command = ecInsertLine
     212        ShortCut = 16462
     213      end   
     214      item
     215        Command = ecDeleteWord
     216        ShortCut = 16468
     217      end   
     218      item
     219        Command = ecBlockUnindent
     220        ShortCut = 24661
     221      end   
     222      item
     223        Command = ecPaste
     224        ShortCut = 16470
     225      end   
     226      item
     227        Command = ecCut
     228        ShortCut = 16472
     229      end   
     230      item
     231        Command = ecDeleteLine
     232        ShortCut = 16473
     233      end   
     234      item
     235        Command = ecDeleteEOL
     236        ShortCut = 24665
     237      end   
     238      item
     239        Command = ecUndo
     240        ShortCut = 16474
     241      end   
     242      item
     243        Command = ecRedo
     244        ShortCut = 24666
     245      end   
     246      item
     247        Command = ecGotoMarker0
     248        ShortCut = 16432
     249      end   
     250      item
     251        Command = ecGotoMarker1
     252        ShortCut = 16433
     253      end   
     254      item
     255        Command = ecGotoMarker2
     256        ShortCut = 16434
     257      end   
     258      item
     259        Command = ecGotoMarker3
     260        ShortCut = 16435
     261      end   
     262      item
     263        Command = ecGotoMarker4
     264        ShortCut = 16436
     265      end   
     266      item
     267        Command = ecGotoMarker5
     268        ShortCut = 16437
     269      end   
     270      item
     271        Command = ecGotoMarker6
     272        ShortCut = 16438
     273      end   
     274      item
     275        Command = ecGotoMarker7
     276        ShortCut = 16439
     277      end   
     278      item
     279        Command = ecGotoMarker8
     280        ShortCut = 16440
     281      end   
     282      item
     283        Command = ecGotoMarker9
     284        ShortCut = 16441
     285      end   
     286      item
     287        Command = ecSetMarker0
     288        ShortCut = 24624
     289      end   
     290      item
     291        Command = ecSetMarker1
     292        ShortCut = 24625
     293      end   
     294      item
     295        Command = ecSetMarker2
     296        ShortCut = 24626
     297      end   
     298      item
     299        Command = ecSetMarker3
     300        ShortCut = 24627
     301      end   
     302      item
     303        Command = ecSetMarker4
     304        ShortCut = 24628
     305      end   
     306      item
     307        Command = ecSetMarker5
     308        ShortCut = 24629
     309      end   
     310      item
     311        Command = ecSetMarker6
     312        ShortCut = 24630
     313      end   
     314      item
     315        Command = ecSetMarker7
     316        ShortCut = 24631
     317      end   
     318      item
     319        Command = ecSetMarker8
     320        ShortCut = 24632
     321      end   
     322      item
     323        Command = ecSetMarker9
     324        ShortCut = 24633
     325      end   
     326      item
     327        Command = EcFoldLevel1
     328        ShortCut = 41009
     329      end   
     330      item
     331        Command = EcFoldLevel2
     332        ShortCut = 41010
     333      end   
     334      item
     335        Command = EcFoldLevel3
     336        ShortCut = 41011
     337      end   
     338      item
     339        Command = EcFoldLevel4
     340        ShortCut = 41012
     341      end   
     342      item
     343        Command = EcFoldLevel5
     344        ShortCut = 41013
     345      end   
     346      item
     347        Command = EcFoldLevel6
     348        ShortCut = 41014
     349      end   
     350      item
     351        Command = EcFoldLevel7
     352        ShortCut = 41015
     353      end   
     354      item
     355        Command = EcFoldLevel8
     356        ShortCut = 41016
     357      end   
     358      item
     359        Command = EcFoldLevel9
     360        ShortCut = 41017
     361      end   
     362      item
     363        Command = EcFoldLevel0
     364        ShortCut = 41008
     365      end   
     366      item
     367        Command = EcFoldCurrent
     368        ShortCut = 41005
     369      end   
     370      item
     371        Command = EcUnFoldCurrent
     372        ShortCut = 41003
     373      end   
     374      item
     375        Command = EcToggleMarkupWord
     376        ShortCut = 32845
     377      end   
     378      item
     379        Command = ecNormalSelect
     380        ShortCut = 24654
     381      end   
     382      item
     383        Command = ecColumnSelect
     384        ShortCut = 24643
     385      end   
     386      item
     387        Command = ecLineSelect
     388        ShortCut = 24652
     389      end   
     390      item
     391        Command = ecTab
     392        ShortCut = 9
     393      end   
     394      item
     395        Command = ecShiftTab
     396        ShortCut = 8201
     397      end   
     398      item
     399        Command = ecMatchBracket
     400        ShortCut = 24642
     401      end   
     402      item
     403        Command = ecColSelUp
     404        ShortCut = 40998
     405      end   
     406      item
     407        Command = ecColSelDown
     408        ShortCut = 41000
     409      end   
     410      item
     411        Command = ecColSelLeft
     412        ShortCut = 40997
     413      end   
     414      item
     415        Command = ecColSelRight
     416        ShortCut = 40999
     417      end   
     418      item
     419        Command = ecColSelPageDown
     420        ShortCut = 40994
     421      end   
     422      item
     423        Command = ecColSelPageBottom
     424        ShortCut = 57378
     425      end   
     426      item
     427        Command = ecColSelPageUp
     428        ShortCut = 40993
     429      end   
     430      item
     431        Command = ecColSelPageTop
     432        ShortCut = 57377
     433      end   
     434      item
     435        Command = ecColSelLineStart
     436        ShortCut = 40996
     437      end   
     438      item
     439        Command = ecColSelLineEnd
     440        ShortCut = 40995
     441      end   
     442      item
     443        Command = ecColSelEditorTop
     444        ShortCut = 57380
     445      end   
     446      item
     447        Command = ecColSelEditorBottom
     448        ShortCut = 57379
     449      end>
     450    MouseActions = <>
     451    MouseTextActions = <>
     452    MouseSelActions = <>
     453    VisibleSpecialChars = [vscSpace, vscTabAtLast]
     454    SelectedColor.BackPriority = 50
     455    SelectedColor.ForePriority = 50
     456    SelectedColor.FramePriority = 50
     457    SelectedColor.BoldPriority = 50
     458    SelectedColor.ItalicPriority = 50
     459    SelectedColor.UnderlinePriority = 50
     460    SelectedColor.StrikeOutPriority = 50
     461    BracketHighlightStyle = sbhsBoth
     462    BracketMatchColor.Background = clNone
     463    BracketMatchColor.Foreground = clNone
     464    BracketMatchColor.Style = [fsBold]
     465    FoldedCodeColor.Background = clNone
     466    FoldedCodeColor.Foreground = clGray
     467    FoldedCodeColor.FrameColor = clGray
     468    MouseLinkColor.Background = clNone
     469    MouseLinkColor.Foreground = clBlue
     470    LineHighlightColor.Background = clNone
     471    LineHighlightColor.Foreground = clNone
     472    inline SynLeftGutterPartList1: TSynGutterPartList
     473      object SynGutterMarks1: TSynGutterMarks
     474        Width = 30
     475        MouseActions = <>
     476      end
     477      object SynGutterLineNumber1: TSynGutterLineNumber
     478        Width = 17
     479        MouseActions = <>
     480        MarkupInfo.Background = clBtnFace
     481        MarkupInfo.Foreground = clNone
     482        DigitCount = 2
     483        ShowOnlyLineNumbersMultiplesOf = 1
     484        ZeroStart = False
     485        LeadingZeros = False
     486      end
     487      object SynGutterChanges1: TSynGutterChanges
     488        Width = 5
     489        MouseActions = <>
     490        ModifiedColor = 59900
     491        SavedColor = clGreen
     492      end
     493      object SynGutterSeparator1: TSynGutterSeparator
     494        Width = 3
     495        MouseActions = <>
     496        MarkupInfo.Background = clWhite
     497        MarkupInfo.Foreground = clGray
     498      end
     499      object SynGutterCodeFolding1: TSynGutterCodeFolding
     500        Width = 13
     501        MouseActions = <>
     502        MarkupInfo.Background = clNone
     503        MarkupInfo.Foreground = clGray
     504        MouseActionsExpanded = <>
     505        MouseActionsCollapsed = <>
     506      end
     507    end
    23508  end
    24509  object PopupMenuTarget: TPopupMenu
    25510    Images = Core.ImageListMain
    26     left = 101
    27     top = 120
     511    left = 84
     512    top = 100
    28513    object MenuItem20: TMenuItem
    29514      Action = AFormatCode
     
    35520  object ActionList1: TActionList
    36521    Images = Core.ImageListMain
    37     left = 239
    38     top = 47
     522    left = 199
     523    top = 39
    39524    object AFormatCode: TAction
    40525      Caption = 'Format code'
Note: See TracChangeset for help on using the changeset viewer.