| View previous topic :: View next topic |
| Author |
Message |
Ralf
Joined: 30 Aug 2007
Posts: 50
Location: munich
|
 Posted: Wed Jan 25, 2023 5:26 pm Post subject: %th[ms_style] with read-only controls |
 |
|
I want to use %th with the new scaling option (which implies the ms_style option), but I get a Clearwin+-Error: "Read-only controls can't have ms_style tooltips."
Is there a way to avoid this error? |
|
| Back to top |
|
 |
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8018
Location: Salford, UK
|
| Posted: Wed Jan 25, 2023 6:18 pm Post subject: |
|
|
Ralf
If you are using recent DLLs for the ClearWin+ library you will get the option to continue and ignore the error.
If you have this option and are able to continue, do tooltips appear for the read only controls? I presume that they don't.
If they do appear then I can suppress the error report for you.
If they don't appear then the question is "how can you make a control read only but still active for tooltips?".
If you can present a short sample program then I will be able to investigate further. |
|
| Back to top |
|
|
Ralf
Joined: 30 Aug 2007
Posts: 50
Location: munich
|
| Posted: Thu Jan 26, 2023 10:42 am Post subject: |
|
|
Thanks for the reply, Paul
Yes, I get the option to continue and ignore the error, but the tooltips of the read only controls don't appear.
Here is a simple example:
| Code: |
program test_th
integer :: winio@, iw
real*8 :: var1, var2
var1 = 1.1d0
var2 = 2.2d0
iw = winio@ ('%th[scaling=1.3]&', 1)
iw = winio@ ('%?8rf[help-text 1]%2nl&',var1)
iw = winio@ ('%`?8rf[help-text 2]%2nl&',var2)
iw = winio@ ('%cn%bt[Close]')
stop
end
|
|
|
| Back to top |
|
|
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8018
Location: Salford, UK
|
| Posted: Fri Jan 27, 2023 9:19 am Post subject: |
|
|
Ralf
I have had a look at this and this feature is not currently available in ClearWin+ but could be added.
I will add this to the list as a request for a new feature. |
|
| Back to top |
|
|
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8018
Location: Salford, UK
|
| Posted: Wed Feb 01, 2023 4:22 pm Post subject: |
|
|
Ralf
Although the Microsoft documentation says that a read-only control can have a tooltip (by using its bounding rectangle rather than its HWND) I have not been able to get this to work for 64 bit applications.
As an alternaive solution, I have updated the native tooltips (obtained by avoiding [ms_style]) so that they can look like Microsoft tooltips and so that the font can be scaled.
New options for the native tooltips include:
1) [scale=1.3] this is the same as [scaling=1.3] but does not imply [ms_style].
2) [back_color=<colour>] and [text_color=<colour>]. The default background colour for Microsoft tooltips is white.
With these changes native tooltips can be made to be very similar to Microsoft tooltips particularly if used with [at_curosr]. They will also have the same small shadow.
The downside is that native tooltips don't have the option for a title and icon.
The upgrade will be available in the next release of the DLLs. |
|
| Back to top |
|
|
Ralf
Joined: 30 Aug 2007
Posts: 50
Location: munich
|
| Posted: Wed Feb 01, 2023 5:05 pm Post subject: |
|
|
Thanks Paul,
this is a great help for me, since more and more users are using 4k-screens.
Ralf |
|
| Back to top |
|
|
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8018
Location: Salford, UK
|
| Posted: Thu Feb 02, 2023 10:54 am Post subject: |
|
|
The failure when using Microsoft tooltips has now been identified and fixed so [ms_style] tooltips will be available for read-only controls.
The new enhancements for native and ms_style tooltips will remain in place. |
|
| Back to top |
|
|
Ralf
Joined: 30 Aug 2007
Posts: 50
Location: munich
|
| Posted: Mon Mar 06, 2023 9:11 am Post subject: |
|
|
Paul
The tooltips seem to have still some issues with [ms_style].
I have changed my example as follows:
| Code: |
module param
integer(kind=7) :: handle
real*8 :: var1, var2
end module param
program test_th
use param
integer :: winio@, iw
external acc
var1 = 1.1d0
var2 = 2.2d0
iw = winio@ ('%hw&', handle)
iw = winio@ ('%sc&', acc)
iw = winio@ ('%th[scaling=1.3,delay]&', 1, 100)
iw = winio@ ('%?8rf[help-text 1]%2nl&',var1)
iw = winio@ ('%`?8rf[help-text 2]%2nl&',var2)
iw = winio@ ('%cn%bt[Close]')
stop
end
integer function cb_func()
use param
cb_func = 1
var2 = var2 + 0.1d0
end
integer function acc()
use param
C_EXTERNAL ADD_ACCELERATOR@ '__add_accelerator' (VAL,INSTRING,REF)
external cb_func
acc = 2
CALL ADD_ACCELERATOR@(handle,'F1',cb_func)
end |
This example crashes with 'Error: Invalid window' -message when ADD_ACCELERATOR@ is called. It runs as expected when I switch off the ms_style by changing the %th-option 'scaling' to 'scale'. |
|
| Back to top |
|
|
PaulLaidler
Site Admin
Joined: 21 Feb 2005
Posts: 8018
Location: Salford, UK
|
| Posted: Mon Mar 06, 2023 12:01 pm Post subject: |
|
|
Ralf
Adding an accelerator in this way for 64 bits does not work at the moment. It works for 32 bits.
I have fixed this for the next release of the DLLs.
I presume there is a reason why you are not simply using %ac when defining the main window. |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
