Changeset 61 for branches/Transpascal


Ignore:
Timestamp:
Oct 14, 2010, 2:30:40 PM (15 years ago)
Author:
george
Message:
  • Added: Separated dockable windows.
Location:
branches/Transpascal
Files:
6 added
2 deleted
4 edited

Legend:

Unmodified
Added
Removed

  • branches/Transpascal/Forms/UMainForm.lfm

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

  • branches/Transpascal/Forms/UMainForm.pas

    r60 r61  
    77uses
    88  SysUtils, Variants, Classes, Graphics, Controls, Forms,
    9   Dialogs, StdCtrls, USourceCode, UCompiler, UProducerAsm8051,
     9  Dialogs, StdCtrls, UCompiler, UProducerAsm8051,
    1010  UProducerC, ComCtrls, ExtCtrls, SynEdit, SynHighlighterPas, UProducerTreeView,
    11   UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList;
     11  UProducerPascal, Contnrs, UProject, FileUtil, Menus, ActnList, UCoolDocking;
    1212
    1313const
    … …  
    1818
    1919  TMainForm = class(TForm)
     20    ABuild: TAction;
    2021    AProjectNew: TAction;
    2122    AProjectOpen: TAction;
    … …  
    2425    AProjectClose: TAction;
    2526    ActionList1: TActionList;
    26     ButtonCompile: TButton;
     27    Button1: TButton;
    2728    ComboBox1: TComboBox;
    28     ListBoxMessages: TListBox;
     29    CoolDockClient1: TCoolDockClient;
     30    CoolDockMaster1: TCoolDockMaster;
    2931    MainMenu1: TMainMenu;
    3032    MenuItem1: TMenuItem;
    … …  
    3436    MenuItem5: TMenuItem;
    3537    MenuItem6: TMenuItem;
    36     Panel1: TPanel;
    37     Panel2: TPanel;
    38     Panel3: TPanel;
    39     Splitter1: TSplitter;
    40     Splitter2: TSplitter;
     38    MenuItem7: TMenuItem;
     39    MenuItem8: TMenuItem;
     40    DockPanel: TPanel;
    4141    Splitter3: TSplitter;
    42     SynEditSource: TSynEdit;
    43     SynPasSyn1: TSynPasSyn;
    44     TreeViewProject: TTreeView;
     42    ToolBar1: TToolBar;
    4543    procedure ComboBox1Change(Sender: TObject);
    4644    procedure FormShow(Sender: TObject);
    … …  
    5957    procedure UpdateProjectGroup(Node: TTreeNode; Group: TProjectGroup);
    6058    function GetSource(Name: string; Source: TStringList): Boolean;
     59    procedure DockInit;
    6160  public
    6261    Project: TProject;
    … …  
    7271{$R *.lfm}
    7372
     73uses
     74  UMessagesForm, UCodeForm, UProjectManager;
     75
    7476{ TMainForm }
    7577
    … …  
    9597    Compiler.Producer := TProducerTreeView.Create;
    9698    ProducerControl := TTreeView.Create(Self);
    97     ProducerControl.Parent := Panel1;
     99    ProducerControl.Parent := DockPanel;
    98100    ProducerControl.Align := alClient;
    99101//    TProducerTreeView(Compiler.Producer).TreeView := TTreeView(ProducerControl);
    … …  
    109111  if ComboBox1.ItemIndex = 0 then begin
    110112    ProducerControl := TMemo.Create(Self);
    111     ProducerControl.Parent := Panel1;
     113    ProducerControl.Parent := DockPanel;
    112114    ProducerControl.Align := alClient;
    113115    ProducerControl.Font.Name := 'Courier New';
    … …  
    116118  if ComboBox1.ItemIndex = 1 then begin
    117119    ProducerControl := TMemo.Create(Self);
    118     ProducerControl.Parent := Panel1;
     120    ProducerControl.Parent := DockPanel;
    119121    ProducerControl.Align := alClient;
    120122    ProducerControl.Font.Name := 'Courier New';
    … …  
    123125  if ComboBox1.ItemIndex = 2 then begin
    124126    ProducerControl := TMemo.Create(Self);
    125     ProducerControl.Parent := Panel1;
     127    ProducerControl.Parent := DockPanel;
    126128    ProducerControl.Align := alClient;
    127129    ProducerControl.Font.Name := 'Courier New';
    … …  
    138140  ProjectFile: TProjectFile;
    139141begin
     142  with MessagesForm, CodeForm do
    140143  if ListBoxMessages.ItemIndex <> -1 then
    141144  with TErrorMessage(Compiler.ErrorMessages[ListBoxMessages.ItemIndex]) do begin
    … …  
    163166  I: Integer;
    164167begin
    165   ListBoxMessages.Clear;
    166   for I := 0 to Compiler.ErrorMessages.Count - 1 do
    167   with TErrorMessage(Compiler.ErrorMessages[I]) do
    168     MainForm.ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
    169       ',' + IntToStr(Position.Y) + ') ' + Text);
    170 end;
    171 
    172 procedure TMainForm.TreeViewProjectChange(Sender: TObject; Node: TTreeNode);
    173 var
    174   FileName: string;
    175 begin
    176   if Assigned(Node) then begin
    177     if TProjectNode(Node.Data) is TProjectFile then begin
    178       SynEditSource.Lines.Assign(TProjectFile(Node.Data).Source);
    179       FileName := Compiler.CompiledFolder + DirectorySeparator +
    180         Compiler.Producer.ClassName + DirectorySeparator + ExtractFileNameOnly(TProjectFile(Node.Data).Name) + Compiler.Producer.FileExtension;
    181       if ProducerControl is TMemo then
    182         if FileExists(FileName) then
    183         TMemo(ProducerControl).Lines.LoadFromFile(FileName) else
    184           TMemo(ProducerControl).Lines.Clear;
    185       //if ProducerControl is TTreeView then
    186       //  TTreeView(ProducerControl).Assign(TProjectFile(Node.Data).ProducedCode);
    187     end;
     168  with MessagesForm do begin
     169    ListBoxMessages.Clear;
     170    for I := 0 to Compiler.ErrorMessages.Count - 1 do
     171    with TErrorMessage(Compiler.ErrorMessages[I]) do
     172      ListBoxMessages.Items.Add(FileName + '(' + IntToStr(Position.X) +
     173        ',' + IntToStr(Position.Y) + ') ' + Text);
    188174  end;
    189175end;
    … …  
    193179  NewNode: TTreeNode;
    194180begin
    195   with TreeViewProject, Items do begin
     181  with ProjectManager, TreeViewProject, Items do begin
    196182    BeginUpdate;
    197183    Clear;
    … …  
    200186    NewNode.Expand(True);
    201187    EndUpdate;
    202   end;
    203   TreeViewProject.TopItem.Items[0].Selected := True;
     188    TreeViewProject.TopItem.Items[0].Selected := True;
     189  end;
    204190end;
    205191
    … …  
    209195  NewNode: TTreeNode;
    210196begin
     197  with ProjectManager do
    211198  for I := 0 to Group.Items.Count - 1 do begin
    212199    NewNode := TreeViewProject.Items.AddChild(Node,
    … …  
    229216end;
    230217
     218procedure TMainForm.DockInit;
     219var
     220  Container1: TCoolDockConjoinForm;
     221begin
     222  ProjectManager.ManualDock(DockPanel, nil, alLeft);
     223  ProjectManager.Show;
     224
     225  Container1 := TCoolDockManager(DockPanel.DockManager).CreateContainer(alRight);
     226  Container1.Caption := 'Tools';
     227  Container1.Name := 'Tools';
     228  Container1.ManualDock(DockPanel, nil, alRight);
     229
     230  CodeForm.ManualDock(Container1.Panel, nil, alTop);
     231  CodeForm.Show;
     232  MessagesForm.ManualDock(Container1.Panel, nil, alBottom);
     233  MessagesForm.Show;
     234
     235  ProjectManager.Parent.Parent.Width := 200;
     236  CodeForm.Parent.Parent.Height := MainForm.Height;
     237end;
     238
    231239procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
    232240begin
    … …  
    250258  NewProjectFile: TProjectFile;
    251259begin
     260  DockInit;
     261
    252262  Project.RootDir := '../../Project/';
    253263  Project.Name := 'Project';

  • branches/Transpascal/Transpascal.lpi

    r60 r61  
    4646      </Item4>
    4747    </RequiredPackages>
    48     <Units Count="27">
     48    <Units Count="29">
    4949      <Unit0>
    5050        <Filename Value="Transpascal.lpr"/>
    … …  
    5353        <EditorIndex Value="4"/>
    5454        <WindowIndex Value="0"/>
    55         <TopLine Value="1"/>
    56         <CursorPos X="35" Y="9"/>
    57         <UsageCount Value="164"/>
     55        <TopLine Value="2"/>
     56        <CursorPos X="35" Y="24"/>
     57        <UsageCount Value="165"/>
    5858        <Loaded Value="True"/>
    5959      </Unit0>
    … …  
    6565        <ResourceBaseClass Value="Form"/>
    6666        <UnitName Value="UMainForm"/>
    67         <EditorIndex Value="0"/>
    68         <WindowIndex Value="0"/>
    69         <TopLine Value="1"/>
    70         <CursorPos X="34" Y="9"/>
    71         <UsageCount Value="164"/>
     67        <EditorIndex Value="3"/>
     68        <WindowIndex Value="0"/>
     69        <TopLine Value="175"/>
     70        <CursorPos X="1" Y="176"/>
     71        <UsageCount Value="165"/>
    7272        <Loaded Value="True"/>
    73         <LoadedDesigner Value="True"/>
    7473      </Unit1>
    7574      <Unit2>
    … …  
    7776        <IsPartOfProject Value="True"/>
    7877        <UnitName Value="UTextSource"/>
    79         <EditorIndex Value="2"/>
    8078        <WindowIndex Value="0"/>
    8179        <TopLine Value="1"/>
    8280        <CursorPos X="1" Y="6"/>
    83         <UsageCount Value="164"/>
    84         <Loaded Value="True"/>
     81        <UsageCount Value="165"/>
    8582      </Unit2>
    8683      <Unit3>
    … …  
    211208        <IsPartOfProject Value="True"/>
    212209        <UnitName Value="UProject"/>
    213         <EditorIndex Value="3"/>
    214         <WindowIndex Value="0"/>
    215         <TopLine Value="97"/>
    216         <CursorPos X="1" Y="110"/>
    217         <UsageCount Value="36"/>
    218         <Loaded Value="True"/>
     210        <WindowIndex Value="0"/>
     211        <TopLine Value="1"/>
     212        <CursorPos X="6" Y="1"/>
     213        <UsageCount Value="37"/>
    219214      </Unit19>
    220215      <Unit20>
    … …  
    228223        <Filename Value="Compiler\TranspascalCompiler.pas"/>
    229224        <UnitName Value="TranspascalCompiler"/>
    230         <EditorIndex Value="5"/>
     225        <EditorIndex Value="0"/>
    231226        <WindowIndex Value="0"/>
    232227        <TopLine Value="1"/>
    233228        <CursorPos X="33" Y="1"/>
    234         <UsageCount Value="10"/>
     229        <UsageCount Value="11"/>
    235230        <Loaded Value="True"/>
    236231      </Unit21>
    … …  
    246241        <Filename Value="Compiler\USourceCode.pas"/>
    247242        <UnitName Value="USourceCode"/>
    248         <EditorIndex Value="6"/>
    249243        <WindowIndex Value="0"/>
    250244        <TopLine Value="307"/>
    251245        <CursorPos X="65" Y="308"/>
    252246        <UsageCount Value="10"/>
    253         <Loaded Value="True"/>
    254247      </Unit23>
    255248      <Unit24>
    256249        <Filename Value="Compiler\Analyze\UParser.pas"/>
    257250        <UnitName Value="UParser"/>
    258         <EditorIndex Value="7"/>
    259251        <WindowIndex Value="0"/>
    260252        <TopLine Value="1"/>
    261253        <CursorPos X="1" Y="1"/>
    262254        <UsageCount Value="10"/>
    263         <Loaded Value="True"/>
    264255      </Unit24>
    265256      <Unit25>
    266257        <Filename Value="Compiler\Produce\UProducer.pas"/>
    267258        <UnitName Value="UProducer"/>
    268         <EditorIndex Value="8"/>
    269         <WindowIndex Value="0"/>
    270         <TopLine Value="1"/>
    271         <CursorPos X="35" Y="5"/>
     259        <WindowIndex Value="0"/>
     260        <TopLine Value="1"/>
     261        <CursorPos X="15" Y="4"/>
    272262        <UsageCount Value="10"/>
    273         <Loaded Value="True"/>
    274263      </Unit25>
    275264      <Unit26>
    276         <Filename Value="Forms\UProjecManager.pas"/>
    277         <IsPartOfProject Value="True"/>
    278         <ComponentName Value="Form1"/>
     265        <Filename Value="Forms\UProjectManager.pas"/>
     266        <IsPartOfProject Value="True"/>
     267        <ComponentName Value="ProjectManager"/>
    279268        <ResourceBaseClass Value="Form"/>
    280         <UnitName Value="UProjecManager"/>
    281         <EditorIndex Value="1"/>
    282         <WindowIndex Value="0"/>
    283         <TopLine Value="1"/>
    284         <CursorPos X="1" Y="1"/>
    285         <UsageCount Value="20"/>
     269        <UnitName Value="UProjectManager"/>
     270        <IsVisibleTab Value="True"/>
     271        <EditorIndex Value="2"/>
     272        <WindowIndex Value="0"/>
     273        <TopLine Value="22"/>
     274        <CursorPos X="18" Y="41"/>
     275        <UsageCount Value="21"/>
    286276        <Loaded Value="True"/>
    287277        <LoadedDesigner Value="True"/>
    288278      </Unit26>
     279      <Unit27>
     280        <Filename Value="Forms\UCodeForm.pas"/>
     281        <IsPartOfProject Value="True"/>
     282        <ComponentName Value="CodeForm"/>
     283        <ResourceBaseClass Value="Form"/>
     284        <UnitName Value="UCodeForm"/>
     285        <EditorIndex Value="1"/>
     286        <WindowIndex Value="0"/>
     287        <TopLine Value="7"/>
     288        <CursorPos X="32" Y="16"/>
     289        <UsageCount Value="21"/>
     290        <Loaded Value="True"/>
     291        <LoadedDesigner Value="True"/>
     292      </Unit27>
     293      <Unit28>
     294        <Filename Value="Forms\UMessagesForm.pas"/>
     295        <IsPartOfProject Value="True"/>
     296        <ComponentName Value="MessagesForm"/>
     297        <ResourceBaseClass Value="Form"/>
     298        <UnitName Value="UMessagesForm"/>
     299        <WindowIndex Value="0"/>
     300        <TopLine Value="1"/>
     301        <CursorPos X="1" Y="1"/>
     302        <UsageCount Value="21"/>
     303      </Unit28>
    289304    </Units>
    290     <JumpHistory Count="16" HistoryIndex="15">
     305    <JumpHistory Count="10" HistoryIndex="9">
    291306      <Position1>
    292         <Filename Value="Forms\UMainForm.pas"/>
    293         <Caret Line="82" Column="41" TopLine="71"/>
     307        <Filename Value="Forms\UCodeForm.pas"/>
     308        <Caret Line="16" Column="10" TopLine="1"/>
    294309      </Position1>
    295310      <Position2>
    296         <Filename Value="Forms\UMainForm.pas"/>
    297         <Caret Line="83" Column="41" TopLine="72"/>
     311        <Filename Value="Transpascal.lpr"/>
     312        <Caret Line="9" Column="35" TopLine="1"/>
    298313      </Position2>
    299314      <Position3>
    300         <Filename Value="Forms\UMainForm.pas"/>
    301         <Caret Line="84" Column="41" TopLine="73"/>
     315        <Filename Value="Forms\UProjectManager.pas"/>
     316        <Caret Line="13" Column="9" TopLine="1"/>
    302317      </Position3>
    303318      <Position4>
    304         <Filename Value="Forms\UMainForm.pas"/>
    305         <Caret Line="85" Column="41" TopLine="74"/>
     319        <Filename Value="Transpascal.lpr"/>
     320        <Caret Line="27" Column="1" TopLine="2"/>
    306321      </Position4>
    307322      <Position5>
    308         <Filename Value="Forms\UMainForm.pas"/>
    309         <Caret Line="86" Column="41" TopLine="75"/>
     323        <Filename Value="Forms\UProjectManager.pas"/>
     324        <Caret Line="34" Column="1" TopLine="29"/>
    310325      </Position5>
    311326      <Position6>
    312         <Filename Value="Forms\UMainForm.pas"/>
    313         <Caret Line="87" Column="41" TopLine="76"/>
     327        <Filename Value="Forms\UProjectManager.pas"/>
     328        <Caret Line="31" Column="13" TopLine="24"/>
    314329      </Position6>
    315330      <Position7>
    316         <Filename Value="Forms\UMainForm.pas"/>
    317         <Caret Line="88" Column="41" TopLine="77"/>
     331        <Filename Value="Forms\UProjectManager.pas"/>
     332        <Caret Line="9" Column="11" TopLine="1"/>
    318333      </Position7>
    319334      <Position8>
    320         <Filename Value="Forms\UMainForm.pas"/>
    321         <Caret Line="89" Column="41" TopLine="78"/>
     335        <Filename Value="Forms\UProjectManager.pas"/>
     336        <Caret Line="32" Column="23" TopLine="21"/>
    322337      </Position8>
    323338      <Position9>
    324         <Filename Value="Forms\UMainForm.pas"/>
    325         <Caret Line="90" Column="41" TopLine="79"/>
     339        <Filename Value="Forms\UProjectManager.pas"/>
     340        <Caret Line="43" Column="16" TopLine="30"/>
    326341      </Position9>
    327342      <Position10>
    328         <Filename Value="Forms\UMainForm.pas"/>
    329         <Caret Line="91" Column="41" TopLine="80"/>
     343        <Filename Value="Forms\UProjectManager.pas"/>
     344        <Caret Line="41" Column="19" TopLine="21"/>
    330345      </Position10>
    331       <Position11>
    332         <Filename Value="Forms\UMainForm.pas"/>
    333         <Caret Line="92" Column="41" TopLine="81"/>
    334       </Position11>
    335       <Position12>
    336         <Filename Value="Forms\UMainForm.pas"/>
    337         <Caret Line="93" Column="41" TopLine="82"/>
    338       </Position12>
    339       <Position13>
    340         <Filename Value="Forms\UMainForm.pas"/>
    341         <Caret Line="94" Column="41" TopLine="83"/>
    342       </Position13>
    343       <Position14>
    344         <Filename Value="Forms\UMainForm.pas"/>
    345         <Caret Line="89" Column="88" TopLine="1"/>
    346       </Position14>
    347       <Position15>
    348         <Filename Value="Compiler\TranspascalCompiler.pas"/>
    349         <Caret Line="12" Column="34" TopLine="1"/>
    350       </Position15>
    351       <Position16>
    352         <Filename Value="Compiler\TranspascalCompiler.pas"/>
    353         <Caret Line="10" Column="24" TopLine="1"/>
    354       </Position16>
    355346    </JumpHistory>
    356347  </ProjectOptions>

  • branches/Transpascal/Transpascal.lpr

    r60 r61  
    1010  UMainForm in 'UMainForm.pas' {MainForm},
    1111  UTextSource in 'UTextSource.pas', UProject, TranspascalCompiler,
    12 UProjecManager;
     12UProjectManager, UCodeForm, UMessagesForm;
    1313
    1414{$R *.res}
    … …  
    2121  Application.Initialize;
    2222  Application.CreateForm(TMainForm, MainForm);
    23   Application.CreateForm(TForm1, Form1);
     23  Application.CreateForm(TProjectManager, ProjectManager);
     24  Application.CreateForm(TCodeForm, CodeForm);
     25  Application.CreateForm(TMessagesForm, MessagesForm);
    2426  Application.Run;
    2527end.
Note: See TracChangeset for help on using the changeset viewer.