, det tip vil vise, hvordan du skal tage din tform. lærred og drage nogle vinklede tekst om det og samtidig bevare den oprindelige skrifttype og børste værdier for andre aktiviteter., i samarbejde med skrifttyper, ikke er meget vanskeligt, når du forstår hvad du gør.der er få områder, men en masse belønning i, resultat.dette råd vil vise, hvordan du skal tage din tform. lærred og trække nogle vinklede tekst om det og samtidig bevare den oprindelige skrifttype og børste, værdier for andre aktiviteter.for at gøre dette, vil vi bruge den tlogfont, posternes struktur med getobject() og createfontindirect() win32 api, kræver.vi vil også være med drawtext() win32 api til at få vores, tekst formaterede ordentligt på sin produktion anordning.der er mange, du kan udføre denne rutine manipulationer, så sjovt at.,,, [kode - et billede på min webside.,,, procedure tform1. formpaint (afsender: tobject);,, var, logfont: tlogfont;,, tmpcanvas: tcanvas;,, tmprect: trect,,, x1, ·,,, y1, y2: heltal, begynder, tmpcanvas: = tcanvas. skabe;,, tmpcanvas. klare: = getwindowdc (klare);,,,, getobject (lærred. skrifttype. klare, 7 (logfont), @ logfont),,, logfont.lfescapement: = 90 10,,, logfont.lforientation: = 90 10,,, logfont.lfoutprecision: = out_tt_only_precis;,, logfont.lffacename: = arial,,,,,,, logfont.lfheight: = 15, logfont.lfweøjre: = fw_bold;,, logfont.lfquality: = proof_quality;,, tmpcanvas.font.handle: = createfontindirect (logfont);,, tmpcanvas.font.color: = clwhite;,, tmpcanvas.brush.color: = clnavy;,, x1: = getsystemmetrics (sm_cxedge) +, getsystemmetrics (sm_cxborder);,, ·: = 20;,, y1: = getsystemmetrics (sm_cycaption) +, getsystemmetrics (sm_cyedge) +, getsystemmetrics (sm_cyborder) + 1;,, y2: = højde -,, getsystemmetrics (sm_cyedge) -, getsystemmetrics (sm_cyborder);,, tmprect: = direkte (x1, y1, y2 x2,,, tmpcanvas);. fillrect (tmprect);,, drawtext (tmpcanvas. klare,,, "lou er delphi drikkepenge i dag,,, - 1,,, tmpre- ct,,, dt_bottom eller dt_singleline); og endelig, tmpcanvas. fri,,,,,,,,