Changeset 8

Show
Ignore:
Timestamp:
10/21/07 04:43:04 (10 months ago)
Author:
sagrer
Message:
  1. Изменен механизм нумерации версий формата конфига.
  2. Информация о номере версии теперь вкомпилливается в бинарник и берется оттуда - вендовая информация о номере версии, которая линковалась к бинарнику - убрана.
Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/AboutF.dfm

    r4 r8  
    6767    Caption = 'CraftedBy' 
    6868  end 
    69   object CommentLab: TLabel 
     69  object DevelsContactsLab: TLabel 
    7070    Left = 10 
    7171    Top = 87 
    72     Width = 44 
     72    Width = 75 
    7373    Height = 13 
    74     Caption = 'Comment' 
     74    Caption = 'DevelsContacts' 
    7575  end 
    7676  object Label3: TLabel 

  • trunk/AboutF.pas

    r4 r8  
    3535    Label2: TLabel; 
    3636    CraftedByLab: TLabel; 
    37     CommentLab: TLabel; 
     37    DevelsContactsLab: TLabel; 
    3838    Label3: TLabel; 
    3939    Label4: TLabel; 
    …… 
    6969 
    7070    //Îòîáðàçèòü íà ôîðìå èíôó î âåðñèè... 
    71     ProgaNamLab.Caption := VerInfo.ProductName; 
    72     DescrLab.Caption := VerInfo.FileDescription; 
    73     FileVerLab.Caption := VerInfo.FileVersion; 
    74     CopyrightLab.Caption := VerInfo.LegalCopyright; 
    75     CraftedByLab.Caption := VerInfo.CraftedBy; 
    76     CommentLab.Caption := VerInfo.Comments; 
     71    ProgaNamLab.Caption := EiEdit_AppName; 
     72    DescrLab.Caption := Zagolov; 
     73    FileVerLab.Caption := VitInfo.GenerateVersionString; 
     74    CopyrightLab.Caption := EiEdit_CopyrightStr; 
     75    CraftedByLab.Caption := EiEdit_CraftedBy_list; 
     76    DevelsContactsLab.Caption := EiEdit_DevelsContacts; 
    7777  end; 
    7878end; 

  • trunk/EIedit.dof

    r4 r8  
    6262RootDir= 
    6363[Version Info] 
    64 IncludeVerInfo=1 
     64IncludeVerInfo=0 
    6565AutoIncBuild=0 
    6666MajorVer=1 

  • trunk/EIedit.dpr

    r4 r8  
    108108  NewFilterAskForm in 'NewFilterAskForm.pas' {NewFilterAskF}, 
    109109  KOLClearDir in 'KOLClearDir.pas', 
    110   KOLFileInString in 'KOLFileInString.pas'; 
     110  KOLFileInString in 'KOLFileInString.pas', 
     111  VerInfoTxtFormat, 
     112  EiEdit_ver; 
    111113 
    112114{$R *.RES} 
    …… 
    293295  IniFilPath := Path+'EiEdit.ini'; 
    294296  //Çàëîàäèòü èíôó î âåðñèè... 
    295   VerInfo := TVerInfoFromFile.Create; 
    296   VerInfo.LoadInfo(Application.ExeName); 
    297   ver := VerInfo.ProductVersion; 
     297  VitInfo := TVerInfoTxtFormat.Create; 
     298  VitInfo.Ver1 := EiEdit_Ver1; 
     299  VitInfo.Ver2 := EiEdit_Ver2; 
     300  VitInfo.Ver3 := EiEdit_Ver3; 
     301  VitInfo.Ver4 := EiEdit_Ver4; 
     302  VitInfo.Status := EiEdit_Status; 
     303  VitInfo.RCNum := EiEdit_RCNum; 
    298304 
    299305  //Äëÿ íà÷àëà - ïðîâåðèòü, ñóùåñòâóåò ëè êîíôèã-ôàéë. 
    …… 
    304310    AnIniFil.Load(IniFilPath); 
    305311    ini_ver := AnIniFil.ReadString('MainSettings','Ver'); 
    306     If ini_ver <> ver then begin 
     312    If ini_ver <> IntToStr(IniConfFormatVer) then begin 
    307313      //Ñîáñíî ïðàâêà èíèøíèêà â çàâèñèìîñòè îò íîìåðà âåðñèè. 
    308314      //Íó è + ìîæíî êàêèå äðóãèå äåéñòâèÿ âûïîëíèòü âìåñòå ñ àïãðåéäîì èíèøíèêà 
    309  
    310315      If ini_ver = '1.7.0' then begin 
    311         //Ýòîò ïîñëåäíèé IF - âûïîëíÿåòñÿ ïðè äîâîäêå äî ïîñëåäíåé âåðñèè. 
    312         //Ùà âåðñèÿ 1.8.0 
     316        //Îáíîâëåíèå ôîðìàòà äî âåðñèè  1.8.0 
    313317 
    314318        //Ïîäãîòîâêà ïåðåñåííûõ 
    …… 
    321325 
    322326        //Çàïèñü èíèøíèêà 
    323         AnIniFil.WriteString('MainSettings','Ver',ver); 
     327        AnIniFil.WriteString('MainSettings','Ver','1.8.0'); 
    324328        AnIniFil.WriteString('MainSettings','TxtEdDlgFiltList',TxtEdDlgFiltList); 
    325329        AnIniFil.WriteInteger('MainSettings','TxtEdDlgActFilt',TxtEdDlgActFilt); 
    …… 
    329333        AnIniFil.WriteBool('MainSettings','TxtEdDlgWordWrap',TxtEdDlgWordWrap); 
    330334        AnIniFil.Save(IniFilPath); 
    331         ini_ver := ver; 
    332  
     335        ini_ver := '1.8.0'; 
    333336        //äðóãèå îïåðàöèè... 
     337      end; 
     338       
     339      If ini_ver = '1.8.0' then begin 
     340        //Ýòîò ïîñëåäíèé IF - âûïîëíÿåòñÿ ïðè äîâîäêå äî ïîñëåäíåé âåðñèè. 
     341        //Ùà âåðñèÿ ôîðìàòà êîíôèãà - 1 
     342 
     343        //Çàïèñü èíèøíèêà 
     344        AnIniFil.WriteInteger('MainSettings','Ver',IniConfFormatVer); 
     345        AnIniFil.Save(IniFilPath); 
     346        ini_ver := IntToStr(IniConfFormatVer); 
     347 
     348        //äðóãèå îïåðàöèè... 
    334349 
    335350        //Ñîîáùèòü þçâåðþ 
    336         MessageBox(Application.Handle,PChar('EiEdit.ini îáíîâëåí äî âåðñèè '+ver),'Èíôîðìàöèÿ',MB_OK or MB_ICONINFORMATION); 
     351        MessageBox(Application.Handle,PChar('EiEdit.ini îáíîâëåí äî âåðñèè '+ini_ver),'Èíôîðìàöèÿ',MB_OK or MB_ICONINFORMATION); 
    337352      end; 
    338353       
    …… 
    392407    //Òàê, òèïà èíôà äëÿ íîâîãî ôàéëà ãîòîâà. Ìîæíî òèïà íà÷àòü åãî ïèñàòü... 
    393408    AnIniFil.MakNewFile; 
    394     AnIniFil.WriteString('MainSettings','Ver',ver);    //Âåðñèÿ 
     409    AnIniFil.WriteInteger('MainSettings','Ver',IniConfFormatVer);    //Âåðñèÿ ôîðìàòà êîíôåãà 
    395410    AnIniFil.WriteString('MainSettings','PzPath',PzPath);  //Íàñòðîå÷íûé ïóòü ê ÏÇ 
    396411    AnIniFil.WriteString('MainSettings','PzResPath',PzResPath);  //Íàñòðîå÷íûé ïóòü ê ðåçàì ÏÇ 
    …… 
    553568  registr.free; 
    554569  AnIniFil.Kill;  //Óáèòü îáüåêò êëàññà äëÿ ðàáîòû ñ èíèøíèêàìè. 
    555   VerInfo.Free; 
     570  VitInfo.Free;   //Îáúåêò äëÿ èíôû î âåðñèè. 
    556571end. 

  • trunk/Initer.pas

    r7 r8  
    3232  NZap = 1000; 
    3333  TxtEdDlgDefFiltList = '*|âñå ÷òî òîëüêî ìîæíî :)'+'|*.*|âñå ôàéëû ñ ðàñøèðåíèåì'+'|allod*|Àëëîäû'+'|armor*|Áðîíÿ'+'|briefing*|Áðèôèíãè'+'|camphelp*|Ñïðàâêà ëàãåðÿ'+'|instr*|×åðòåæè'+'|litem*|Ïðåäìåòû äëÿ ïðîäàæè'+'|map.txt|Ïàðàìåòðû êàðò'+'|material*|Ìàòåðèàëû'+'|matshort*|Ñîêðàùåííûå íàçâàíèÿ ìàòåðèàëîâ'+'|modifier*|Ðóíû'+'|perk*|Ïåðêè'+'|pers*|Èìåíà ïåðñîíàæåé'+'|qitem*|Æåçëû'+'|quest*|Ïåéäæåð êâåñòîâ'+'|questitem*|Êâåñòîâûå ïðåäìåòû'+'|say*|Ðåïëèêè íà êàðòå'+'|spell*|Çàêëèíàíèÿ'+'|string*|Ñòðîêè'+'|tip*|Âñïëûâàþùèå ïîäñêàçêè'+'|tutor*|Òåêñòû ýêðàíîâ ïîäñêàçîê'+'|tutorial*|Íàñòðîéêà ïîäñêàçîê'+'|unit*|Èìåíà þíèòîâ'+'|weapon*|Îðóæèå'+'|zone*|Îïèñàíèå çîí'+'|*.res|ðåçû'+'|*.mq|ÌÊÓ-øêè'; 
     34  IniConfFormatVer = 1; 
     35  EiEdit_AppName = 'Eiedit'; 
     36  EiEdit_CopyrightStr = 'Copyright © 2002 Gipat Group'; 
     37  EiEdit_CraftedBy_list = 'Sagrer'; 
     38  EiEdit_DevelsContacts = 'www.GipatGroup.org'; 
    3439 
    3540 
    …… 
    6368  RedressResPath, SfxResPath, SpeechResPath, TextsResPath, 
    6469  TextslmpResPath, TexturesResPath, DatabaseResIsh, DatabaselmpResIsh, 
    65   TextsEdStart, ver, TxtEdDlgFiltList : string; 
     70  TextsEdStart, TxtEdDlgFiltList : string; 
    6671  //Integer 
    6772  MfHeight, MfWidth, MfTop, MfLeft, MfWstate, TxtEdDlgCritSiz, 
    …… 
    101106  Registr : TRegistry; 
    102107  AnIniFil : TAnIniFile; 
    103   VerInfo : TVerInfoFromFile; 
     108  VitInfo : TVerInfoTxtFormat; 
    104109 
    105110