spelen lettertype, dat zal je vertellen hoe je platform. Het canvas en bewaren in de oorspronkelijke tekst van een helling van de waarde van de borstel lettertype en andere zaken.Als je weet wat je doet, je werk is niet zo moeilijk, wat is je werk.Een enkele gebieden, maar veel beloningen, resultaten.Dit zal je vertellen hoe je platform. Doek, sommige helling van de tekst, en bewaren in de oorspronkelijke tekst en borstel, de waarde van de andere zaken.Daarom zullen we, gebruik de code, en getobject () () geregistreerd en createfontindirect structuur van API, noemen.We zullen gebruik maken van de drawtext (API) om ons, terecht, de vorm van de tekst van de eenheid.Veel, je kan de uitvoering van de programma 's in deze operatie, dus spelen.,,, [code] beeld op mijn website, de procedures aan de hand van een gebeurtenis,,. Formpaint (afzender: TObject);,, var, logfont: code;,, tmpcanvas: doek;,, tmprect: x1, X2;,,,,, y2: gehele getal;,,,,,, tmpcanvas:= canvas. Creëren; tmpcanvas.: = GetWindowDC (aan);,,,, getobject (canvas. Lettertype. Een groot (,,,,,, logfont) @ logfont);,, logfont.lfescapement:= 90 * 10 logfont.lforientation:= 90 * 10,,,,,,,, logfont.lfoutprecision:= out_tt_only_precis; logfont.lffacename:= "Arial";,,,,, logfont.lfwe logfont.lfheight:= 15;Gewicht: = fw_bold;,,,, logfont.lfquality:= proof_quality; tmpcanvas.font.handle:= createfontindirect (logfont); tmpcanvas.font.color:= clwhite;,,,,,, tmpcanvas.brush.color:= clnavy; X1:= GetSystemMetrics (sm_cxedge) + (sm_cxborder); GetSystemMetrics,,,,,, Y1:= X2 = 20; GetSystemMetrics (sm_cycaption) + (,, GetSystemMetrics sm_cyedge) +,, GetSystemMetrics (sm_cyborder) + 1;,,,,, Y2:= hoogte, GetSystemMetrics (sm_cyedge), GetSystemMetrics (sm_cyborder);,, tmprect:= (x1, X2, y a 1,,,,, tmpcanvas). (tmprect);,, drawtext (tmpcanvas. De regel ",",,, Delphi in de loop van de tijd,,,,, tmpre 1,-,,, dt_bottom of dt_singleline); en, tot slot, de vrijheid, de tmpcanvas.;,,,,, einde.