Tutorial online Delphi
Imagini bitmap
Când lucrați cu grafică, este convenabil să folosiți obiecte de tip TBitMap (imagine bit). O imagine bitmap este o imagine a calculatorului în memorie și, prin urmare, o suprafață grafică invizibilă pe care programul poate genera o imagine. Conținutul imaginii bit (imagine) este ușor și, cel mai important, poate fi afișat rapid pe suprafața formei sau a zonei de ieșire a imaginii (imagine). Prin urmare, în programe, bitmapurile sunt de obicei folosite pentru a stoca imagini mici, de exemplu imaginea butoanelor de comandă.
Încărcați imaginea în bitmap folosind metoda LoadFromFlie, specificând numele fișierului BMP în care este localizată ilustrația dorită.
De exemplu, dacă programul declară o variabilă pic de tip TBitMap, atunci după executarea instrucțiunii
Imaginea bit a imaginii va conține imaginea aeronavei.
Puteți afișa conținutul imaginii biți (imagine) pe suprafața formei sau zonei de ieșire ilustrativă, aplicând metoda Draw pe proprietatea de suprafață corespunzătoare (panza). De exemplu, instrucțiunea
afișează o imagine a imaginii bitmap bm pe suprafața componentei imagine 1 (parametrii x și y determină poziția colului din stânga sus al imaginii pe suprafața componentei).
Dacă setați proprietatea Transparent a obiectului TBitMap la True înainte de a aplica metoda Draw, părțile desenului colorate cu culoarea care se potrivește cu culoarea colțului din stânga jos a imaginii nu vor
dene - prin ele va fi ca și cum ar fi să privească prin fundal. Dacă doriți să utilizați o culoare "transparentă" din culoarea colțului din stânga jos al imaginii, trebuie să atribuiți proprietății Transparentcoior o valoare constantă a caracterelor care indică culoarea dorită.
Următorul program, al cărui text este prezentat în listare 10.7, demonstrează utilizarea imaginilor bitmap pentru a forma o imagine din mai multe elemente.
Listing 10.7. Utilizând Bitmap-uri
unitate aplanes_; interfață
Ferestre, Mesaje, SysUtils, Clase,
Grafică, Controale, Formulare, Dialoguri;
TForml = clasă (TForm)
procedura FormPaint (expeditor: TObject);