Ignore:
Timestamp:
Aug 9, 2010, 11:22:45 AM (14 years ago)
Author:
george
Message:

Added pascal producer code.
Added selection combobox for producer type.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DelphiToC/UMainForm.lfm

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