Problem with CreatePolygonRgn

← →
Delphi5.01 © (2004-01-07 00:10) [0]

Dobroe vrema sutok!
Pochemu API funkcia ne mojet sozdat region iz dinamicheskogo masiva?

var LRGN: HRGN;
//rabotaet esli ukazan diapazon [0..2]
PointsArray: array of TPoint;
//------------------------------------
PointsCount: Integer;
begin
PointsCount:=3;
//nu i eta strochka avtomatom viletaet, masiv konstantni
SetLength(PointsArray,PointsCount);
//-----------------------------------
PointsArray[0].X:=10; PointsArray[0].Y:=10;
PointsArray[1].X:=10; PointsArray[1].Y:=100;
PointsArray[2].X:=100; PointsArray[2].Y:=10;
LRGN:=CreatePolygonRgn(PointsArray,PointsCount,WINDING);
SetWindowRGN(Form1.Handle,LRGN,True);

otsuda ia vines odin vivod, chtoto problemi s adresami, tipa procedura ne mojet normalno uvidet ves masiv, v takom sluchae interesuet reshenie problemi!
Spasibo za udelennoe vream!

← →
default © (2004-01-07 00:24) [1]

The polygon is presumed closed
то есть, минимум должно быть 4 точки у полигона(где последняя точка равна первой, тобиш треугольник получится...)

← →
default © (2004-01-07 00:35) [2]

вот так надо ...CreatePolygonRgn( PointsArray[0]...
а замыкать многоугольник не обязательно...это предпологается...

← →
Delphi5.01 © (2004-01-07 00:50) [3]

Bolshoe spasibo, vtoroi otvet pravilni!
Ia tolkocho proveril, i reshil zaiti shtob skazat, chto tema zakrita, a zdes uje otvetili, i kak operativno!
Bolshoe spasibo za udelonnoe vrema, no ne ponatno pochemu 0 element, mojet potomu chto on soderjit adres mosiva, nu i konechno adres sledushego elementa?
P.S. esli kto znaet pojaluista obiasnite (teoreticheski)!

потому что @Mas <> @Mas[0]
@Mas = это адрес переменной Mas, по которому находится адрес первого элемента массива, то есть @Mas[0] = PPointer(@Mas)^

Spasibo za obiasnenie, teper vso iasno.
Vsem udachi v reshenii svoi lichnih problem!

Problem with CreatePolygonRgn Найти похожие ветки