Uwe Raabe

The docs say for WS_EX_NOACTIVATE:

That would still miss the To achieve that add a message handler like this: procedure WMNCHitTest(var Message: TWMNCHitTest); message WM_NCHITTEST; ... procedure TMyTransparentForm.WMNCHitTest(var Message: TWMNCHitTest); begin Message.Result := HTTRANSPARENT; end;

As already mentioned, TMS FNC Grid, but also TeeGrid from Steema. Technically these are not strictly the same component, because it must be derived from either a VCL or FMX TControl, but for the developer it comes quite near.

In a discussion I also mentioned that it is a Virginia based company, but other powers seem to know better. IMHO that is really sad, because I also like the product and find it more capable than others.

There are some concerns about the country of origin. Some companies have strict compliance rules, while others just have a bad gut feeling.

I guess, that is as designed. When you click on a date that date is selected. When you click again on the same date it is unselected and the Date property is set to NullDate: NullDate: TDate = -700000; You can avoid that when you set SelectionMode to smNone.

I'm a bit unsure what your example should achieve, as it doesn't match what you show here.

As expected, I indeed get different outcomes with Win32 and Win64 targets. (Delphi 11.3 Patch 1)

Well, as it fails in my case, I guess that is what undefined behavior means.

Make the Owner of that TImage instance your component and set csSubComponent in the TImages ComponentStyle. That means, the image should be created like this: FImage := TImage.Create(Self); FImage.SetSubComponent(True);

For FMX?

Reminds me of this one: Why does a call to GetDIBits fail on Win64?

Hybrid, Bastard, Chimera or (my personal favorite) Manticore. But as we already can call a function like a procedure, it may be straight forward to declare a procedure with a return type - even if there is no way to retrieve that value. 🤔 Looking into details, a function internally is just a procedure with an additional parameter for the return value. It is the declaration that makes the difference. After all, I agree that BlockRead/BlockWrite should no longer be used.

That's why it is called Compiler Magic.

Hard to say without testing. It is an intrinsic function, so we cannot see what is done internally.

Interestingly CodeInsight shows it as a procedure with a return value: The docs also state Result as an optional parameter, which indicates it is a procedure:

Wow! If my math is correct that needs more than 32GB of memory. I have no idea what the purpose is, but perhaps there are other approaches to achieve the same.

It is not. The wording of the question leaves room for interpretation and the examples only cover the common case, but are leaving out the corner cases. If the specification were sufficient, I wouldn't have asked my questions.

I am a bit baffled that the OP does not react at all.

Yep, that was the background of these questions to the OP: The code I provided assumes that the start and end date are also counted when they fall on a Sunday. So unless the specification isn't refined any solution (start<=date<=end, start<date<=end, start<=date<end or start<date<end) is valid.

Either the request specifies the 50 records per page or the server defaults or is limited to that. Try to increase the limit in your request or make multiple requests for each page and combine the result sets.

AFAIK, CodeSite is limited to Windows, probably even VCL only. Apart of that it is really great.

This is another approach without any loops: function CalcSundaysBetween(StartDate, EndDate: TDateTime): Integer; begin var D1 := Trunc(StartDate); var D2 := Trunc(EndDate); if D2 < D1 then begin var tmp := D1; D1 := D2; D2 := tmp; end; var offset := (D1 + 6) mod 7; Result := (D2 - D1 + offset) div 7; { check if lower date is a Sunday } if offset = 0 then Inc(Result); end; BTW, despite the title says, according to the examples in his post the OP seems to be more interested in the number of Sundays instead of just their existence.

How do you want to handle the case when both dates are equal as well as a Sunday? How, if they are not equal and both are a Sunday?

Well, at least RADServer is available for Linux.