proprietăți de perie în Delphi
Noi nu am atins încă imaginea, astfel încât această proprietate este considerată nu va fi aici. Singurul lucru pe care îl puteți face - scrie un mic exemplu, în care va fi capabil să se întoarcă la proprietate și de a afla singur. Utilizare proprietăți Cod Bitmap arătate în exemplul 12.2. Dacă ceva nu este clar, nu vă faceți griji, o clasă TBitmap - este o chestiune separată care va fi luate în considerare mai târziu.
Bitmap: TBitmap; începe
Bitmap: = TBitmap.Create; // Creați imagine încercați
Bitmap.LoadFromFile ( 'MyBitmap.tap'); // Încărcați imagini
Form1.Canvas.Brush.Bitmap: = Bitmap; // setat ca fundal
Form1.Canvas.Rectangle (0,0,100 / 100); // Desenam un pătrat în cele din urmă
Form1.Canvas.Brush.Bitmap: = zero; // fundal Zero
Bitmap.Free; // Distruge imagine
- culoare - precum și cea a creionului în mână poate fi, de asemenea, o culoare diferită.
- Mâner - cum ar fi un pointer, ca un creion, dar pe pensula.
- stil de fundal stil. Pot exista următoarele valori: bsSolid, bsciear, bsHorizontal, bsVertical, bsFDiagonal, bsBDiagonal, bsCross, bsDiagCross.
Ha Fig. 12.5 puteți vedea o reprezentare grafică a fiecăruia dintre stiluri. Acum am ajuns la partea practică a lucrării cu o perie și scrie un mic
de exemplu. Pentru a începe, a crea un nou proiect. Ca și în exemplul anterior, de a crea un eveniment OnPaint pentru forma de a produce acest desen eveniment. În handler, scrieți conținutul listării:
Procedura TForm1.FormPaint (Expeditor: TObj ECT);