Ignore:
Timestamp:
Aug 9, 2010, 2:24:24 PM (14 years ago)
Author:
george
Message:

Added support for setting cursor position to place of error code for error messages.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/DelphiToC/UMainForm.lfm

    r46 r49  
    11object MainForm: TMainForm
    2   Left = 169
    3   Height = 515
    4   Top = 110
    5   Width = 872
     2  Left = 273
     3  Height = 498
     4  Top = 105
     5  Width = 881
    66  Caption = 'Pascal Compiler AVR'
    7   ClientHeight = 515
    8   ClientWidth = 872
     7  ClientHeight = 498
     8  ClientWidth = 881
    99  Font.Height = -11
    1010  Font.Name = 'Tahoma'
    … …  
    1616  LCLVersion = '0.9.29'
    1717  object Button1: TButton
    18     Left = 8
     18    Left = 800
    1919    Height = 22
    20     Top = 490
     20    Top = 401
    2121    Width = 75
    22     Anchors = [akLeft, akBottom]
     22    Anchors = [akRight, akBottom]
    2323    Caption = 'Kompilovat'
    2424    OnClick = Button1Click
    … …  
    2727  object Memo2: TMemo
    2828    Left = 672
    29     Height = 380
     29    Height = 363
    3030    Top = 32
    31     Width = 194
     31    Width = 203
    3232    Anchors = [akTop, akLeft, akRight, akBottom]
    3333    Font.Height = -13
    … …  
    3737    TabOrder = 1
    3838  end
    39   object Memo3: TMemo
    40     Left = 8
    41     Height = 66
    42     Top = 418
    43     Width = 858
    44     Anchors = [akLeft, akRight, akBottom]
    45     ScrollBars = ssBoth
    46     TabOrder = 2
    47   end
    4839  object TreeView1: TTreeView
    4940    Left = 368
    50     Height = 404
     41    Height = 387
    5142    Top = 8
    5243    Width = 296
    … …  
    5445    DefaultItemHeight = 15
    5546    Indent = 19
    56     TabOrder = 3
     47    TabOrder = 2
    5748  end
    5849  inline SynEdit1: TSynEdit
    5950    Left = 8
    60     Height = 405
     51    Height = 388
    6152    Top = 8
    6253    Width = 352
    … …  
    6859    ParentColor = False
    6960    ParentFont = False
    70     TabOrder = 4
     61    TabOrder = 3
    7162    Gutter.Width = 57
    7263    Gutter.MouseActions = <   
    … …  
    754745    Height = 21
    755746    Top = 8
    756     Width = 196
     747    Width = 205
    757748    Anchors = [akTop, akLeft, akRight]
    758749    ItemHeight = 13
    … …  
    765756    OnChange = ComboBox1Change
    766757    Style = csDropDownList
     758    TabOrder = 4
     759    Text = 'Pascal'
     760  end
     761  object ListBox1: TListBox
     762    Left = 8
     763    Height = 91
     764    Top = 402
     765    Width = 785
     766    Anchors = [akLeft, akRight, akBottom]
     767    ItemHeight = 0
     768    OnClick = ListBox1Click
    767769    TabOrder = 5
    768     Text = 'Pascal'
    769770  end
    770771  object SynPasSyn1: TSynPasSyn
Note: See TracChangeset for help on using the changeset viewer.