[HeDiBo]

When OnMouseUp and OnMouseDown work, there should be an easy way to get from the X,Y coordinates to the pertinent date.

[Ronaldo Souza]

'HeDiBo' wrote:

When OnMouseUp and OnMouseDown work, there should be an easy way to get from the X,Y coordinates to the pertinent date.

I believe you can use the day, month & year fieds to get the current date:

procedure TForm1.sMonthCalendar1Change(Sender: TObject); //OnChange handler

begin

Form1.Caption := Format('%0.2d/%0.2d/%0.2d',[sMonthCalendar1.day,sMonthCalendar1.month,sMonthCalendar1.year]);

end;

Hope it helps!

Best regards,

Ronaldo

[HeDiBo]

'Ronaldo wrote:

I believe you can use the day, month & year fieds to get the current date:

Thank you for your efforts. Much appreciated.

In the OnMouseUp and OnMouseDown event the X and Y coordinates in the parameters do not reflect the current date. Clicking on a date with the right mouse button means the current day, month and year properties are not updated to the mouse position so only X and Y are the values usable. Therefore there should be an easy way to get from (X,Y) to the date clicked.

[Support]

Hi!

I see this problem and I will solve it in the nearest release, thanks for the messages.

[HeDiBo]

'Support' wrote:

Hi!

I see this problem and I will solve it in the nearest release, thanks for the messages.

I am very sorry to finding out that you corrected this bug in the beta release 11 but not in the stable release 10.

[Support]

I have added changes into the v10 also. I hope to release the v10.30 soon.

[HeDiBo]

'Support' wrote:

I have added changes into the v10 also. I hope to release the v10.30 soon.

Great, thanks :a3:

Will that also include function(s) to get from the X and Y coordinates of OnMouseUp and OnMouseDown to cell coordinates and then to date?

I want to implement a right click event in a calendar, much like the OnDblClick event.

[Support]

Ok, the MousePosToDate function will be added )

[HeDiBo]

'Support' wrote:

Ok, the MousePosToDate function will be added )

Maybe it should be done in two functions:

MouseToCell from the underlying TsCalendarGrid is already there. All we need therefore is CellToDate. For that all you have to do is make the private function GetCellDate part of a new property “CellDate” (a read-only property). That was probably your plan from the beginning, considering the analog CellText property.

[Support]

Hi!

The protected GetCellDate function exists there, I can move it to the “public”:

Code:

function GetCellDate(ACol, ARow: Integer): TDateTime;

[HeDiBo]

'Support' wrote:

Hi!

The protected GetCellDate function exists there, I can move it to the “public”:

Code:

function GetCellDate(ACol, ARow: Integer): TDateTime;

You already have this public property:

Code:

property CellText[ACol, ARow: Integer]: string read GetCellText;

So, analogous, you could add this:

Code:

property CellDate[ACol, ARow: Integer]: TDateTime read GetCellDate;

Looks even better, don't you think?

[Support]

Yes, you are right, CellDate will be added.

[HeDiBo]

'Support' wrote:

Yes, you are right, CellDate will be added.

I edited my post, because it returned a String i.s.o. a TDateTime

[HeDiBo]

Function MousePosToDate works like a charm :a3:.

The property CellDate should produce the same result. But because the caller does not know about the grid's borders, it is a week off. I think it could be removed again, because it serves no purpose this way.

See what I mean in this project: [attachment=7739:acCalendarMouseUp.zip]

[HeDiBo]

To my dismay, now DoubleClick doesn't work anymore 😡

If OnMouseUp is defined, it does not fire (which is standard behavior), but…

if OnMouseUp is undefined, it fires TWO TIMES!

The problem is in this definition:

Code:

TsCalendGrid = class(TDrawGrid)
private
FOwner: TsMonthCalendar;
procedure WMSize (var Message: TWMSize ); message WM_SIZE;
procedure WMMouseActivate(var Message: TMessage); message WM_MOUSEACTIVATE;
protected
procedure WndProc(var Message: TMessage); override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp (Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure DblClick; override; // This should be removed again: double click already works on the owning TsMonthCalendar
public

[Support]

Updated sMonthCalendar is available there:

http://www.alphaskins.com/forum/index.php?app=core&module=attach&section=attach&attach_id=7741

[Author]

Posts