 Программа про окна, Плизз ХЕЛП!! |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| --==KliM==-- |
  24.05.2006 16:11
Сообщение
#1
|
 Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация:  0   |
Составить программу, получающую информацию о двух окнах (координаты верхнего левого угла, ширину и высоту.
 Заранее спасибо |
   |
 
|
  |
Ответов
| APAL |
25.05.2006 20:14
Сообщение
#2
|
 Смотрю...  Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Код Flag:=False; For i:=x1 to x1+xW1-1 do Flag:=Flag or (InWin(x2,y2,xW2,yH2,i,y1) or InWin(x2,y2,xW2,yH2,i,y1+yH1-1)); For i:=y1 to y1+xW1-1 do Flag:=Flag or (InWin(x2,y2,xW2,yH2,x1,i) or InWin(x2,y2,xW2,yH2,x1+xW1-1,i)); -------------------- |
|
|
|
Сообщений в этой теме
--==KliM==-- Программа про окна 24.05.2006 16:11
volvo --==KliM==--,
о каких окнах речь? Если о текстовых... 24.05.2006 16:21
--==KliM==--
--==KliM==--,
о каких окнах речь? Если о текстовы... 24.05.2006 16:27 volvo Вот сначала выясни, потом будешь спрашивать... А т... 24.05.2006 16:42 APAL "получающую информацию" - видимо от поль... 24.05.2006 16:43 --==KliM==--
"получающую информацию" - видимо от пол... 24.05.2006 17:32 APAL Вот тебе функция:
Function InWin(x0,y0,xW,yH,xi,y... 24.05.2006 17:52 --==KliM==-- А полностью написать не можешь, а? Хотя и за это б... 24.05.2006 20:12 |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.06.2025 8:10 |