, de volgende code is een onderdeel van het creëren van een transparante (vorm), kan de vorm, de volgende code... En een onderdeel is, kan leiden tot transparante (vorm) worden gebruikt. Of vormen van controle, of beide.Er zijn twee manieren. Wat wil je zeggen als een masker gebruikt: etiket (transtag) of de lijst van componenten, je moet worden opgenomen in de beschrijving van de onderdelen van de tekst als een nieuwe, en zelfs van een follow - up van de gebeurtenissen tijdens de voortgang van als het is lang, en er een gezicht. Het beeld van de kleur. Dit is een eigenschap, kleur, transparant is, het uitvoeren van methode te gebruiken. En transparante vorm.Als er niet veel foto 's, was snel, je kan het gebruiken om de gevolgen van de animatie, zelfs in je bureau.,,, noot: voor de oprichting van TImage vergadering vergadering rekening te houden met het masker beeld.,,,,,,, - eenheden te verbeteren; het gebruik van interface, Ramen, SysUtils,,,,, grafiek, de controles, de vorm, de dialoog, de extctrls;,,,,, tprocessevent = programma (schema: LongInt) voorwerpen, W = (tbtag;,,,, tbcomponentlist); ttransmake = (tcomponent), particuliere, particuliere} {itranstag: gehele getal;,,,,,, imagetrans: booleaanse; colormask: licht tcolor;,,,, transbyv:w met: hRgn; componentlistv:tstrings;,,,,,,, fullitems:LongInt; fonprogress:tprocessevent;,, P.Van dat programma, drawtransparent; componentlistwrite (waarde: tstrings);,, programma settransby (waarde: W);,, bescherming, bescherming van de verklaring, {},, programma doonprogress (schema: LongInt); van dynamische,,,,,, {}, een gemeenschappelijke verklaring, het programma uitvoeren,, (aowner fabrikant;: tcomponent); voor een verklaring gepubliceerd;,,,,, transtag {}, onroerend goed. Itranstag: lezen en schrijven, lezen en schrijven, itranstag; imageregion eigenschap: Bull imagetrans imagetrans;,, eigenschap: lezen, schrijven en colormask maskcolor licht tcolor colormask;,, onroerend goed transby: lezen en schrijven voor de settransby transbyv standaard tbtag;,, eigendom componentlist: lezen, schrijven en tstrings componentlistv componentlistwrite;,, pro -Vooruitgang: lezen, schrijven en prestaties tprocessevent fonprogress fonprogress;,,,,, het einde van de procedure; de registratie;,,,,, de uitvoering van programma 's ttransmake. Doonprogress (schema: LongInt);,,,, als de distributie (fonprogress) en, tprocessevent (fonprogress) (Progress);,,,,, aan het einde van de procedure ttransmake;. Settransby (waarde: W); transbyv:= waarde,,,,,,,,,, het einde van de procedure; ttransmake. Componentlistwrite (waarde: tstrings);,,,, componentlistv. Toewijzing (waarde);,,,,, aan het einde van het ttransmake; de fabrikant (aowner:tcomponent.);,,, (aowner) te creëren, die componentlistv:= tstringlist;,,,, componentlistv. Creëren; toevoeging van (naam'place. - hier. "); fullitems:= 0;,,,,,,, het einde van de procedure; ttransmake. Drawtransparent;,, var, oform:TForm;,, ik..., X, Y, rx, ry:integer;,,,, tr:Trect; tregion, imgregion:Hrgn;,,,, TempBitmap: proceed:boolean; tbitmap componenten; Rgn1 Rgn2: HRgn;,,,,, Col, StartCol, rij ik. PByteArray:,,,,,,,, ik doen, perc:integer; OForm:=TForm (,, a); region:=0;,,,,,, imgregion:=0; rgn1:=0;,,,,, fullitems:=0; doing:=0; perc:=0;,,,,, region:=createRectRgn (0,0,0,0); rgn1:=createRectRgn (0,0,0,0); OForm.visible:=false;,,,,,, OForm.BorderStyle:=bsNone; voor i:=0 te OForm.ComponentCount-1 doen, als TransBy=TBTag beginnen, dan.,, als (OForm.Components[i]).Tag=TransTag dan, ik proceed:=true;,,,,,,,,,, fullitems:=fullitems+1;, als TransBy=TBComponentList!Als componentlistv,,,. Graaf > 0 en 0, O:= componentlistv.count-1 doen, beginnen, als (in hoofdletters ((oform. Ingrediënten [M]). De naam in hoofdletters) = (componentlistv. Touw, dan begon, [O])), en fullitems:= fullitems + 1;,,,,, een einde te maken aan de aan het einde van het einde;;;;,,,,, ik oform.componentcount-1: = 0 te beginnen: = vals;,, als transby = tbtag dan als (oform. Ingrediënten [M]). Label = transtag dan beginnen: = waar;,,,,,, als beëindigd; transby = tbcomponentlist dan beginnen, als componentlistv. Graaf > 0 en 0, O:= componentliStv.count-1, begint te doen,,, als (in hoofdletters ((oform. Ingrediënten [M]). De naam in hoofdletters) = (componentlistv. Touw [O])), en een begin: = waar;,,,,,, aan het einde van het einde;;;,, als je blijft,,,, als de controle (oform. Ingrediënten [M]). Zichtbaar, en dan begon, als (oform. Samenstelling van [het] is TImage) en imageregion dan beginnen, met foto 's van (oform. Ingrediënten [M]). Picture.bitmap, begint te doen,,, lijn: = 0 (oform TImage. Ingrediënten [M]). Picture.bitmap.height-1, te doen.Kleur: = 0;,, Khadafi en < beeld (oform. Ingrediënten [M]). Picture.bitmap.width, begon te doen,,, en (col < beeld (oform. Ingrediënten [M]). Beeld. Bitmap breedte) en (canvas. Pel [col, rij] = colormask) doen. Col);,, als Khadafi > = beeld (oform. Ingrediënten [M]). Picture.bitmap.width dan blijven;,, startcol:= opgenomen;,, (col < beeld (oform. Ingrediënten [M]). Beeld. Bitmap breedte (pixel) en het canvas. [col, rij] < * colormask); Ltd (COL);,, als Khadafi > = beeld (oform. Ingrediënten [M]). Picture.bitmap.width dan kleur: = beeld (oform. Ingrediënten [M]). Beeld. De breedte van de bitmap;,,,Als rgn1 = 0 en rgn1:= createrectrgn (beeld (oform. Ingrediënten [M]). De linker + startcol beeld (oform. Ingrediënten [M]). De top + rij, beeld (oform. Ingrediënten [M]). De linker + col, beeld (oform. Ingrediënten [M]). De top + + 1), of, rgn2:= beginnen, createrectrgn (beeld (oform. Ingrediënten [M]). De linker + startcol beeld (oform. Ingrediënten [M]). De top + rij, beeld (oform. Ingrediënten [M]). De linker + punten (oform TImage - ik top +.]). Rij + 1);,, als (rgn2 < > 0) en combinergn (rgn1, rgn1, rgn2, rgn_or); - het voorwerp (,, rgn2);,,,,, aan het einde van het einde van het einde;;;;,,,,, Dat doen: = + 1;,,Vier: = ronde (100 * * * * * * * (do /fullitems)); doonprogress (perc);,,,, combinergn (lokale, regionale, rgn1, rgn_or); rgn1:= 0;,,,,,,,,, of, TR:= verslag (oform. Ingrediënten [M]). Boundsrect;,, tr.left:= tr.left;,, vóór de behandeling: = tr.top;,, behandeling van rechts: = tr.right; tr = tr.bottom:,, de bodem;,, als regio = 0 en de regio 's:, = createrectrgn (tr.left, tr.top, tr.right, tr.bottom), andere, te tregion:= createrectrgn (,, tr.left, tr.top, tr.right tr.bottom);,,, te doen:= droge + 1;,, vier wielen: = 100 × (do /fullitems)); doonprogress (perc);,,,, combinergn (lokale, regionale, tregion, rgn_or); - het voorwerp (,, tregion);,,,,, aan het einde van het einde van het einde;;;;,, en, tot slot,,,,, SetWindowRgn (oform. Aan de regio, waar);,, oform. Zichtbaar: = waar;,,,,, het einde van de procedure; ttransmake. Aan het begin en einde van de uitvoering;,,,,,,,, drawtransparent; programma 's register;,,,,, registercomponents ('vnpvcls "[ttransmake]);,,,,,, einde.