Rozdział 15
[ Powrót do Kursów ]
Regiony
Nadszedł czas, aby zająć się regionami. Regiony są to wydzielone obszary płótna, w którym ograniczone są wszelkie operacje graficzne. Przykładowo:
W procedurze OnPaint formularza wpisz coś takiego:
var
Bitmap
: TBitmap;
Region : HRGN;
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\Image.bmp');
Region := CreateEllipticRgn(50, 50, 200, 200);
SelectClipRgn(Canvas.Hande, Region);
Canvas.Draw(0,0, Bitmap);
Bitmap.Free;
end;
W tym wypadku zadeklarowana została zmienna Region. Następnie zmiennej przyporządkowane zostają dane współrzędne. W tym wypadku region będzie kołem o wymiarach 50, 50, 200, 200.
Istnieją także inne wymiary:
CreateRectRgn - tutaj regionem będzie kwadrat.
Istnieje też możliwość zadeklarowanie własnego regionu:
const
Punkty : array[0..3] of TPoint = ((X:50;Y:0), (X:0;Y:50), (X:70; Y: 150), (X: 150; Y:70));
{tak jak wyżej}
Region := CreatePolygonRgn(Punkty, 4, ALTERNATE);
Zadeklarowana zostaje tutaj tablica, która określa pozycje czterech punktów. Zauważ, że najpierw następuje zadeklarowanie zmiennej array, która określa tablice. Zauważ również, że są jedynie zadeklarowane 3 cyfry. Czwartym punktem jest cyfra 0.
Następnie następuje zapisanie współrzędnych X i Y.
Powoli zbliżamy się do końca omawiania grafiki. Z przyczyn ode mnie nie zależnych ten rozdział jest taki krótki. Spotkamy się za dwa tygodnie.
Na razie!
[ Powrót do Kursów ]