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 |
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
42
43
44
45
46
47
48
49
..
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="LCL"/>
</Item1>
</RequiredPackages>
<Units Count="4">
<Unit0>
<Filename Value="projectit.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="../f_main.pas"/>
<IsPartOfProject Value="True"/>
................................................................................
<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>
|
|
>
>
>
>
|
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
..
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
</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"/>
................................................................................
<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.
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset
Forms,
m_main, f_main, f_project
{ you can add units after this };
{$R *.res}
begin
Application.Title:='ProjectIt!';
RequireDerivedFormResource := True;
|
| |
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
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. |