|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
31.01.2016, 00:41 | #1 |
Регистрация: 31.01.2016
Сообщений: 4
|
Помогите задать регион в лазарус
var
Form12: TForm12; i:integer; Ar: array[0..19]of TPoint=((X:48;Y:660), (X:48;Y:55),(X:645;Y:55),(X:645;Y:2 90),(X:290;Y:290),(X:290;Y:550), (X:545;Y:550),(X:545;Y:435),(X:435; Y:435),(X:435;Y:535),(X:335;Y:535), (X:335;Y:335),(X:645;Y:335),(X:645; Y:650),(X:190;Y:650),(X:190;Y:190), (X:545;Y:190),(X:545;Y:155),(X:148; Y:155),(X:148;Y:660)); Rgn1: HRGN; implementation Uses Unit13; {$R *.lfm} выдает ошибки: unit12.pas(36,13) Error: Identifier not found "HRGN" unit12.pas(36,13) Error: Error in type definition |
31.01.2016, 00:54 | #2 |
Регистрация: 31.01.2016
Сообщений: 4
|
После добавления строки:
type HRgn = THandle; выдает ошибку в другом месте: Rgn1:=CreatePolygonRgn(Ar,20,Windin g); unit12.pas(67,23) Error: Identifier not found "CreatePolygonRgn" unit12.pas(67,37) Error: Identifier not found "Winding" |
31.01.2016, 08:10 | #3 |
Старожил
Регистрация: 04.02.2009
Сообщений: 17,351
|
В uses все подключено?
Маньяк-самоучка
Utkin появился в результате деления на нуль. Осторожно! Альтернативная логика |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста! написать программу на Лазарус | Chainik2 | Помощь студентам | 0 | 23.04.2014 16:44 |
Бордюр и регион | Claster | Помощь студентам | 0 | 08.07.2011 10:57 |
Регион и форма | Claster | Помощь студентам | 4 | 06.07.2011 22:51 |
Регион по пикселям картинки. | Alex Cones | Общие вопросы Delphi | 0 | 18.09.2010 14:45 |
ravereport копонент регион? | Geddar | БД в Delphi | 1 | 10.06.2008 03:14 |