Changeset 2


Ignore:
Timestamp:
Jan 22, 2013, 11:08:49 AM (11 years ago)
Author:
chronos
Message:
  • Added: Early coding preparation.
Files:
9 added
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/Forms/UFormBrowse.lfm

    r1 r2  
    11object FormBrowse: TFormBrowse
    2   Left = 259
    3   Height = 240
    4   Top = 84
    5   Width = 320
     2  Left = 327
     3  Height = 526
     4  Top = 143
     5  Width = 722
    66  Caption = 'FormBrowse'
     7  ClientHeight = 526
     8  ClientWidth = 722
    79  LCLVersion = '1.1'
     10  object TreeView1: TTreeView
     11    Left = 0
     12    Height = 526
     13    Top = 0
     14    Width = 241
     15    Align = alLeft
     16    TabOrder = 0
     17  end
     18  object Splitter1: TSplitter
     19    Left = 241
     20    Height = 526
     21    Top = 0
     22    Width = 5
     23  end
     24  object ListView1: TListView
     25    Left = 246
     26    Height = 526
     27    Top = 0
     28    Width = 476
     29    Align = alClient
     30    Columns = <   
     31      item
     32        Caption = 'Name'
     33      end   
     34      item
     35        Caption = 'Revision'
     36      end   
     37      item
     38        Caption = 'Last change date'
     39      end   
     40      item
     41        Caption = 'Last author'
     42      end   
     43      item
     44        Caption = 'Status'
     45        Width = 256
     46      end>
     47    ReadOnly = True
     48    RowSelect = True
     49    TabOrder = 2
     50    ViewStyle = vsReport
     51  end
    852end

  • trunk/Forms/UFormBrowse.pas

    r1 r2  
    66
    77uses
    8   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
     8  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
     9  ExtCtrls;
    910
    1011type
     12
     13  { TFormBrowse }
     14
    1115  TFormBrowse = class(TForm)
     16    ListView1: TListView;
     17    Splitter1: TSplitter;
     18    TreeView1: TTreeView;
    1219  private
    1320    { private declarations }

  • trunk/VCSCommander.lpi

    r1 r2  
    7979      </Item1>
    8080    </RequiredPackages>
    81     <Units Count="3">
     81    <Units Count="5">
    8282      <Unit0>
    8383        <Filename Value="VCSCommander.lpr"/>
    … …  
    8686      </Unit0>
    8787      <Unit1>
    88         <Filename Value="UFormMain.pas"/>
     88        <Filename Value="Forms/UFormMain.pas"/>
    8989        <IsPartOfProject Value="True"/>
    9090        <ComponentName Value="FormMain"/>
    … …  
    101101        <UnitName Value="UCore"/>
    102102      </Unit2>
     103      <Unit3>
     104        <Filename Value="Forms/UFormBrowse.pas"/>
     105        <IsPartOfProject Value="True"/>
     106        <ComponentName Value="FormBrowse"/>
     107        <ResourceBaseClass Value="Form"/>
     108        <UnitName Value="UFormBrowse"/>
     109      </Unit3>
     110      <Unit4>
     111        <Filename Value="Units/UVCS.pas"/>
     112        <IsPartOfProject Value="True"/>
     113        <UnitName Value="UVCS"/>
     114      </Unit4>
    103115    </Units>
    104116  </ProjectOptions>
    … …  
    110122    <SearchPaths>
    111123      <IncludeFiles Value="$(ProjOutDir)"/>
     124      <OtherUnitFiles Value="Forms;Units"/>
    112125      <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
    113126    </SearchPaths>

  • trunk/VCSCommander.lpr

    r1 r2  
    88  {$ENDIF}{$ENDIF}
    99  Interfaces, // this includes the LCL widgetset
    10   Forms, UFormMain, UCore
     10  Forms, UFormMain, UCore, UFormBrowse, UVCS
    1111  { you can add units after this };
    1212
    … …  
    1818  Application.CreateForm(TFormMain, FormMain);
    1919  Application.CreateForm(TCore, Core);
     20  Application.CreateForm(TFormBrowse, FormBrowse);
    2021  Application.Run;
    2122end.
Note: See TracChangeset for help on using the changeset viewer.