Changeset 34


Ignore:
Timestamp:
Feb 13, 2012, 1:47:33 PM (12 years ago)
Author:
chronos
Message:
  • Added: Package Common replace units LastOpenedList and Registry.
  • Modified: Instead of unfinished advanced docking manager use static dockign to panels and PageControl sheets.
Location:
trunk/IDE
Files:
10 added
3 deleted
12 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE

    • Property svn:ignore

      •  

        old new  
        11lib
        22backup
         3Transpascal.dbg
         4Transpascal.lps
         5Transpascal.exe

  • trunk/IDE/Forms/UCodeForm.lfm

    r30 r34  
    77  ClientHeight = 426
    88  ClientWidth = 535
    9   LCLVersion = '0.9.29'
     9  LCLVersion = '0.9.31'
    1010  inline SynEditSource: TSynEdit
    1111    Left = 0
    … …  
    2424    Gutter.MouseActions = <   
    2525      item
    26         Shift = []
    27         ShiftMask = []
    28         Button = mbLeft
    2926        ClickCount = ccAny
    3027        ClickDir = cdDown
    31         Command = 13
    32         MoveCaret = False
    33         Option = 0
    34         Priority = 0
    35       end   
    36       item
    37         Shift = []
    38         ShiftMask = []
     28        Command = emcOnMainGutterClick
     29      end   
     30      item
    3931        Button = mbRight
    40         ClickCount = ccSingle
    41         ClickDir = cdUp
    42         Command = 12
    43         MoveCaret = False
    44         Option = 0
    45         Priority = 0
     32        Command = emcContextMenu
    4633      end>
    4734    RightGutter.Width = 0
    4835    RightGutter.MouseActions = <   
    4936      item
    50         Shift = []
    51         ShiftMask = []
    52         Button = mbLeft
    5337        ClickCount = ccAny
    5438        ClickDir = cdDown
    55         Command = 13
    56         MoveCaret = False
    57         Option = 0
    58         Priority = 0
    59       end   
    60       item
    61         Shift = []
    62         ShiftMask = []
     39        Command = emcOnMainGutterClick
     40      end   
     41      item
    6342        Button = mbRight
    64         ClickCount = ccSingle
    65         ClickDir = cdUp
    66         Command = 12
    67         MoveCaret = False
    68         Option = 0
    69         Priority = 0
     43        Command = emcContextMenu
    7044      end>
    7145    Highlighter = SynPasSyn1
    … …  
    493467    MouseActions = <   
    494468      item
    495         Shift = []
    496469        ShiftMask = [ssShift, ssAlt]
    497         Button = mbLeft
    498         ClickCount = ccSingle
    499         ClickDir = cdDown
    500         Command = 1
    501         MoveCaret = True
    502         Option = 0
    503         Priority = 0
     470        ClickDir = cdDown
     471        Command = emcStartSelections
     472        MoveCaret = True
    504473      end   
    505474      item
    506475        Shift = [ssShift]
    507476        ShiftMask = [ssShift, ssAlt]
    508         Button = mbLeft
    509         ClickCount = ccSingle
    510         ClickDir = cdDown
    511         Command = 1
     477        ClickDir = cdDown
     478        Command = emcStartSelections
    512479        MoveCaret = True
    513480        Option = 1
    514         Priority = 0
    515481      end   
    516482      item
    517483        Shift = [ssAlt]
    518484        ShiftMask = [ssShift, ssAlt]
    519         Button = mbLeft
    520         ClickCount = ccSingle
    521         ClickDir = cdDown
    522         Command = 3
    523         MoveCaret = True
    524         Option = 0
    525         Priority = 0
     485        ClickDir = cdDown
     486        Command = emcStartColumnSelections
     487        MoveCaret = True
    526488      end   
    527489      item
    528490        Shift = [ssShift, ssAlt]
    529491        ShiftMask = [ssShift, ssAlt]
    530         Button = mbLeft
    531         ClickCount = ccSingle
    532         ClickDir = cdDown
    533         Command = 3
     492        ClickDir = cdDown
     493        Command = emcStartColumnSelections
    534494        MoveCaret = True
    535495        Option = 1
    536         Priority = 0
    537       end   
    538       item
    539         Shift = []
    540         ShiftMask = []
     496      end   
     497      item
    541498        Button = mbRight
    542         ClickCount = ccSingle
    543         ClickDir = cdUp
    544         Command = 12
    545         MoveCaret = False
    546         Option = 0
    547         Priority = 0
    548       end   
    549       item
    550         Shift = []
    551         ShiftMask = []
    552         Button = mbLeft
     499        Command = emcContextMenu
     500      end   
     501      item
    553502        ClickCount = ccDouble
    554503        ClickDir = cdDown
    555         Command = 6
    556         MoveCaret = True
    557         Option = 0
    558         Priority = 0
    559       end   
    560       item
    561         Shift = []
    562         ShiftMask = []
    563         Button = mbLeft
     504        Command = emcSelectWord
     505        MoveCaret = True
     506      end   
     507      item
    564508        ClickCount = ccTriple
    565509        ClickDir = cdDown
    566         Command = 7
    567         MoveCaret = True
    568         Option = 0
    569         Priority = 0
    570       end   
    571       item
    572         Shift = []
    573         ShiftMask = []
    574         Button = mbLeft
     510        Command = emcSelectLine
     511        MoveCaret = True
     512      end   
     513      item
    575514        ClickCount = ccQuad
    576515        ClickDir = cdDown
    577         Command = 8
    578         MoveCaret = True
    579         Option = 0
    580         Priority = 0
    581       end   
    582       item
    583         Shift = []
    584         ShiftMask = []
     516        Command = emcSelectPara
     517        MoveCaret = True
     518      end   
     519      item
    585520        Button = mbMiddle
    586         ClickCount = ccSingle
    587         ClickDir = cdDown
    588         Command = 10
    589         MoveCaret = True
    590         Option = 0
    591         Priority = 0
     521        ClickDir = cdDown
     522        Command = emcPasteSelection
     523        MoveCaret = True
    592524      end   
    593525      item
    594526        Shift = [ssCtrl]
    595527        ShiftMask = [ssShift, ssAlt, ssCtrl]
    596         Button = mbLeft
    597         ClickCount = ccSingle
    598         ClickDir = cdUp
    599         Command = 11
    600         MoveCaret = False
    601         Option = 0
    602         Priority = 0
     528        Command = emcMouseLink
    603529      end>
    604530    MouseSelActions = <   
    605531      item
    606         Shift = []
    607         ShiftMask = []
    608         Button = mbLeft
    609         ClickCount = ccSingle
    610         ClickDir = cdDown
    611         Command = 9
    612         MoveCaret = False
    613         Option = 0
    614         Priority = 0
     532        ClickDir = cdDown
     533        Command = emcStartDragMove
    615534      end>
    616535    Lines.Strings = (
    617536      'SynEditSource'
    618537    )
     538    VisibleSpecialChars = [vscSpace, vscTabAtLast]
    619539    BracketHighlightStyle = sbhsBoth
    620540    OnChange = SynEditSourceChange
    … …  
    622542      object SynGutterMarks1: TSynGutterMarks
    623543        Width = 24
     544        MouseActions = <>
    624545      end
    625546      object SynGutterLineNumber1: TSynGutterLineNumber
    … …  
    635556      object SynGutterChanges1: TSynGutterChanges
    636557        Width = 4
     558        MouseActions = <>
    637559        ModifiedColor = 59900
    638560        SavedColor = clGreen
    … …  
    640562      object SynGutterSeparator1: TSynGutterSeparator
    641563        Width = 2
     564        MouseActions = <>
    642565      end
    643566      object SynGutterCodeFolding1: TSynGutterCodeFolding
    644567        MouseActions = <       
    645568          item
    646             Shift = []
    647             ShiftMask = []
    648569            Button = mbRight
    649             ClickCount = ccSingle
    650             ClickDir = cdUp
    651             Command = 16
    652             MoveCaret = False
    653             Option = 0
    654             Priority = 0
     570            Command = emcCodeFoldContextMenu
    655571          end       
    656572          item
    657             Shift = []
    658573            ShiftMask = [ssShift]
    659574            Button = mbMiddle
    660575            ClickCount = ccAny
    661576            ClickDir = cdDown
    662             Command = 14
    663             MoveCaret = False
    664             Option = 0
    665             Priority = 0
     577            Command = emcCodeFoldCollaps
    666578          end       
    667579          item
    … …  
    671583            ClickCount = ccAny
    672584            ClickDir = cdDown
    673             Command = 14
    674             MoveCaret = False
     585            Command = emcCodeFoldCollaps
    675586            Option = 1
    676             Priority = 0
    677587          end       
    678588          item
    679             Shift = []
    680             ShiftMask = []
    681             Button = mbLeft
    682589            ClickCount = ccAny
    683590            ClickDir = cdDown
    684             Command = 0
    685             MoveCaret = False
    686             Option = 0
    687             Priority = 0
     591            Command = emcNone
    688592          end>
    689593        MarkupInfo.Background = clNone
    … …  
    691595        MouseActionsExpanded = <       
    692596          item
    693             Shift = []
    694             ShiftMask = []
    695             Button = mbLeft
    696597            ClickCount = ccAny
    697598            ClickDir = cdDown
    698             Command = 14
    699             MoveCaret = False
    700             Option = 0
    701             Priority = 0
     599            Command = emcCodeFoldCollaps
    702600          end>
    703601        MouseActionsCollapsed = <       
    … …  
    705603            Shift = [ssCtrl]
    706604            ShiftMask = [ssCtrl]
    707             Button = mbLeft
    708605            ClickCount = ccAny
    709606            ClickDir = cdDown
    710             Command = 15
    711             MoveCaret = False
    712             Option = 0
    713             Priority = 0
     607            Command = emcCodeFoldExpand
    714608          end       
    715609          item
    716             Shift = []
    717610            ShiftMask = [ssCtrl]
    718             Button = mbLeft
    719611            ClickCount = ccAny
    720612            ClickDir = cdDown
    721             Command = 15
    722             MoveCaret = False
     613            Command = emcCodeFoldExpand
    723614            Option = 1
    724             Priority = 0
    725615          end>
    726616      end
    727617    end
    728   end
    729   object CoolDockClient1: TCDClient
    730     Floatable = False
    731     Master = MainForm.CoolDockMaster1
    732     left = 96
    733     top = 37
    734618  end
    735619  object SynPasSyn1: TSynPasSyn
    … …  
    737621    AsmAttri.FrameEdges = sfeAround
    738622    CommentAttri.FrameEdges = sfeAround
     623    IDEDirectiveAttri.FrameEdges = sfeAround
    739624    IdentifierAttri.FrameEdges = sfeAround
    740625    KeyAttri.FrameEdges = sfeAround

  • trunk/IDE/Forms/UCodeForm.pas

    r30 r34  
    1414
    1515  TCodeForm = class(TForm)
    16     CoolDockClient1: TCDClient;
    1716    SynEditSource: TSynEdit;
    1817    SynPasSyn1: TSynPasSyn;

  • trunk/IDE/Forms/UCompiledForm.lfm

    r30 r34  
    11object CompiledForm: TCompiledForm
    22  Left = 403
    3   Height = 240
     3  Height = 303
    44  Top = 186
    5   Width = 320
     5  Width = 398
    66  Caption = 'Compiled code'
    7   ClientHeight = 240
    8   ClientWidth = 320
    9   LCLVersion = '0.9.29'
     7  ClientHeight = 303
     8  ClientWidth = 398
     9  LCLVersion = '0.9.31'
    1010  inline SynEdit1: TSynEdit
    1111    Left = 0
    12     Height = 240
     12    Height = 303
    1313    Top = 0
    14     Width = 320
     14    Width = 398
    1515    Align = alClient
    1616    Font.Height = -13
    … …  
    2424    Gutter.MouseActions = <   
    2525      item
    26         Shift = []
    27         ShiftMask = []
    28         Button = mbLeft
    2926        ClickCount = ccAny
    3027        ClickDir = cdDown
    31         Command = 13
    32         MoveCaret = False
    33         Option = 0
    34         Priority = 0
    35       end   
    36       item
    37         Shift = []
    38         ShiftMask = []
     28        Command = emcOnMainGutterClick
     29      end   
     30      item
    3931        Button = mbRight
    40         ClickCount = ccSingle
    41         ClickDir = cdUp
    42         Command = 12
    43         MoveCaret = False
    44         Option = 0
    45         Priority = 0
     32        Command = emcContextMenu
    4633      end>
    4734    RightGutter.Width = 0
    4835    RightGutter.MouseActions = <   
    4936      item
    50         Shift = []
    51         ShiftMask = []
    52         Button = mbLeft
    5337        ClickCount = ccAny
    5438        ClickDir = cdDown
    55         Command = 13
    56         MoveCaret = False
    57         Option = 0
    58         Priority = 0
    59       end   
    60       item
    61         Shift = []
    62         ShiftMask = []
     39        Command = emcOnMainGutterClick
     40      end   
     41      item
    6342        Button = mbRight
    64         ClickCount = ccSingle
    65         ClickDir = cdUp
    66         Command = 12
    67         MoveCaret = False
    68         Option = 0
    69         Priority = 0
     43        Command = emcContextMenu
    7044      end>
    7145    Keystrokes = <   
    … …  
    492466    MouseActions = <   
    493467      item
    494         Shift = []
    495468        ShiftMask = [ssShift, ssAlt]
    496         Button = mbLeft
    497         ClickCount = ccSingle
    498         ClickDir = cdDown
    499         Command = 1
    500         MoveCaret = True
    501         Option = 0
    502         Priority = 0
     469        ClickDir = cdDown
     470        Command = emcStartSelections
     471        MoveCaret = True
    503472      end   
    504473      item
    505474        Shift = [ssShift]
    506475        ShiftMask = [ssShift, ssAlt]
    507         Button = mbLeft
    508         ClickCount = ccSingle
    509         ClickDir = cdDown
    510         Command = 1
     476        ClickDir = cdDown
     477        Command = emcStartSelections
    511478        MoveCaret = True
    512479        Option = 1
    513         Priority = 0
    514480      end   
    515481      item
    516482        Shift = [ssAlt]
    517483        ShiftMask = [ssShift, ssAlt]
    518         Button = mbLeft
    519         ClickCount = ccSingle
    520         ClickDir = cdDown
    521         Command = 3
    522         MoveCaret = True
    523         Option = 0
    524         Priority = 0
     484        ClickDir = cdDown
     485        Command = emcStartColumnSelections
     486        MoveCaret = True
    525487      end   
    526488      item
    527489        Shift = [ssShift, ssAlt]
    528490        ShiftMask = [ssShift, ssAlt]
    529         Button = mbLeft
    530         ClickCount = ccSingle
    531         ClickDir = cdDown
    532         Command = 3
     491        ClickDir = cdDown
     492        Command = emcStartColumnSelections
    533493        MoveCaret = True
    534494        Option = 1
    535         Priority = 0
    536       end   
    537       item
    538         Shift = []
    539         ShiftMask = []
     495      end   
     496      item
    540497        Button = mbRight
    541         ClickCount = ccSingle
    542         ClickDir = cdUp
    543         Command = 12
    544         MoveCaret = False
    545         Option = 0
    546         Priority = 0
    547       end   
    548       item
    549         Shift = []
    550         ShiftMask = []
    551         Button = mbLeft
     498        Command = emcContextMenu
     499      end   
     500      item
    552501        ClickCount = ccDouble
    553502        ClickDir = cdDown
    554         Command = 6
    555         MoveCaret = True
    556         Option = 0
    557         Priority = 0
    558       end   
    559       item
    560         Shift = []
    561         ShiftMask = []
    562         Button = mbLeft
     503        Command = emcSelectWord
     504        MoveCaret = True
     505      end   
     506      item
    563507        ClickCount = ccTriple
    564508        ClickDir = cdDown
    565         Command = 7
    566         MoveCaret = True
    567         Option = 0
    568         Priority = 0
    569       end   
    570       item
    571         Shift = []
    572         ShiftMask = []
    573         Button = mbLeft
     509        Command = emcSelectLine
     510        MoveCaret = True
     511      end   
     512      item
    574513        ClickCount = ccQuad
    575514        ClickDir = cdDown
    576         Command = 8
    577         MoveCaret = True
    578         Option = 0
    579         Priority = 0
    580       end   
    581       item
    582         Shift = []
    583         ShiftMask = []
     515        Command = emcSelectPara
     516        MoveCaret = True
     517      end   
     518      item
    584519        Button = mbMiddle
    585         ClickCount = ccSingle
    586         ClickDir = cdDown
    587         Command = 10
    588         MoveCaret = True
    589         Option = 0
    590         Priority = 0
     520        ClickDir = cdDown
     521        Command = emcPasteSelection
     522        MoveCaret = True
    591523      end   
    592524      item
    593525        Shift = [ssCtrl]
    594526        ShiftMask = [ssShift, ssAlt, ssCtrl]
    595         Button = mbLeft
    596         ClickCount = ccSingle
    597         ClickDir = cdUp
    598         Command = 11
    599         MoveCaret = False
    600         Option = 0
    601         Priority = 0
     527        Command = emcMouseLink
    602528      end>
    603529    MouseSelActions = <   
    604530      item
    605         Shift = []
    606         ShiftMask = []
    607         Button = mbLeft
    608         ClickCount = ccSingle
    609         ClickDir = cdDown
    610         Command = 9
    611         MoveCaret = False
    612         Option = 0
    613         Priority = 0
     531        ClickDir = cdDown
     532        Command = emcStartDragMove
    614533      end>
    615534    Lines.Strings = (
    616535      'SynEdit1'
    617536    )
     537    VisibleSpecialChars = [vscSpace, vscTabAtLast]
    618538    BracketHighlightStyle = sbhsBoth
    619539    inline SynLeftGutterPartList1: TSynGutterPartList
    620540      object SynGutterMarks1: TSynGutterMarks
    621541        Width = 24
     542        MouseActions = <>
    622543      end
    623544      object SynGutterLineNumber1: TSynGutterLineNumber
    … …  
    633554      object SynGutterChanges1: TSynGutterChanges
    634555        Width = 4
     556        MouseActions = <>
    635557        ModifiedColor = 59900
    636558        SavedColor = clGreen
    … …  
    638560      object SynGutterSeparator1: TSynGutterSeparator
    639561        Width = 2
     562        MouseActions = <>
    640563      end
    641564      object SynGutterCodeFolding1: TSynGutterCodeFolding
    642565        MouseActions = <       
    643566          item
    644             Shift = []
    645             ShiftMask = []
    646567            Button = mbRight
    647             ClickCount = ccSingle
    648             ClickDir = cdUp
    649             Command = 16
    650             MoveCaret = False
    651             Option = 0
    652             Priority = 0
     568            Command = emcCodeFoldContextMenu
    653569          end       
    654570          item
    655             Shift = []
    656571            ShiftMask = [ssShift]
    657572            Button = mbMiddle
    658573            ClickCount = ccAny
    659574            ClickDir = cdDown
    660             Command = 14
    661             MoveCaret = False
    662             Option = 0
    663             Priority = 0
     575            Command = emcCodeFoldCollaps
    664576          end       
    665577          item
    … …  
    669581            ClickCount = ccAny
    670582            ClickDir = cdDown
    671             Command = 14
    672             MoveCaret = False
     583            Command = emcCodeFoldCollaps
    673584            Option = 1
    674             Priority = 0
    675585          end       
    676586          item
    677             Shift = []
    678             ShiftMask = []
    679             Button = mbLeft
    680587            ClickCount = ccAny
    681588            ClickDir = cdDown
    682             Command = 0
    683             MoveCaret = False
    684             Option = 0
    685             Priority = 0
     589            Command = emcNone
    686590          end>
    687591        MarkupInfo.Background = clNone
    … …  
    689593        MouseActionsExpanded = <       
    690594          item
    691             Shift = []
    692             ShiftMask = []
    693             Button = mbLeft
    694595            ClickCount = ccAny
    695596            ClickDir = cdDown
    696             Command = 14
    697             MoveCaret = False
    698             Option = 0
    699             Priority = 0
     597            Command = emcCodeFoldCollaps
    700598          end>
    701599        MouseActionsCollapsed = <       
    … …  
    703601            Shift = [ssCtrl]
    704602            ShiftMask = [ssCtrl]
    705             Button = mbLeft
    706603            ClickCount = ccAny
    707604            ClickDir = cdDown
    708             Command = 15
    709             MoveCaret = False
    710             Option = 0
    711             Priority = 0
     605            Command = emcCodeFoldExpand
    712606          end       
    713607          item
    714             Shift = []
    715608            ShiftMask = [ssCtrl]
    716             Button = mbLeft
    717609            ClickCount = ccAny
    718610            ClickDir = cdDown
    719             Command = 15
    720             MoveCaret = False
     611            Command = emcCodeFoldExpand
    721612            Option = 1
    722             Priority = 0
    723613          end>
    724614      end
    725615    end
    726     inline SynRightGutterPartList1: TSynRightGutterPartList
    727     end
    728   end
    729   object CoolDockClient1: TCDClient
    730     Floatable = False
    731     Master = MainForm.CoolDockMaster1
    732     left = 76
    733     top = 62
    734616  end
    735617  object SynPasSyn1: TSynPasSyn
     618    Enabled = False
     619    AsmAttri.FrameEdges = sfeAround
     620    CommentAttri.FrameEdges = sfeAround
     621    IDEDirectiveAttri.FrameEdges = sfeAround
     622    IdentifierAttri.FrameEdges = sfeAround
     623    KeyAttri.FrameEdges = sfeAround
     624    NumberAttri.FrameEdges = sfeAround
     625    SpaceAttri.FrameEdges = sfeAround
     626    StringAttri.FrameEdges = sfeAround
     627    SymbolAttri.FrameEdges = sfeAround
     628    CaseLabelAttri.FrameEdges = sfeAround
     629    DirectiveAttri.FrameEdges = sfeAround
    736630    CompilerMode = pcmDelphi
    737631    NestedComments = False
    … …  
    741635  object SynCppSyn1: TSynCppSyn
    742636    DefaultFilter = 'Soubory C++ (*.c,*.cpp,*.h,*.hpp,*.hh)|*.c;*.cpp;*.h;*.hpp;*.hh'
     637    Enabled = False
     638    AsmAttri.FrameEdges = sfeAround
     639    CommentAttri.FrameEdges = sfeAround
     640    DirecAttri.FrameEdges = sfeAround
     641    IdentifierAttri.FrameEdges = sfeAround
     642    InvalidAttri.FrameEdges = sfeAround
     643    KeyAttri.FrameEdges = sfeAround
     644    NumberAttri.FrameEdges = sfeAround
     645    SpaceAttri.FrameEdges = sfeAround
     646    StringAttri.FrameEdges = sfeAround
     647    SymbolAttri.FrameEdges = sfeAround
    743648    left = 176
    744649    top = 85
    … …  
    746651  object SynXMLSyn1: TSynXMLSyn
    747652    DefaultFilter = 'XML Dokument (*.xml,*.xsd,*.xsl,*.xslt,*.dtd)|*.xml;*.xsd;*.xsl;*.xslt;*.dtd'
     653    Enabled = False
     654    ElementAttri.FrameEdges = sfeAround
     655    AttributeAttri.FrameEdges = sfeAround
     656    NamespaceAttributeAttri.FrameEdges = sfeAround
     657    AttributeValueAttri.FrameEdges = sfeAround
     658    NamespaceAttributeValueAttri.FrameEdges = sfeAround
     659    TextAttri.FrameEdges = sfeAround
     660    CDATAAttri.FrameEdges = sfeAround
     661    EntityRefAttri.FrameEdges = sfeAround
     662    ProcessingInstructionAttri.FrameEdges = sfeAround
     663    CommentAttri.FrameEdges = sfeAround
     664    DocTypeAttri.FrameEdges = sfeAround
     665    SpaceAttri.FrameEdges = sfeAround
     666    SymbolAttri.FrameEdges = sfeAround
    748667    WantBracesParsed = False
    749668    left = 178

  • trunk/IDE/Forms/UCompiledForm.pas

    r30 r34  
    1515
    1616  TCompiledForm = class(TForm)
    17     CoolDockClient1: TCDClient;
    1817    SynCppSyn1: TSynCppSyn;
    1918    SynEdit1: TSynEdit;

  • trunk/IDE/Forms/UMainForm.lfm

    r30 r34  
    55  Width = 695
    66  Caption = 'Transpascal IDE'
    7   ClientHeight = 478
     7  ClientHeight = 482
    88  ClientWidth = 695
    99  Font.Height = -11
    … …  
    2020    Left = 0
    2121    Height = 5
    22     Top = 473
     22    Top = 477
    2323    Width = 695
    2424    Align = alBottom
    … …  
    2727  object DockPanel: TPanel
    2828    Left = 0
    29     Height = 447
     29    Height = 350
    3030    Top = 26
    31     Width = 695
     31    Width = 490
    3232    Align = alClient
    3333    BevelOuter = bvNone
    … …  
    3939    Top = 0
    4040    Width = 695
    41     Caption = 'ToolBar1'
    4241    TabOrder = 2
    4342    object ComboBoxProducer: TComboBox
    4443      Left = 192
    45       Height = 24
     44      Height = 21
    4645      Top = 2
    4746      Width = 135
    4847      Align = alLeft
    49       ItemHeight = 0
     48      ItemHeight = 13
    5049      ItemIndex = 1
    5150      Items.Strings = (
    … …  
    7372      Height = 24
    7473      Top = 2
    75       Width = 124
     74      Width = 105
    7675      Align = alLeft
    7776      Caption = 'Log parsing to file'
    … …  
    8079    object ComboBoxAnalyzer: TComboBox
    8180      Left = 40
    82       Height = 24
     81      Height = 21
    8382      Top = 2
    8483      Width = 124
    8584      Align = alLeft
    86       ItemHeight = 0
     85      ItemHeight = 13
    8786      Style = csDropDownList
    8887      TabOrder = 3
    … …  
    112111      Layout = tlCenter
    113112      ParentColor = False
     113    end
     114  end
     115  object Splitter1: TSplitter
     116    Left = 490
     117    Height = 350
     118    Top = 26
     119    Width = 5
     120    Align = alRight
     121    ResizeAnchor = akRight
     122  end
     123  object PageControl1: TPageControl
     124    Left = 495
     125    Height = 350
     126    Top = 26
     127    Width = 200
     128    ActivePage = TabSheet1
     129    Align = alRight
     130    TabIndex = 0
     131    TabOrder = 4
     132    TabPosition = tpRight
     133    object TabSheet1: TTabSheet
     134      Caption = 'Project'
     135    end
     136    object TabSheet2: TTabSheet
     137      Caption = 'Code Tree'
     138    end
     139  end
     140  object PageControl2: TPageControl
     141    Left = 0
     142    Height = 101
     143    Top = 376
     144    Width = 695
     145    ActivePage = TabSheet4
     146    Align = alBottom
     147    TabIndex = 1
     148    TabOrder = 5
     149    TabPosition = tpBottom
     150    object TabSheet3: TTabSheet
     151      Caption = 'Messages'
     152    end
     153    object TabSheet4: TTabSheet
     154      Caption = 'Compiled source'
    114155    end
    115156  end
    … …  
    137178        Action = AProjectClose
    138179      end
     180      object MenuItem12: TMenuItem
     181        Caption = '-'
     182      end
     183      object MenuItem13: TMenuItem
     184        Action = AExit
     185      end
    139186    end
    140187    object MenuItem7: TMenuItem
    … …  
    142189      object MenuItem8: TMenuItem
    143190        Action = ABuild
     191      end
     192      object MenuItem14: TMenuItem
     193        Action = ARun
     194      end
     195    end
     196    object MenuItem15: TMenuItem
     197      Caption = 'View'
     198      object MenuItem16: TMenuItem
     199        Caption = 'New Item18'
     200      end
     201      object MenuItem17: TMenuItem
     202        Caption = 'New Item19'
     203      end
     204      object MenuItem18: TMenuItem
     205        Caption = 'New Item20'
     206      end
     207    end
     208    object MenuItem9: TMenuItem
     209      Caption = 'Help'
     210      object MenuItem10: TMenuItem
     211        Action = AHomepage
     212      end
     213      object MenuItem11: TMenuItem
     214        Action = AAbout
    144215      end
    145216    end
    … …  
    184255      ShortCut = 120
    185256    end
    186   end
    187   object CoolDockMaster1: TCDMaster
    188     Customize = CDCustomize1
    189     TabsEnabled = True
    190     DefaultTabsPos = hpAuto
    191     DefaultHeaderPos = hpAuto
    192     DefaultMoveSpeed = 0
    193     ShowIcons = False
    194     left = 504
    195     top = 104
    196   end
    197   object CoolDockClient1: TCDClient
    198     Master = CoolDockMaster1
    199     Panel = DockPanel
    200     Dockable = False
    201     Floatable = False
    202     left = 504
    203     top = 56
     257    object AExit: TAction
     258      Caption = 'Exit'
     259      OnExecute = AExitExecute
     260    end
     261    object ARun: TAction
     262      Caption = 'Run'
     263    end
     264    object AAbout: TAction
     265      Caption = 'About...'
     266      OnExecute = AAboutExecute
     267    end
     268    object AHomepage: TAction
     269      Caption = 'Homepage'
     270      OnExecute = AHomepageExecute
     271    end
     272    object AViewProject: TAction
     273      Category = 'View'
     274      Caption = 'Project manager'
     275    end
     276    object AViewObjectInspector: TAction
     277      Category = 'View'
     278      Caption = 'Object inspector'
     279    end
     280    object AViewSourceEditor: TAction
     281      Category = 'View'
     282      Caption = 'Source editor'
     283    end
     284    object AViewMessages: TAction
     285      Category = 'View'
     286      Caption = 'Messages'
     287    end
    204288  end
    205289  object OpenDialog1: TOpenDialog
    … …  
    213297    top = 104
    214298  end
    215   object CDWindowList1: TCDWindowList
    216     left = 502
    217     top = 157
    218   end
    219   object CDLayoutList1: TCDLayoutList
    220     left = 502
    221     top = 205
    222   end
    223   object CDCustomize1: TCDCustomize
    224     Master = CoolDockMaster1
    225     LayoutList = CDLayoutList1
    226     left = 499
    227     top = 260
    228   end
    229299  object ImageList1: TImageList
    230300    left = 624
    231301    top = 112
    232302  end
     303  object DebugLog1: TDebugLog
     304    WriteToFileEnable = False
     305    FileName = 'DebugLog.txt'
     306    MaxCount = 100
     307    left = 344
     308    top = 88
     309  end
    233310end

  • trunk/IDE/Forms/UMainForm.pas

    r30 r34  
    2222  TMainForm = class(TForm)
    2323    ABuild: TAction;
     24    AViewMessages: TAction;
     25    AViewSourceEditor: TAction;
     26    AViewObjectInspector: TAction;
     27    AViewProject: TAction;
     28    AHomepage: TAction;
     29    ARun: TAction;
     30    AAbout: TAction;
     31    AExit: TAction;
    2432    AProjectNew: TAction;
    2533    AProjectOpen: TAction;
    … …  
    2937    ActionList1: TActionList;
    3038    Button1: TButton;
    31     CDCustomize1: TCDCustomize;
    32     CDLayoutList1: TCDLayoutList;
    33     CDWindowList1: TCDWindowList;
    3439    CheckBoxLogParsing: TCheckBox;
    3540    ComboBoxAnalyzer: TComboBox;
    3641    ComboBoxProducer: TComboBox;
    37     CoolDockClient1: TCDClient;
    38     CoolDockMaster1: TCDMaster;
     42    DebugLog1: TDebugLog;
    3943    ImageList1: TImageList;
    4044    Label1: TLabel;
    … …  
    4246    MainMenu1: TMainMenu;
    4347    MenuItem1: TMenuItem;
     48    MenuItem10: TMenuItem;
     49    MenuItem11: TMenuItem;
     50    MenuItem12: TMenuItem;
     51    MenuItem13: TMenuItem;
     52    MenuItem14: TMenuItem;
     53    MenuItem15: TMenuItem;
     54    MenuItem16: TMenuItem;
     55    MenuItem17: TMenuItem;
     56    MenuItem18: TMenuItem;
    4457    MenuItem2: TMenuItem;
    4558    MenuItem3: TMenuItem;
    … …  
    5063    MenuItem8: TMenuItem;
    5164    DockPanel: TPanel;
     65    MenuItem9: TMenuItem;
    5266    MenuItemOpenRecent: TMenuItem;
    5367    OpenDialog1: TOpenDialog;
     68    PageControl1: TPageControl;
     69    PageControl2: TPageControl;
    5470    SaveDialog1: TSaveDialog;
     71    Splitter1: TSplitter;
    5572    Splitter3: TSplitter;
     73    TabSheet1: TTabSheet;
     74    TabSheet2: TTabSheet;
     75    TabSheet3: TTabSheet;
     76    TabSheet4: TTabSheet;
    5677    ToolBar1: TToolBar;
     78    procedure AAboutExecute(Sender: TObject);
     79    procedure AExitExecute(Sender: TObject);
     80    procedure AHomepageExecute(Sender: TObject);
    5781    procedure AProjectCloseExecute(Sender: TObject);
    5882    procedure AProjectNewExecute(Sender: TObject);
    … …  
    6084    procedure AProjectSaveAsExecute(Sender: TObject);
    6185    procedure AProjectSaveExecute(Sender: TObject);
     86    procedure ABuildExecute(Sender: TObject);
    6287    procedure ComboBox1Change(Sender: TObject);
    6388    procedure ComboBoxProducerChange(Sender: TObject);
    6489    procedure FormShow(Sender: TObject);
    6590    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    66     procedure ABuildExecute(Sender: TObject);
    6791    procedure FormCreate(Sender: TObject);
    6892    procedure FormDestroy(Sender: TObject);
    … …  
    91115
    92116uses
    93   UMessagesForm, UCodeForm, UProjectManager;
     117  UMessagesForm, UCodeForm, UProjectManager, UCommon, UAboutForm;
     118
     119resourcestring
     120  SNewProject = 'New project';
    94121
    95122{ TMainForm }
    … …  
    144171  Container2: TCDConjoinForm;
    145172begin
    146   ProjectManager.ManualDock(DockPanel, nil, alLeft);
     173  CodeForm.ManualDock(DockPanel, nil, alClient);
     174  CodeForm.Align := alClient;
     175  CodeForm.Show;
     176  MessagesForm.ManualDock(TabSheet3, nil, alClient);
     177  MessagesForm.Align := alClient;
     178  MessagesForm.Show;
     179  ProjectManager.ManualDock(TabSheet1, nil, alClient);
     180  ProjectManager.Align := alClient;
     181  ProjectManager.Show;
     182  CodeTreeForm.ManualDock(TabSheet2, nil, alClient);
     183  CodeTreeForm.Align := alClient;
     184  CodeTreeForm.Show;
     185  CompiledForm.ManualDock(TabSheet4, nil, alClient);
     186  CompiledForm.Align := alClient;
     187  CompiledForm.Show;
     188
     189  (*ProjectManager.ManualDock(DockPanel, nil, alLeft);
    147190  ProjectManager.Show;
    148191
    … …  
    176219
    177220  Container1.Parent.Parent.Width := MainForm.Width - ProjectManager.Width - 200;
    178   Container2.Parent.Parent.Height := MainForm.Height;
     221  Container2.Parent.Parent.Height := MainForm.Height;*)
    179222end;
    180223
    … …  
    235278  I: Integer;
    236279begin
    237   DebugLog.FileName := 'DebugLog.txt';
    238   DeleteFile(DebugLog.FileName);
     280  DeleteFile(DebugLog1.FileName);
    239281  Compiler := TCompiler.Create;
    240282  Project := TProject.Create;
    … …  
    261303procedure TMainForm.CompilerDebugLog(Text: string);
    262304begin
    263   DebugLog.Add('', Text);
     305  DebugLog1.Add('', Text);
    264306end;
    265307
    … …  
    301343end;
    302344
     345procedure TMainForm.AExitExecute(Sender: TObject);
     346begin
     347  Close;
     348end;
     349
     350procedure TMainForm.AAboutExecute(Sender: TObject);
     351begin
     352  AboutForm.ShowModal;
     353end;
     354
     355procedure TMainForm.AHomepageExecute(Sender: TObject);
     356begin
     357  OpenWebPage(ApplicationInfo.HomePage);
     358end;
     359
    303360procedure TMainForm.AProjectNewExecute(Sender: TObject);
    304361begin
    305362  Project.Clear;
    306   Project.Name := 'New project';
     363  Project.Name := SNewProject;
    307364  ProjectManager.UpdateProjectTree;
    308365  Caption := ApplicationInfo.Name + ' - ' + Project.Name;

  • trunk/IDE/Forms/UMessagesForm.lfm

    r30 r34  
    77  ClientHeight = 240
    88  ClientWidth = 320
    9   LCLVersion = '0.9.29'
     9  LCLVersion = '0.9.31'
    1010  object ListView1: TListView
    1111    Left = 0
    … …  
    3535    OnSelectItem = ListView1SelectItem
    3636  end
    37   object CoolDockClient1: TCDClient
    38     Floatable = False
    39     Master = MainForm.CoolDockMaster1
    40     left = 76
    41     top = 71
    42   end
    4337end

  • trunk/IDE/Forms/UMessagesForm.pas

    r30 r34  
    1414
    1515  TMessagesForm = class(TForm)
    16     CoolDockClient1: TCDClient;
    1716    ListView1: TListView;
    1817    procedure ListBoxMessagesSelectionChange(Sender: TObject; User: boolean);

  • trunk/IDE/Transpascal.lpi

    r30 r34  
    55    <PathDelim Value="\"/>
    66    <General>
     7      <SessionStorage Value="InProjectDir"/>
    78      <MainUnit Value="0"/>
    89      <Title Value="Transpascal IDE"/>
    … …  
    1011      <UseXPManifest Value="True"/>
    1112      <Icon Value="0"/>
    12       <ActiveWindowIndexAtStart Value="0"/>
    1313    </General>
    1414    <i18n>
    15       <EnableI18N LFM="False"/>
     15      <EnableI18N Value="True"/>
     16      <OutDir Value="Languages"/>
    1617    </i18n>
    1718    <VersionInfo>
    … …  
    2021      <StringTable ProductVersion=""/>
    2122    </VersionInfo>
    22     <BuildModes Count="1">
    23       <Item1 Name="default" Default="True"/>
     23    <BuildModes Count="2">
     24      <Item1 Name="Debug" Default="True"/>
     25      <Item2 Name="Release">
     26        <CompilerOptions>
     27          <Version Value="11"/>
     28          <PathDelim Value="\"/>
     29          <Target>
     30            <Filename Value="Transpascal"/>
     31          </Target>
     32          <SearchPaths>
     33            <IncludeFiles Value="$(ProjOutDir)"/>
     34            <OtherUnitFiles Value="Forms;Common"/>
     35            <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
     36          </SearchPaths>
     37          <Parsing>
     38            <SyntaxOptions>
     39              <SyntaxMode Value="Delphi"/>
     40              <CStyleOperator Value="False"/>
     41              <AllowLabel Value="False"/>
     42              <CPPInline Value="False"/>
     43            </SyntaxOptions>
     44          </Parsing>
     45          <CodeGeneration>
     46            <SmartLinkUnit Value="True"/>
     47            <Optimizations>
     48              <OptimizationLevel Value="2"/>
     49            </Optimizations>
     50          </CodeGeneration>
     51          <Linking>
     52            <Debugging>
     53              <GenerateDebugInfo Value="False"/>
     54            </Debugging>
     55            <Options>
     56              <Win32>
     57                <GraphicApplication Value="True"/>
     58              </Win32>
     59            </Options>
     60          </Linking>
     61          <Other>
     62            <CompilerMessages>
     63              <UseMsgFile Value="True"/>
     64            </CompilerMessages>
     65            <CompilerPath Value="$(CompPath)"/>
     66          </Other>
     67        </CompilerOptions>
     68      </Item2>
    2469    </BuildModes>
    2570    <PublishOptions>
    … …  
    3580      </local>
    3681    </RunParams>
    37     <RequiredPackages Count="6">
     82    <RequiredPackages Count="7">
    3883      <Item1>
    39         <PackageName Value="LCLBase"/>
    40         <MinVersion Major="1" Release="1" Valid="True"/>
     84        <PackageName Value="Common"/>
    4185      </Item1>
    4286      <Item2>
    43         <PackageName Value="TemplateGenerics"/>
     87        <PackageName Value="LCLBase"/>
     88        <MinVersion Major="1" Valid="True" Release="1"/>
    4489      </Item2>
    4590      <Item3>
    46         <PackageName Value="TranspascalCompiler"/>
     91        <PackageName Value="TemplateGenerics"/>
    4792      </Item3>
    4893      <Item4>
    49         <PackageName Value="CoolDocking"/>
     94        <PackageName Value="TranspascalCompiler"/>
    5095      </Item4>
    5196      <Item5>
     97        <PackageName Value="CoolDocking"/>
     98      </Item5>
     99      <Item6>
    52100        <PackageName Value="SynEdit"/>
    53101        <MinVersion Major="1" Valid="True"/>
    54       </Item5>
    55       <Item6>
     102      </Item6>
     103      <Item7>
    56104        <PackageName Value="LCL"/>
    57       </Item6>
     105      </Item7>
    58106    </RequiredPackages>
    59     <Units Count="97">
     107    <Units Count="14">
    60108      <Unit0>
    61109        <Filename Value="Transpascal.lpr"/>
    62110        <IsPartOfProject Value="True"/>
    63111        <UnitName Value="Transpascal"/>
    64         <EditorIndex Value="4"/>
    65         <WindowIndex Value="0"/>
    66         <TopLine Value="1"/>
    67         <CursorPos X="1" Y="19"/>
    68         <UsageCount Value="215"/>
    69         <Loaded Value="True"/>
    70         <DefaultSyntaxHighlighter Value="Delphi"/>
    71112      </Unit0>
    72113      <Unit1>
    … …  
    77118        <ResourceBaseClass Value="Form"/>
    78119        <UnitName Value="UMainForm"/>
    79         <EditorIndex Value="1"/>
    80         <WindowIndex Value="0"/>
    81         <TopLine Value="150"/>
    82         <CursorPos X="80" Y="177"/>
    83         <UsageCount Value="215"/>
    84         <Loaded Value="True"/>
    85         <LoadedDesigner Value="True"/>
    86         <DefaultSyntaxHighlighter Value="Delphi"/>
    87120      </Unit1>
    88121      <Unit2>
    … …  
    90123        <IsPartOfProject Value="True"/>
    91124        <UnitName Value="UTextSource"/>
    92         <WindowIndex Value="0"/>
    93         <TopLine Value="1"/>
    94         <CursorPos X="1" Y="6"/>
    95         <UsageCount Value="215"/>
    96         <DefaultSyntaxHighlighter Value="Delphi"/>
    97125      </Unit2>
    98126      <Unit3>
    99         <Filename Value="USourceCode.pas"/>
    100         <UnitName Value="USourceCode"/>
    101         <WindowIndex Value="0"/>
    102         <TopLine Value="745"/>
    103         <CursorPos X="46" Y="759"/>
    104         <UsageCount Value="116"/>
    105         <DefaultSyntaxHighlighter Value="Delphi"/>
     127        <Filename Value="UProject.pas"/>
     128        <IsPartOfProject Value="True"/>
     129        <UnitName Value="UProject"/>
    106130      </Unit3>
    107131      <Unit4>
    108         <Filename Value="UCompiler.pas"/>
    109         <UnitName Value="UCompiler"/>
    110         <WindowIndex Value="0"/>
    111         <TopLine Value="1"/>
    112         <CursorPos X="40" Y="11"/>
    113         <UsageCount Value="116"/>
    114         <DefaultSyntaxHighlighter Value="Delphi"/>
     132        <Filename Value="Forms\UProjectManager.pas"/>
     133        <IsPartOfProject Value="True"/>
     134        <ComponentName Value="ProjectManager"/>
     135        <ResourceBaseClass Value="Form"/>
     136        <UnitName Value="UProjectManager"/>
    115137      </Unit4>
    116138      <Unit5>
    117         <Filename Value="Produce\UProducerAsm8051.pas"/>
    118         <UnitName Value="UProducerAsm8051"/>
    119         <WindowIndex Value="0"/>
    120         <TopLine Value="187"/>
    121         <CursorPos X="34" Y="201"/>
    122         <UsageCount Value="116"/>
    123         <DefaultSyntaxHighlighter Value="Delphi"/>
     139        <Filename Value="Forms\UCodeForm.pas"/>
     140        <IsPartOfProject Value="True"/>
     141        <ComponentName Value="CodeForm"/>
     142        <ResourceBaseClass Value="Form"/>
     143        <UnitName Value="UCodeForm"/>
    124144      </Unit5>
    125145      <Unit6>
    126         <Filename Value="Produce\UProducer.pas"/>
    127         <UnitName Value="UProducer"/>
    128         <WindowIndex Value="0"/>
    129         <TopLine Value="1"/>
    130         <CursorPos X="1" Y="14"/>
    131         <UsageCount Value="116"/>
    132         <DefaultSyntaxHighlighter Value="Delphi"/>
     146        <Filename Value="Forms\UMessagesForm.pas"/>
     147        <IsPartOfProject Value="True"/>
     148        <ComponentName Value="MessagesForm"/>
     149        <ResourceBaseClass Value="Form"/>
     150        <UnitName Value="UMessagesForm"/>
    133151      </Unit6>
    134152      <Unit7>
    135         <Filename Value="Produce\UProducerC.pas"/>
    136         <UnitName Value="UProducerC"/>
    137         <WindowIndex Value="0"/>
    138         <TopLine Value="124"/>
    139         <CursorPos X="42" Y="136"/>
    140         <UsageCount Value="116"/>
    141         <DefaultSyntaxHighlighter Value="Delphi"/>
     153        <Filename Value="Forms\UCompiledForm.pas"/>
     154        <IsPartOfProject Value="True"/>
     155        <ComponentName Value="CompiledForm"/>
     156        <HasResources Value="True"/>
     157        <ResourceBaseClass Value="Form"/>
     158        <UnitName Value="UCompiledForm"/>
    142159      </Unit7>
    143160      <Unit8>
    144         <Filename Value="Analyze\UParser.pas"/>
    145         <UnitName Value="UParser"/>
    146         <WindowIndex Value="0"/>
    147         <TopLine Value="442"/>
    148         <CursorPos X="47" Y="455"/>
    149         <UsageCount Value="116"/>
    150         <DefaultSyntaxHighlighter Value="Delphi"/>
     161        <Filename Value="Forms\UCodeTreeForm.pas"/>
     162        <IsPartOfProject Value="True"/>
     163        <ComponentName Value="CodeTreeForm"/>
     164        <ResourceBaseClass Value="Form"/>
     165        <UnitName Value="UCodeTreeForm"/>
    151166      </Unit8>
    152167      <Unit9>
    153         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\packages\fcl-base\src\contnrs.pp"/>
    154         <UnitName Value="contnrs"/>
    155         <WindowIndex Value="0"/>
    156         <TopLine Value="78"/>
    157         <CursorPos X="27" Y="86"/>
    158         <UsageCount Value="8"/>
    159         <DefaultSyntaxHighlighter Value="Delphi"/>
     168        <Filename Value="Common\URegistry.pas"/>
     169        <IsPartOfProject Value="True"/>
     170        <UnitName Value="URegistry"/>
    160171      </Unit9>
    161172      <Unit10>
    162         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutilh.inc"/>
    163         <WindowIndex Value="0"/>
    164         <TopLine Value="61"/>
    165         <CursorPos X="7" Y="68"/>
    166         <UsageCount Value="18"/>
    167         <DefaultSyntaxHighlighter Value="Delphi"/>
     173        <Filename Value="Common\ULastOpenedList.pas"/>
     174        <IsPartOfProject Value="True"/>
     175        <UnitName Value="ULastOpenedList"/>
    168176      </Unit10>
    169177      <Unit11>
    170         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\sysutils\sysutils.inc"/>
    171         <WindowIndex Value="0"/>
    172         <TopLine Value="139"/>
    173         <CursorPos X="16" Y="146"/>
    174         <UsageCount Value="18"/>
    175         <DefaultSyntaxHighlighter Value="Delphi"/>
     178        <Filename Value="UApplicationInfo.pas"/>
     179        <IsPartOfProject Value="True"/>
     180        <UnitName Value="UApplicationInfo"/>
    176181      </Unit11>
    177182      <Unit12>
    178         <Filename Value="Produce\UProducerTreeView.pas"/>
    179         <UnitName Value="UProducerTreeView"/>
    180         <WindowIndex Value="0"/>
    181         <TopLine Value="69"/>
    182         <CursorPos X="1" Y="82"/>
    183         <UsageCount Value="78"/>
    184         <DefaultSyntaxHighlighter Value="Delphi"/>
     183        <Filename Value="Common\UDebugLog.pas"/>
     184        <IsPartOfProject Value="True"/>
     185        <UnitName Value="UDebugLog"/>
    185186      </Unit12>
    186187      <Unit13>
    187         <Filename Value="Produce\UProducerPascal.pas"/>
    188         <UnitName Value="UProducerPascal"/>
    189         <WindowIndex Value="0"/>
    190         <TopLine Value="320"/>
    191         <CursorPos X="1" Y="327"/>
    192         <UsageCount Value="32"/>
    193         <DefaultSyntaxHighlighter Value="Delphi"/>
     188        <Filename Value="Forms\UAboutForm.pas"/>
     189        <IsPartOfProject Value="True"/>
     190        <ComponentName Value="AboutForm"/>
     191        <HasResources Value="True"/>
     192        <ResourceBaseClass Value="Form"/>
     193        <UnitName Value="UAboutForm"/>
    194194      </Unit13>
    195       <Unit14>
    196         <Filename Value="UProject.pas"/>
    197         <IsPartOfProject Value="True"/>
    198         <UnitName Value="UProject"/>
    199         <WindowIndex Value="0"/>
    200         <TopLine Value="1"/>
    201         <CursorPos X="14" Y="10"/>
    202         <UsageCount Value="223"/>
    203         <DefaultSyntaxHighlighter Value="Delphi"/>
    204       </Unit14>
    205       <Unit15>
    206         <Filename Value="Compiler\UCompiler.pas"/>
    207         <UnitName Value="UCompiler"/>
    208         <WindowIndex Value="0"/>
    209         <TopLine Value="70"/>
    210         <CursorPos X="53" Y="92"/>
    211         <UsageCount Value="96"/>
    212         <DefaultSyntaxHighlighter Value="Delphi"/>
    213       </Unit15>
    214       <Unit16>
    215         <Filename Value="Compiler\USourceCode.pas"/>
    216         <UnitName Value="USourceCode"/>
    217         <WindowIndex Value="0"/>
    218         <TopLine Value="3"/>
    219         <CursorPos X="32" Y="17"/>
    220         <UsageCount Value="97"/>
    221         <DefaultSyntaxHighlighter Value="Delphi"/>
    222       </Unit16>
    223       <Unit17>
    224         <Filename Value="Compiler\Analyze\UParser.pas"/>
    225         <UnitName Value="UParser"/>
    226         <WindowIndex Value="0"/>
    227         <TopLine Value="45"/>
    228         <CursorPos X="14" Y="58"/>
    229         <UsageCount Value="96"/>
    230         <DefaultSyntaxHighlighter Value="Delphi"/>
    231       </Unit17>
    232       <Unit18>
    233         <Filename Value="Forms\UProjectManager.pas"/>
    234         <IsPartOfProject Value="True"/>
    235         <ComponentName Value="ProjectManager"/>
    236         <ResourceBaseClass Value="Form"/>
    237         <UnitName Value="UProjectManager"/>
    238         <WindowIndex Value="0"/>
    239         <TopLine Value="68"/>
    240         <CursorPos X="39" Y="82"/>
    241         <UsageCount Value="207"/>
    242         <DefaultSyntaxHighlighter Value="Delphi"/>
    243       </Unit18>
    244       <Unit19>
    245         <Filename Value="Forms\UCodeForm.pas"/>
    246         <IsPartOfProject Value="True"/>
    247         <ComponentName Value="CodeForm"/>
    248         <ResourceBaseClass Value="Form"/>
    249         <UnitName Value="UCodeForm"/>
    250         <WindowIndex Value="0"/>
    251         <TopLine Value="36"/>
    252         <CursorPos X="52" Y="50"/>
    253         <UsageCount Value="207"/>
    254         <DefaultSyntaxHighlighter Value="Delphi"/>
    255       </Unit19>
    256       <Unit20>
    257         <Filename Value="Forms\UMessagesForm.pas"/>
    258         <IsPartOfProject Value="True"/>
    259         <ComponentName Value="MessagesForm"/>
    260         <ResourceBaseClass Value="Form"/>
    261         <UnitName Value="UMessagesForm"/>
    262         <WindowIndex Value="0"/>
    263         <TopLine Value="47"/>
    264         <CursorPos X="5" Y="54"/>
    265         <UsageCount Value="207"/>
    266         <DefaultSyntaxHighlighter Value="Delphi"/>
    267       </Unit20>
    268       <Unit21>
    269         <Filename Value="Forms\UCompiledForm.pas"/>
    270         <IsPartOfProject Value="True"/>
    271         <ComponentName Value="CompiledForm"/>
    272         <HasResources Value="True"/>
    273         <ResourceBaseClass Value="Form"/>
    274         <UnitName Value="UCompiledForm"/>
    275         <WindowIndex Value="0"/>
    276         <TopLine Value="2"/>
    277         <CursorPos X="14" Y="3"/>
    278         <UsageCount Value="206"/>
    279         <DefaultSyntaxHighlighter Value="Delphi"/>
    280       </Unit21>
    281       <Unit22>
    282         <Filename Value="Forms\UCodeTreeForm.pas"/>
    283         <IsPartOfProject Value="True"/>
    284         <ComponentName Value="CodeTreeForm"/>
    285         <ResourceBaseClass Value="Form"/>
    286         <UnitName Value="UCodeTreeForm"/>
    287         <WindowIndex Value="0"/>
    288         <TopLine Value="1"/>
    289         <CursorPos X="14" Y="3"/>
    290         <UsageCount Value="206"/>
    291         <DefaultSyntaxHighlighter Value="Delphi"/>
    292       </Unit22>
    293       <Unit23>
    294         <Filename Value="Compiler\Produce\UProducerTreeView.pas"/>
    295         <UnitName Value="UProducerTreeView"/>
    296         <WindowIndex Value="0"/>
    297         <TopLine Value="141"/>
    298         <CursorPos X="93" Y="154"/>
    299         <UsageCount Value="74"/>
    300         <DefaultSyntaxHighlighter Value="Delphi"/>
    301       </Unit23>
    302       <Unit24>
    303         <Filename Value="Common\URegistry.pas"/>
    304         <IsPartOfProject Value="True"/>
    305         <UnitName Value="URegistry"/>
    306         <WindowIndex Value="0"/>
    307         <TopLine Value="1"/>
    308         <CursorPos X="23" Y="22"/>
    309         <UsageCount Value="200"/>
    310         <DefaultSyntaxHighlighter Value="Delphi"/>
    311       </Unit24>
    312       <Unit25>
    313         <Filename Value="Common\ULastOpenedList.pas"/>
    314         <IsPartOfProject Value="True"/>
    315         <UnitName Value="ULastOpenedList"/>
    316         <WindowIndex Value="0"/>
    317         <TopLine Value="11"/>
    318         <CursorPos X="22" Y="24"/>
    319         <UsageCount Value="200"/>
    320         <DefaultSyntaxHighlighter Value="Delphi"/>
    321       </Unit25>
    322       <Unit26>
    323         <Filename Value="UApplicationInfo.pas"/>
    324         <IsPartOfProject Value="True"/>
    325         <UnitName Value="UApplicationInfo"/>
    326         <WindowIndex Value="0"/>
    327         <TopLine Value="43"/>
    328         <CursorPos X="27" Y="52"/>
    329         <UsageCount Value="200"/>
    330         <DefaultSyntaxHighlighter Value="Delphi"/>
    331       </Unit26>
    332       <Unit27>
    333         <Filename Value="Compiler\Produce\UProducerDynamicC.pas"/>
    334         <UnitName Value="UProducerDynamicC"/>
    335         <WindowIndex Value="0"/>
    336         <TopLine Value="268"/>
    337         <CursorPos X="39" Y="283"/>
    338         <UsageCount Value="107"/>
    339         <DefaultSyntaxHighlighter Value="Delphi"/>
    340       </Unit27>
    341       <Unit28>
    342         <Filename Value="Compiler\Produce\UProducerAsm8051.pas"/>
    343         <UnitName Value="UProducerAsm8051"/>
    344         <WindowIndex Value="0"/>
    345         <TopLine Value="143"/>
    346         <CursorPos X="68" Y="156"/>
    347         <UsageCount Value="71"/>
    348         <DefaultSyntaxHighlighter Value="Delphi"/>
    349       </Unit28>
    350       <Unit29>
    351         <Filename Value="Compiler\Produce\UProducerPascal.pas"/>
    352         <UnitName Value="UProducerPascal"/>
    353         <WindowIndex Value="0"/>
    354         <TopLine Value="309"/>
    355         <CursorPos X="64" Y="322"/>
    356         <UsageCount Value="104"/>
    357         <DefaultSyntaxHighlighter Value="Delphi"/>
    358       </Unit29>
    359       <Unit30>
    360         <Filename Value="Compiler\Analyze\UPascalParser.pas"/>
    361         <UnitName Value="UPascalParser"/>
    362         <WindowIndex Value="0"/>
    363         <TopLine Value="266"/>
    364         <CursorPos X="32" Y="279"/>
    365         <UsageCount Value="104"/>
    366         <DefaultSyntaxHighlighter Value="Delphi"/>
    367       </Unit30>
    368       <Unit31>
    369         <Filename Value="Compiler\Analyze\UGrammer.pas"/>
    370         <UnitName Value="UGrammer"/>
    371         <WindowIndex Value="0"/>
    372         <TopLine Value="15"/>
    373         <CursorPos X="1" Y="28"/>
    374         <UsageCount Value="21"/>
    375         <DefaultSyntaxHighlighter Value="Delphi"/>
    376       </Unit31>
    377       <Unit32>
    378         <Filename Value="Common\UDebugLog.pas"/>
    379         <IsPartOfProject Value="True"/>
    380         <UnitName Value="UDebugLog"/>
    381         <WindowIndex Value="0"/>
    382         <TopLine Value="1"/>
    383         <CursorPos X="28" Y="22"/>
    384         <UsageCount Value="328"/>
    385         <DefaultSyntaxHighlighter Value="Delphi"/>
    386       </Unit32>
    387       <Unit33>
    388         <Filename Value="E:\Programy\Lazarus\fpc\2.4.0\source\rtl\objpas\classes\streams.inc"/>
    389         <WindowIndex Value="0"/>
    390         <TopLine Value="365"/>
    391         <CursorPos X="5" Y="370"/>
    392         <UsageCount Value="1"/>
    393         <DefaultSyntaxHighlighter Value="Delphi"/>
    394       </Unit33>
    395       <Unit34>
    396         <Filename Value="Compiler\Produce\UProducerGCCC.pas"/>
    397         <UnitName Value="UProducerGCCC"/>
    398         <WindowIndex Value="0"/>
    399         <TopLine Value="26"/>
    400         <CursorPos X="14" Y="39"/>
    401         <UsageCount Value="101"/>
    402         <DefaultSyntaxHighlighter Value="Delphi"/>
    403       </Unit34>
    404       <Unit35>
    405         <Filename Value="Forms\UMainForm.lfm"/>
    406         <WindowIndex Value="0"/>
    407         <TopLine Value="1"/>
    408         <CursorPos X="1" Y="1"/>
    409         <UsageCount Value="136"/>
    410         <Loaded Value="True"/>
    411         <DefaultSyntaxHighlighter Value="LFM"/>
    412       </Unit35>
    413       <Unit36>
    414         <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\registry.pp"/>
    415         <UnitName Value="registry"/>
    416         <WindowIndex Value="0"/>
    417         <TopLine Value="1"/>
    418         <CursorPos X="36" Y="55"/>
    419         <UsageCount Value="14"/>
    420         <DefaultSyntaxHighlighter Value="Delphi"/>
    421       </Unit36>
    422       <Unit37>
    423         <Filename Value="E:\usr\share\fpcsrc\packages\fcl-registry\src\regdef.inc"/>
    424         <WindowIndex Value="0"/>
    425         <TopLine Value="1"/>
    426         <CursorPos X="3" Y="21"/>
    427         <UsageCount Value="14"/>
    428         <DefaultSyntaxHighlighter Value="Delphi"/>
    429       </Unit37>
    430       <Unit38>
    431         <Filename Value="E:\lazarus\trunk\lcl\interfaces\gtk2\gtk2widgetset.inc"/>
    432         <WindowIndex Value="0"/>
    433         <TopLine Value="1377"/>
    434         <CursorPos X="32" Y="1396"/>
    435         <UsageCount Value="14"/>
    436         <DefaultSyntaxHighlighter Value="Delphi"/>
    437       </Unit38>
    438       <Unit39>
    439         <Filename Value="Generics\Generic\GenericObjectList.inc"/>
    440         <WindowIndex Value="0"/>
    441         <TopLine Value="27"/>
    442         <CursorPos X="84" Y="48"/>
    443         <UsageCount Value="8"/>
    444         <DefaultSyntaxHighlighter Value="Delphi"/>
    445       </Unit39>
    446       <Unit40>
    447         <Filename Value="Generics\Generic\GenericList.inc"/>
    448         <WindowIndex Value="0"/>
    449         <TopLine Value="100"/>
    450         <CursorPos X="43" Y="102"/>
    451         <UsageCount Value="8"/>
    452         <DefaultSyntaxHighlighter Value="Delphi"/>
    453       </Unit40>
    454       <Unit41>
    455         <Filename Value="E:\Projekty\PascalClassLibrary\Docking\CoolDocking\UCoolDockStyleTabs.pas"/>
    456         <UnitName Value="UCoolDockStyleTabs"/>
    457         <WindowIndex Value="0"/>
    458         <TopLine Value="1"/>
    459         <CursorPos X="44" Y="6"/>
    460         <UsageCount Value="12"/>
    461         <DefaultSyntaxHighlighter Value="Delphi"/>
    462       </Unit41>
    463       <Unit42>
    464         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\win32\system.pp"/>
    465         <UnitName Value="System"/>
    466         <WindowIndex Value="0"/>
    467         <TopLine Value="22"/>
    468         <CursorPos X="2" Y="35"/>
    469         <UsageCount Value="12"/>
    470         <DefaultSyntaxHighlighter Value="Delphi"/>
    471       </Unit42>
    472       <Unit43>
    473         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    474         <WindowIndex Value="0"/>
    475         <TopLine Value="1"/>
    476         <CursorPos X="23" Y="5"/>
    477         <UsageCount Value="84"/>
    478         <DefaultSyntaxHighlighter Value="Delphi"/>
    479       </Unit43>
    480       <Unit44>
    481         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\sysutils\sysstrh.inc"/>
    482         <WindowIndex Value="0"/>
    483         <TopLine Value="107"/>
    484         <CursorPos X="10" Y="120"/>
    485         <UsageCount Value="72"/>
    486         <DefaultSyntaxHighlighter Value="Delphi"/>
    487       </Unit44>
    488       <Unit45>
    489         <Filename Value="Compiler\Produce\UProducer.pas"/>
    490         <UnitName Value="UProducer"/>
    491         <WindowIndex Value="0"/>
    492         <TopLine Value="1"/>
    493         <CursorPos X="1" Y="12"/>
    494         <UsageCount Value="71"/>
    495         <DefaultSyntaxHighlighter Value="Delphi"/>
    496       </Unit45>
    497       <Unit46>
    498         <Filename Value="..\Compiler\UCompiler.pas"/>
    499         <UnitName Value="UCompiler"/>
    500         <WindowIndex Value="0"/>
    501         <TopLine Value="43"/>
    502         <CursorPos X="31" Y="56"/>
    503         <UsageCount Value="42"/>
    504         <DefaultSyntaxHighlighter Value="Delphi"/>
    505       </Unit46>
    506       <Unit47>
    507         <Filename Value="..\Compiler\Produce\UProducer.pas"/>
    508         <UnitName Value="UProducer"/>
    509         <WindowIndex Value="0"/>
    510         <TopLine Value="1"/>
    511         <CursorPos X="56" Y="9"/>
    512         <UsageCount Value="32"/>
    513         <DefaultSyntaxHighlighter Value="Delphi"/>
    514       </Unit47>
    515       <Unit48>
    516         <Filename Value="..\Compiler\Analyze\UAnalyzer.pas"/>
    517         <UnitName Value="UAnalyzer"/>
    518         <WindowIndex Value="0"/>
    519         <TopLine Value="1"/>
    520         <CursorPos X="46" Y="10"/>
    521         <UsageCount Value="41"/>
    522         <DefaultSyntaxHighlighter Value="Delphi"/>
    523       </Unit48>
    524       <Unit49>
    525         <Filename Value="..\Compiler\Analyze\UAnalyzerPascal.pas"/>
    526         <UnitName Value="UAnalyzerPascal"/>
    527         <WindowIndex Value="0"/>
    528         <TopLine Value="877"/>
    529         <CursorPos X="65" Y="890"/>
    530         <UsageCount Value="41"/>
    531         <DefaultSyntaxHighlighter Value="Delphi"/>
    532       </Unit49>
    533       <Unit50>
    534         <Filename Value="..\Compiler\Produce\UProducerPascal.pas"/>
    535         <UnitName Value="UProducerPascal"/>
    536         <WindowIndex Value="0"/>
    537         <TopLine Value="248"/>
    538         <CursorPos X="37" Y="261"/>
    539         <UsageCount Value="41"/>
    540         <DefaultSyntaxHighlighter Value="Delphi"/>
    541       </Unit50>
    542       <Unit51>
    543         <Filename Value="..\Compiler\Produce\UProducerDynamicC.pas"/>
    544         <UnitName Value="UProducerDynamicC"/>
    545         <WindowIndex Value="0"/>
    546         <TopLine Value="10"/>
    547         <CursorPos X="40" Y="23"/>
    548         <UsageCount Value="29"/>
    549         <DefaultSyntaxHighlighter Value="Delphi"/>
    550       </Unit51>
    551       <Unit52>
    552         <Filename Value="..\Compiler\Produce\UProducerAsm8051.pas"/>
    553         <UnitName Value="UProducerAsm8051"/>
    554         <WindowIndex Value="0"/>
    555         <TopLine Value="107"/>
    556         <CursorPos X="22" Y="110"/>
    557         <UsageCount Value="4"/>
    558         <DefaultSyntaxHighlighter Value="Delphi"/>
    559       </Unit52>
    560       <Unit53>
    561         <Filename Value="..\Compiler\Produce\UProducerGCCC.pas"/>
    562         <UnitName Value="UProducerGCCC"/>
    563         <WindowIndex Value="0"/>
    564         <TopLine Value="16"/>
    565         <CursorPos X="33" Y="26"/>
    566         <UsageCount Value="11"/>
    567         <DefaultSyntaxHighlighter Value="Delphi"/>
    568       </Unit53>
    569       <Unit54>
    570         <Filename Value="..\Compiler\USourceCode.pas"/>
    571         <UnitName Value="USourceCode"/>
    572         <WindowIndex Value="0"/>
    573         <TopLine Value="1"/>
    574         <CursorPos X="45" Y="9"/>
    575         <UsageCount Value="41"/>
    576         <DefaultSyntaxHighlighter Value="Delphi"/>
    577       </Unit54>
    578       <Unit55>
    579         <Filename Value="..\Compiler\TranspascalCompiler.pas"/>
    580         <UnitName Value="TranspascalCompiler"/>
    581         <WindowIndex Value="0"/>
    582         <TopLine Value="1"/>
    583         <CursorPos X="55" Y="19"/>
    584         <UsageCount Value="4"/>
    585         <DefaultSyntaxHighlighter Value="Delphi"/>
    586       </Unit55>
    587       <Unit56>
    588         <Filename Value="..\Compiler\Analyze\UGrammer.pas"/>
    589         <UnitName Value="UGrammer"/>
    590         <WindowIndex Value="0"/>
    591         <TopLine Value="1"/>
    592         <CursorPos X="26" Y="5"/>
    593         <UsageCount Value="4"/>
    594         <DefaultSyntaxHighlighter Value="Delphi"/>
    595       </Unit56>
    596       <Unit57>
    597         <Filename Value="..\Compiler\Analyze\UAnalyzers.pas"/>
    598         <UnitName Value="UAnalyzers"/>
    599         <WindowIndex Value="0"/>
    600         <TopLine Value="1"/>
    601         <CursorPos X="37" Y="12"/>
    602         <UsageCount Value="30"/>
    603         <DefaultSyntaxHighlighter Value="Delphi"/>
    604       </Unit57>
    605       <Unit58>
    606         <Filename Value="..\Compiler\Produce\UProducers.pas"/>
    607         <UnitName Value="UProducers"/>
    608         <WindowIndex Value="0"/>
    609         <TopLine Value="12"/>
    610         <CursorPos X="38" Y="26"/>
    611         <UsageCount Value="30"/>
    612         <DefaultSyntaxHighlighter Value="Delphi"/>
    613       </Unit58>
    614       <Unit59>
    615         <Filename Value="E:\Programy\Lazarus\lcl\stdctrls.pp"/>
    616         <UnitName Value="StdCtrls"/>
    617         <WindowIndex Value="0"/>
    618         <TopLine Value="250"/>
    619         <CursorPos X="15" Y="368"/>
    620         <UsageCount Value="12"/>
    621         <DefaultSyntaxHighlighter Value="Delphi"/>
    622       </Unit59>
    623       <Unit60>
    624         <Filename Value="E:\Programy\Lazarus\lcl\include\fileutil.inc"/>
    625         <WindowIndex Value="0"/>
    626         <TopLine Value="628"/>
    627         <CursorPos X="1" Y="649"/>
    628         <UsageCount Value="30"/>
    629         <DefaultSyntaxHighlighter Value="Delphi"/>
    630       </Unit60>
    631       <Unit61>
    632         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericObjectList.inc"/>
    633         <WindowIndex Value="0"/>
    634         <TopLine Value="70"/>
    635         <CursorPos X="1" Y="78"/>
    636         <UsageCount Value="13"/>
    637         <DefaultSyntaxHighlighter Value="Delphi"/>
    638       </Unit61>
    639       <Unit62>
    640         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedObjectList.pas"/>
    641         <UnitName Value="SpecializedObjectList"/>
    642         <WindowIndex Value="0"/>
    643         <TopLine Value="1"/>
    644         <CursorPos X="1" Y="1"/>
    645         <UsageCount Value="10"/>
    646         <DefaultSyntaxHighlighter Value="Delphi"/>
    647       </Unit62>
    648       <Unit63>
    649         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\classesh.inc"/>
    650         <WindowIndex Value="0"/>
    651         <TopLine Value="284"/>
    652         <CursorPos X="15" Y="297"/>
    653         <UsageCount Value="18"/>
    654         <DefaultSyntaxHighlighter Value="Delphi"/>
    655       </Unit63>
    656       <Unit64>
    657         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\stringl.inc"/>
    658         <WindowIndex Value="0"/>
    659         <TopLine Value="428"/>
    660         <CursorPos X="3" Y="441"/>
    661         <UsageCount Value="15"/>
    662         <DefaultSyntaxHighlighter Value="Delphi"/>
    663       </Unit64>
    664       <Unit65>
    665         <Filename Value="E:\Programy\Lazarus\components\synedit\synedit.pp"/>
    666         <UnitName Value="SynEdit"/>
    667         <WindowIndex Value="0"/>
    668         <TopLine Value="4144"/>
    669         <CursorPos X="21" Y="4146"/>
    670         <UsageCount Value="14"/>
    671         <DefaultSyntaxHighlighter Value="Delphi"/>
    672       </Unit65>
    673       <Unit66>
    674         <Filename Value="E:\Programy\Lazarus\components\synedit\syneditmiscclasses.pp"/>
    675         <UnitName Value="SynEditMiscClasses"/>
    676         <WindowIndex Value="0"/>
    677         <TopLine Value="93"/>
    678         <CursorPos X="43" Y="112"/>
    679         <UsageCount Value="14"/>
    680         <DefaultSyntaxHighlighter Value="Delphi"/>
    681       </Unit66>
    682       <Unit67>
    683         <Filename Value="E:\Programy\Lazarus\lcl\include\treeview.inc"/>
    684         <WindowIndex Value="0"/>
    685         <TopLine Value="60"/>
    686         <CursorPos X="1" Y="73"/>
    687         <UsageCount Value="11"/>
    688         <DefaultSyntaxHighlighter Value="Delphi"/>
    689       </Unit67>
    690       <Unit68>
    691         <Filename Value="E:\Programy\Lazarus\lcl\comctrls.pp"/>
    692         <UnitName Value="ComCtrls"/>
    693         <WindowIndex Value="0"/>
    694         <TopLine Value="2650"/>
    695         <CursorPos X="27" Y="2663"/>
    696         <UsageCount Value="11"/>
    697         <DefaultSyntaxHighlighter Value="Delphi"/>
    698       </Unit68>
    699       <Unit69>
    700         <Filename Value="E:\Programy\Lazarus\lcl\include\listitem.inc"/>
    701         <WindowIndex Value="0"/>
    702         <TopLine Value="529"/>
    703         <CursorPos X="27" Y="546"/>
    704         <UsageCount Value="11"/>
    705         <DefaultSyntaxHighlighter Value="Delphi"/>
    706       </Unit69>
    707       <Unit70>
    708         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\persist.inc"/>
    709         <WindowIndex Value="0"/>
    710         <TopLine Value="18"/>
    711         <CursorPos X="34" Y="27"/>
    712         <UsageCount Value="10"/>
    713         <DefaultSyntaxHighlighter Value="Delphi"/>
    714       </Unit70>
    715       <Unit71>
    716         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\rtlconst.inc"/>
    717         <WindowIndex Value="0"/>
    718         <TopLine Value="21"/>
    719         <CursorPos X="3" Y="34"/>
    720         <UsageCount Value="10"/>
    721         <DefaultSyntaxHighlighter Value="Delphi"/>
    722       </Unit71>
    723       <Unit72>
    724         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\packages\fcl-base\src\contnrs.pp"/>
    725         <UnitName Value="contnrs"/>
    726         <WindowIndex Value="0"/>
    727         <TopLine Value="59"/>
    728         <CursorPos X="26" Y="72"/>
    729         <UsageCount Value="12"/>
    730         <DefaultSyntaxHighlighter Value="Delphi"/>
    731       </Unit72>
    732       <Unit73>
    733         <Filename Value="E:\Programy\Lazarus\fpc\2.4.3\source\rtl\objpas\classes\lists.inc"/>
    734         <WindowIndex Value="0"/>
    735         <TopLine Value="841"/>
    736         <CursorPos X="3" Y="843"/>
    737         <UsageCount Value="12"/>
    738         <DefaultSyntaxHighlighter Value="Delphi"/>
    739       </Unit73>
    740       <Unit74>
    741         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedList.pas"/>
    742         <UnitName Value="SpecializedList"/>
    743         <WindowIndex Value="0"/>
    744         <TopLine Value="28"/>
    745         <CursorPos X="1" Y="1"/>
    746         <UsageCount Value="12"/>
    747         <DefaultSyntaxHighlighter Value="Delphi"/>
    748       </Unit74>
    749       <Unit75>
    750         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericMatrix.inc"/>
    751         <WindowIndex Value="0"/>
    752         <TopLine Value="14"/>
    753         <CursorPos X="31" Y="21"/>
    754         <UsageCount Value="11"/>
    755         <DefaultSyntaxHighlighter Value="Delphi"/>
    756       </Unit75>
    757       <Unit76>
    758         <Filename Value="E:\Projekty\PascalClassLibrary\Generics\TemplateGenerics\Specialized\SpecializedMatrix.pas"/>
    759         <UnitName Value="SpecializedMatrix"/>
    760         <WindowIndex Value="0"/>
    761         <TopLine Value="1"/>
    762         <CursorPos X="1" Y="1"/>
    763         <UsageCount Value="11"/>
    764         <DefaultSyntaxHighlighter Value="Delphi"/>
    765       </Unit76>
    766       <Unit77>
    767         <Filename Value="..\..\..\FreePascalManager\trunk\Instance\1\Lazarus\lcl\include\control.inc"/>
    768         <WindowIndex Value="0"/>
    769         <TopLine Value="3171"/>
    770         <CursorPos X="1" Y="3187"/>
    771         <UsageCount Value="10"/>
    772         <DefaultSyntaxHighlighter Value="Delphi"/>
    773       </Unit77>
    774       <Unit78>
    775         <Filename Value="..\..\..\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\gtk2\gtk2listviewtreemodel.pas"/>
    776         <UnitName Value="Gtk2ListViewTreeModel"/>
    777         <WindowIndex Value="0"/>
    778         <TopLine Value="198"/>
    779         <CursorPos X="57" Y="219"/>
    780         <UsageCount Value="10"/>
    781         <DefaultSyntaxHighlighter Value="Delphi"/>
    782       </Unit78>
    783       <Unit79>
    784         <Filename Value="..\..\..\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\gtk2\gtk2proc.inc"/>
    785         <WindowIndex Value="0"/>
    786         <TopLine Value="3618"/>
    787         <CursorPos X="54" Y="3631"/>
    788         <UsageCount Value="10"/>
    789         <DefaultSyntaxHighlighter Value="Delphi"/>
    790       </Unit79>
    791       <Unit80>
    792         <Filename Value="..\..\..\PascalClassLibrary\Docking\CoolDocking\Managers\UCDManagerTabs.pas"/>
    793         <UnitName Value="UCDManagerTabs"/>
    794         <WindowIndex Value="0"/>
    795         <TopLine Value="172"/>
    796         <CursorPos X="1" Y="188"/>
    797         <UsageCount Value="10"/>
    798       </Unit80>
    799       <Unit81>
    800         <Filename Value="..\..\..\FreePascalManager\trunk\Instance\1\Lazarus\lcl\interfaces\gtk2\gtk2wsforms.pp"/>
    801         <UnitName Value="Gtk2WSForms"/>
    802         <WindowIndex Value="0"/>
    803         <TopLine Value="123"/>
    804         <CursorPos X="30" Y="131"/>
    805         <UsageCount Value="10"/>
    806         <DefaultSyntaxHighlighter Value="Delphi"/>
    807       </Unit81>
    808       <Unit82>
    809         <Filename Value="..\..\..\..\lazarus\lcl\interfaces\gtk2\gtk2lclintf.inc"/>
    810         <EditorIndex Value="0"/>
    811         <WindowIndex Value="0"/>
    812         <TopLine Value="789"/>
    813         <CursorPos X="43" Y="806"/>
    814         <UsageCount Value="13"/>
    815         <Loaded Value="True"/>
    816       </Unit82>
    817       <Unit83>
    818         <Filename Value="..\..\..\PascalClassLibrary\Generics\TemplateGenerics\Generic\GenericList.inc"/>
    819         <WindowIndex Value="0"/>
    820         <TopLine Value="11"/>
    821         <CursorPos X="1" Y="28"/>
    822         <UsageCount Value="10"/>
    823       </Unit83>
    824       <Unit84>
    825         <Filename Value="..\..\..\PascalClassLibrary\Docking\CoolDocking\UCDManager.pas"/>
    826         <UnitName Value="UCDManager"/>
    827         <WindowIndex Value="0"/>
    828         <TopLine Value="674"/>
    829         <CursorPos X="57" Y="691"/>
    830         <UsageCount Value="12"/>
    831       </Unit84>
    832       <Unit85>
    833         <Filename Value="..\..\..\..\lazarus\lcl\include\customcontrol.inc"/>
    834         <WindowIndex Value="0"/>
    835         <TopLine Value="62"/>
    836         <CursorPos X="1" Y="79"/>
    837         <UsageCount Value="12"/>
    838       </Unit85>
    839       <Unit86>
    840         <Filename Value="..\..\..\..\lazarus\lcl\include\wincontrol.inc"/>
    841         <WindowIndex Value="0"/>
    842         <TopLine Value="7596"/>
    843         <CursorPos X="1" Y="7613"/>
    844         <UsageCount Value="12"/>
    845       </Unit86>
    846       <Unit87>
    847         <Filename Value="..\..\..\..\lazarus\lcl\interfaces\gtk2\gtk2callback.inc"/>
    848         <WindowIndex Value="0"/>
    849         <TopLine Value="1727"/>
    850         <CursorPos X="21" Y="1743"/>
    851         <UsageCount Value="12"/>
    852       </Unit87>
    853       <Unit88>
    854         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Produce\UProducerDynamicC.pas"/>
    855         <UnitName Value="UProducerDynamicC"/>
    856         <EditorIndex Value="7"/>
    857         <WindowIndex Value="0"/>
    858         <TopLine Value="79"/>
    859         <CursorPos X="26" Y="133"/>
    860         <UsageCount Value="13"/>
    861         <Loaded Value="True"/>
    862       </Unit88>
    863       <Unit89>
    864         <Filename Value="..\..\..\..\lazarus\lcl\include\dragmanager.inc"/>
    865         <EditorIndex Value="8"/>
    866         <WindowIndex Value="0"/>
    867         <TopLine Value="549"/>
    868         <CursorPos X="84" Y="553"/>
    869         <UsageCount Value="13"/>
    870         <Loaded Value="True"/>
    871       </Unit89>
    872       <Unit90>
    873         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Analyze\UAnalyzer.pas"/>
    874         <UnitName Value="UAnalyzer"/>
    875         <EditorIndex Value="9"/>
    876         <WindowIndex Value="0"/>
    877         <TopLine Value="1"/>
    878         <CursorPos X="1" Y="1"/>
    879         <UsageCount Value="13"/>
    880         <Loaded Value="True"/>
    881       </Unit90>
    882       <Unit91>
    883         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\USourceCode.pas"/>
    884         <UnitName Value="USourceCode"/>
    885         <IsVisibleTab Value="True"/>
    886         <EditorIndex Value="10"/>
    887         <WindowIndex Value="0"/>
    888         <TopLine Value="909"/>
    889         <CursorPos X="6" Y="46"/>
    890         <UsageCount Value="13"/>
    891         <Loaded Value="True"/>
    892       </Unit91>
    893       <Unit92>
    894         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Analyze\UAnalyzerPascal.pas"/>
    895         <UnitName Value="UAnalyzerPascal"/>
    896         <EditorIndex Value="11"/>
    897         <WindowIndex Value="0"/>
    898         <TopLine Value="1408"/>
    899         <CursorPos X="57" Y="1428"/>
    900         <UsageCount Value="13"/>
    901         <Loaded Value="True"/>
    902       </Unit92>
    903       <Unit93>
    904         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\UCompiler.pas"/>
    905         <UnitName Value="UCompiler"/>
    906         <EditorIndex Value="2"/>
    907         <WindowIndex Value="0"/>
    908         <TopLine Value="20"/>
    909         <CursorPos X="15" Y="37"/>
    910         <UsageCount Value="11"/>
    911         <Loaded Value="True"/>
    912       </Unit93>
    913       <Unit94>
    914         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Produce\UProducerGCCC.pas"/>
    915         <UnitName Value="UProducerGCCC"/>
    916         <EditorIndex Value="5"/>
    917         <WindowIndex Value="0"/>
    918         <TopLine Value="62"/>
    919         <CursorPos X="1" Y="1"/>
    920         <UsageCount Value="11"/>
    921         <Loaded Value="True"/>
    922       </Unit94>
    923       <Unit95>
    924         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Produce\UProducers.pas"/>
    925         <UnitName Value="UProducers"/>
    926         <EditorIndex Value="6"/>
    927         <WindowIndex Value="0"/>
    928         <TopLine Value="1"/>
    929         <CursorPos X="55" Y="20"/>
    930         <UsageCount Value="11"/>
    931         <Loaded Value="True"/>
    932       </Unit95>
    933       <Unit96>
    934         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Produce\UProducer.pas"/>
    935         <UnitName Value="UProducer"/>
    936         <EditorIndex Value="3"/>
    937         <WindowIndex Value="0"/>
    938         <TopLine Value="1"/>
    939         <CursorPos X="3" Y="15"/>
    940         <UsageCount Value="11"/>
    941         <Loaded Value="True"/>
    942       </Unit96>
    943195    </Units>
    944     <JumpHistory Count="8" HistoryIndex="7">
    945       <Position1>
    946         <Filename Value="..\..\..\..\lazarus\lcl\interfaces\gtk2\gtk2lclintf.inc"/>
    947         <Caret Line="802" Column="12" TopLine="789"/>
    948       </Position1>
    949       <Position2>
    950         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\Produce\UProducerDynamicC.pas"/>
    951         <Caret Line="133" Column="26" TopLine="79"/>
    952       </Position2>
    953       <Position3>
    954         <Filename Value="Forms\UMainForm.pas"/>
    955         <Caret Line="183" Column="41" TopLine="170"/>
    956       </Position3>
    957       <Position4>
    958         <Filename Value="Transpascal.lpr"/>
    959         <Caret Line="22" Column="3" TopLine="1"/>
    960       </Position4>
    961       <Position5>
    962         <Filename Value="Forms\UMainForm.pas"/>
    963         <Caret Line="184" Column="41" TopLine="171"/>
    964       </Position5>
    965       <Position6>
    966         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\UCompiler.pas"/>
    967         <Caret Line="12" Column="1" TopLine="1"/>
    968       </Position6>
    969       <Position7>
    970         <Filename Value="..\..\..\Transpascal2\trunk\Compiler\UCompiler.pas"/>
    971         <Caret Line="54" Column="67" TopLine="21"/>
    972       </Position7>
    973       <Position8>
    974         <Filename Value="Forms\UMainForm.pas"/>
    975         <Caret Line="272" Column="3" TopLine="255"/>
    976       </Position8>
    977     </JumpHistory>
    978196  </ProjectOptions>
    979197  <CompilerOptions>
    980     <Version Value="10"/>
     198    <Version Value="11"/>
    981199    <PathDelim Value="\"/>
     200    <Target>
     201      <Filename Value="Transpascal"/>
     202    </Target>
    982203    <SearchPaths>
    983204      <IncludeFiles Value="$(ProjOutDir)"/>
    … …  
    1003224    <Linking>
    1004225      <Debugging>
    1005         <GenerateDebugInfo Value="True"/>
     226        <UseHeaptrc Value="True"/>
     227        <UseExternalDbgSyms Value="True"/>
    1006228      </Debugging>
    1007229      <Options>

  • trunk/IDE/Transpascal.lpr

    r30 r34  
    77  cthreads,
    88  {$ENDIF}{$ENDIF}
    9   Forms, CoolDocking, Interfaces, SysUtils,
     9  Forms, Interfaces, SysUtils,
    1010  UMainForm in 'UMainForm.pas' {MainForm},
    11   UTextSource in 'UTextSource.pas', UProject, UApplicationInfo, URegistry,
    12   ULastOpenedList, UDebugLog, TranspascalCompiler, UProjectManager, UCodeForm,
    13   UMessagesForm, UCompiledForm, UCodeTreeForm, TemplateGenerics;
     11  UTextSource, UProject, UApplicationInfo, URegistry, ULastOpenedList,
     12  UDebugLog, TranspascalCompiler, UProjectManager, UCodeForm, UMessagesForm,
     13  UCompiledForm, UCodeTreeForm, TemplateGenerics, Common, UAboutForm;
    1414
    1515{$R *.res}
    … …  
    3131  Application.CreateForm(TCompiledForm, CompiledForm);
    3232  Application.CreateForm(TCodeTreeForm, CodeTreeForm);
     33  Application.CreateForm(TAboutForm, AboutForm);
    3334  Application.Run;
    3435end.

  • trunk/IDE/UApplicationInfo.pas

    r24 r34  
    1616  TApplicationInfo = class
    1717  private
    18     function GetVersion:string;
     18    function GetVersion: string;
    1919  public
    2020    Name: string;
    … …  
    2323    MinorVersion: Byte;
    2424    BugFixVersion: Byte;
     25    VersionSufix: string; // alfa, beta, RC1, RC2, ...
    2526    CompanyName: string;
    2627    CompanyHomePage: string;
    2728    HomePage: string;
    28     AuthorName: string;
     29    AuthorsName: string;
    2930    EmailContact: string;
    30     ReleaseDate: string;
     31    ReleaseDate: TDateTime;
     32    RegistryKey: string;
    3133    property Version: string read GetVersion;
    3234  end;
    … …  
    3941{ TApplicationInfo }
    4042
    41 function TApplicationInfo.GetVersion:string;
     43function TApplicationInfo.GetVersion: string;
    4244begin
    43   Result := IntToStr(MajorVersion) + '.' + IntToStr(MinorVersion) +
    44     '.' + IntToStr(BugFixVersion);
     45  Result := IntToStr(MajorVersion) + '.' + IntToStr(MinorVersion);
     46  if VersionSufix <> '' then Result := Result + ' ' + VersionSufix
     47    else Result := Result + '.' + IntToStr(BugFixVersion);
    4548end;
    4649
    … …  
    5255  Name := 'Transpascal IDE';
    5356  Identification := 1;
    54   ReleaseDate := '22.10.2010';
     57  ReleaseDate := EncodeDate(2012, 2, 13);
    5558  MajorVersion := 0;
    5659  MinorVersion := 1;
    5760  BugFixVersion := 0;
    58   CompanyName := '';
    59   CompanyHomepage := '';
    60   HomePage := '';
    61   AuthorName := 'Chronos';
    62   EmailContact := '';
     61  VersionSufix := 'alfa';
     62  CompanyName := 'Chronosoft';
     63  CompanyHomepage := 'http://svn.zdechov.net/trac/LazFuck';
     64  HomePage := 'http://svn.zdechov.net/trac/LazFuck';
     65  AuthorsName := 'Chronos';
     66  EmailContact := 'robie@centrum.cz';
     67  RegistryKey := '\Software\Chronosoft\Transpascal';
    6368end;
    6469
Note: See TracChangeset for help on using the changeset viewer.