Ignore:
Timestamp:
Oct 14, 2010, 1:50:39 PM (14 years ago)
Author:
george
Message:
  • Fixed: Seaching global interunit types and functions.
  • Core files transfered into separate package named TranspascalCompiler.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/Transpascal/Forms/UMainForm.lfm

    r59 r60  
    11object MainForm: TMainForm
    2   Left = 148
    3   Height = 494
    4   Top = 103
     2  Left = 114
     3  Height = 504
     4  Top = 122
    55  Width = 861
    6   Caption = 'Transpascal '
    7   ClientHeight = 494
     6  Caption = 'Transpascal IDE'
     7  ClientHeight = 485
    88  ClientWidth = 861
    99  Font.Height = -11
    1010  Font.Name = 'Tahoma'
     11  Menu = MainMenu1
    1112  OnClose = FormClose
    1213  OnCreate = FormCreate
     
    1516  Position = poDesktopCenter
    1617  LCLVersion = '0.9.29'
    17   object ButtonCompile: TButton
    18     Left = 713
    19     Height = 22
    20     Top = 397
    21     Width = 144
    22     Anchors = [akRight, akBottom]
    23     Caption = 'Kompilovat'
    24     Font.Height = -11
    25     Font.Name = 'Tahoma'
    26     OnClick = ButtonCompileClick
    27     ParentFont = False
     18  object Panel2: TPanel
     19    Left = 0
     20    Height = 320
     21    Top = 0
     22    Width = 861
     23    Align = alClient
     24    BevelOuter = bvNone
     25    ClientHeight = 320
     26    ClientWidth = 861
    2827    TabOrder = 0
     28    object TreeViewProject: TTreeView
     29      Left = 0
     30      Height = 320
     31      Top = 0
     32      Width = 233
     33      Align = alLeft
     34      DefaultItemHeight = 15
     35      ReadOnly = True
     36      TabOrder = 0
     37      OnChange = TreeViewProjectChange
     38      Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
     39    end
     40    object Splitter1: TSplitter
     41      Left = 233
     42      Height = 320
     43      Top = 0
     44      Width = 5
     45    end
     46    inline SynEditSource: TSynEdit
     47      Left = 238
     48      Height = 320
     49      Top = 0
     50      Width = 364
     51      Align = alLeft
     52      Font.Height = -13
     53      Font.Name = 'Courier New'
     54      Font.Pitch = fpFixed
     55      Font.Quality = fqNonAntialiased
     56      ParentColor = False
     57      ParentFont = False
     58      TabOrder = 2
     59      Gutter.Width = 57
     60      Gutter.MouseActions = <     
     61        item
     62          Shift = []
     63          ShiftMask = []
     64          Button = mbLeft
     65          ClickCount = ccAny
     66          ClickDir = cdDown
     67          Command = 13
     68          MoveCaret = False
     69          Option = 0
     70          Priority = 0
     71        end     
     72        item
     73          Shift = []
     74          ShiftMask = []
     75          Button = mbRight
     76          ClickCount = ccSingle
     77          ClickDir = cdUp
     78          Command = 12
     79          MoveCaret = False
     80          Option = 0
     81          Priority = 0
     82        end>
     83      RightGutter.Width = 0
     84      RightGutter.MouseActions = <     
     85        item
     86          Shift = []
     87          ShiftMask = []
     88          Button = mbLeft
     89          ClickCount = ccAny
     90          ClickDir = cdDown
     91          Command = 13
     92          MoveCaret = False
     93          Option = 0
     94          Priority = 0
     95        end     
     96        item
     97          Shift = []
     98          ShiftMask = []
     99          Button = mbRight
     100          ClickCount = ccSingle
     101          ClickDir = cdUp
     102          Command = 12
     103          MoveCaret = False
     104          Option = 0
     105          Priority = 0
     106        end>
     107      Highlighter = SynPasSyn1
     108      Keystrokes = <     
     109        item
     110          Command = ecUp
     111          ShortCut = 38
     112        end     
     113        item
     114          Command = ecSelUp
     115          ShortCut = 8230
     116        end     
     117        item
     118          Command = ecScrollUp
     119          ShortCut = 16422
     120        end     
     121        item
     122          Command = ecDown
     123          ShortCut = 40
     124        end     
     125        item
     126          Command = ecSelDown
     127          ShortCut = 8232
     128        end     
     129        item
     130          Command = ecScrollDown
     131          ShortCut = 16424
     132        end     
     133        item
     134          Command = ecLeft
     135          ShortCut = 37
     136        end     
     137        item
     138          Command = ecSelLeft
     139          ShortCut = 8229
     140        end     
     141        item
     142          Command = ecWordLeft
     143          ShortCut = 16421
     144        end     
     145        item
     146          Command = ecSelWordLeft
     147          ShortCut = 24613
     148        end     
     149        item
     150          Command = ecRight
     151          ShortCut = 39
     152        end     
     153        item
     154          Command = ecSelRight
     155          ShortCut = 8231
     156        end     
     157        item
     158          Command = ecWordRight
     159          ShortCut = 16423
     160        end     
     161        item
     162          Command = ecSelWordRight
     163          ShortCut = 24615
     164        end     
     165        item
     166          Command = ecPageDown
     167          ShortCut = 34
     168        end     
     169        item
     170          Command = ecSelPageDown
     171          ShortCut = 8226
     172        end     
     173        item
     174          Command = ecPageBottom
     175          ShortCut = 16418
     176        end     
     177        item
     178          Command = ecSelPageBottom
     179          ShortCut = 24610
     180        end     
     181        item
     182          Command = ecPageUp
     183          ShortCut = 33
     184        end     
     185        item
     186          Command = ecSelPageUp
     187          ShortCut = 8225
     188        end     
     189        item
     190          Command = ecPageTop
     191          ShortCut = 16417
     192        end     
     193        item
     194          Command = ecSelPageTop
     195          ShortCut = 24609
     196        end     
     197        item
     198          Command = ecLineStart
     199          ShortCut = 36
     200        end     
     201        item
     202          Command = ecSelLineStart
     203          ShortCut = 8228
     204        end     
     205        item
     206          Command = ecEditorTop
     207          ShortCut = 16420
     208        end     
     209        item
     210          Command = ecSelEditorTop
     211          ShortCut = 24612
     212        end     
     213        item
     214          Command = ecLineEnd
     215          ShortCut = 35
     216        end     
     217        item
     218          Command = ecSelLineEnd
     219          ShortCut = 8227
     220        end     
     221        item
     222          Command = ecEditorBottom
     223          ShortCut = 16419
     224        end     
     225        item
     226          Command = ecSelEditorBottom
     227          ShortCut = 24611
     228        end     
     229        item
     230          Command = ecToggleMode
     231          ShortCut = 45
     232        end     
     233        item
     234          Command = ecCopy
     235          ShortCut = 16429
     236        end     
     237        item
     238          Command = ecPaste
     239          ShortCut = 8237
     240        end     
     241        item
     242          Command = ecDeleteChar
     243          ShortCut = 46
     244        end     
     245        item
     246          Command = ecCut
     247          ShortCut = 8238
     248        end     
     249        item
     250          Command = ecDeleteLastChar
     251          ShortCut = 8
     252        end     
     253        item
     254          Command = ecDeleteLastChar
     255          ShortCut = 8200
     256        end     
     257        item
     258          Command = ecDeleteLastWord
     259          ShortCut = 16392
     260        end     
     261        item
     262          Command = ecUndo
     263          ShortCut = 32776
     264        end     
     265        item
     266          Command = ecRedo
     267          ShortCut = 40968
     268        end     
     269        item
     270          Command = ecLineBreak
     271          ShortCut = 13
     272        end     
     273        item
     274          Command = ecSelectAll
     275          ShortCut = 16449
     276        end     
     277        item
     278          Command = ecCopy
     279          ShortCut = 16451
     280        end     
     281        item
     282          Command = ecBlockIndent
     283          ShortCut = 24649
     284        end     
     285        item
     286          Command = ecLineBreak
     287          ShortCut = 16461
     288        end     
     289        item
     290          Command = ecInsertLine
     291          ShortCut = 16462
     292        end     
     293        item
     294          Command = ecDeleteWord
     295          ShortCut = 16468
     296        end     
     297        item
     298          Command = ecBlockUnindent
     299          ShortCut = 24661
     300        end     
     301        item
     302          Command = ecPaste
     303          ShortCut = 16470
     304        end     
     305        item
     306          Command = ecCut
     307          ShortCut = 16472
     308        end     
     309        item
     310          Command = ecDeleteLine
     311          ShortCut = 16473
     312        end     
     313        item
     314          Command = ecDeleteEOL
     315          ShortCut = 24665
     316        end     
     317        item
     318          Command = ecUndo
     319          ShortCut = 16474
     320        end     
     321        item
     322          Command = ecRedo
     323          ShortCut = 24666
     324        end     
     325        item
     326          Command = ecGotoMarker0
     327          ShortCut = 16432
     328        end     
     329        item
     330          Command = ecGotoMarker1
     331          ShortCut = 16433
     332        end     
     333        item
     334          Command = ecGotoMarker2
     335          ShortCut = 16434
     336        end     
     337        item
     338          Command = ecGotoMarker3
     339          ShortCut = 16435
     340        end     
     341        item
     342          Command = ecGotoMarker4
     343          ShortCut = 16436
     344        end     
     345        item
     346          Command = ecGotoMarker5
     347          ShortCut = 16437
     348        end     
     349        item
     350          Command = ecGotoMarker6
     351          ShortCut = 16438
     352        end     
     353        item
     354          Command = ecGotoMarker7
     355          ShortCut = 16439
     356        end     
     357        item
     358          Command = ecGotoMarker8
     359          ShortCut = 16440
     360        end     
     361        item
     362          Command = ecGotoMarker9
     363          ShortCut = 16441
     364        end     
     365        item
     366          Command = ecSetMarker0
     367          ShortCut = 24624
     368        end     
     369        item
     370          Command = ecSetMarker1
     371          ShortCut = 24625
     372        end     
     373        item
     374          Command = ecSetMarker2
     375          ShortCut = 24626
     376        end     
     377        item
     378          Command = ecSetMarker3
     379          ShortCut = 24627
     380        end     
     381        item
     382          Command = ecSetMarker4
     383          ShortCut = 24628
     384        end     
     385        item
     386          Command = ecSetMarker5
     387          ShortCut = 24629
     388        end     
     389        item
     390          Command = ecSetMarker6
     391          ShortCut = 24630
     392        end     
     393        item
     394          Command = ecSetMarker7
     395          ShortCut = 24631
     396        end     
     397        item
     398          Command = ecSetMarker8
     399          ShortCut = 24632
     400        end     
     401        item
     402          Command = ecSetMarker9
     403          ShortCut = 24633
     404        end     
     405        item
     406          Command = EcFoldLevel1
     407          ShortCut = 41009
     408        end     
     409        item
     410          Command = EcFoldLevel2
     411          ShortCut = 41010
     412        end     
     413        item
     414          Command = EcFoldLevel1
     415          ShortCut = 41011
     416        end     
     417        item
     418          Command = EcFoldLevel1
     419          ShortCut = 41012
     420        end     
     421        item
     422          Command = EcFoldLevel1
     423          ShortCut = 41013
     424        end     
     425        item
     426          Command = EcFoldLevel6
     427          ShortCut = 41014
     428        end     
     429        item
     430          Command = EcFoldLevel7
     431          ShortCut = 41015
     432        end     
     433        item
     434          Command = EcFoldLevel8
     435          ShortCut = 41016
     436        end     
     437        item
     438          Command = EcFoldLevel9
     439          ShortCut = 41017
     440        end     
     441        item
     442          Command = EcFoldLevel0
     443          ShortCut = 41008
     444        end     
     445        item
     446          Command = EcFoldCurrent
     447          ShortCut = 41005
     448        end     
     449        item
     450          Command = EcUnFoldCurrent
     451          ShortCut = 41003
     452        end     
     453        item
     454          Command = EcToggleMarkupWord
     455          ShortCut = 32845
     456        end     
     457        item
     458          Command = ecNormalSelect
     459          ShortCut = 24654
     460        end     
     461        item
     462          Command = ecColumnSelect
     463          ShortCut = 24643
     464        end     
     465        item
     466          Command = ecLineSelect
     467          ShortCut = 24652
     468        end     
     469        item
     470          Command = ecTab
     471          ShortCut = 9
     472        end     
     473        item
     474          Command = ecShiftTab
     475          ShortCut = 8201
     476        end     
     477        item
     478          Command = ecMatchBracket
     479          ShortCut = 24642
     480        end     
     481        item
     482          Command = ecColSelUp
     483          ShortCut = 40998
     484        end     
     485        item
     486          Command = ecColSelDown
     487          ShortCut = 41000
     488        end     
     489        item
     490          Command = ecColSelLeft
     491          ShortCut = 40997
     492        end     
     493        item
     494          Command = ecColSelRight
     495          ShortCut = 40999
     496        end     
     497        item
     498          Command = ecColSelPageDown
     499          ShortCut = 40994
     500        end     
     501        item
     502          Command = ecColSelPageBottom
     503          ShortCut = 57378
     504        end     
     505        item
     506          Command = ecColSelPageUp
     507          ShortCut = 40993
     508        end     
     509        item
     510          Command = ecColSelPageTop
     511          ShortCut = 57377
     512        end     
     513        item
     514          Command = ecColSelLineStart
     515          ShortCut = 40996
     516        end     
     517        item
     518          Command = ecColSelLineEnd
     519          ShortCut = 40995
     520        end     
     521        item
     522          Command = ecColSelEditorTop
     523          ShortCut = 57380
     524        end     
     525        item
     526          Command = ecColSelEditorBottom
     527          ShortCut = 57379
     528        end>
     529      MouseActions = <     
     530        item
     531          Shift = []
     532          ShiftMask = [ssShift, ssAlt]
     533          Button = mbLeft
     534          ClickCount = ccSingle
     535          ClickDir = cdDown
     536          Command = 1
     537          MoveCaret = True
     538          Option = 0
     539          Priority = 0
     540        end     
     541        item
     542          Shift = [ssShift]
     543          ShiftMask = [ssShift, ssAlt]
     544          Button = mbLeft
     545          ClickCount = ccSingle
     546          ClickDir = cdDown
     547          Command = 1
     548          MoveCaret = True
     549          Option = 1
     550          Priority = 0
     551        end     
     552        item
     553          Shift = [ssAlt]
     554          ShiftMask = [ssShift, ssAlt]
     555          Button = mbLeft
     556          ClickCount = ccSingle
     557          ClickDir = cdDown
     558          Command = 3
     559          MoveCaret = True
     560          Option = 0
     561          Priority = 0
     562        end     
     563        item
     564          Shift = [ssShift, ssAlt]
     565          ShiftMask = [ssShift, ssAlt]
     566          Button = mbLeft
     567          ClickCount = ccSingle
     568          ClickDir = cdDown
     569          Command = 3
     570          MoveCaret = True
     571          Option = 1
     572          Priority = 0
     573        end     
     574        item
     575          Shift = []
     576          ShiftMask = []
     577          Button = mbRight
     578          ClickCount = ccSingle
     579          ClickDir = cdUp
     580          Command = 12
     581          MoveCaret = False
     582          Option = 0
     583          Priority = 0
     584        end     
     585        item
     586          Shift = []
     587          ShiftMask = []
     588          Button = mbLeft
     589          ClickCount = ccDouble
     590          ClickDir = cdDown
     591          Command = 6
     592          MoveCaret = True
     593          Option = 0
     594          Priority = 0
     595        end     
     596        item
     597          Shift = []
     598          ShiftMask = []
     599          Button = mbLeft
     600          ClickCount = ccTriple
     601          ClickDir = cdDown
     602          Command = 7
     603          MoveCaret = True
     604          Option = 0
     605          Priority = 0
     606        end     
     607        item
     608          Shift = []
     609          ShiftMask = []
     610          Button = mbLeft
     611          ClickCount = ccQuad
     612          ClickDir = cdDown
     613          Command = 8
     614          MoveCaret = True
     615          Option = 0
     616          Priority = 0
     617        end     
     618        item
     619          Shift = []
     620          ShiftMask = []
     621          Button = mbMiddle
     622          ClickCount = ccSingle
     623          ClickDir = cdDown
     624          Command = 10
     625          MoveCaret = True
     626          Option = 0
     627          Priority = 0
     628        end     
     629        item
     630          Shift = [ssCtrl]
     631          ShiftMask = [ssShift, ssAlt, ssCtrl]
     632          Button = mbLeft
     633          ClickCount = ccSingle
     634          ClickDir = cdUp
     635          Command = 11
     636          MoveCaret = False
     637          Option = 0
     638          Priority = 0
     639        end>
     640      MouseSelActions = <     
     641        item
     642          Shift = []
     643          ShiftMask = []
     644          Button = mbLeft
     645          ClickCount = ccSingle
     646          ClickDir = cdDown
     647          Command = 9
     648          MoveCaret = False
     649          Option = 0
     650          Priority = 0
     651        end>
     652      Lines.Strings = (
     653        'SynEditSource'
     654      )
     655      BracketHighlightStyle = sbhsBoth
     656      inline SynGutterPartList1: TSynGutterPartList
     657        object SynGutterMarks1: TSynGutterMarks
     658          Width = 24
     659        end
     660        object SynGutterLineNumber1: TSynGutterLineNumber
     661          Width = 17
     662          MouseActions = <>
     663          MarkupInfo.Background = clBtnFace
     664          MarkupInfo.Foreground = clNone
     665          DigitCount = 2
     666          ShowOnlyLineNumbersMultiplesOf = 1
     667          ZeroStart = False
     668          LeadingZeros = False
     669        end
     670        object SynGutterChanges1: TSynGutterChanges
     671          Width = 4
     672          ModifiedColor = 59900
     673          SavedColor = clGreen
     674        end
     675        object SynGutterSeparator1: TSynGutterSeparator
     676          Width = 2
     677        end
     678        object SynGutterCodeFolding1: TSynGutterCodeFolding
     679          MouseActions = <         
     680            item
     681              Shift = []
     682              ShiftMask = []
     683              Button = mbRight
     684              ClickCount = ccSingle
     685              ClickDir = cdUp
     686              Command = 16
     687              MoveCaret = False
     688              Option = 0
     689              Priority = 0
     690            end         
     691            item
     692              Shift = []
     693              ShiftMask = [ssShift]
     694              Button = mbMiddle
     695              ClickCount = ccAny
     696              ClickDir = cdDown
     697              Command = 14
     698              MoveCaret = False
     699              Option = 0
     700              Priority = 0
     701            end         
     702            item
     703              Shift = [ssShift]
     704              ShiftMask = [ssShift]
     705              Button = mbMiddle
     706              ClickCount = ccAny
     707              ClickDir = cdDown
     708              Command = 14
     709              MoveCaret = False
     710              Option = 1
     711              Priority = 0
     712            end         
     713            item
     714              Shift = []
     715              ShiftMask = []
     716              Button = mbLeft
     717              ClickCount = ccAny
     718              ClickDir = cdDown
     719              Command = 0
     720              MoveCaret = False
     721              Option = 0
     722              Priority = 0
     723            end>
     724          MarkupInfo.Background = clNone
     725          MarkupInfo.Foreground = clGray
     726          MouseActionsExpanded = <         
     727            item
     728              Shift = []
     729              ShiftMask = []
     730              Button = mbLeft
     731              ClickCount = ccAny
     732              ClickDir = cdDown
     733              Command = 14
     734              MoveCaret = False
     735              Option = 0
     736              Priority = 0
     737            end>
     738          MouseActionsCollapsed = <         
     739            item
     740              Shift = [ssCtrl]
     741              ShiftMask = [ssCtrl]
     742              Button = mbLeft
     743              ClickCount = ccAny
     744              ClickDir = cdDown
     745              Command = 15
     746              MoveCaret = False
     747              Option = 0
     748              Priority = 0
     749            end         
     750            item
     751              Shift = []
     752              ShiftMask = [ssCtrl]
     753              Button = mbLeft
     754              ClickCount = ccAny
     755              ClickDir = cdDown
     756              Command = 15
     757              MoveCaret = False
     758              Option = 1
     759              Priority = 0
     760            end>
     761        end
     762      end
     763      inline SynRightGutterPartList1: TSynRightGutterPartList
     764      end
     765    end
     766    object Splitter2: TSplitter
     767      Left = 602
     768      Height = 320
     769      Top = 0
     770      Width = 5
     771      OnCanResize = Splitter2CanResize
     772    end
     773    object Panel1: TPanel
     774      Left = 607
     775      Height = 320
     776      Top = 0
     777      Width = 254
     778      Align = alClient
     779      BevelOuter = bvNone
     780      TabOrder = 4
     781    end
    29782  end
    30   inline SynEditSource: TSynEdit
    31     Left = 248
    32     Height = 384
    33     Top = 6
    34     Width = 392
    35     Anchors = [akTop, akLeft, akBottom]
    36     Font.Height = -13
    37     Font.Name = 'Courier New'
    38     Font.Pitch = fpFixed
    39     Font.Quality = fqNonAntialiased
    40     ParentColor = False
    41     ParentFont = False
     783  object Panel3: TPanel
     784    Left = 0
     785    Height = 160
     786    Top = 325
     787    Width = 861
     788    Align = alBottom
     789    BevelOuter = bvSpace
     790    ClientHeight = 160
     791    ClientWidth = 861
    42792    TabOrder = 1
    43     Gutter.Width = 57
    44     Gutter.MouseActions = <   
    45       item
    46         Shift = []
    47         ShiftMask = []
    48         Button = mbLeft
    49         ClickCount = ccAny
    50         ClickDir = cdDown
    51         Command = 13
    52         MoveCaret = False
    53         Option = 0
    54         Priority = 0
    55       end   
    56       item
    57         Shift = []
    58         ShiftMask = []
    59         Button = mbRight
    60         ClickCount = ccSingle
    61         ClickDir = cdUp
    62         Command = 12
    63         MoveCaret = False
    64         Option = 0
    65         Priority = 0
    66       end>
    67     RightGutter.Width = 0
    68     RightGutter.MouseActions = <   
    69       item
    70         Shift = []
    71         ShiftMask = []
    72         Button = mbLeft
    73         ClickCount = ccAny
    74         ClickDir = cdDown
    75         Command = 13
    76         MoveCaret = False
    77         Option = 0
    78         Priority = 0
    79       end   
    80       item
    81         Shift = []
    82         ShiftMask = []
    83         Button = mbRight
    84         ClickCount = ccSingle
    85         ClickDir = cdUp
    86         Command = 12
    87         MoveCaret = False
    88         Option = 0
    89         Priority = 0
    90       end>
    91     Highlighter = SynPasSyn1
    92     Keystrokes = <   
    93       item
    94         Command = ecUp
    95         ShortCut = 38
    96       end   
    97       item
    98         Command = ecSelUp
    99         ShortCut = 8230
    100       end   
    101       item
    102         Command = ecScrollUp
    103         ShortCut = 16422
    104       end   
    105       item
    106         Command = ecDown
    107         ShortCut = 40
    108       end   
    109       item
    110         Command = ecSelDown
    111         ShortCut = 8232
    112       end   
    113       item
    114         Command = ecScrollDown
    115         ShortCut = 16424
    116       end   
    117       item
    118         Command = ecLeft
    119         ShortCut = 37
    120       end   
    121       item
    122         Command = ecSelLeft
    123         ShortCut = 8229
    124       end   
    125       item
    126         Command = ecWordLeft
    127         ShortCut = 16421
    128       end   
    129       item
    130         Command = ecSelWordLeft
    131         ShortCut = 24613
    132       end   
    133       item
    134         Command = ecRight
    135         ShortCut = 39
    136       end   
    137       item
    138         Command = ecSelRight
    139         ShortCut = 8231
    140       end   
    141       item
    142         Command = ecWordRight
    143         ShortCut = 16423
    144       end   
    145       item
    146         Command = ecSelWordRight
    147         ShortCut = 24615
    148       end   
    149       item
    150         Command = ecPageDown
    151         ShortCut = 34
    152       end   
    153       item
    154         Command = ecSelPageDown
    155         ShortCut = 8226
    156       end   
    157       item
    158         Command = ecPageBottom
    159         ShortCut = 16418
    160       end   
    161       item
    162         Command = ecSelPageBottom
    163         ShortCut = 24610
    164       end   
    165       item
    166         Command = ecPageUp
    167         ShortCut = 33
    168       end   
    169       item
    170         Command = ecSelPageUp
    171         ShortCut = 8225
    172       end   
    173       item
    174         Command = ecPageTop
    175         ShortCut = 16417
    176       end   
    177       item
    178         Command = ecSelPageTop
    179         ShortCut = 24609
    180       end   
    181       item
    182         Command = ecLineStart
    183         ShortCut = 36
    184       end   
    185       item
    186         Command = ecSelLineStart
    187         ShortCut = 8228
    188       end   
    189       item
    190         Command = ecEditorTop
    191         ShortCut = 16420
    192       end   
    193       item
    194         Command = ecSelEditorTop
    195         ShortCut = 24612
    196       end   
    197       item
    198         Command = ecLineEnd
    199         ShortCut = 35
    200       end   
    201       item
    202         Command = ecSelLineEnd
    203         ShortCut = 8227
    204       end   
    205       item
    206         Command = ecEditorBottom
    207         ShortCut = 16419
    208       end   
    209       item
    210         Command = ecSelEditorBottom
    211         ShortCut = 24611
    212       end   
    213       item
    214         Command = ecToggleMode
    215         ShortCut = 45
    216       end   
    217       item
    218         Command = ecCopy
    219         ShortCut = 16429
    220       end   
    221       item
    222         Command = ecPaste
    223         ShortCut = 8237
    224       end   
    225       item
    226         Command = ecDeleteChar
    227         ShortCut = 46
    228       end   
    229       item
    230         Command = ecCut
    231         ShortCut = 8238
    232       end   
    233       item
    234         Command = ecDeleteLastChar
    235         ShortCut = 8
    236       end   
    237       item
    238         Command = ecDeleteLastChar
    239         ShortCut = 8200
    240       end   
    241       item
    242         Command = ecDeleteLastWord
    243         ShortCut = 16392
    244       end   
    245       item
    246         Command = ecUndo
    247         ShortCut = 32776
    248       end   
    249       item
    250         Command = ecRedo
    251         ShortCut = 40968
    252       end   
    253       item
    254         Command = ecLineBreak
    255         ShortCut = 13
    256       end   
    257       item
    258         Command = ecSelectAll
    259         ShortCut = 16449
    260       end   
    261       item
    262         Command = ecCopy
    263         ShortCut = 16451
    264       end   
    265       item
    266         Command = ecBlockIndent
    267         ShortCut = 24649
    268       end   
    269       item
    270         Command = ecLineBreak
    271         ShortCut = 16461
    272       end   
    273       item
    274         Command = ecInsertLine
    275         ShortCut = 16462
    276       end   
    277       item
    278         Command = ecDeleteWord
    279         ShortCut = 16468
    280       end   
    281       item
    282         Command = ecBlockUnindent
    283         ShortCut = 24661
    284       end   
    285       item
    286         Command = ecPaste
    287         ShortCut = 16470
    288       end   
    289       item
    290         Command = ecCut
    291         ShortCut = 16472
    292       end   
    293       item
    294         Command = ecDeleteLine
    295         ShortCut = 16473
    296       end   
    297       item
    298         Command = ecDeleteEOL
    299         ShortCut = 24665
    300       end   
    301       item
    302         Command = ecUndo
    303         ShortCut = 16474
    304       end   
    305       item
    306         Command = ecRedo
    307         ShortCut = 24666
    308       end   
    309       item
    310         Command = ecGotoMarker0
    311         ShortCut = 16432
    312       end   
    313       item
    314         Command = ecGotoMarker1
    315         ShortCut = 16433
    316       end   
    317       item
    318         Command = ecGotoMarker2
    319         ShortCut = 16434
    320       end   
    321       item
    322         Command = ecGotoMarker3
    323         ShortCut = 16435
    324       end   
    325       item
    326         Command = ecGotoMarker4
    327         ShortCut = 16436
    328       end   
    329       item
    330         Command = ecGotoMarker5
    331         ShortCut = 16437
    332       end   
    333       item
    334         Command = ecGotoMarker6
    335         ShortCut = 16438
    336       end   
    337       item
    338         Command = ecGotoMarker7
    339         ShortCut = 16439
    340       end   
    341       item
    342         Command = ecGotoMarker8
    343         ShortCut = 16440
    344       end   
    345       item
    346         Command = ecGotoMarker9
    347         ShortCut = 16441
    348       end   
    349       item
    350         Command = ecSetMarker0
    351         ShortCut = 24624
    352       end   
    353       item
    354         Command = ecSetMarker1
    355         ShortCut = 24625
    356       end   
    357       item
    358         Command = ecSetMarker2
    359         ShortCut = 24626
    360       end   
    361       item
    362         Command = ecSetMarker3
    363         ShortCut = 24627
    364       end   
    365       item
    366         Command = ecSetMarker4
    367         ShortCut = 24628
    368       end   
    369       item
    370         Command = ecSetMarker5
    371         ShortCut = 24629
    372       end   
    373       item
    374         Command = ecSetMarker6
    375         ShortCut = 24630
    376       end   
    377       item
    378         Command = ecSetMarker7
    379         ShortCut = 24631
    380       end   
    381       item
    382         Command = ecSetMarker8
    383         ShortCut = 24632
    384       end   
    385       item
    386         Command = ecSetMarker9
    387         ShortCut = 24633
    388       end   
    389       item
    390         Command = EcFoldLevel1
    391         ShortCut = 41009
    392       end   
    393       item
    394         Command = EcFoldLevel2
    395         ShortCut = 41010
    396       end   
    397       item
    398         Command = EcFoldLevel1
    399         ShortCut = 41011
    400       end   
    401       item
    402         Command = EcFoldLevel1
    403         ShortCut = 41012
    404       end   
    405       item
    406         Command = EcFoldLevel1
    407         ShortCut = 41013
    408       end   
    409       item
    410         Command = EcFoldLevel6
    411         ShortCut = 41014
    412       end   
    413       item
    414         Command = EcFoldLevel7
    415         ShortCut = 41015
    416       end   
    417       item
    418         Command = EcFoldLevel8
    419         ShortCut = 41016
    420       end   
    421       item
    422         Command = EcFoldLevel9
    423         ShortCut = 41017
    424       end   
    425       item
    426         Command = EcFoldLevel0
    427         ShortCut = 41008
    428       end   
    429       item
    430         Command = EcFoldCurrent
    431         ShortCut = 41005
    432       end   
    433       item
    434         Command = EcUnFoldCurrent
    435         ShortCut = 41003
    436       end   
    437       item
    438         Command = EcToggleMarkupWord
    439         ShortCut = 32845
    440       end   
    441       item
    442         Command = ecNormalSelect
    443         ShortCut = 24654
    444       end   
    445       item
    446         Command = ecColumnSelect
    447         ShortCut = 24643
    448       end   
    449       item
    450         Command = ecLineSelect
    451         ShortCut = 24652
    452       end   
    453       item
    454         Command = ecTab
    455         ShortCut = 9
    456       end   
    457       item
    458         Command = ecShiftTab
    459         ShortCut = 8201
    460       end   
    461       item
    462         Command = ecMatchBracket
    463         ShortCut = 24642
    464       end   
    465       item
    466         Command = ecColSelUp
    467         ShortCut = 40998
    468       end   
    469       item
    470         Command = ecColSelDown
    471         ShortCut = 41000
    472       end   
    473       item
    474         Command = ecColSelLeft
    475         ShortCut = 40997
    476       end   
    477       item
    478         Command = ecColSelRight
    479         ShortCut = 40999
    480       end   
    481       item
    482         Command = ecColSelPageDown
    483         ShortCut = 40994
    484       end   
    485       item
    486         Command = ecColSelPageBottom
    487         ShortCut = 57378
    488       end   
    489       item
    490         Command = ecColSelPageUp
    491         ShortCut = 40993
    492       end   
    493       item
    494         Command = ecColSelPageTop
    495         ShortCut = 57377
    496       end   
    497       item
    498         Command = ecColSelLineStart
    499         ShortCut = 40996
    500       end   
    501       item
    502         Command = ecColSelLineEnd
    503         ShortCut = 40995
    504       end   
    505       item
    506         Command = ecColSelEditorTop
    507         ShortCut = 57380
    508       end   
    509       item
    510         Command = ecColSelEditorBottom
    511         ShortCut = 57379
    512       end>
    513     MouseActions = <   
    514       item
    515         Shift = []
    516         ShiftMask = [ssShift, ssAlt]
    517         Button = mbLeft
    518         ClickCount = ccSingle
    519         ClickDir = cdDown
    520         Command = 1
    521         MoveCaret = True
    522         Option = 0
    523         Priority = 0
    524       end   
    525       item
    526         Shift = [ssShift]
    527         ShiftMask = [ssShift, ssAlt]
    528         Button = mbLeft
    529         ClickCount = ccSingle
    530         ClickDir = cdDown
    531         Command = 1
    532         MoveCaret = True
    533         Option = 1
    534         Priority = 0
    535       end   
    536       item
    537         Shift = [ssAlt]
    538         ShiftMask = [ssShift, ssAlt]
    539         Button = mbLeft
    540         ClickCount = ccSingle
    541         ClickDir = cdDown
    542         Command = 3
    543         MoveCaret = True
    544         Option = 0
    545         Priority = 0
    546       end   
    547       item
    548         Shift = [ssShift, ssAlt]
    549         ShiftMask = [ssShift, ssAlt]
    550         Button = mbLeft
    551         ClickCount = ccSingle
    552         ClickDir = cdDown
    553         Command = 3
    554         MoveCaret = True
    555         Option = 1
    556         Priority = 0
    557       end   
    558       item
    559         Shift = []
    560         ShiftMask = []
    561         Button = mbRight
    562         ClickCount = ccSingle
    563         ClickDir = cdUp
    564         Command = 12
    565         MoveCaret = False
    566         Option = 0
    567         Priority = 0
    568       end   
    569       item
    570         Shift = []
    571         ShiftMask = []
    572         Button = mbLeft
    573         ClickCount = ccDouble
    574         ClickDir = cdDown
    575         Command = 6
    576         MoveCaret = True
    577         Option = 0
    578         Priority = 0
    579       end   
    580       item
    581         Shift = []
    582         ShiftMask = []
    583         Button = mbLeft
    584         ClickCount = ccTriple
    585         ClickDir = cdDown
    586         Command = 7
    587         MoveCaret = True
    588         Option = 0
    589         Priority = 0
    590       end   
    591       item
    592         Shift = []
    593         ShiftMask = []
    594         Button = mbLeft
    595         ClickCount = ccQuad
    596         ClickDir = cdDown
    597         Command = 8
    598         MoveCaret = True
    599         Option = 0
    600         Priority = 0
    601       end   
    602       item
    603         Shift = []
    604         ShiftMask = []
    605         Button = mbMiddle
    606         ClickCount = ccSingle
    607         ClickDir = cdDown
    608         Command = 10
    609         MoveCaret = True
    610         Option = 0
    611         Priority = 0
    612       end   
    613       item
    614         Shift = [ssCtrl]
    615         ShiftMask = [ssShift, ssAlt, ssCtrl]
    616         Button = mbLeft
    617         ClickCount = ccSingle
    618         ClickDir = cdUp
    619         Command = 11
    620         MoveCaret = False
    621         Option = 0
    622         Priority = 0
    623       end>
    624     MouseSelActions = <   
    625       item
    626         Shift = []
    627         ShiftMask = []
    628         Button = mbLeft
    629         ClickCount = ccSingle
    630         ClickDir = cdDown
    631         Command = 9
    632         MoveCaret = False
    633         Option = 0
    634         Priority = 0
    635       end>
    636     Lines.Strings = (
    637       'SynEditSource'
    638     )
    639     BracketHighlightStyle = sbhsBoth
    640     inline SynGutterPartList1: TSynGutterPartList
    641       object SynGutterMarks1: TSynGutterMarks
    642         Width = 24
    643       end
    644       object SynGutterLineNumber1: TSynGutterLineNumber
    645         Width = 17
    646         MouseActions = <>
    647         MarkupInfo.Background = clBtnFace
    648         MarkupInfo.Foreground = clNone
    649         DigitCount = 2
    650         ShowOnlyLineNumbersMultiplesOf = 1
    651         ZeroStart = False
    652         LeadingZeros = False
    653       end
    654       object SynGutterChanges1: TSynGutterChanges
    655         Width = 4
    656         ModifiedColor = 59900
    657         SavedColor = clGreen
    658       end
    659       object SynGutterSeparator1: TSynGutterSeparator
    660         Width = 2
    661       end
    662       object SynGutterCodeFolding1: TSynGutterCodeFolding
    663         MouseActions = <       
    664           item
    665             Shift = []
    666             ShiftMask = []
    667             Button = mbRight
    668             ClickCount = ccSingle
    669             ClickDir = cdUp
    670             Command = 16
    671             MoveCaret = False
    672             Option = 0
    673             Priority = 0
    674           end       
    675           item
    676             Shift = []
    677             ShiftMask = [ssShift]
    678             Button = mbMiddle
    679             ClickCount = ccAny
    680             ClickDir = cdDown
    681             Command = 14
    682             MoveCaret = False
    683             Option = 0
    684             Priority = 0
    685           end       
    686           item
    687             Shift = [ssShift]
    688             ShiftMask = [ssShift]
    689             Button = mbMiddle
    690             ClickCount = ccAny
    691             ClickDir = cdDown
    692             Command = 14
    693             MoveCaret = False
    694             Option = 1
    695             Priority = 0
    696           end       
    697           item
    698             Shift = []
    699             ShiftMask = []
    700             Button = mbLeft
    701             ClickCount = ccAny
    702             ClickDir = cdDown
    703             Command = 0
    704             MoveCaret = False
    705             Option = 0
    706             Priority = 0
    707           end>
    708         MarkupInfo.Background = clNone
    709         MarkupInfo.Foreground = clGray
    710         MouseActionsExpanded = <       
    711           item
    712             Shift = []
    713             ShiftMask = []
    714             Button = mbLeft
    715             ClickCount = ccAny
    716             ClickDir = cdDown
    717             Command = 14
    718             MoveCaret = False
    719             Option = 0
    720             Priority = 0
    721           end>
    722         MouseActionsCollapsed = <       
    723           item
    724             Shift = [ssCtrl]
    725             ShiftMask = [ssCtrl]
    726             Button = mbLeft
    727             ClickCount = ccAny
    728             ClickDir = cdDown
    729             Command = 15
    730             MoveCaret = False
    731             Option = 0
    732             Priority = 0
    733           end       
    734           item
    735             Shift = []
    736             ShiftMask = [ssCtrl]
    737             Button = mbLeft
    738             ClickCount = ccAny
    739             ClickDir = cdDown
    740             Command = 15
    741             MoveCaret = False
    742             Option = 1
    743             Priority = 0
    744           end>
    745       end
    746     end
    747     inline SynRightGutterPartList1: TSynRightGutterPartList
     793    object ListBoxMessages: TListBox
     794      Left = 8
     795      Height = 146
     796      Top = 8
     797      Width = 694
     798      Anchors = [akTop, akLeft, akRight, akBottom]
     799      ItemHeight = 0
     800      OnClick = ListBoxMessagesClick
     801      TabOrder = 0
     802    end
     803    object ButtonCompile: TButton
     804      Left = 709
     805      Height = 22
     806      Top = 32
     807      Width = 144
     808      Anchors = [akTop, akRight]
     809      Caption = 'Build'
     810      Font.Height = -11
     811      Font.Name = 'Tahoma'
     812      OnClick = ButtonCompileClick
     813      ParentFont = False
     814      TabOrder = 1
     815    end
     816    object ComboBox1: TComboBox
     817      Left = 709
     818      Height = 21
     819      Top = 8
     820      Width = 144
     821      Anchors = [akTop, akRight]
     822      ItemHeight = 13
     823      ItemIndex = 0
     824      Items.Strings = (
     825        'Pascal'
     826        'C'
     827        'i8051'
     828        'TreeView'
     829      )
     830      OnChange = ComboBox1Change
     831      Style = csDropDownList
     832      TabOrder = 2
     833      Text = 'Pascal'
    748834    end
    749835  end
    750   object ComboBox1: TComboBox
    751     Left = 712
    752     Height = 21
    753     Top = 424
    754     Width = 144
    755     Anchors = [akRight, akBottom]
    756     ItemHeight = 13
    757     ItemIndex = 0
    758     Items.Strings = (
    759       'Pascal'
    760       'C'
    761       'i8051'
    762       'TreeView'
    763     )
    764     OnChange = ComboBox1Change
    765     Style = csDropDownList
    766     TabOrder = 2
    767     Text = 'Pascal'
    768   end
    769   object ListBoxMessages: TListBox
    770     Left = 8
    771     Height = 91
    772     Top = 398
    773     Width = 697
    774     Anchors = [akLeft, akRight, akBottom]
    775     ItemHeight = 0
    776     OnClick = ListBoxMessagesClick
    777     TabOrder = 3
    778   end
    779   object Panel1: TPanel
    780     Left = 648
    781     Height = 382
    782     Top = 8
    783     Width = 208
    784     Anchors = [akTop, akLeft, akRight, akBottom]
    785     BevelOuter = bvNone
    786     TabOrder = 4
    787   end
    788   object TreeViewProject: TTreeView
    789     Left = 7
    790     Height = 383
    791     Top = 8
    792     Width = 233
    793     Anchors = [akTop, akLeft, akBottom]
    794     DefaultItemHeight = 15
    795     ReadOnly = True
    796     TabOrder = 5
    797     OnChange = TreeViewProjectChange
    798     Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
     836  object Splitter3: TSplitter
     837    Cursor = crVSplit
     838    Left = 0
     839    Height = 5
     840    Top = 320
     841    Width = 861
     842    Align = alBottom
     843    ResizeAnchor = akBottom
    799844  end
    800845  object SynPasSyn1: TSynPasSyn
     
    805850    top = 32
    806851  end
     852  object MainMenu1: TMainMenu
     853    left = 624
     854    top = 8
     855    object MenuItem1: TMenuItem
     856      Caption = 'Project'
     857      object MenuItem5: TMenuItem
     858        Action = AProjectNew
     859      end
     860      object MenuItem2: TMenuItem
     861        Action = AProjectOpen
     862      end
     863      object MenuItem4: TMenuItem
     864        Action = AProjectSave
     865      end
     866      object MenuItem6: TMenuItem
     867        Action = AProjectSaveAs
     868      end
     869      object MenuItem3: TMenuItem
     870        Action = AProjectClose
     871      end
     872    end
     873  end
     874  object ActionList1: TActionList
     875    left = 624
     876    top = 64
     877    object AProjectNew: TAction
     878      Category = 'Project'
     879      Caption = 'New'
     880      Hint = 'Create new project'
     881    end
     882    object AProjectOpen: TAction
     883      Category = 'Project'
     884      Caption = 'Open...'
     885      Hint = 'Open project'
     886    end
     887    object AProjectSave: TAction
     888      Category = 'Project'
     889      Caption = 'Save'
     890      Hint = 'Save project to disk'
     891    end
     892    object AProjectSaveAs: TAction
     893      Category = 'Project'
     894      Caption = 'Save as...'
     895      Hint = 'Save project with custom name'
     896    end
     897    object AProjectClose: TAction
     898      Category = 'Project'
     899      Caption = 'Close'
     900    end
     901  end
    807902end
Note: See TracChangeset for help on using the changeset viewer.