XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Kaufmannsund auf Control richtig darstellen
Lauffähig ab Profan-Version 6.6
Auf einem Control & richtig darstellen!
(c) Rolf Koch - Rokosoft 2005
def @kfmand(1) translate$(&(1),&,&&)
WINDOWTITLE Test:   Rock & Roll
WINDOW 0,0-300,300
declare Text$
Text$ = Rock & Roll
SetTrueColor 0
cls @RGB(23,23,23)
DrawText 080,070,Text$
CreateText(%HWnd,text$,080,130,390,18) falsche Darstellung
CreateText(%HWnd,@kfmand(text$),080,150,390,18) korrigierte Darstellung