Changeset 24 for trunk


Ignore:
Timestamp:
Apr 5, 2025, 9:45:07 PM (4 days ago)
Author:
chronos
Message:
  • Fixed: Test cases executed with FormTests form from Common package.
Location:
trunk
Files:
1 added
2 deleted
17 edited

Legend:

Unmodified
Added
Removed

  • trunk/Backends/Bazaar/Bazaar.pas

    r23 r24  
    2424    procedure Update; override;
    2525    procedure CleanUp; override;
    26     procedure Commit(Message: TStrings); override;
     26    procedure Commit(Message: string); override;
    2727    procedure Move(Source, Dest: string); override;
    2828    procedure Merge; override;
    … …  
    7777end;
    7878
    79 procedure TBazaar.Commit(Message: TStrings);
     79procedure TBazaar.Commit(Message: string);
    8080begin
    81   Execute(['commit', '-m "' + Message.Text + '"']);
     81  Execute(['commit', '-m "' + Message + '"']);
    8282end;
    8383

  • trunk/Backends/CVS/CVS.pas

    r23 r24  
    2525    procedure Update; override;
    2626    procedure CleanUp; override;
    27     procedure Commit(Message: TStrings); override;
     27    procedure Commit(Message: string); override;
    2828    procedure Move(Source, Dest: string); override;
    2929    procedure Merge; override;
    3030    procedure Add(FileName: string); override;
    3131    procedure Remove(FileName: string); override;
    32     procedure GetStatus(FileName: string; Status: TFileStatusList); override;
     32    procedure GetStatus(FileName: string; Status: TFileStatuses); override;
    3333  end;
    3434
    … …  
    9595end;
    9696
    97 procedure TCVS.Commit(Message: TStrings);
     97procedure TCVS.Commit(Message: string);
    9898begin
    99   Execute(['commit', '-m "' + Message.Text + '"']);
     99  Execute(['commit', '-m "' + Message + '"']);
    100100end;
    101101
    … …  
    124124end;
    125125
    126 procedure TCVS.GetStatus(FileName: string; Status: TFileStatusList);
     126procedure TCVS.GetStatus(FileName: string; Status: TFileStatuses);
    127127begin
    128128  Status.Clear;

  • trunk/Backends/Git/Git.pas

    r23 r24  
    2525    procedure Update; override;
    2626    procedure CleanUp; override;
    27     procedure Commit(Message: TStrings); override;
     27    procedure Commit(Message: string); override;
    2828    procedure Move(Source, Dest: string); override;
    2929    procedure Merge; override;
    3030    procedure Add(FileName: string); override;
    31     procedure GetLog(FileName: string; Log: TLogList); override;
     31    procedure GetLog(FileName: string; Log: TLogItems); override;
    3232  end;
    3333
    … …  
    9393end;
    9494
    95 procedure TGit.Commit(Message: TStrings);
     95procedure TGit.Commit(Message: string);
    9696begin
    9797  Execute(['config', 'user.name "' + UserName + '"']);
    9898  Execute(['config', 'user.email "' + Email + '"']);
    99   Execute(['commit', '-m "' + Message.Text + '"']);
     99  Execute(['commit', '-m "' + Message + '"']);
    100100end;
    101101
    … …  
    115115end;
    116116
    117 procedure TGit.GetLog(FileName: string; Log: TLogList);
     117procedure TGit.GetLog(FileName: string; Log: TLogItems);
    118118begin
    119119end;

  • trunk/Backends/Subversion/Subversion.pas

    r23 r24  
    2525    procedure Update; override;
    2626    procedure CleanUp; override;
    27     procedure Commit(Message: TStrings); override;
     27    procedure Commit(Message: string); override;
    2828    procedure Move(Source, Dest: string); override;
    2929    procedure Merge; override;
    3030    procedure Add(FileName: string); override;
    3131    procedure Remove(FileName: string); override;
    32     procedure GetLog(FileName: string; Log: TLogList); override;
    33     procedure GetStatus(FileName: string; Status: TFileStatusList); override;
     32    procedure GetLog(FileName: string; Log: TLogItems); override;
     33    procedure GetStatus(FileName: string; Status: TFileStatuses); override;
    3434  end;
    3535
    … …  
    116116end;
    117117
    118 procedure TSubversion.Commit(Message: TStrings);
    119 begin
    120   Execute(['commit', '-m "' + Message.Text + '"']);
     118procedure TSubversion.Commit(Message: string);
     119begin
     120  Execute(['commit', '-m "' + Message + '"']);
    121121end;
    122122
    … …  
    141141end;
    142142
    143 procedure TSubversion.GetLog(FileName: string; Log: TLogList);
     143procedure TSubversion.GetLog(FileName: string; Log: TLogItems);
    144144var
    145145  NewItem: TLogItem;
    … …  
    184184end;
    185185
    186 procedure TSubversion.GetStatus(FileName: string; Status: TFileStatusList);
     186procedure TSubversion.GetStatus(FileName: string; Status: TFileStatuses);
    187187var
    188188  Doc: TXMLDocument;
    189189  S: TStringStream;
    190190  Node: TDOMNode;
    191   Node2: TDOMNode;
    192191  RootNode: TDOMNode;
    193192  TargetNode: TDOMNode;

  • trunk/Core.pas

    r23 r24  
    55uses
    66  Classes, SysUtils, XMLConf, LazFileUtils, ActnList, Controls, VCS, Project,
    7   LastOpenedList, Forms, Dialogs, Menus, Generics.Collections, Backend, FormMain;
     7  LastOpenedList, Forms, Dialogs, Menus, Backend,
     8  FormMain;
    89
    910type
    … …  
    6566    function DetectBackend(Directory: string): TBackend;
    6667  public
    67     Backends: TList<TBackend>;
     68    Backends: TBackends;
    6869    Project: TProject;
    6970    ProjectGroup: TProjectGroup;
    … …  
    8889
    8990uses
    90   FormBrowse, FormSettings, FormCommit, FormCheckout,
    91   Subversion, Bazaar, CVS, Git, FormTest, FormProjectGroup;
     91  FormBrowse, FormSettings, FormCommit, FormCheckout, FormTests,
     92  Subversion, Bazaar, CVS, Git, FormProjectGroup, Test;
    9293
    9394{ TCore }
    … …  
    140141
    141142procedure TCore.AViewTestExecute(Sender: TObject);
    142 var
    143   FormTest: TFormTest;
    144 begin
    145   FormTest := TFormTest.Create(nil);
    146   try
    147     FormTest.Show;
    148   finally
    149     FormTest.Free;
    150   end;
     143begin
     144  with TFormTests.Create(nil) do
     145    try
     146      TestCases := InitTestCases;
     147      try
     148        ShowModal;
     149      finally
     150        TestCases.Free;
     151      end;
     152    finally
     153      Free;
     154    end;
    151155end;
    152156
    153157procedure TCore.DataModuleCreate(Sender: TObject);
    154158begin
    155   Backends := TList<TBackend>.Create;
     159  Backends := TBackends.Create;
    156160  Project := nil;
    157161
    … …  
    203207begin
    204208  I := 0;
    205   while (I < Backends.Count) and (not TBackend(Backends[I]).IsWorkingCopy(Directory)) do Inc(I);
    206   if I < Backends.Count then Result := TBackend(Backends[I])
     209  while (I < Backends.Count) and (not Backends[I].IsWorkingCopy(Directory)) do Inc(I);
     210  if I < Backends.Count then Result := Backends[I]
    207211    else Result := nil;
    208212end;
    … …  
    233237  RegisterBackends;
    234238  XMLConfig1.Filename := GetAppConfigDir(False) + 'Config.xml';
    235   ForceDirectoriesUTF8(ExtractFileDir(XMLConfig1.Filename));
     239  ForceDirectories(ExtractFileDir(XMLConfig1.Filename));
    236240  LoadConfig;
    237   if (LastOpenedListProject.Items.Count > 0) and DirectoryExistsUTF8(LastOpenedListProject.Items[0]) then
     241  if (LastOpenedListProject.Items.Count > 0) and DirectoryExists(LastOpenedListProject.Items[0]) then
    238242    ProjectOpen(LastOpenedListProject.Items[0]);
    239243end;
    … …  
    327331procedure TCore.AProjectGroupSaveExecute(Sender: TObject);
    328332begin
    329   if FileExistsUTF8(ProjectGroup.FileName) then ProjectGroup.SaveToFile(ProjectGroup.FileName)
     333  if FileExists(ProjectGroup.FileName) then ProjectGroup.SaveToFile(ProjectGroup.FileName)
    330334    else AProjectGroupSaveAs.Execute;
    331335end;
    … …  
    378382  try
    379383    if FormCommit.ShowModal = mrOk then begin
    380       Project.WorkingCopy.Commit(FormCommit.MemoMessage.Lines);
     384      Project.WorkingCopy.Commit(FormCommit.MemoMessage.Lines.Text);
    381385    end;
    382386  finally

  • trunk/Forms/FormBrowse.pas

    r23 r24  
    55uses
    66  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
    7   ExtCtrls, Menus, ActnList, FindFile, VCS, Generics.Collections, LazFileUtils;
     7  ExtCtrls, Menus, ActnList, FindFile, VCS, LazFileUtils;
    88
    99type
    … …  
    4545      Selected: Boolean);
    4646  private
    47     FileList: TFileStatusList;
     47    FileList: TFileStatuses;
    4848  public
    4949    Directory: string;
    … …  
    118118      ReloadList;
    119119    end else
    120     if DirectoryExistsUTF8(Directory + DirectorySeparator + Caption) then begin
     120    if DirectoryExists(Directory + DirectorySeparator + Caption) then begin
    121121      Directory := Directory + DirectorySeparator + ListView1.Selected.Caption;
    122122      ReloadList;
    … …  
    129129  NewName: string;
    130130begin
     131  NewName := '';
    131132  if InputQuery('Rename', 'Enter new name', NewName) then
    132133    Core.Core.Project.WorkingCopy.Move(Directory + DirectorySeparator + ListView1.Selected.Caption, NewName);
    … …  
    135136procedure TFormBrowse.FormCreate(Sender: TObject);
    136137begin
    137   FileList := TFileStatusList.Create;
     138  FileList := TFileStatuses.Create;
    138139end;
    139140
    … …  
    153154  FoundFileList: TStrings;
    154155  I: Integer;
    155   FileStatusList: TFileStatusList;
     156  FileStatusList: TFileStatuses;
    156157  NewFileItem: TFileStatus;
    157158  FS: TFileStatus;
    … …  
    160161  FileList.Clear;
    161162  if Assigned(Core.Core.Project) then begin
    162   FileStatusList := TFileStatusList.Create;
     163  FileStatusList := TFileStatuses.Create;
    163164  try
    164165  Core.Core.Project.WorkingCopy.GetStatus(Directory, FileStatusList);
    165166
    166   if DirectoryExistsUTF8(Directory) then begin
     167  if DirectoryExists(Directory) then begin
    167168    FindFile := TFindFile.Create(nil);
    168169    try

  • trunk/Forms/FormConsole.pas

    r23 r24  
    8888  Line: string;
    8989  CommandLine: string;
    90   I: Integer;
    9190begin
    9291  Text := '';

  • trunk/Forms/FormLog.pas

    r23 r24  
    2727  public
    2828    FileName: string;
    29     LogList: TLogList;
     29    LogList: TLogItems;
    3030    procedure ReloadList;
    3131    procedure UpdateInterface;
    … …  
    4444procedure TFormLog.FormCreate(Sender: TObject);
    4545begin
    46   LogList := TLogList.Create;
     46  LogList := TLogItems.Create;
    4747end;
    4848

  • trunk/Forms/FormMain.lfm

    r23 r24  
    11object FormMain: TFormMain
    22  Left = 687
    3   Height = 767
     3  Height = 733
    44  Top = 411
    55  Width = 1408
    66  Caption = 'VCSCommander'
    7   ClientHeight = 767
     7  ClientHeight = 733
    88  ClientWidth = 1408
    99  DesignTimePPI = 144
    … …  
    4545    Left = 0
    4646    Height = 28
    47     Top = 739
     47    Top = 705
    4848    Width = 1408
    4949    Panels = <>

  • trunk/Languages/VCSCommander.cs.po

    r23 r24  
    1818msgstr "ŠpatnÜ formát souboru"
    1919
     20#: test.sexpected
     21msgid "Expected:"
     22msgstr ""
     23
     24#: test.sexport
     25msgid "Export:"
     26msgstr ""
     27
     28#: test.soutput
     29msgid "Output:"
     30msgstr ""
     31

  • trunk/Languages/VCSCommander.pot

    r23 r24  
    77msgstr ""
    88
     9#: test.sexpected
     10msgid "Expected:"
     11msgstr ""
     12
     13#: test.sexport
     14msgid "Export:"
     15msgstr ""
     16
     17#: test.soutput
     18msgid "Output:"
     19msgstr ""
     20

  • trunk/Packages/Common/Translator.pas

    r21 r24  
    482482
    483483  Result := ChangeFileExt(ParamStr(0), LCExt);
    484   if FileExistsUTF8(Result) then
     484  if FileExists(Result) then
    485485    Exit;
    486486
    … …  
    500500    Result := ExtractFilePath(ParamStrUTF8(0)) + LangID +
    501501      DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    502     if FileExistsUTF8(Result) then
     502    if FileExists(Result) then
    503503      exit;
    504504
    505505    Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator + LangID +
    506506      DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    507     if FileExistsUTF8(Result) then
     507    if FileExists(Result) then
    508508      exit;
    509509
    510510    Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator
    511511      + LangID + DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    512     if FileExistsUTF8(Result) then
     512    if FileExists(Result) then
    513513      exit;
    514514
    … …  
    516516      + LangID + DirectorySeparator + 'LC_MESSAGES' + DirectorySeparator +
    517517      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    518     if FileExistsUTF8(Result) then
     518    if FileExists(Result) then
    519519      exit;
    520520
    … …  
    523523    Result := '/usr/share/locale/' + LangID + '/LC_MESSAGES/' +
    524524      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    525     if FileExistsUTF8(Result) then
     525    if FileExists(Result) then
    526526      exit;
    527527    {$ENDIF}
    … …  
    531531    Result := ExtractFilePath(ParamStrUTF8(0)) + LangShortID +
    532532      DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    533     if FileExistsUTF8(Result) then
     533    if FileExists(Result) then
    534534      exit;
    535535
    … …  
    537537      LangShortID + DirectorySeparator + ChangeFileExt(
    538538      ExtractFileName(ParamStrUTF8(0)), LCExt);
    539     if FileExistsUTF8(Result) then
     539    if FileExists(Result) then
    540540      exit;
    541541
    … …  
    543543      + LangShortID + DirectorySeparator + ChangeFileExt(
    544544      ExtractFileName(ParamStrUTF8(0)), LCExt);
    545     if FileExistsUTF8(Result) then
     545    if FileExists(Result) then
    546546      exit;
    547547
    … …  
    549549      + LangShortID + DirectorySeparator + 'LC_MESSAGES' + DirectorySeparator +
    550550      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    551     if FileExistsUTF8(Result) then
     551    if FileExists(Result) then
    552552      exit;
    553553
    … …  
    556556    try
    557557      Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
    558       if FileExistsUTF8(Result) then
     558      if FileExists(Result) then
    559559        exit;
    560560      // Common location (like in Lazarus)
    561561      Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
    562562        ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
    563       if FileExistsUTF8(Result) then
     563      if FileExists(Result) then
    564564        exit;
    565565
    566566      Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' +
    567567        DirectorySeparator + ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangID])) + LCExt;
    568       if FileExistsUTF8(Result) then
     568      if FileExists(Result) then
    569569        exit;
    570570    except
    … …  
    575575    Result := '/usr/share/locale/' + LangShortID + '/LC_MESSAGES/' +
    576576      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), LCExt);
    577     if FileExistsUTF8(Result) then
     577    if FileExists(Result) then
    578578      exit;
    579579    {$ENDIF}
    580580    Result := ExtractFilePath(ParamStrUTF8(0)) + ChangeFileExt(
    581581      ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
    582     if FileExistsUTF8(Result) then
     582    if FileExists(Result) then
    583583      exit;
    584584
    585585    Result := ExtractFilePath(ParamStrUTF8(0)) + 'locale' + DirectorySeparator +
    586586      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
    587     if FileExistsUTF8(Result) then
     587    if FileExists(Result) then
    588588      exit;
    589589
    590590    Result := ExtractFilePath(ParamStrUTF8(0)) + 'languages' + DirectorySeparator +
    591591      ChangeFileExt(ExtractFileName(ParamStrUTF8(0)), Format(FormatLang, [LangShortID])) + LCExt;
    592     if FileExistsUTF8(Result) then
     592    if FileExists(Result) then
    593593      exit;
    594594  end;

  • trunk/Units/Backend.pas

    r23 r24  
    44
    55uses
    6   Classes, SysUtils, VCS;
     6  Classes, SysUtils, VCS, Generics.Collections;
    77
    88type
    … …  
    1919    function IsRepository(Directory: string): Boolean; virtual;
    2020    function IsWorkingCopy(Directory: string): Boolean; virtual;
     21  end;
     22
     23  TBackends = class(TList<TBackend>)
    2124  end;
    2225

  • trunk/Units/Project.pas

    r23 r24  
    8080    NewNode := Node.OwnerDocument.CreateElement('Project');
    8181    Node.AppendChild(NewNode);
    82     TProject(Items[I]).SaveXMLNode(NewNode);
     82    Items[I].SaveXMLNode(NewNode);
    8383  end;
    8484end;
    … …  
    136136      Projects.SaveXMLNode(NewNode);
    137137    end;
    138     ForceDirectoriesUTF8(ExtractFileDir(FileName));
    139     WriteXMLFile(Doc, UTF8Decode(FileName));
     138    ForceDirectories(ExtractFileDir(FileName));
     139    WriteXMLFile(Doc, FileName);
    140140  finally
    141141    Doc.Free;

  • trunk/Units/VCS.pas

    r23 r24  
    2121  end;
    2222
    23   TLogList = class(TObjectList<TLogItem>)
     23  TLogItems = class(TObjectList<TLogItem>)
    2424  end;
    2525
    … …  
    3737  end;
    3838
    39   { TFileStatusList }
    40 
    41   TFileStatusList = class(TObjectList<TFileStatus>)
     39  { TFileStatuses }
     40
     41  TFileStatuses = class(TObjectList<TFileStatus>)
    4242    function SearchByName(Name: string): TFileStatus;
    4343  end;
    … …  
    6464    procedure Update; virtual;
    6565    procedure CleanUp; virtual;
    66     procedure Commit(Message: TStrings); virtual;
     66    procedure Commit(Message: string); virtual;
    6767    procedure Move(Source, Dest: string); virtual;
    6868    procedure Merge; virtual;
    … …  
    7070    procedure Add(FileName: string); virtual;
    7171    procedure Remove(FileName: string); virtual;
    72     procedure GetLog(FileName: string; Log: TLogList); virtual;
    73     procedure GetStatus(FileName: string; Status: TFileStatusList); virtual;
     72    procedure GetLog(FileName: string; Log: TLogItems); virtual;
     73    procedure GetStatus(FileName: string; Status: TFileStatuses); virtual;
    7474    constructor Create;
    7575    destructor Destroy; override;
    … …  
    8686    ExecutionOutput: TStringList;
    8787    Path: string;
     88    SilentExecution: Boolean;
    8889    procedure Init; virtual;
    8990    constructor Create;
    … …  
    106107begin
    107108  Result := DirName;
    108   if Relative then Result := GetCurrentDirUTF8 + DirectorySeparator + Result;
     109  if Relative then Result := GetCurrentDir + DirectorySeparator + Result;
    109110  Result := 'file:///' + StringReplace(Result, DirectorySeparator, '/', [rfReplaceAll]);
    110111end;
    … …  
    121122end;
    122123
    123 { TFileStatusList }
    124 
    125 function TFileStatusList.SearchByName(Name: string): TFileStatus;
     124{ TFileStatuses }
     125
     126function TFileStatuses.SearchByName(Name: string): TFileStatus;
    126127var
    127128  I: Integer;
    … …  
    145146    FormConsole.Parameters.Clear;
    146147    FormConsole.Parameters.AddStrings(Parameters);
    147     if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
     148    if DirectoryExists(Path) then FormConsole.WorkingDir := Path
    148149      else FormConsole.WorkingDir := '';
    149     FormConsole.ShowModal;
     150    if SilentExecution then FormConsole.Perform
     151      else FormConsole.ShowModal;
    150152    ExecutionOutput.Assign(FormConsole.Log);
    151153  finally
    … …  
    156158procedure TRepository.Init;
    157159begin
    158 
    159160end;
    160161
    … …  
    211212    FormConsole.Parameters.Clear;
    212213    FormConsole.Parameters.AddStrings(Parameters);
    213     if DirectoryExistsUTF8(Path) then FormConsole.WorkingDir := Path
     214    if DirectoryExists(Path) then FormConsole.WorkingDir := Path
    214215      else FormConsole.WorkingDir := '';
    215216    if SilentExecution then FormConsole.Perform
    … …  
    234235procedure TWorkingCopy.Checkout;
    235236begin
    236 
    237237end;
    238238
    239239procedure TWorkingCopy.Update;
    240240begin
    241 
    242241end;
    243242
    244243procedure TWorkingCopy.CleanUp;
    245244begin
    246 
    247 end;
    248 
    249 procedure TWorkingCopy.Commit(Message: TStrings);
    250 begin
    251 
     245end;
     246
     247procedure TWorkingCopy.Commit(Message: string);
     248begin
    252249end;
    253250
    254251procedure TWorkingCopy.Move(Source, Dest: string);
    255252begin
    256 
    257253end;
    258254
    259255procedure TWorkingCopy.Merge;
    260256begin
    261 
    262257end;
    263258
    264259procedure TWorkingCopy.Refresh;
    265260begin
    266 
    267261end;
    268262
    269263procedure TWorkingCopy.Add(FileName: string);
    270264begin
    271 
    272265end;
    273266
    274267procedure TWorkingCopy.Remove(FileName: string);
    275268begin
    276 
    277 end;
    278 
    279 procedure TWorkingCopy.GetLog(FileName: string; Log: TLogList);
     269end;
     270
     271procedure TWorkingCopy.GetLog(FileName: string; Log: TLogItems);
    280272begin
    281273  Log.Clear;
    282274end;
    283275
    284 procedure TWorkingCopy.GetStatus(FileName: string; Status: TFileStatusList);
     276procedure TWorkingCopy.GetStatus(FileName: string; Status: TFileStatuses);
    285277begin
    286278  Status.Clear;

  • trunk/VCSCommander.lpi

    r23 r24  
    189189      </Unit16>
    190190      <Unit17>
    191         <Filename Value="Forms/FormTest.pas"/>
    192         <IsPartOfProject Value="True"/>
    193         <ComponentName Value="FormTest"/>
     191        <Filename Value="Forms/FormProjectGroup.pas"/>
     192        <IsPartOfProject Value="True"/>
     193        <ComponentName Value="FormProjectGroup"/>
    194194        <HasResources Value="True"/>
    195195        <ResourceBaseClass Value="Form"/>
    196196      </Unit17>
    197197      <Unit18>
    198         <Filename Value="Forms/FormProjectGroup.pas"/>
    199         <IsPartOfProject Value="True"/>
    200         <ComponentName Value="FormProjectGroup"/>
    201         <HasResources Value="True"/>
    202         <ResourceBaseClass Value="Form"/>
     198        <Filename Value="Test.pas"/>
     199        <IsPartOfProject Value="True"/>
    203200      </Unit18>
    204201    </Units>

  • trunk/VCSCommander.lpr

    r23 r24  
    88  Forms, FormMain, Core, Common, FormBrowse, VCS,
    99  FormFavorites, FormSettings, FormConsole, Subversion, Project, SysUtils,
    10   FormCommit, FormCheckout, Bazaar, Backend, FormLog, FormTest,
    11   FormProjectGroup
     10  FormCommit, FormCheckout, Bazaar, Backend, FormLog,
     11  FormProjectGroup, Test
    1212  { you can add units after this };
    1313
Note: See TracChangeset for help on using the changeset viewer.