BorlandTalk.com

Daryl · Guest

Hi all
I have placed a TMonthCalendar control onto a TForm. The idea is to allow
the user to open the form using ShowModal, I then retrieve the date selected
by the user. This all works fine.

The problem is with machines with different Font Settings ie Small 96 pixels
per inch verses 120 pixels per inch Large Fonts.

I tried to set the form's Client height and width using the calendar's
height and width but when the form is opened on a 120 ppi machine there is a
reasonably large border about the calendar (note the borders are unequal in
width).

Note : I have also set the calendar control to be aligned to the Client.

Anyone have any ideas how to overcome this problem??

Thanks
Daryl

JD · Guest

"Daryl" <stockd (AT) tpg (DOT) com.au> wrote:

Remy Lebeau (TeamB) · Guest

"Daryl" <stockd (AT) tpg (DOT) com.au> wrote

Daryl · Guest

Thanks for the reply JD
The problem was that the Calendar control completely filled the form on the
96 ppi machine but had an unequal grey (in this case) boarder about the
calendar on the 120 ppi machine.

Anyway, I think I stumbled onto a solution / workaround. It uses the
following method:

1) the form containing the Calendar control has its property AutoSize set to
true

2) during the construction of the form that has to neatly contain the
Calendar control I used this code:

TRect r;
MonthCal_GetMinReqRect(cal->Handle, &r);
this->AutoSize = true;
SetWindowPos(cal->Handle, NULL, 0, 0, r.right, r.bottom+1, SWP_NOZORDER);

Seems to do the job, I have checked it on three machines and the Calendar
control with no extra boarder is displayed independent on what the ppi (font
setting is).

Daryl

"JD" <nospam (AT) nospam (DOT) com> wrote