Hi Stephen
Have investigated a little [ I have a timescale issue as I am going on
holiday in about 6 hrs] and have the following notes when used on the pc
when no rotating text was identified:
1. The downloaded demo db was converted to Access 2002
2. Using frmDesign with your original Label26, on clicking the rotate
button, a square blank image control is produced in TLH of that form. On
changing of the Tag value of that label the image control shape will change
to a vertical rectangle, square or horizontal rectangle depending on the Tag
value but remain blank.
3.In your function fRotateRunTime a MsgBox was inserted at
' Put original Font back in
lngRet = apiSelectObject(hdcMeta, prevfont)
MsgBox lngRet
On running the function that msgbox always returns a value but is not the
original font value and that returned value differs each time the function
is run, i.e your original font is 16711680 but returned values like
1711934743 and 420092582
4. In the same function, a msgbox put in at:
'The full path to our temporary Disk based Enhanced Metafile
ctlImage.Picture = strEMFpath
MsgBox ctlImage.Picture
returns a value of C:\DOCUME~1\TD\LOCALS~1\Temp\RotateTemp.EMF and this is
shown in the picture property of the image control. I note in your samples
the picture property has bitmap.
From a laymans perspective 3 above suggests that a font has been placed into
the image control. Is there any means of 'forcing' the forecolor property of
the label when the label properties are set to the image control at:
ctlImage.PictureAlignment = 0 ' 2 = center 0= Top Left
ctlImage.BorderStyle = ctlLabel.BorderStyle
ctlImage.BorderColor = ctlLabel.BorderColor
ctlImage.SpecialEffect = ctlLabel.SpecialEffect
ctlImage.BorderColor = ctlLabel.BorderColor
ctlImage.BorderWidth = ctlLabel.BorderWidth
' Always set to Transparent - user can adjust after
ctlImage.BackStyle = 0 'Transparent
ctlImage.BackColor = ctlLabel.BackColor
'Fix this for next revision
ctlImage.SizeMode = acOLESizeClip
'add other border/backcolor paramters here
ctlImage.Tag = "Rotated:" & lngRotation & " Degrees"
Sorry if you find find the above investigation a bit brief, but as I
mentioned above I have timescale issue today and have tried to give you some
information prior to my departure. Am away for 10 days and will check thread
on my return to see if you have any further suggestions.
Many thanks
Tom
ps. not sure if there is any relevance but am UK based and hence WinXP
Pro/Access's etc will be UK versions
Stephen Lebans said:
Hi Tom,
I have not heard of this issue before. The solution has been thoroughly
tested on WinXP Pro and all versions of Access.
The only method to debug the issue is walk through the execution of the
code and see where it is failing. Since I cannot duplicate your issue here
you would have to perform this function. If you let me know where the
error is happening I will be in a better position to solve the issue.
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
Tom said:
Stephen
Thank you for your reply.
The issue appears to be system related. At the time of my initial post
the sample db was download and converted to Access 2002, on 2 pc's, and
in both pc's the sample db produced the same results as stated in my 2
posts.
I have now copied the original sample db to a 3rd m/c (laptop) and I am
able to rotate text in the sample form & report contained within the
sample db.
All s/w on the 3 m/c was installed and configured by me and would
consider that this was consist on all m/c's. All are using Windows XP
Pro, Office XP & Office 2003 and some other applications. These other
applications are on all 3 m/c's. The only 'font specific' application
installed on the m/c's is Adobe Type Manager 4.1. [uninstalling this on
the initial 2 pc's had no effect on the sample db].
Have you any suggestions as to what the issue is and how it can be
overcome?
Tom
"Stephen Lebans"
Are you saying that the sample runtime form does not work on your
system?
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
Stephen
Thank you very much for your reply.
Whilst on your sample form/report I can see the results you have
produced I am unable to replicate even if I try using any of the
existing labels, on that form/report. These labels are using Arial font
the same as I have been trying to use. The only difference that I can
identify is that in the image controls produced originally in the
sample db the picture is (embedded) whereas in the image controls I
have produced the picture is
C:\DOCUME~1\TD\LOCALS~1\Temp\RotateTemp.EMF
Therefore as stated above if, even when trying to use the forms
original labels no text is produced in the image control where is the
problem?
Tom
"Stephen Lebans"
message Look at the sample form, how it works and the properties of the Label
controls that are fed to the RotateText function. As noted, you must
be using a True Type font, NOT a Windows System Bitmap font.
--
HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.
Hi
Can anyone advise me what the problem is here please.
Have downloaded Steven Lebans Rotate text demo and have tried to use
the above function on one of my reports. What is happening is that
whilst the image control is being added to the report no text, as per
the initial label selected, is shown.
Using Access 2002
TIA
Tom