Changeset 16 for trunk/Forms


Ignore:
Timestamp:
Mar 22, 2018, 8:52:29 PM (7 years ago)
Author:
chronos
Message:
  • Added: Debian package build files.
  • Added: Application about dialog.
Location:
trunk
Files:
3 added
5 edited

Legend:

Unmodified
Added
Removed

  • trunk

    • Property svn:ignore

      •  

        old new  
        44data.xml
        55Config.xml
         6*.lrj
         7heaptrclog.trc

  • trunk/Forms

    • Property svn:ignore set to
      *.lrj

  • trunk/Forms/UFormMain.lfm

    r15 r16  
    4545      end
    4646    end
     47    object MenuItem7: TMenuItem
     48      Caption = 'Help'
     49      object MenuItem8: TMenuItem
     50        Action = Core.AAbout
     51      end
     52    end
    4753  end
    4854end

  • trunk/Forms/UFormMain.pas

    r15 r16  
    2121    MenuItem5: TMenuItem;
    2222    MenuItem6: TMenuItem;
     23    MenuItem7: TMenuItem;
     24    MenuItem8: TMenuItem;
    2325    MenuItemPreferences: TMenuItem;
    2426    StatusBar1: TStatusBar;
    … …  
    7274begin
    7375  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;
    7577  FormMain.Caption := NewCaption;
    7678end;

  • trunk/Forms/UFormRecord.lfm

    r13 r16  
    1111  OnShow = FormShow
    1212  Position = poMainFormCenter
    13   LCLVersion = '1.5'
     13  LCLVersion = '1.8.0.4'
    1414  object Panel1: TPanel
    1515    Left = 4
Note: See TracChangeset for help on using the changeset viewer.