Ignore:
Timestamp:
Jul 28, 2009, 1:39:09 PM (15 years ago)
Author:
george
Message:
  • Modified: CodeEdit window is now dockable rather than MDI child.
  • Modified: Main menu changed to ActionMainMenuBar with XP style.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Forms/UMainForm.dfm

    r1 r2  
    33  Top = 0
    44  Caption = 'OpenBDS'
    5   ClientHeight = 640
     5  ClientHeight = 678
    66  ClientWidth = 693
    77  Color = clBtnFace
     
    1111  Font.Name = 'Tahoma'
    1212  Font.Style = []
    13   FormStyle = fsMDIForm
    14   Menu = MainMenu1
    1513  OldCreateOrder = False
    1614  OnClose = FormClose
     
    2220  object DockPanel1: TDockPanel
    2321    Left = 0
    24     Top = 0
     22    Top = 24
    2523    Width = 0
    26     Height = 640
     24    Height = 654
    2725    Align = alLeft
    2826    BevelOuter = bvNone
     
    3230    TabOrder = 0
    3331    TabPosition = tpTop
    34     ExplicitHeight = 621
     32    ExplicitTop = 0
     33    ExplicitHeight = 659
    3534  end
    3635  object DockPanel2: TDockPanel
    3736    Left = 0
    38     Top = 640
     37    Top = 678
    3938    Width = 693
    4039    Height = 0
     
    4645    TabOrder = 1
    4746    TabPosition = tpTop
    48     ExplicitTop = 621
     47    ExplicitTop = 659
    4948  end
    5049  object DockPanel3: TDockPanel
    5150    Left = 693
    52     Top = 0
     51    Top = 24
    5352    Width = 0
    54     Height = 640
     53    Height = 654
    5554    Align = alRight
    5655    BevelOuter = bvNone
     
    6059    TabOrder = 2
    6160    TabPosition = tpTop
    62     ExplicitHeight = 621
    63   end
    64   object MainMenu1: TMainMenu
    65     Left = 8
    66     Top = 8
    67     object File1: TMenuItem
    68       Caption = 'File'
    69       object New1: TMenuItem
    70         Caption = 'New'
    71       end
    72       object Open1: TMenuItem
    73         Caption = 'Open...'
    74       end
    75       object Openproject1: TMenuItem
    76         Caption = 'Open Project...'
    77       end
    78       object Reopen1: TMenuItem
    79         Caption = 'Reopen'
    80       end
    81       object N1: TMenuItem
    82         Caption = '-'
    83       end
    84       object Save1: TMenuItem
    85         Caption = 'Save'
    86       end
    87       object Saveas1: TMenuItem
    88         Caption = 'Save As...'
    89       end
    90       object Saveproject1: TMenuItem
    91         Caption = 'Save Project...'
    92       end
    93       object SaveAll1: TMenuItem
    94         Caption = 'Save All'
    95       end
    96       object Close1: TMenuItem
    97         Caption = 'Close'
    98       end
    99       object CloseAll1: TMenuItem
    100         Caption = 'Close All'
    101       end
    102       object N2: TMenuItem
    103         Caption = '-'
    104       end
    105       object Exit1: TMenuItem
    106         Action = ActionExit
    107       end
    108     end
    109     object Edit1: TMenuItem
    110       Caption = 'Edit'
    111       object Undo1: TMenuItem
    112         Caption = 'Undo'
    113       end
    114       object Redo1: TMenuItem
    115         Caption = 'Redo'
    116       end
    117       object N3: TMenuItem
    118         Caption = '-'
    119       end
    120       object Copy1: TMenuItem
    121         Caption = 'Copy'
    122       end
    123       object Cut1: TMenuItem
    124         Caption = 'Cut'
    125       end
    126       object Paste1: TMenuItem
    127         Caption = 'Paste'
    128       end
    129       object Delete1: TMenuItem
    130         Caption = 'Delete'
    131       end
    132       object DeleteAll1: TMenuItem
    133         Caption = 'Delete All'
    134       end
    135     end
    136     object Search1: TMenuItem
    137       Caption = 'Search'
    138       object Find1: TMenuItem
    139         Caption = 'Find...'
    140       end
    141     end
    142     object view1: TMenuItem
    143       Caption = 'View'
    144       object ProjectManager1: TMenuItem
    145         Caption = 'Project Manager'
    146         OnClick = ProjectManager1Click
    147       end
    148       object oolPalete1: TMenuItem
    149         Caption = 'Tool Palete'
    150         OnClick = oolPalete1Click
    151       end
    152       object ObjectInspector1: TMenuItem
    153         Caption = 'Object Inspector'
    154         OnClick = ObjectInspector1Click
    155       end
    156       object Structure1: TMenuItem
    157         Caption = 'Structure'
    158         OnClick = Structure1Click
    159       end
    160     end
    161     object Project1: TMenuItem
    162       Caption = 'Project'
    163     end
    164     object Run1: TMenuItem
    165       Caption = 'Run'
    166     end
    167     object Component1: TMenuItem
    168       Caption = 'Component'
    169     end
    170     object ools1: TMenuItem
    171       Caption = 'Tools'
    172     end
    173     object Windows1: TMenuItem
    174       Caption = 'Window'
    175     end
    176     object Help1: TMenuItem
    177       Caption = 'Help'
    178     end
     61    ExplicitTop = 0
     62    ExplicitHeight = 659
     63  end
     64  object ActionMainMenuBar1: TActionMainMenuBar
     65    Left = 0
     66    Top = 0
     67    Width = 693
     68    Height = 24
     69    ActionManager = ActionManager1
     70    Caption = 'ActionMainMenuBar1'
     71    ColorMap.HighlightColor = 14410210
     72    ColorMap.BtnSelectedColor = clBtnFace
     73    ColorMap.UnusedColor = 14410210
     74    Font.Charset = DEFAULT_CHARSET
     75    Font.Color = clMenuText
     76    Font.Height = -11
     77    Font.Name = 'Tahoma'
     78    Font.Style = []
     79    Spacing = 0
    17980  end
    18081  object ActionManager1: TActionManager
    181     Left = 32
    182     Top = 8
     82    ActionBars = <
     83      item
     84        Items = <
     85          item
     86            Items = <
     87              item
     88                Action = ActionFileNew
     89                Caption = '&New'
     90              end
     91              item
     92                Action = ActionFileOpen
     93                Caption = '&Open...'
     94              end
     95              item
     96                Action = ActionProjectOpen
     97                Caption = 'O&pen Project...'
     98                ShortCut = 16506
     99              end
     100              item
     101                Action = ActionFileReopen
     102                Caption = '&Reopen'
     103              end
     104              item
     105                Caption = '-'
     106              end
     107              item
     108                Action = ActionFileSave
     109                Caption = '&Save'
     110                ShortCut = 16467
     111              end
     112              item
     113                Action = ActionFileSaveAs
     114                Caption = 'S&ave As...'
     115              end
     116              item
     117                Action = ActionFileSaveAll
     118                Caption = 'Sa&ve All'
     119                ShortCut = 24659
     120              end
     121              item
     122                Action = ActionFileClose
     123                Caption = '&Close'
     124              end
     125              item
     126                Action = ActionFileCloseAll
     127                Caption = 'C&lose All'
     128              end
     129              item
     130                Caption = '-'
     131              end
     132              item
     133                Action = ActionUnitTest
     134                Caption = '&Unit Test...'
     135                ShortCut = 32890
     136              end
     137              item
     138                Caption = '-'
     139              end
     140              item
     141                Action = ActionPrint
     142                Caption = 'Pr&int...'
     143              end
     144              item
     145                Caption = '-'
     146              end
     147              item
     148                Action = ActionExit
     149                Caption = '&Exit'
     150              end>
     151            Action = ActionFile
     152            Caption = '&File'
     153          end
     154          item
     155            Items = <
     156              item
     157                Action = ActionEditUndo
     158                Caption = '&Undo'
     159                ShortCut = 16474
     160              end
     161              item
     162                Action = ActionEditRedo
     163                Caption = '&Redo'
     164                ShortCut = 24666
     165              end
     166              item
     167                Caption = '-'
     168              end
     169              item
     170                Action = ActionEditCut
     171                Caption = '&Cut'
     172                ShortCut = 16472
     173              end
     174              item
     175                Action = ActionEditCopy
     176                Caption = 'C&opy'
     177                ShortCut = 16451
     178              end
     179              item
     180                Action = ActionEditPaste
     181                Caption = '&Paste'
     182                ShortCut = 16470
     183              end
     184              item
     185                Action = ActionEditDelete
     186                Caption = '&Delete'
     187                ShortCut = 16430
     188              end
     189              item
     190                Action = ActionEditSelectAll
     191                Caption = '&Select All'
     192                ShortCut = 16449
     193              end
     194              item
     195                Caption = '-'
     196              end
     197              item
     198                Action = ActionEditAlignToGrid
     199                Caption = '&Align To Grid'
     200              end
     201              item
     202                Action = ActionEditBringToFront
     203                Caption = '&Bring To Front'
     204              end
     205              item
     206                Action = ActionEditSendToBack
     207                Caption = 'S&end To Back'
     208              end
     209              item
     210                Action = ActionEditAlign
     211                Caption = 'A&lign...'
     212              end
     213              item
     214                Action = ActionEditSize
     215                Caption = 'S&ize...'
     216              end
     217              item
     218                Action = ActionEditScale
     219              end
     220              item
     221                Action = ActionEditTabOrder
     222                Caption = '&Tab Order...'
     223              end
     224              item
     225                Action = ActionEditCreationOrder
     226                Caption = 'Creatio&n Order...'
     227              end
     228              item
     229                Action = ActionEditFlipChildren
     230                Caption = '&Flip Children'
     231              end
     232              item
     233                Action = ActionEditLockControls
     234                Caption = 'Loc&k Controls'
     235              end>
     236            Action = ActionEdit
     237            Caption = '&Edit'
     238          end
     239          item
     240            Action = ActionSearch
     241            Caption = '&Search'
     242          end
     243          item
     244            Action = ActionView
     245            Caption = '&View'
     246          end
     247          item
     248            Action = ActionProject
     249            Caption = '&Project'
     250          end
     251          item
     252            Action = ActionRun
     253            Caption = '&Run'
     254          end
     255          item
     256            Action = ActionTools
     257            Caption = '&Tools'
     258          end
     259          item
     260            Action = ActionWindow
     261            Caption = '&Window'
     262          end
     263          item
     264            Action = ActionHelp
     265            Caption = '&Help'
     266          end>
     267        ActionBar = ActionMainMenuBar1
     268      end>
     269    Images = ImageList1
     270    Left = 40
     271    Top = 64
    183272    StyleName = 'XP Style'
    184273    object ActionExit: TAction
     274      Category = 'File'
    185275      Caption = 'Exit'
    186276      OnExecute = ActionExitExecute
    187277    end
     278    object ActionProjectOpen: TAction
     279      Category = 'File'
     280      Caption = 'Open Project...'
     281      ShortCut = 16506
     282      OnExecute = ActionProjectOpenExecute
     283    end
     284    object ActionProjectSaveAs: TAction
     285      Category = 'File'
     286      Caption = 'Save Project As...'
     287      OnExecute = ActionProjectSaveAsExecute
     288    end
     289    object ActionFileOpen: TAction
     290      Category = 'File'
     291      Caption = 'Open...'
     292      OnExecute = ActionFileOpenExecute
     293    end
     294    object ActionFileSave: TAction
     295      Category = 'File'
     296      Caption = 'Save'
     297      ShortCut = 16467
     298    end
     299    object ActionFileClose: TAction
     300      Category = 'File'
     301      Caption = 'Close'
     302    end
     303    object ActionFileCloseAll: TAction
     304      Category = 'File'
     305      Caption = 'Close All'
     306    end
     307    object ActionUnitTest: TAction
     308      Category = 'File'
     309      Caption = 'Unit Test...'
     310      ShortCut = 32890
     311    end
     312    object ActionPrint: TAction
     313      Category = 'File'
     314      Caption = 'Print...'
     315    end
     316    object ActionFileSaveAs: TAction
     317      Category = 'File'
     318      Caption = 'Save As...'
     319    end
     320    object ActionFile: TAction
     321      Category = 'File'
     322      Caption = 'File'
     323      OnUpdate = ActionFileUpdate
     324    end
     325    object ActionFileNew: TAction
     326      Category = 'File'
     327      Caption = 'New'
     328    end
     329    object ActionFileReopen: TAction
     330      Category = 'File'
     331      Caption = 'Reopen'
     332    end
     333    object ActionFileSaveAll: TAction
     334      Category = 'File'
     335      Caption = 'Save All'
     336      ShortCut = 24659
     337    end
     338    object ActionEdit: TAction
     339      Category = 'Edit'
     340      Caption = 'Edit'
     341      OnExecute = ActionEditExecute
     342    end
     343    object ActionEditUndo: TAction
     344      Category = 'Edit'
     345      Caption = 'Undo'
     346      ShortCut = 16474
     347    end
     348    object ActionEditRedo: TAction
     349      Category = 'Edit'
     350      Caption = 'Redo'
     351      ShortCut = 24666
     352    end
     353    object ActionEditCut: TAction
     354      Category = 'Edit'
     355      Caption = 'Cut'
     356      ShortCut = 16472
     357    end
     358    object ActionEditCopy: TAction
     359      Category = 'Edit'
     360      Caption = 'Copy'
     361      ShortCut = 16451
     362    end
     363    object ActionEditPaste: TAction
     364      Category = 'Edit'
     365      Caption = 'Paste'
     366      ShortCut = 16470
     367    end
     368    object ActionEditDelete: TAction
     369      Category = 'Edit'
     370      Caption = 'Delete'
     371      ShortCut = 16430
     372    end
     373    object ActionEditSelectAll: TAction
     374      Category = 'Edit'
     375      Caption = 'Select All'
     376      ShortCut = 16449
     377    end
     378    object ActionEditAlignToGrid: TAction
     379      Category = 'Edit'
     380      Caption = 'Align To Grid'
     381    end
     382    object ActionEditBringToFront: TAction
     383      Category = 'Edit'
     384      Caption = 'Bring To Front'
     385    end
     386    object ActionEditSendToBack: TAction
     387      Category = 'Edit'
     388      Caption = 'Send To Back'
     389    end
     390    object ActionEditAlign: TAction
     391      Category = 'Edit'
     392      Caption = 'Align...'
     393    end
     394    object ActionEditSize: TAction
     395      Category = 'Edit'
     396      Caption = 'Size...'
     397    end
     398    object ActionEditScale: TAction
     399      Category = 'Edit'
     400      Caption = 'Scale...'
     401    end
     402    object ActionEditTabOrder: TAction
     403      Category = 'Edit'
     404      Caption = 'Tab Order...'
     405    end
     406    object ActionEditCreationOrder: TAction
     407      Category = 'Edit'
     408      Caption = 'Creation Order...'
     409    end
     410    object ActionEditFlipChildren: TAction
     411      Category = 'Edit'
     412      Caption = 'Flip Children'
     413    end
     414    object ActionEditLockControls: TAction
     415      Category = 'Edit'
     416      Caption = 'Lock Controls'
     417    end
     418    object ActionSearch: TAction
     419      Category = 'Search'
     420      Caption = 'Search'
     421    end
     422    object ActionView: TAction
     423      Category = 'View'
     424      Caption = 'View'
     425    end
     426    object ActionProject: TAction
     427      Category = 'Project'
     428      Caption = 'Project'
     429    end
     430    object ActionRun: TAction
     431      Category = 'Run'
     432      Caption = 'Run'
     433    end
     434    object ActionComponent: TAction
     435      Category = 'Component'
     436      Caption = 'Component'
     437    end
     438    object ActionTools: TAction
     439      Category = 'Tools'
     440      Caption = 'Tools'
     441    end
     442    object ActionWindow: TAction
     443      Category = 'Window'
     444      Caption = 'Window'
     445    end
     446    object ActionHelp: TAction
     447      Category = 'Help'
     448      Caption = 'Help'
     449    end
     450  end
     451  object ImageList1: TImageList
     452    Left = 72
     453    Top = 64
     454  end
     455  object OpenDialog1: TOpenDialog
     456    Left = 104
     457    Top = 64
     458  end
     459  object SaveDialog1: TSaveDialog
     460    Left = 136
     461    Top = 64
     462  end
     463  object FindDialog1: TFindDialog
     464    Left = 168
     465    Top = 64
     466  end
     467  object ReplaceDialog1: TReplaceDialog
     468    Left = 200
     469    Top = 64
    188470  end
    189471end
Note: See TracChangeset for help on using the changeset viewer.