Enlarge the monthview font?

[Roger Cabo]

Hi everyone,

is there any possibility to enlarge the Month View OXC font?

[webu]

You've looked at the options in Monthview's font properties help?

There is a lot of with 'Font'. Also take a look at 'size'

[(X)]

This is a quick demo of magnifying the control onto another display form that mirrors the actions on the smaller control.

I used Lib_Transparency to set the cursor graphic "Key" color to Black.

  (You will need to compile and put in application directory or in the directory of your library files.)

You just need to set the cursor graphic in the bmp or gif for the frmCursor.Picture property in the GFA form designer.  Black is transparent.

Demo MonthView.G32 (24.66 KB)

Attachments:

Lib_Transparency.G32 (3.59 KB)

[(X)]

This is the cursor file I used...
 

Attachments:

[(X)]

In this version, when you move the mouse cursor over the MonthView control, we make the main form "magically disappear" (made transparent, but, still remains active)  All the user sees is a magnified MonthView control that responds to events just like the original.

Demo MonthView Magnifier.G32 (25.76 KB)

Runtime version... (responds to mouse wheel)

Executable version... (does not respond to mouse wheel)

The trick is to keep the main form On_Top but with the minimum transparency of 1 of the possible:{0 .. 255}.

At the transparency level of 0, the form is fully transparent and ceases to respond to events.

I also hide the application's main mouse cursor and only show it again after the mouse position leaves the month view control area.

As an added bonus, the mousewheel conveniently scrolls the months. (This is built-in behaviour, not my doing.)

[Roger Cabo]

Hi X, thank you..

unfortunately it does work for any reason in the lib transparency.
~SetLayeredWindowAttributes(hwnd, KeyColor, CByte(Transparency And $FF), LWA_ALPHA Or LWA_COLORKEY)

[(X)]

Try compiling this updated version of Lib_Transparency...
(I also updated the initial attachment in the previous post.)

$Export "Lib_Transparency"
$Export Proc L_SetFormTranKey "(frm As Form, Optional Transparency As Long = -1, Optional KeyColor As Long = -1)"

Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
 ByVal hwnd As Long, _
 ByVal crKey As Long, _
 ByVal bAlpha As Byte, _
 ByVal dwFlags As Long) As Long

Proc L_SetFormTranKey(frm As Form, Optional Transparency As Long = -1, Optional KeyColor As Long = -1)
 Local Const GWL_EXSTYLE       = -20
 Local Const WS_EX_LAYERED     = &H80000
 Local Const LWA_ALPHA         = &H2
 Local Const LWA_COLORKEY      = &H1
 
 '
 ' Set the transparency of specified form using SetLayeredWindowAttributes() function...
 '
 If !IsNothing(frm)
   Local hwnd As Long = frm.hWnd
   Local Attrib As Long = GetWindowLong(hwnd, GWL_EXSTYLE)
   ~SetWindowLong(hwnd, GWL_EXSTYLE, Attrib Or WS_EX_LAYERED)
   
   If Transparency <> -1 And KeyColor <> -1
     ~SetLayeredWindowAttributes(hwnd, KeyColor, CByte(Transparency And $FF), LWA_ALPHA Or LWA_COLORKEY)
   ElseIf Transparency <> -1 And KeyColor = -1
     ~SetLayeredWindowAttributes(hwnd, KeyColor, CByte(Transparency And $FF), LWA_ALPHA)
   ElseIf Transparency = -1 And KeyColor <> -1
     ~SetLayeredWindowAttributes(hwnd, KeyColor, CByte(Transparency And $FF), LWA_COLORKEY)
   ElseIf Transparency = -1 And KeyColor = -1
     ~SetLayeredWindowAttributes(hwnd, 0, 0, 0)
   EndIf
   
 EndIf
EndProc