Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Add some class prototypes to be used. |
|---|---|
| Timelines: | family | ancestors | descendants | both | projectit-laz |
| Files: | files | file ages | folders |
| SHA1: |
3cb52dd6ea49e68b54f64b8f34a69833 |
| User & Date: | tinus 2015-11-29 20:05:43.609 |
Context
|
2016-12-01
| ||
| 18:33 | Add list. Leaf check-in: 2c9c4304e1 user: tinus tags: projectit-laz | |
|
2015-11-29
| ||
| 20:05 | Add some class prototypes to be used. check-in: 3cb52dd6ea user: tinus tags: projectit-laz | |
| 16:13 | Changed main form. check-in: 8f1211f175 user: tinus tags: projectit-laz | |
Changes
Changes to ProjectIt/src/lazarus/projectit.lpi.
| ︙ | ︙ | |||
35 36 37 38 39 40 41 |
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
| | | 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="5">
<Unit0>
<Filename Value="projectit.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="../f_main.pas"/>
<IsPartOfProject Value="True"/>
|
| ︙ | ︙ | |||
61 62 63 64 65 66 67 68 69 70 71 72 73 74 |
<Unit3>
<Filename Value="f_project.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmCurrentProject"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit3>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="projectit"/>
</Target>
| > > > > | 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 |
<Unit3>
<Filename Value="f_project.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="frmCurrentProject"/>
<HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
</Unit3>
<Unit4>
<Filename Value="../u_project.pas"/>
<IsPartOfProject Value="True"/>
</Unit4>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<Target>
<Filename Value="projectit"/>
</Target>
|
| ︙ | ︙ |
Changes to ProjectIt/src/lazarus/projectit.lpr.
1 2 3 4 5 6 7 8 9 10 |
program projectit;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
| | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
program projectit;
{$mode objfpc}{$H+}
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
m_main, f_main, f_project, u_project
{ you can add units after this };
{$R *.res}
begin
Application.Title:='ProjectIt!';
RequireDerivedFormResource := True;
|
| ︙ | ︙ |
Added ProjectIt/src/u_project.pas.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 |
unit u_project;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fgl;
type
TProject = class
public
constructor Create(const AParent: TProject);
property Parent: TProject read FParent write FParent;
property Code: string read FCode write FCode;
property Name: string read FName write FName;
property Description: string read FDescription write FDescription;
property Paid: boolean read FPaid write FPaid;
end;
TProjects = class(specialize TFPGObjectList<TProject>);
TActivity = class
public
property Project: TProject read FProject write FProject;
property Description: string read GetDescription write FDescription;
property StartTime: TDateTime read FStart write FStart;
property Active: boolean read FActive write SetActive;
property Duration: cardinal read GetDuration write SetDuration;
property StopTime: TDateTime read GetStop write SetStop;
end;
implementation
end.
|