Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];

Вниз

Некорректное определение Trect   Найти похожие ветки 

 
webpauk ©   (2008-02-21 12:22) [0]

program Project1;

uses
 Windows;

{$R *.res}

var
 fReg: HRGN;
 fRect: Trect;
 fArr: array of Tpoint;
begin
 SetLength(fArr, 3);

 fArr[Low(fArr)].X:=100;
 fArr[Low(fArr)].Y:=100;

 fArr[Low(fArr)+1].X:=150;
 fArr[Low(fArr)+1].Y:=90;

 fArr[Low(fArr)+2].X:=200;
 fArr[Low(fArr)+2].Y:=110;

 fReg:=CreatePolygonRgn(fArr, Length(fArr), WINDING);
 GetRgnBox(fReg, fRect);

 sleep(0);
end.


fRect = (0, 0, 0, 0)???


 
webpauk ©   (2008-02-21 12:28) [1]

а когда
fArr: array[1..3] of Tpoint;
всё ок
?!


 
Palladin ©   (2008-02-21 12:40) [2]

CreatePolygonRgn(@fArr[0], Length(fArr), WINDING);

учим разницу между статическими и динамическими массивами


 
ЮЮ ©   (2008-02-21 12:42) [3]

array of Tpoint - это же чистое Delphi. Снаружи это не поймут. Иначе зачем им ещё  Length(fArr) нужен? :)

Тогда уж CreatePolygonRgn(fArr[0], Length(fArr), WINDING);

P.S.

fArr[Low(fArr)].X:=100;
 ...
fArr[Low(fArr)+2].Y:=110;
 
Почему бы без лтшнего выпендрежа не написать

fArr[0].X:=100;
 ...
fArr[3].Y:=110;

Побайтная система оплаты труда?


 
Григорьев Антон ©   (2008-02-21 12:46) [4]


> fReg:=CreatePolygonRgn(fArr, Length(fArr), WINDING);

В случае динамического массива вы передаёте в этой строчке не указатель на массив, а указатель на указатель на массив, и регион либо не создаётся (что более вероятно), либо создаётся совсем не такой, как вы хотели.

Отсюда две морали. Во-первых, писать надо так:
fReg:=CreatePolygonRgn(fArr[Low(fArr)], Length(fArr), WINDING);
Это подойдёт и для статического, и для динамического массива.

Во-вторых, результаты API-функций проверять надо, чтобы знать, где ошибка.


 
webpauk ©   (2008-02-21 12:54) [5]

ладно
есть еще вопрос
а почему Rect имеет значения (100, 91, 198, 110)
а
fArr[Low(fArr)]:=Point(100, 100);
fArr[Low(fArr)+1]:=Point(150, 90);
fArr[Low(fArr)+2]:=Point(200, 110);


 
Григорьев Антон ©   (2008-02-21 13:11) [6]

Что-то я припоминаю в книге Феня Юаня на тему того, что прямоугольники для регионов считаются не так, как при рисовании - дополнительная единица отбрасывается и т.п. Думаю, вы столкнулись с этим эффектом. Если у вас есть эта книга, поищите там.


 
webpauk ©   (2008-02-21 13:15) [7]


> Григорьев Антон ©   (21.02.08 13:11) [6]

ушел от GetRgnBox
вручную прошелся по array и нашел Max(X, Y) и Min(X, Y)
глюки ушли...


 
Григорьев Антон ©   (2008-02-21 13:25) [8]


> webpauk ©   (21.02.08 13:15) [7]
> глюки ушли...

Наивный :) Нарисуйте красным яэтот прямоугольник, а поверх него - ваш многоугольник чёрным :)



Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.03.23;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.005 c
2-1203502618
Ultimate
2008-02-20 13:16
2008.03.23
Возможно вовсе глупо звучит... но...


15-1202669039
NaRuTo
2008-02-10 21:43
2008.03.23
Вхождение в другой компьютер!


2-1203489060
Максим
2008-02-20 09:31
2008.03.23
разбор строка


2-1203775292
KJ13
2008-02-23 17:01
2008.03.23
Загрузка процессора


15-1202125044
Ypbi4
2008-02-04 14:37
2008.03.23
Хэш-функции используемые для поиска.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский