TWPlann

Copyright (c) 1997. All Rights Reserved. 
By Abou SY . Bordeaux, France .

E.Mail avicenne@infonie.fr







TWPlann is a TcustomGrid descendent and allows you to organize your work weekly.

Well that's about it, if you have any questions or comments please let me
know at avicenn@infonie.fr.

1. Installation:

 A)   Copy PlanWk.dcu to a directory of your choice.

 B)   Next start Delphi and choose options and install components. Press the add button and then browse button and choose PlanWk.dcu and press OK. 
 The component will be installed into the page 'Sy'.

2. How to use:
 You can use this control like any other. Drag it into your form.Set properties and run your program. 
 At runtime there is methods to manipulate,browse,save,...your datas.


3. Use these components at your own risk, as they have not been tested for
   every situation and are not guaranteed in anyway.

4. I'd be very interested in feedback positive or negitive.
For any suggestion or comment  please send an E.mail or a post card at:

Mr A.Sy 
1,rue des fleurs
33700 Mrignac.
France.





Thank you,


Methods and Prorties at runtime;

    function  dateDay(D: TDateTime): Integer;
    function  dateYear(D: TDateTime): Integer;
    function BeginOfYear(D: TDateTime): TDateTime;
    function EndOfYear(D: TDateTime): TDateTime;
    function DayOfYear(D: TDateTime): Integer;
    function dateDayOfWeek(D: TDateTime): TDayOfWeek;
    function BeginOfWeek(D: TDateTime;Weekday: Integer): TDateTime;
    function WeekOfYear(D: TDateTime): Integer;
    function CellDate( ACol : Integer):TDateTime;
    function CellTime( ARow : Integer):TDateTime;
    Procedure LoadPlannW;
    Procedure SavePlannW;
    procedure NextMonth;
    procedure NextWeek;
    procedure NextYear;
    procedure PrevMonth;
    procedure PrevWeek;
    procedure PrevYear;
    property CalendarWeek: Integer read FWeek write SetCalendarWeek;
    property CalendarDate: TDateTime  read FDate write SetCalendarDate stored StoreCalendarDate;
    property CellText[ACol, ARow: Integer]: string read GetCellText;
    Property Row;
    Property Col;
    Property Strings[ACol, ARow : Integer] : TStrings read GetStrings write SetStrings;
	

Enjoy !
