Changeset 34 for trunk/IDE/Forms


Ignore:
Timestamp:
Feb 13, 2012, 1:47:33 PM (13 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:
7 added
9 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);
Note: See TracChangeset for help on using the changeset viewer.