Ignore:
Timestamp:
Feb 13, 2012, 1:47:33 PM (13 years ago)
Author:
chronos
Message:
  • Added: Package Common replace units LastOpenedList and Registry.
  • Modified: Instead of unfinished advanced docking manager use static dockign to panels and PageControl sheets.
Location:
trunk/IDE
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/IDE

    • Property svn:ignore

      •  

        old new  
        11lib
        22backup
         3Transpascal.dbg
         4Transpascal.lps
         5Transpascal.exe

  • trunk/IDE/UApplicationInfo.pas

    r24 r34  
    1616  TApplicationInfo = class
    1717  private
    18     function GetVersion:string;
     18    function GetVersion: string;
    1919  public
    2020    Name: string;
    … …  
    2323    MinorVersion: Byte;
    2424    BugFixVersion: Byte;
     25    VersionSufix: string; // alfa, beta, RC1, RC2, ...
    2526    CompanyName: string;
    2627    CompanyHomePage: string;
    2728    HomePage: string;
    28     AuthorName: string;
     29    AuthorsName: string;
    2930    EmailContact: string;
    30     ReleaseDate: string;
     31    ReleaseDate: TDateTime;
     32    RegistryKey: string;
    3133    property Version: string read GetVersion;
    3234  end;
    … …  
    3941{ TApplicationInfo }
    4042
    41 function TApplicationInfo.GetVersion:string;
     43function TApplicationInfo.GetVersion: string;
    4244begin
    43   Result := IntToStr(MajorVersion) + '.' + IntToStr(MinorVersion) +
    44     '.' + IntToStr(BugFixVersion);
     45  Result := IntToStr(MajorVersion) + '.' + IntToStr(MinorVersion);
     46  if VersionSufix <> '' then Result := Result + ' ' + VersionSufix
     47    else Result := Result + '.' + IntToStr(BugFixVersion);
    4548end;
    4649
    … …  
    5255  Name := 'Transpascal IDE';
    5356  Identification := 1;
    54   ReleaseDate := '22.10.2010';
     57  ReleaseDate := EncodeDate(2012, 2, 13);
    5558  MajorVersion := 0;
    5659  MinorVersion := 1;
    5760  BugFixVersion := 0;
    58   CompanyName := '';
    59   CompanyHomepage := '';
    60   HomePage := '';
    61   AuthorName := 'Chronos';
    62   EmailContact := '';
     61  VersionSufix := 'alfa';
     62  CompanyName := 'Chronosoft';
     63  CompanyHomepage := 'http://svn.zdechov.net/trac/LazFuck';
     64  HomePage := 'http://svn.zdechov.net/trac/LazFuck';
     65  AuthorsName := 'Chronos';
     66  EmailContact := 'robie@centrum.cz';
     67  RegistryKey := '\Software\Chronosoft\Transpascal';
    6368end;
    6469
Note: See TracChangeset for help on using the changeset viewer.