Changeset 2


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.
Location:
trunk
Files:
1 added
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UCodeEdit.dfm

    r1 r2  
    1111  Font.Name = 'Tahoma'
    1212  Font.Style = []
    13   FormStyle = fsMDIChild
    1413  OldCreateOrder = False
    1514  Visible = True
    16   WindowState = wsMaximized
    17   DesignSize = (
    18     621
    19     531)
    2015  PixelsPerInch = 96
    2116  TextHeight = 13
    2217  object Memo1: TMemo
    23     Left = 8
    24     Top = 8
    25     Width = 609
    26     Height = 513
    27     Anchors = [akLeft, akTop, akRight, akBottom]
    28     Lines.Strings = (
    29       'Memo1')
     18    Left = 0
     19    Top = 0
     20    Width = 621
     21    Height = 531
     22    Align = alClient
    3023    TabOrder = 0
    3124  end

  • trunk/Forms/UCodeEdit.pas

    r1 r2  
    55uses
    66  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    7   Dialogs, StdCtrls;
     7  Dialogs, StdCtrls, UDockManagement;
    88
    99type
    10   TCodeEdit = class(TForm)
     10  TCodeEdit = class(TDDockForm)
    1111    Memo1: TMemo;
    1212  private

  • 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

  • trunk/Forms/UMainForm.pas

    r1 r2  
    66  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    77  Dialogs, Menus, ExtCtrls, StdCtrls, ComCtrls, DockPanel, URegistry,
    8   UApplicationInfo, UDockManagement, ActnList, XPStyleActnCtrls, ActnMan;
     8  UApplicationInfo, UDockManagement, ActnList, XPStyleActnCtrls, ActnMan,
     9  UProject, XPMan, ImgList, DockManagerPro, StdStyleActnCtrls, ToolWin,
     10  ActnCtrls, ActnMenus;
    911
    1012type
    1113  TMainForm = class(TForm)
    12     MainMenu1: TMainMenu;
    13     File1: TMenuItem;
    14     Edit1: TMenuItem;
    15     Search1: TMenuItem;
    16     view1: TMenuItem;
    17     Project1: TMenuItem;
    18     Run1: TMenuItem;
    19     Component1: TMenuItem;
    20     ools1: TMenuItem;
    21     Windows1: TMenuItem;
    22     Help1: TMenuItem;
    23     New1: TMenuItem;
    24     Open1: TMenuItem;
    25     Openproject1: TMenuItem;
    26     Reopen1: TMenuItem;
    27     N1: TMenuItem;
    28     Save1: TMenuItem;
    29     Saveas1: TMenuItem;
    30     Saveproject1: TMenuItem;
    31     SaveAll1: TMenuItem;
    32     Close1: TMenuItem;
    33     CloseAll1: TMenuItem;
    34     N2: TMenuItem;
    35     Exit1: TMenuItem;
    36     Undo1: TMenuItem;
    37     Redo1: TMenuItem;
    38     N3: TMenuItem;
    39     Copy1: TMenuItem;
    40     Cut1: TMenuItem;
    41     Paste1: TMenuItem;
    42     Delete1: TMenuItem;
    43     DeleteAll1: TMenuItem;
    44     Find1: TMenuItem;
    45     ProjectManager1: TMenuItem;
    46     oolPalete1: TMenuItem;
    47     ObjectInspector1: TMenuItem;
    48     Structure1: TMenuItem;
    4914    DockPanel1: TDockPanel;
    5015    DockPanel2: TDockPanel;
    … …  
    5217    ActionManager1: TActionManager;
    5318    ActionExit: TAction;
     19    ActionProjectOpen: TAction;
     20    ActionProjectSaveAs: TAction;
     21    ActionFileOpen: TAction;
     22    ActionFileSave: TAction;
     23    ActionFileClose: TAction;
     24    ActionFileCloseAll: TAction;
     25    ActionUnitTest: TAction;
     26    ActionPrint: TAction;
     27    ActionFileSaveAs: TAction;
     28    ImageList1: TImageList;
     29    ActionMainMenuBar1: TActionMainMenuBar;
     30    ActionFile: TAction;
     31    ActionFileNew: TAction;
     32    ActionFileReopen: TAction;
     33    ActionFileSaveAll: TAction;
     34    ActionEdit: TAction;
     35    OpenDialog1: TOpenDialog;
     36    SaveDialog1: TSaveDialog;
     37    FindDialog1: TFindDialog;
     38    ReplaceDialog1: TReplaceDialog;
     39    ActionEditUndo: TAction;
     40    ActionEditRedo: TAction;
     41    ActionEditCut: TAction;
     42    ActionEditCopy: TAction;
     43    ActionEditPaste: TAction;
     44    ActionEditDelete: TAction;
     45    ActionEditSelectAll: TAction;
     46    ActionEditAlignToGrid: TAction;
     47    ActionEditBringToFront: TAction;
     48    ActionEditSendToBack: TAction;
     49    ActionEditAlign: TAction;
     50    ActionEditSize: TAction;
     51    ActionEditScale: TAction;
     52    ActionEditTabOrder: TAction;
     53    ActionEditCreationOrder: TAction;
     54    ActionEditFlipChildren: TAction;
     55    ActionEditLockControls: TAction;
     56    ActionSearch: TAction;
     57    ActionView: TAction;
     58    ActionProject: TAction;
     59    ActionRun: TAction;
     60    ActionComponent: TAction;
     61    ActionTools: TAction;
     62    ActionWindow: TAction;
     63    ActionHelp: TAction;
    5464    procedure FormShow(Sender: TObject);
    5565    procedure ObjectInspector1Click(Sender: TObject);
    … …  
    6171    procedure FormDestroy(Sender: TObject);
    6272    procedure ActionExitExecute(Sender: TObject);
     73    procedure ActionFileUpdate(Sender: TObject);
     74    procedure ActionEditExecute(Sender: TObject);
     75    procedure ActionProjectOpenExecute(Sender: TObject);
     76    procedure ActionFileOpenExecute(Sender: TObject);
     77    procedure ActionProjectSaveAsExecute(Sender: TObject);
    6378  private
    6479    CustomDockManager: TDDockManager;
    … …  
    8398{$R *.dfm}
    8499
     100procedure TMainForm.ActionEditExecute(Sender: TObject);
     101begin
     102  //
     103end;
     104
    85105procedure TMainForm.ActionExitExecute(Sender: TObject);
    86106begin
    87107  Close;
     108end;
     109
     110procedure TMainForm.ActionFileOpenExecute(Sender: TObject);
     111begin
     112  if OpenDialog1.Execute then begin
     113  end;
     114end;
     115
     116procedure TMainForm.ActionFileUpdate(Sender: TObject);
     117begin
     118  //
     119end;
     120
     121procedure TMainForm.ActionProjectOpenExecute(Sender: TObject);
     122begin
     123  if OpenDialog1.Execute then begin
     124  end;
     125end;
     126
     127procedure TMainForm.ActionProjectSaveAsExecute(Sender: TObject);
     128begin
     129  if SaveDialog1.Execute then begin
     130  end;
    88131end;
    89132
    … …  
    125168    RegisterDockForm(ObjectInspector, 100, 400, 'PanelRight', True);
    126169    RegisterDockForm(StructureView, 100, 400, 'PanelRight', True);
     170    RegisterDockForm(CodeEdit, 500, 400, 'PanelCenter', True);
    127171    with BaseDockPanel do begin
    128172      PanelLeft.Tag := 300;
    … …  
    136180  LoadFormPosition(Self);
    137181  CodeEdit.Show;
     182  ActionManager1.Style := XPStyle;
    138183end;
    139184

  • trunk/OpenBDS.dpr

    r1 r2  
    1010  UStructureView in 'DockForms\UStructureView.pas' {StructureView},
    1111  UMainForm in 'Forms\UMainForm.pas' {MainForm},
    12   UApplicationInfo in 'UApplicationInfo.pas';
     12  UApplicationInfo in 'UApplicationInfo.pas',
     13  UProject in 'UProject.pas';
    1314
    1415{$R *.res}

  • trunk/UDockManagement.pas

    r1 r2  
    358358  DragKind := dkDock;
    359359  DragMode := dmAutomatic;
     360  FormStyle := fsStayOnTop;
    360361end;
    361362
Note: See TracChangeset for help on using the changeset viewer.