jak stworzyć polygonregion z punktami jako zmienne
procedure romb;
var
Bitmap: TBitmap;
const
Points : array[0..3] of TPoint =((X:10;Y:10), (X:20; Y:10), (X:30; Y:30), (X:20; Y:40)); // współrzędne punktów
begin
Bitmap := TBitmap.Create;
Bitmap.LoadFromFile('C:\dab1.BMP'); // zładuj obraz
// zdefiniuj region....
SelectClipRgn(Form1.Image1.Canvas.Handle, CreatePolygonRgn(Points, 4, ALTERNATE));
Form1.Image1.Canvas.Draw(0, 0, Bitmap); // wyswietl region w punkcie 0, 0
Bitmap.Free; // zwolnij pamiec
taki kod pozwala na stworzenie regionu ale punkty musza być wcześniej ustalone