Ignore:
Timestamp:
Oct 14, 2010, 2:30:40 PM (14 years ago)
Author:
george
Message:
  • Added: Separated dockable windows.
File:
1 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
Note: See TracChangeset for help on using the changeset viewer.