Changeset 15 for branches


Ignore:
Timestamp:
Nov 10, 2009, 9:11:50 AM (15 years ago)
Author:
george
Message:
  • Přidáno: Kostra zobrazování strukturálního stromu.
  • Upraveno: Zobrazení kódu pomocí SynEditu namísto Memo.
Location:
branches/Void
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed
  • branches/Void/UCompilator.pas

    r14 r15  
    150150          with TCommand(Commands[Commands.Add(TCommand.Create)]) do begin
    151151            Name := CommandName;
    152             Parser.ParseNextToken;
    153152            if Command.Parameters.Count > 0 then begin
     153              Parser.ParseNextToken;
    154154              if (Parser.TokenType = ttSymbol) and (Parser.TokenValue = '(') then begin
    155155                Parser.ParseNextToken;
     
    227227      end;
    228228      Parser.ParseNextToken;
     229      if (Parser.TokenType <> ttSymbol) and (Parser.TokenValue = ';') then
     230        DoError('Expected ;');
     231      Parser.ParseNextToken;
    229232      if Parser.TokenType <> ttWhiteSpace then DoError('Expected white space');
    230233    end else DoError('Expected identifier');
  • branches/Void/UMainForm.lfm

    r9 r15  
    11object MainForm: TMainForm
    2   Left = 457
    3   Height = 525
    4   Top = 112
    5   Width = 660
     2  Left = 259
     3  Height = 580
     4  Top = 65
     5  Width = 760
    66  Caption = 'Překladač Void'
    7   ClientHeight = 525
    8   ClientWidth = 660
     7  ClientHeight = 580
     8  ClientWidth = 760
    99  OnClose = FormClose
    1010  OnCreate = FormCreate
     
    1212  OnShow = FormShow
    1313  LCLVersion = '0.9.29'
    14   object Memo1: TMemo
    15     Left = 9
    16     Height = 402
    17     Top = 22
    18     Width = 279
    19     ScrollBars = ssAutoBoth
    20     TabOrder = 0
    21   end
    22   object Memo2: TMemo
    23     Left = 296
    24     Height = 376
    25     Top = 24
    26     Width = 260
    27     ScrollBars = ssAutoBoth
    28     TabOrder = 1
    29   end
    3014  object Label1: TLabel
    3115    Left = 8
     
    5034    Width = 549
    5135    ScrollBars = ssAutoBoth
    52     TabOrder = 2
     36    TabOrder = 0
    5337  end
    5438  object Label3: TLabel
     
    6347    Left = 562
    6448    Height = 25
    65     Top = 25
     49    Top = 24
    6650    Width = 75
    6751    Caption = 'Přeložit'
    6852    OnClick = ButtonCompileClick
    69     TabOrder = 3
     53    TabOrder = 1
    7054  end
    7155  object ComboBox1: TComboBox
    72     Left = 295
     56    Left = 648
    7357    Height = 21
    74     Top = 404
    75     Width = 262
     58    Top = 25
     59    Width = 80
    7660    ItemHeight = 13
    7761    ItemIndex = 0
     
    8165    )
    8266    Style = csDropDownList
    83     TabOrder = 4
     67    TabOrder = 2
    8468    Text = 'Pascal'
    8569  end
     70  inline SynEdit1: TSynEdit
     71    Left = 8
     72    Height = 402
     73    Top = 22
     74    Width = 280
     75    Font.Height = -13
     76    Font.Name = 'Courier New'
     77    Font.Pitch = fpFixed
     78    Font.Quality = fqNonAntialiased
     79    ParentColor = False
     80    ParentFont = False
     81    TabOrder = 3
     82    BookMarkOptions.OnChange = nil
     83    Gutter.Width = 57
     84    Gutter.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      'SynEdit1'
     654    )
     655    BracketHighlightStyle = sbhsBoth
     656    inline SynGutterPartList1: TSynGutterPartList
     657      object SynGutterMarks1: TSynGutterMarks
     658        Width = 23
     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  end
     764  inline SynEdit2: TSynEdit
     765    Left = 296
     766    Height = 404
     767    Top = 22
     768    Width = 258
     769    Font.Height = -13
     770    Font.Name = 'Courier New'
     771    Font.Pitch = fpFixed
     772    Font.Quality = fqNonAntialiased
     773    ParentColor = False
     774    ParentFont = False
     775    TabOrder = 4
     776    BookMarkOptions.OnChange = nil
     777    Gutter.Width = 57
     778    Gutter.MouseActions = <   
     779      item
     780        Shift = []
     781        ShiftMask = []
     782        Button = mbLeft
     783        ClickCount = ccAny
     784        ClickDir = cdDown
     785        Command = 13
     786        MoveCaret = False
     787        Option = 0
     788        Priority = 0
     789      end   
     790      item
     791        Shift = []
     792        ShiftMask = []
     793        Button = mbRight
     794        ClickCount = ccSingle
     795        ClickDir = cdUp
     796        Command = 12
     797        MoveCaret = False
     798        Option = 0
     799        Priority = 0
     800      end>
     801    Keystrokes = <   
     802      item
     803        Command = ecUp
     804        ShortCut = 38
     805      end   
     806      item
     807        Command = ecSelUp
     808        ShortCut = 8230
     809      end   
     810      item
     811        Command = ecScrollUp
     812        ShortCut = 16422
     813      end   
     814      item
     815        Command = ecDown
     816        ShortCut = 40
     817      end   
     818      item
     819        Command = ecSelDown
     820        ShortCut = 8232
     821      end   
     822      item
     823        Command = ecScrollDown
     824        ShortCut = 16424
     825      end   
     826      item
     827        Command = ecLeft
     828        ShortCut = 37
     829      end   
     830      item
     831        Command = ecSelLeft
     832        ShortCut = 8229
     833      end   
     834      item
     835        Command = ecWordLeft
     836        ShortCut = 16421
     837      end   
     838      item
     839        Command = ecSelWordLeft
     840        ShortCut = 24613
     841      end   
     842      item
     843        Command = ecRight
     844        ShortCut = 39
     845      end   
     846      item
     847        Command = ecSelRight
     848        ShortCut = 8231
     849      end   
     850      item
     851        Command = ecWordRight
     852        ShortCut = 16423
     853      end   
     854      item
     855        Command = ecSelWordRight
     856        ShortCut = 24615
     857      end   
     858      item
     859        Command = ecPageDown
     860        ShortCut = 34
     861      end   
     862      item
     863        Command = ecSelPageDown
     864        ShortCut = 8226
     865      end   
     866      item
     867        Command = ecPageBottom
     868        ShortCut = 16418
     869      end   
     870      item
     871        Command = ecSelPageBottom
     872        ShortCut = 24610
     873      end   
     874      item
     875        Command = ecPageUp
     876        ShortCut = 33
     877      end   
     878      item
     879        Command = ecSelPageUp
     880        ShortCut = 8225
     881      end   
     882      item
     883        Command = ecPageTop
     884        ShortCut = 16417
     885      end   
     886      item
     887        Command = ecSelPageTop
     888        ShortCut = 24609
     889      end   
     890      item
     891        Command = ecLineStart
     892        ShortCut = 36
     893      end   
     894      item
     895        Command = ecSelLineStart
     896        ShortCut = 8228
     897      end   
     898      item
     899        Command = ecEditorTop
     900        ShortCut = 16420
     901      end   
     902      item
     903        Command = ecSelEditorTop
     904        ShortCut = 24612
     905      end   
     906      item
     907        Command = ecLineEnd
     908        ShortCut = 35
     909      end   
     910      item
     911        Command = ecSelLineEnd
     912        ShortCut = 8227
     913      end   
     914      item
     915        Command = ecEditorBottom
     916        ShortCut = 16419
     917      end   
     918      item
     919        Command = ecSelEditorBottom
     920        ShortCut = 24611
     921      end   
     922      item
     923        Command = ecToggleMode
     924        ShortCut = 45
     925      end   
     926      item
     927        Command = ecCopy
     928        ShortCut = 16429
     929      end   
     930      item
     931        Command = ecPaste
     932        ShortCut = 8237
     933      end   
     934      item
     935        Command = ecDeleteChar
     936        ShortCut = 46
     937      end   
     938      item
     939        Command = ecCut
     940        ShortCut = 8238
     941      end   
     942      item
     943        Command = ecDeleteLastChar
     944        ShortCut = 8
     945      end   
     946      item
     947        Command = ecDeleteLastChar
     948        ShortCut = 8200
     949      end   
     950      item
     951        Command = ecDeleteLastWord
     952        ShortCut = 16392
     953      end   
     954      item
     955        Command = ecUndo
     956        ShortCut = 32776
     957      end   
     958      item
     959        Command = ecRedo
     960        ShortCut = 40968
     961      end   
     962      item
     963        Command = ecLineBreak
     964        ShortCut = 13
     965      end   
     966      item
     967        Command = ecSelectAll
     968        ShortCut = 16449
     969      end   
     970      item
     971        Command = ecCopy
     972        ShortCut = 16451
     973      end   
     974      item
     975        Command = ecBlockIndent
     976        ShortCut = 24649
     977      end   
     978      item
     979        Command = ecLineBreak
     980        ShortCut = 16461
     981      end   
     982      item
     983        Command = ecInsertLine
     984        ShortCut = 16462
     985      end   
     986      item
     987        Command = ecDeleteWord
     988        ShortCut = 16468
     989      end   
     990      item
     991        Command = ecBlockUnindent
     992        ShortCut = 24661
     993      end   
     994      item
     995        Command = ecPaste
     996        ShortCut = 16470
     997      end   
     998      item
     999        Command = ecCut
     1000        ShortCut = 16472
     1001      end   
     1002      item
     1003        Command = ecDeleteLine
     1004        ShortCut = 16473
     1005      end   
     1006      item
     1007        Command = ecDeleteEOL
     1008        ShortCut = 24665
     1009      end   
     1010      item
     1011        Command = ecUndo
     1012        ShortCut = 16474
     1013      end   
     1014      item
     1015        Command = ecRedo
     1016        ShortCut = 24666
     1017      end   
     1018      item
     1019        Command = ecGotoMarker0
     1020        ShortCut = 16432
     1021      end   
     1022      item
     1023        Command = ecGotoMarker1
     1024        ShortCut = 16433
     1025      end   
     1026      item
     1027        Command = ecGotoMarker2
     1028        ShortCut = 16434
     1029      end   
     1030      item
     1031        Command = ecGotoMarker3
     1032        ShortCut = 16435
     1033      end   
     1034      item
     1035        Command = ecGotoMarker4
     1036        ShortCut = 16436
     1037      end   
     1038      item
     1039        Command = ecGotoMarker5
     1040        ShortCut = 16437
     1041      end   
     1042      item
     1043        Command = ecGotoMarker6
     1044        ShortCut = 16438
     1045      end   
     1046      item
     1047        Command = ecGotoMarker7
     1048        ShortCut = 16439
     1049      end   
     1050      item
     1051        Command = ecGotoMarker8
     1052        ShortCut = 16440
     1053      end   
     1054      item
     1055        Command = ecGotoMarker9
     1056        ShortCut = 16441
     1057      end   
     1058      item
     1059        Command = ecSetMarker0
     1060        ShortCut = 24624
     1061      end   
     1062      item
     1063        Command = ecSetMarker1
     1064        ShortCut = 24625
     1065      end   
     1066      item
     1067        Command = ecSetMarker2
     1068        ShortCut = 24626
     1069      end   
     1070      item
     1071        Command = ecSetMarker3
     1072        ShortCut = 24627
     1073      end   
     1074      item
     1075        Command = ecSetMarker4
     1076        ShortCut = 24628
     1077      end   
     1078      item
     1079        Command = ecSetMarker5
     1080        ShortCut = 24629
     1081      end   
     1082      item
     1083        Command = ecSetMarker6
     1084        ShortCut = 24630
     1085      end   
     1086      item
     1087        Command = ecSetMarker7
     1088        ShortCut = 24631
     1089      end   
     1090      item
     1091        Command = ecSetMarker8
     1092        ShortCut = 24632
     1093      end   
     1094      item
     1095        Command = ecSetMarker9
     1096        ShortCut = 24633
     1097      end   
     1098      item
     1099        Command = EcFoldLevel1
     1100        ShortCut = 41009
     1101      end   
     1102      item
     1103        Command = EcFoldLevel2
     1104        ShortCut = 41010
     1105      end   
     1106      item
     1107        Command = EcFoldLevel1
     1108        ShortCut = 41011
     1109      end   
     1110      item
     1111        Command = EcFoldLevel1
     1112        ShortCut = 41012
     1113      end   
     1114      item
     1115        Command = EcFoldLevel1
     1116        ShortCut = 41013
     1117      end   
     1118      item
     1119        Command = EcFoldLevel6
     1120        ShortCut = 41014
     1121      end   
     1122      item
     1123        Command = EcFoldLevel7
     1124        ShortCut = 41015
     1125      end   
     1126      item
     1127        Command = EcFoldLevel8
     1128        ShortCut = 41016
     1129      end   
     1130      item
     1131        Command = EcFoldLevel9
     1132        ShortCut = 41017
     1133      end   
     1134      item
     1135        Command = EcFoldLevel0
     1136        ShortCut = 41008
     1137      end   
     1138      item
     1139        Command = EcFoldCurrent
     1140        ShortCut = 41005
     1141      end   
     1142      item
     1143        Command = EcUnFoldCurrent
     1144        ShortCut = 41003
     1145      end   
     1146      item
     1147        Command = EcToggleMarkupWord
     1148        ShortCut = 32845
     1149      end   
     1150      item
     1151        Command = ecNormalSelect
     1152        ShortCut = 24654
     1153      end   
     1154      item
     1155        Command = ecColumnSelect
     1156        ShortCut = 24643
     1157      end   
     1158      item
     1159        Command = ecLineSelect
     1160        ShortCut = 24652
     1161      end   
     1162      item
     1163        Command = ecTab
     1164        ShortCut = 9
     1165      end   
     1166      item
     1167        Command = ecShiftTab
     1168        ShortCut = 8201
     1169      end   
     1170      item
     1171        Command = ecMatchBracket
     1172        ShortCut = 24642
     1173      end   
     1174      item
     1175        Command = ecColSelUp
     1176        ShortCut = 40998
     1177      end   
     1178      item
     1179        Command = ecColSelDown
     1180        ShortCut = 41000
     1181      end   
     1182      item
     1183        Command = ecColSelLeft
     1184        ShortCut = 40997
     1185      end   
     1186      item
     1187        Command = ecColSelRight
     1188        ShortCut = 40999
     1189      end   
     1190      item
     1191        Command = ecColSelPageDown
     1192        ShortCut = 40994
     1193      end   
     1194      item
     1195        Command = ecColSelPageBottom
     1196        ShortCut = 57378
     1197      end   
     1198      item
     1199        Command = ecColSelPageUp
     1200        ShortCut = 40993
     1201      end   
     1202      item
     1203        Command = ecColSelPageTop
     1204        ShortCut = 57377
     1205      end   
     1206      item
     1207        Command = ecColSelLineStart
     1208        ShortCut = 40996
     1209      end   
     1210      item
     1211        Command = ecColSelLineEnd
     1212        ShortCut = 40995
     1213      end   
     1214      item
     1215        Command = ecColSelEditorTop
     1216        ShortCut = 57380
     1217      end   
     1218      item
     1219        Command = ecColSelEditorBottom
     1220        ShortCut = 57379
     1221      end>
     1222    MouseActions = <   
     1223      item
     1224        Shift = []
     1225        ShiftMask = [ssShift, ssAlt]
     1226        Button = mbLeft
     1227        ClickCount = ccSingle
     1228        ClickDir = cdDown
     1229        Command = 1
     1230        MoveCaret = True
     1231        Option = 0
     1232        Priority = 0
     1233      end   
     1234      item
     1235        Shift = [ssShift]
     1236        ShiftMask = [ssShift, ssAlt]
     1237        Button = mbLeft
     1238        ClickCount = ccSingle
     1239        ClickDir = cdDown
     1240        Command = 1
     1241        MoveCaret = True
     1242        Option = 1
     1243        Priority = 0
     1244      end   
     1245      item
     1246        Shift = [ssAlt]
     1247        ShiftMask = [ssShift, ssAlt]
     1248        Button = mbLeft
     1249        ClickCount = ccSingle
     1250        ClickDir = cdDown
     1251        Command = 3
     1252        MoveCaret = True
     1253        Option = 0
     1254        Priority = 0
     1255      end   
     1256      item
     1257        Shift = [ssShift, ssAlt]
     1258        ShiftMask = [ssShift, ssAlt]
     1259        Button = mbLeft
     1260        ClickCount = ccSingle
     1261        ClickDir = cdDown
     1262        Command = 3
     1263        MoveCaret = True
     1264        Option = 1
     1265        Priority = 0
     1266      end   
     1267      item
     1268        Shift = []
     1269        ShiftMask = []
     1270        Button = mbRight
     1271        ClickCount = ccSingle
     1272        ClickDir = cdUp
     1273        Command = 12
     1274        MoveCaret = False
     1275        Option = 0
     1276        Priority = 0
     1277      end   
     1278      item
     1279        Shift = []
     1280        ShiftMask = []
     1281        Button = mbLeft
     1282        ClickCount = ccDouble
     1283        ClickDir = cdDown
     1284        Command = 6
     1285        MoveCaret = True
     1286        Option = 0
     1287        Priority = 0
     1288      end   
     1289      item
     1290        Shift = []
     1291        ShiftMask = []
     1292        Button = mbLeft
     1293        ClickCount = ccTriple
     1294        ClickDir = cdDown
     1295        Command = 7
     1296        MoveCaret = True
     1297        Option = 0
     1298        Priority = 0
     1299      end   
     1300      item
     1301        Shift = []
     1302        ShiftMask = []
     1303        Button = mbLeft
     1304        ClickCount = ccQuad
     1305        ClickDir = cdDown
     1306        Command = 8
     1307        MoveCaret = True
     1308        Option = 0
     1309        Priority = 0
     1310      end   
     1311      item
     1312        Shift = []
     1313        ShiftMask = []
     1314        Button = mbMiddle
     1315        ClickCount = ccSingle
     1316        ClickDir = cdDown
     1317        Command = 10
     1318        MoveCaret = True
     1319        Option = 0
     1320        Priority = 0
     1321      end   
     1322      item
     1323        Shift = [ssCtrl]
     1324        ShiftMask = [ssShift, ssAlt, ssCtrl]
     1325        Button = mbLeft
     1326        ClickCount = ccSingle
     1327        ClickDir = cdUp
     1328        Command = 11
     1329        MoveCaret = False
     1330        Option = 0
     1331        Priority = 0
     1332      end>
     1333    MouseSelActions = <   
     1334      item
     1335        Shift = []
     1336        ShiftMask = []
     1337        Button = mbLeft
     1338        ClickCount = ccSingle
     1339        ClickDir = cdDown
     1340        Command = 9
     1341        MoveCaret = False
     1342        Option = 0
     1343        Priority = 0
     1344      end>
     1345    Lines.Strings = (
     1346      'SynEdit2'
     1347    )
     1348    BracketHighlightStyle = sbhsBoth
     1349    inline SynGutterPartList1: TSynGutterPartList
     1350      object SynGutterMarks1: TSynGutterMarks
     1351        Width = 23
     1352      end
     1353      object SynGutterLineNumber1: TSynGutterLineNumber
     1354        Width = 17
     1355        MouseActions = <>
     1356        MarkupInfo.Background = clBtnFace
     1357        MarkupInfo.Foreground = clNone
     1358        DigitCount = 2
     1359        ShowOnlyLineNumbersMultiplesOf = 1
     1360        ZeroStart = False
     1361        LeadingZeros = False
     1362      end
     1363      object SynGutterChanges1: TSynGutterChanges
     1364        Width = 4
     1365        ModifiedColor = 59900
     1366        SavedColor = clGreen
     1367      end
     1368      object SynGutterSeparator1: TSynGutterSeparator
     1369        Width = 2
     1370      end
     1371      object SynGutterCodeFolding1: TSynGutterCodeFolding
     1372        MouseActions = <       
     1373          item
     1374            Shift = []
     1375            ShiftMask = []
     1376            Button = mbRight
     1377            ClickCount = ccSingle
     1378            ClickDir = cdUp
     1379            Command = 16
     1380            MoveCaret = False
     1381            Option = 0
     1382            Priority = 0
     1383          end       
     1384          item
     1385            Shift = []
     1386            ShiftMask = [ssShift]
     1387            Button = mbMiddle
     1388            ClickCount = ccAny
     1389            ClickDir = cdDown
     1390            Command = 14
     1391            MoveCaret = False
     1392            Option = 0
     1393            Priority = 0
     1394          end       
     1395          item
     1396            Shift = [ssShift]
     1397            ShiftMask = [ssShift]
     1398            Button = mbMiddle
     1399            ClickCount = ccAny
     1400            ClickDir = cdDown
     1401            Command = 14
     1402            MoveCaret = False
     1403            Option = 1
     1404            Priority = 0
     1405          end       
     1406          item
     1407            Shift = []
     1408            ShiftMask = []
     1409            Button = mbLeft
     1410            ClickCount = ccAny
     1411            ClickDir = cdDown
     1412            Command = 0
     1413            MoveCaret = False
     1414            Option = 0
     1415            Priority = 0
     1416          end>
     1417        MarkupInfo.Background = clNone
     1418        MarkupInfo.Foreground = clGray
     1419        MouseActionsExpanded = <       
     1420          item
     1421            Shift = []
     1422            ShiftMask = []
     1423            Button = mbLeft
     1424            ClickCount = ccAny
     1425            ClickDir = cdDown
     1426            Command = 14
     1427            MoveCaret = False
     1428            Option = 0
     1429            Priority = 0
     1430          end>
     1431        MouseActionsCollapsed = <       
     1432          item
     1433            Shift = [ssCtrl]
     1434            ShiftMask = [ssCtrl]
     1435            Button = mbLeft
     1436            ClickCount = ccAny
     1437            ClickDir = cdDown
     1438            Command = 15
     1439            MoveCaret = False
     1440            Option = 0
     1441            Priority = 0
     1442          end       
     1443          item
     1444            Shift = []
     1445            ShiftMask = [ssCtrl]
     1446            Button = mbLeft
     1447            ClickCount = ccAny
     1448            ClickDir = cdDown
     1449            Command = 15
     1450            MoveCaret = False
     1451            Option = 1
     1452            Priority = 0
     1453          end>
     1454      end
     1455    end
     1456  end
     1457  object TreeView1: TTreeView
     1458    Left = 566
     1459    Height = 354
     1460    Top = 72
     1461    Width = 185
     1462    DefaultItemHeight = 15
     1463    TabOrder = 5
     1464  end
     1465  object Label4: TLabel
     1466    Left = 567
     1467    Height = 14
     1468    Top = 55
     1469    Width = 50
     1470    Caption = 'Struktura:'
     1471    ParentColor = False
     1472  end
     1473  object SynPasSyn1: TSynPasSyn
     1474    CompilerMode = pcmDelphi
     1475    NestedComments = False
     1476    left = 376
     1477    top = 56
     1478  end
     1479  object SynCppSyn1: TSynCppSyn
     1480    DefaultFilter = 'C++ Files (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh'
     1481    left = 376
     1482    top = 112
     1483  end
    861484end
  • branches/Void/UMainForm.pas

    r10 r15  
    77uses
    88  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
    9   StdCtrls, UCompilator, UOutputGenerator;
     9  StdCtrls, ComCtrls, SynHighlighterPas, SynEdit, SynHighlighterCpp,
     10  UCompilator, UOutputGenerator, UModelViewer;
    1011
    1112const
     
    2223    Label2: TLabel;
    2324    Label3: TLabel;
    24     Memo1: TMemo;
    25     Memo2: TMemo;
     25    Label4: TLabel;
    2626    Memo3: TMemo;
     27    SynCppSyn1: TSynCppSyn;
     28    SynEdit1: TSynEdit;
     29    SynEdit2: TSynEdit;
     30    SynPasSyn1: TSynPasSyn;
     31    TreeView1: TTreeView;
    2732    procedure ButtonCompileClick(Sender: TObject);
    2833    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     
    3237  private
    3338    SourceCode: TMemoryStream;
     39    ModelViewer: TModelViewer;
    3440    procedure CompilatorError(Text: string; var Terminate: Boolean;
    3541      Position: TPoint);
     
    4753procedure TMainForm.FormShow(Sender: TObject);
    4854begin
    49   Memo1.Lines.LoadFromFile(SourceFileName);
     55  SynEdit1.Lines.LoadFromFile(SourceFileName);
    5056  ButtonCompileClick(Self);
    5157end;
     
    5359procedure TMainForm.FormClose(Sender: TObject; var CloseAction: TCloseAction);
    5460begin
    55   Memo1.Lines.SaveToFile(SourceFileName);
     61  SynEdit1.Lines.SaveToFile(SourceFileName);
    5662end;
    5763
     
    6066  Compilator := TCompilator.Create;
    6167  Compilator.OnError := CompilatorError;
     68  ModelViewer := TModelViewer.Create;
    6269end;
    6370
     
    6572begin
    6673  Compilator.Destroy;
     74  ModelViewer.Destroy;
    6775end;
    6876
     
    7381  with Compilator do begin
    7482    Memo3.Lines.Clear;
    75     Code := Memo1.Lines.Text;
     83    Code := SynEdit1.Lines.Text;
    7684    SourceCode.Size := 0;
    7785    SourceCode.Write(Code[1], Length(Code));
    7886    if Assigned(Generator) then Generator.Destroy;
    79     if ComboBox1.ItemIndex = 0 then
    80       Generator := TPascalGenerator.Create
    81       else Generator := TCGenerator.Create;
     87    if ComboBox1.ItemIndex = 0 then begin
     88      Generator := TPascalGenerator.Create;
     89      SynEdit2.Highlighter := SynPasSyn1;
     90    end else begin
     91      Generator := TCGenerator.Create;
     92      SynEdit2.Highlighter := SynCppSyn1;
     93    end;
    8294    Compile;
    83     Memo2.Lines.Assign(Generator.Output);
    84     end;
     95    SynEdit2.Lines.Assign(Generator.Output);
     96    ModelViewer.Show(TreeView1);
     97  end;
    8598end;
    8699
  • branches/Void/project1.lpi

    r14 r15  
    99      <Icon Value="0"/>
    1010      <UseXPManifest Value="True"/>
    11       <ActiveEditorIndexAtStart Value="3"/>
     11      <ActiveEditorIndexAtStart Value="1"/>
    1212    </General>
    1313    <VersionInfo>
     
    2828      </local>
    2929    </RunParams>
    30     <RequiredPackages Count="1">
     30    <RequiredPackages Count="2">
    3131      <Item1>
     32        <PackageName Value="SynEdit"/>
     33        <MinVersion Major="1" Valid="True"/>
     34      </Item1>
     35      <Item2>
    3236        <PackageName Value="LCL"/>
    33       </Item1>
     37      </Item2>
    3438    </RequiredPackages>
    35     <Units Count="15">
     39    <Units Count="16">
    3640      <Unit0>
    3741        <Filename Value="project1.lpr"/>
     
    4044        <CursorPos X="37" Y="7"/>
    4145        <TopLine Value="1"/>
    42         <EditorIndex Value="4"/>
    43         <UsageCount Value="42"/>
     46        <EditorIndex Value="5"/>
     47        <UsageCount Value="44"/>
    4448        <Loaded Value="True"/>
    4549      </Unit0>
     
    5054        <ResourceBaseClass Value="Form"/>
    5155        <UnitName Value="UMainForm"/>
    52         <CursorPos X="46" Y="28"/>
    53         <TopLine Value="28"/>
     56        <CursorPos X="22" Y="82"/>
     57        <TopLine Value="20"/>
    5458        <EditorIndex Value="0"/>
    55         <UsageCount Value="42"/>
     59        <UsageCount Value="44"/>
    5660        <Loaded Value="True"/>
    5761      </Unit1>
     
    5963        <Filename Value="UCompilator.pas"/>
    6064        <UnitName Value="UCompilator"/>
    61         <CursorPos X="53" Y="168"/>
    62         <TopLine Value="149"/>
    63         <EditorIndex Value="1"/>
    64         <UsageCount Value="21"/>
     65        <CursorPos X="25" Y="228"/>
     66        <TopLine Value="213"/>
     67        <EditorIndex Value="2"/>
     68        <UsageCount Value="22"/>
    6569        <Loaded Value="True"/>
    6670      </Unit2>
     
    6973        <IsPartOfProject Value="True"/>
    7074        <UnitName Value="UOutputGenerator"/>
    71         <CursorPos X="7" Y="160"/>
    72         <TopLine Value="127"/>
    73         <EditorIndex Value="3"/>
    74         <UsageCount Value="42"/>
     75        <CursorPos X="18" Y="144"/>
     76        <TopLine Value="93"/>
     77        <EditorIndex Value="4"/>
     78        <UsageCount Value="44"/>
    7579        <Loaded Value="True"/>
    7680      </Unit3>
     
    8084        <CursorPos X="4" Y="1"/>
    8185        <TopLine Value="1"/>
    82         <UsageCount Value="42"/>
     86        <UsageCount Value="44"/>
    8387        <SyntaxHighlighter Value="None"/>
    8488      </Unit4>
     
    9094        <TopLine Value="215"/>
    9195        <EditorIndex Value="6"/>
    92         <UsageCount Value="42"/>
     96        <UsageCount Value="44"/>
    9397        <Loaded Value="True"/>
    9498      </Unit5>
     
    124128        <CursorPos X="5" Y="51"/>
    125129        <TopLine Value="45"/>
    126         <EditorIndex Value="2"/>
    127         <UsageCount Value="42"/>
     130        <EditorIndex Value="3"/>
     131        <UsageCount Value="44"/>
    128132        <Loaded Value="True"/>
    129133      </Unit10>
     
    146150        <CursorPos X="1" Y="1"/>
    147151        <TopLine Value="1"/>
    148         <EditorIndex Value="5"/>
    149         <UsageCount Value="11"/>
    150         <Loaded Value="True"/>
     152        <UsageCount Value="12"/>
    151153      </Unit13>
    152154      <Unit14>
     
    156158        <UsageCount Value="10"/>
    157159      </Unit14>
     160      <Unit15>
     161        <Filename Value="UModelViewer.pas"/>
     162        <IsPartOfProject Value="True"/>
     163        <UnitName Value="UModelViewer"/>
     164        <CursorPos X="45" Y="36"/>
     165        <TopLine Value="15"/>
     166        <EditorIndex Value="1"/>
     167        <UsageCount Value="20"/>
     168        <Loaded Value="True"/>
     169      </Unit15>
    158170    </Units>
    159171    <JumpHistory Count="30" HistoryIndex="29">
    160172      <Position1>
    161173        <Filename Value="UCompilator.pas"/>
    162         <Caret Line="148" Column="1" TopLine="133"/>
     174        <Caret Line="166" Column="55" TopLine="149"/>
    163175      </Position1>
    164176      <Position2>
    165         <Filename Value="UCompilator.pas"/>
    166         <Caret Line="149" Column="1" TopLine="134"/>
     177        <Filename Value="UMainForm.pas"/>
     178        <Caret Line="28" Column="46" TopLine="28"/>
    167179      </Position2>
    168180      <Position3>
    169         <Filename Value="UCompilator.pas"/>
    170         <Caret Line="183" Column="1" TopLine="168"/>
     181        <Filename Value="UMainForm.pas"/>
     182        <Caret Line="29" Column="46" TopLine="28"/>
    171183      </Position3>
    172184      <Position4>
    173         <Filename Value="UCompilator.pas"/>
    174         <Caret Line="184" Column="1" TopLine="169"/>
     185        <Filename Value="UMainForm.pas"/>
     186        <Caret Line="30" Column="46" TopLine="28"/>
    175187      </Position4>
    176188      <Position5>
    177         <Filename Value="UCompilator.pas"/>
    178         <Caret Line="185" Column="1" TopLine="170"/>
     189        <Filename Value="UMainForm.pas"/>
     190        <Caret Line="29" Column="46" TopLine="28"/>
    179191      </Position5>
    180192      <Position6>
    181         <Filename Value="UCompilator.pas"/>
    182         <Caret Line="186" Column="1" TopLine="171"/>
     193        <Filename Value="UMainForm.pas"/>
     194        <Caret Line="28" Column="46" TopLine="28"/>
    183195      </Position6>
    184196      <Position7>
    185         <Filename Value="UCompilator.pas"/>
    186         <Caret Line="187" Column="1" TopLine="172"/>
     197        <Filename Value="UMainForm.pas"/>
     198        <Caret Line="29" Column="46" TopLine="28"/>
    187199      </Position7>
    188200      <Position8>
    189         <Filename Value="UCompilator.pas"/>
    190         <Caret Line="188" Column="1" TopLine="173"/>
     201        <Filename Value="UMainForm.pas"/>
     202        <Caret Line="50" Column="1" TopLine="35"/>
    191203      </Position8>
    192204      <Position9>
    193         <Filename Value="UCompilator.pas"/>
    194         <Caret Line="190" Column="1" TopLine="175"/>
     205        <Filename Value="UMainForm.pas"/>
     206        <Caret Line="56" Column="10" TopLine="41"/>
    195207      </Position9>
    196208      <Position10>
    197         <Filename Value="UCompilator.pas"/>
    198         <Caret Line="191" Column="1" TopLine="176"/>
     209        <Filename Value="UMainForm.pas"/>
     210        <Caret Line="74" Column="49" TopLine="61"/>
    199211      </Position10>
    200212      <Position11>
    201         <Filename Value="UCompilator.pas"/>
    202         <Caret Line="192" Column="1" TopLine="177"/>
     213        <Filename Value="UMainForm.pas"/>
     214        <Caret Line="73" Column="49" TopLine="61"/>
    203215      </Position11>
    204216      <Position12>
    205         <Filename Value="UCompilator.pas"/>
    206         <Caret Line="193" Column="1" TopLine="178"/>
     217        <Filename Value="UMainForm.pas"/>
     218        <Caret Line="74" Column="49" TopLine="61"/>
    207219      </Position12>
    208220      <Position13>
    209         <Filename Value="UCompilator.pas"/>
    210         <Caret Line="194" Column="1" TopLine="179"/>
     221        <Filename Value="UMainForm.pas"/>
     222        <Caret Line="84" Column="44" TopLine="69"/>
    211223      </Position13>
    212224      <Position14>
    213         <Filename Value="UCompilator.pas"/>
    214         <Caret Line="212" Column="1" TopLine="197"/>
     225        <Filename Value="UMainForm.pas"/>
     226        <Caret Line="92" Column="33" TopLine="60"/>
    215227      </Position14>
    216228      <Position15>
    217         <Filename Value="UCompilator.pas"/>
    218         <Caret Line="213" Column="1" TopLine="198"/>
     229        <Filename Value="UMainForm.pas"/>
     230        <Caret Line="93" Column="33" TopLine="63"/>
    219231      </Position15>
    220232      <Position16>
    221         <Filename Value="UCompilator.pas"/>
    222         <Caret Line="214" Column="1" TopLine="199"/>
     233        <Filename Value="UMainForm.pas"/>
     234        <Caret Line="92" Column="33" TopLine="63"/>
    223235      </Position16>
    224236      <Position17>
    225         <Filename Value="UCompilator.pas"/>
    226         <Caret Line="215" Column="1" TopLine="200"/>
     237        <Filename Value="UMainForm.pas"/>
     238        <Caret Line="93" Column="33" TopLine="63"/>
    227239      </Position17>
    228240      <Position18>
    229         <Filename Value="UCompilator.pas"/>
    230         <Caret Line="216" Column="22" TopLine="187"/>
     241        <Filename Value="UMainForm.pas"/>
     242        <Caret Line="41" Column="29" TopLine="16"/>
    231243      </Position18>
    232244      <Position19>
    233         <Filename Value="UOutputGenerator.pas"/>
    234         <Caret Line="116" Column="26" TopLine="100"/>
     245        <Filename Value="UMainForm.pas"/>
     246        <Caret Line="113" Column="1" TopLine="83"/>
    235247      </Position19>
    236248      <Position20>
    237         <Filename Value="UOutputGenerator.pas"/>
    238         <Caret Line="74" Column="44" TopLine="59"/>
     249        <Filename Value="UMainForm.pas"/>
     250        <Caret Line="110" Column="32" TopLine="90"/>
    239251      </Position20>
    240252      <Position21>
    241         <Filename Value="UOutputGenerator.pas"/>
    242         <Caret Line="114" Column="52" TopLine="99"/>
     253        <Filename Value="UMainForm.pas"/>
     254        <Caret Line="113" Column="49" TopLine="89"/>
    243255      </Position21>
    244256      <Position22>
    245         <Filename Value="UOutputGenerator.pas"/>
    246         <Caret Line="150" Column="44" TopLine="135"/>
     257        <Filename Value="UModelViewer.pas"/>
     258        <Caret Line="16" Column="17" TopLine="1"/>
    247259      </Position22>
    248260      <Position23>
    249         <Filename Value="UCompilator.pas"/>
    250         <Caret Line="216" Column="22" TopLine="187"/>
     261        <Filename Value="UMainForm.pas"/>
     262        <Caret Line="105" Column="1" TopLine="79"/>
    251263      </Position23>
    252264      <Position24>
    253         <Filename Value="UModel.pas"/>
    254         <Caret Line="230" Column="15" TopLine="211"/>
     265        <Filename Value="UMainForm.pas"/>
     266        <Caret Line="41" Column="1" TopLine="26"/>
    255267      </Position24>
    256268      <Position25>
    257         <Filename Value="UModel.pas"/>
    258         <Caret Line="232" Column="22" TopLine="212"/>
     269        <Filename Value="UMainForm.pas"/>
     270        <Caret Line="39" Column="31" TopLine="17"/>
    259271      </Position25>
    260272      <Position26>
    261         <Filename Value="UModel.pas"/>
    262         <Caret Line="192" Column="96" TopLine="187"/>
     273        <Filename Value="UModelViewer.pas"/>
     274        <Caret Line="23" Column="12" TopLine="1"/>
    263275      </Position26>
    264276      <Position27>
    265         <Filename Value="UModel.pas"/>
    266         <Caret Line="11" Column="16" TopLine="1"/>
     277        <Filename Value="UModelViewer.pas"/>
     278        <Caret Line="25" Column="25" TopLine="5"/>
    267279      </Position27>
    268280      <Position28>
    269         <Filename Value="UModel.pas"/>
    270         <Caret Line="46" Column="8" TopLine="19"/>
     281        <Filename Value="UModelViewer.pas"/>
     282        <Caret Line="17" Column="48" TopLine="4"/>
    271283      </Position28>
    272284      <Position29>
    273         <Filename Value="UModel.pas"/>
    274         <Caret Line="229" Column="27" TopLine="215"/>
     285        <Filename Value="UModelViewer.pas"/>
     286        <Caret Line="26" Column="3" TopLine="15"/>
    275287      </Position29>
    276288      <Position30>
    277         <Filename Value="UCompilator.pas"/>
    278         <Caret Line="167" Column="107" TopLine="148"/>
     289        <Filename Value="UModelViewer.pas"/>
     290        <Caret Line="17" Column="46" TopLine="2"/>
    279291      </Position30>
    280292    </JumpHistory>
  • branches/Void/project1.lpr

    r10 r15  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UMainForm, UOutputGenerator, LResources, UModel, UVoidParser;
     10  Forms, UMainForm, UOutputGenerator, LResources, UModel, UVoidParser,
     11  UModelViewer;
    1112
    1213{$IFDEF WINDOWS}{$R project1.rc}{$ENDIF}
Note: See TracChangeset for help on using the changeset viewer.