Changeset 16 for trunk/Forms/UFormMain.pas
Legend:
- Unmodified
- Added
- Removed
-
trunk
- Property svn:ignore
-
old new 4 4 data.xml 5 5 Config.xml 6 *.lrj 7 heaptrclog.trc
-
- Property svn:ignore
-
trunk/Forms
-
Property svn:ignore
set to
*.lrj
-
Property svn:ignore
set to
-
trunk/Forms/UFormMain.pas
r15 r16 21 21 MenuItem5: TMenuItem; 22 22 MenuItem6: TMenuItem; 23 MenuItem7: TMenuItem; 24 MenuItem8: TMenuItem; 23 25 MenuItemPreferences: TMenuItem; 24 26 StatusBar1: TStatusBar; … … 72 74 begin 73 75 NewCaption := Application.Title; 74 if Assigned(Core.Database) then NewCaption := NewCaption + ' - ' + Core.Database.Name;76 if Assigned(Core.Database) then NewCaption := Core.Database.Name + ' - ' + NewCaption; 75 77 FormMain.Caption := NewCaption; 76 78 end;
Note:
See TracChangeset
for help on using the changeset viewer.