schilder, wil je een bitmap tegels?In het midden?Strekken?Het gebruik van deze klasse, die vond ik lang geleden verloren herinneringen uit die bron, het enige doel is een raam op de achtergrond, het gebruik van een bepaald gebruik kunnen maken van de foto 's van je tgraphic nakomelingen (zoals tjpegpicture, de uitbreiding van het gebruik van de toevoeging van bepalingen in de foto gebruiken; tgifimage, plus anders zaak landers de FSIM, enz.),,,,,, de eenheid bgpaint; interface, ramen,,,,,,,,,, grafische; ttilebackstyle = (tbsnone, tbspiccenter, tbspicclip, tbspicfit, tbspicheigth,,, tbspicstretch, tbspictile, tbspicwidth);,,, ttileback = (TPersistent), particuliere fpicture:tpicture;,,,,,,,, fstyle:ttilebackstyle; fonchange: met andere woorden, de procedure setStyle (totaal waarde: ttilebackstyle), programma' s, setonchange (voor - en nadelen;T - waarde: met andere woorden, de procedures, de setpicture (totaal); de waarde van: tpicture);,,,,,, de verschrikkelijke, fabrikant creëren; schade; voor; de procedure voor de toewijzing van,, (Bron: TPersistent); voor;,,,,, lege: functies; procedures voor de vaststelling van het totaal (totaal: de doek.:); fonchange, lezen en schrijven, met andere woorden de verandering van de eigenschappen van de publicatie: setonchange;,,, foto 's: lezen, schrijven en prestaties, tpicture fpicture setpicture; -: lezen, schrijven en ttilebackstyle fstyle setStyle standaard tbsnone;,,,,, aan het einde van de uitvoering van ttileback} {;,,,,, ttileback (programma toegewezen. Bron: TPersistent);,,,, als de bron is ttileback dan, en ttileback (bron), begint te doen, self.fstyle:= stijl;,,,,Self.Picture:= foto;,, aan het einde van de ander, Inherited,,,,,,,,,,, ik TTileBack.Create fabrikant;,, FPicture: = TPicture.Create;,, FStyle: = tbsNone;,,,,,,,,, ik TTileBack.Destroy destructor; FPicture.Free;,,,,,, aan Het einde van Inherited vernietigen;;,,, de procedure TTileBack.Draw (totaal Canvas: tcanvas; een totaal ARect: TRect);,,, Dest: var, TRect;,, XPos, YPos, RWidth, RHeight: het gehele getal;,, PicRatio, ImageRatio: dubbele;,,, ", als de lege dan verlaten;,,, RWidth: = ARect.Right - ARect.Left;,, RHeight:= ARect.Bottom- ARect.Top;,, XPos: = 0;,, YPos: = 0;,,, de zaak is tbsNone: stijl van,,,,,,, tbsPicClip:, Canvas.Draw (ARect.Left, ARect.Top, Picture.Graphic);,,,,, tbsPicCenter:, beginnen, XPos: = ARect.Left + (RWidth - Picture.Width) die 2;,, YPos: = ARect.Top + (RHeight- Picture.Height) die 2;,, Canvas.Draw (XPos, YPos, Picture.Graphic);,,,,,,,,, tbsPicFit:, beginnen, als FPicture.Width > 0) en (FPicture.Height > 0) dan. Ik PicRatio:,,,,, = Picture.Height /Picture.Width; ImageRatio:=RHeight /RWidth;,, als PicRatio > ImageRatio dan, ik XPos: = Trunc (,,,, RHeight /PicRatio); YPos: = RHeight;,, aan het einde van de ander,,, ik XPos: = RWidth;,,, en YPos: = Trunc (RWidth * * * * * * * PicRatio);,,,,,,,,,, de beste: = de juiste (0,0, XPos, YPos); OffsetRect (,, Jay, ARect.Left,,, ARect.Top);Het canvas. Stretchdraw (DEST, foto 's, grafische);,,,,,,,, aan het einde van tbspicheigth;:: = raam begon, trunc (fpicture.width * * * * * * * (rheight /foto' s. Hoogte));,,,,, rheight ypos:=; DeST:= (0, 0, rechthoekig raam, ypos), OffsetRect;, (DEST de. Links, de top, het canvas.);,. Stretchdraw (DEST, fpicture. Grafiek);,,,,,,, aan het einde van tbspicstretch:; canvas. Stretchdraw (de, foto 's, grafische);,,,,,,, tbspictile:: = de linker raam.;, en het raam < de juiste te doen. Ypos:=,,,,,, maar de top;. Ypos < de bodem te doen.,,, doek (raam, ypos, foto' s, Grafische);,, ypos:= ypos + fpicture hoogte;,,Aan het einde van XPos: = XPos;,, + Picture.Width;,,,,,,,,,,,,, tbsPicWidth:, beginnen, XPos: = RWidth;,, YPos: = Trunc (RWidth * * * * * * * (Picture.Height /Picture.Width);,, de beste: = de juiste (0,0, XPos, YPos); en OffsetRect (, Jay, ARect.Left, ARect.Top); Canvas.StretchDraw (,, Jay, Picture.Graphic);,,,,,,,,,,,,,,,,, en TTileBack.Empty: booleaanse; beginnen, het voelt tbsNone: = = = = = = = (() of, in [tbsPicClip, stijl, tbsPicFit, tbsPicHeigth, tbsPicStretch, tbsPicTile, tbsPicWidth]) en,, ((foto = nul) of (Picture.Graphic = nul) of (Picture.Graphic.Empty))), ",,,,, de procedure TTileBack.SetOnChange (totaal waarde TNotifyEvent);,,, beginnen, FOnChange: = waarde;,, FPicture.OnChange = waarde van:;,,,,,,, de procedure TTileBack.SetPicture (totaal waarde TPicture);,,, beginnen, FPicture.Assign (waarde);,,,,, aan het einde van de procedure; TTileBack.SetStyle (totaal waarde TTileBackStyle);,,, beginnen, als FStyle < > waarde dan, ik FStyle: = de waarde van,,,,, als 1 (FOnChange) dan, FOnChange (zelf);,,,,,,,,,,,.,,, hier is een snel en vies, en de bevoegdheden van de twintig:,,,,,,,, - de bgpaintex1;,,, de toepassingen, de ramen zijn,,, SysUtils, klassen, grafische, controles, vormen, Dialogs,,, ExtCtrls, bgPaint, StdCtrls, JPeg;,,, type, klasse, TForm1 = (tform), Image1: TImage;,,,,, ComboBox1: TComboBox; Button1: TButton;,,,, OpenDialog1: TOpenDialog; procedure FormCreate (Sender: TObject); en proce.Vast FormPaint (Sender: TObject); en (Sender: TObject), de procedure ComboBox1Change;,, procedure Button1Click (Sender: TObject);,,, particuliere, openbare verklaringen {'},,,,, aBG:} {openbare verklaringen, TTileBack;,,,,,,,, Form1: var, TForm1;,,, uitvoering van de begroting, gebruikt TypInfo;,,,,,,, {$R *.DFM}, de procedure TForm1.FormCreate (Sender: TObject); TTileBackStyle var.,,,,,, ", aBG: = TTileBack.Create;,, aBG.Picture: = Image1.Picture;,, aBG.Style: = tbsPicFit;,, voor I: = tbsNone te tbsPicWidth doen. Ik ComboBox1.Items.AddObject (,, GetEnumName (typeinfo ongeldig was wegens (TTileBackStyle), het gehele getal (i)), TObject (i));,,,,,,,,,,, de procedure TForm1.FormPaint (Sender: TObject);,,,", aBG.Draw (canvas,,, en ClientRect);D;,,, de procedures aan de hand van een incident. Combobox1change (afzender: TObject);,,,, - ABG. Stijl: = ttilebackstyle (combobox1. Artikelen. Artikel [combobox1. Itemindex]);,,,,,,, ongeldig is; aan het einde van de procedures aan de hand, een gebeurtenis. Om te draaien TObject lettertype (afzender:); begin, als opendialog1,,,. De uitvoering van na het begin van de foto, foto 's. LoadFromFile (opendialog1. Het dossier);,, ABG. Foto' s: = foto 1. Foto 's,,,,, Aan het einde van het ongeldig;;;,,,,,,, is voorbij.