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:

  1. 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!

Adam Boduch

[ Powrót do Kursów ]