Calendar control like outlook

[hyonos]

hi,
i'm looking for create calendar control like outlook calendar.
i must create month views and fill in calendar control my data.
i have see outlook calendar and i'm looking for freeware similar object.

can anyone help me?

 

[fluteplr]

Freeware you are probably out of luck. If you can spend some money look at the DBI calendar controls.

 

[Mike Lewis]

I agree with Flutepir. DBI's control are designed to mimic Outlook; they all work well with VFP.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[Mike Gagnon]

hyonos

Why not use the Outlook one? Run the following code:

Public oform1
oform1=Newobject("form1")
oform1.Show
Return
Define Class form1 As Form
	Top = 0
	Left = 0
	Height = 537
	Width = 641
	DoCreate = .T.
	Caption = "Form1"
	WindowState = 0
	Name = "Form1"
	Add Object olecontrol1 As OleControl With ;
		Top = 24, ;
		Left = 24, ;
		Height = 481, ;
		Width = 565, ;
		Name = "Olecontrol1", ;
		OleClass = "OVCtl.OVCtl.1"
	Procedure Init
	This.olecontrol1.Folder = "CALENDAR"
	This.Caption = "OutLook Calendar"
Endproc
Enddefine

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[fluteplr]

I just assumed that if he wanted freeware he would not want to pay for Office either. LOL.

 

[Mike Gagnon]

fluteplr

I just assumed that if he wanted freeware he would not want to pay for Office either. LOL.

Maybe, but depending on where you are in the world, here in North America I would estimate the 95% of computer have Outlook installed (whether they use it or not).

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[hyonos]

I agree with Flutepir... if my user don't have office?
i don't want create office dependent

in this case, if i want free i must develop my own control

 

[Mike Gagnon]

hyonos

in this case, if i want free i must develop my own control

A very basic (and old one!) one might be:

ACTIVATE WINDOW calendar

Which still work in VFP8.0, and you can record activities per day.


Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Lewis]

Mike

ACTIVATE WINDOW calendar

Good point. It's always worth remembering that those ancient features are still available (including good old Puzzle).

One point re the calendar: Is there any way of programmatically obtaining the value of the date that the user selects, do you know?

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[Mike Gagnon]

Mike

The _DIARYDATE gives you that info.

SET CENTURY ON
STORE {^2001-03-28} TO _DIARYDATE
=MESSAGEBOX(DTOC(_DIARYDATE),64)
ACTIVATE WINDOW calendar
=MESSAGEBOX("Change date to July 4, 1776",48))
STORE {^1776-07-04} TO _DIARYDATE
=MESSAGEBOX(DTOC(_DIARYDATE),64)
=MESSAGEBOX("Change date to today's date",48)
STORE DATE( ) TO _DIARYDATE
=MESSAGEBOX(DTOC(_DIARYDATE),64)
RELEASE WINDOW calendar

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[Mike Lewis]

Mike,

I hadn't come across _DIARYDATE before. Makes the calendar window much more useful. Thanks.

Mike


Mike Lewis
Edinburgh, Scotland

My Visual Foxpro web site:

http://www.ml-consult.demon.co.uk

My Crystal Reports web site:

http://www.ml-crystal.com

 

[Mike Gagnon]

MikeLewis

The same way that the calculator in FoxPro can also be used with variables to determine the returning values to make more usefull.
ACTIVATE WINDOW calculator

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[tristero]

is there a click() event for calendar in a form?

Dan Trenz
Ann Arbor, MI

 

[Mike Gagnon]

tristero

Please start you own thread so it gets all the attention it deserves.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.