How do I need to change the following code to work with Retina
Sub DrawString(Text As string, x As integer, y As Integer)
dim c As CGContextMBS
c = myContext
c.selectFont myTextFont, myTextSize, 1
dim TextArray(-1) as string = Split(Text, EndOfLine)
for currentLine as Integer = 0 to UBound(TextArray)
dim currText As String = ConvertEncoding(TextArray(currentLine),
Encodings.SystemDefault)
c.ShowTextAtPoint currText, x, height - y - myTextSize -
(StringHeight(TextArray(currentLine)) * currentLine)
next
End Sub
The code is from the EasyOverlayWindow. RealStudio 2011r4, latest plugin
version, Cocoa.
End Sub
Mit freundlichen Grüßen/Regards
Trixi Willius
http://www.mothsoftware.com
Mail Archiver X: The email archiving solution for professionals
_______________________________________________
Mbsplugins_monkeybreadsoftware.info mailing list
[email protected]
https://ml01.ispgateway.de/mailman/listinfo/mbsplugins_monkeybreadsoftware.info
