Программа про окна, Плизз ХЕЛП!! |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Программа про окна, Плизз ХЕЛП!! |
--==KliM==-- |
24.05.2006 16:11
Сообщение
#1
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
Составить программу, получающую информацию о двух окнах (координаты верхнего левого угла, ширину и высоту.
Заранее спасибо |
volvo |
24.05.2006 16:21
Сообщение
#2
|
Гость |
--==KliM==--,
о каких окнах речь? Если о текстовых (созданных с помощью модуля CRT), то WindMin содержит координаты верхнего левого, а WindMax - координаты нижнего правого угла... НО... В каждый момент времени только одно окно может быть активным, следовательно, работать с двумя окнами сразу, используя ЭТИ переменные, нельзя... Если же речь об окнах графических (созданных с помощью процедур/функций модуля Graph), то там все зависит от реализации окон. |
--==KliM==-- |
24.05.2006 16:27
Сообщение
#3
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
--==KliM==--, о каких окнах речь? Если о текстовых (созданных с помощью модуля CRT), то WindMin содержит координаты верхнего левого, а WindMax - координаты нижнего правого угла... НО... В каждый момент времени только одно окно может быть активным, следовательно, работать с двумя окнами сразу, используя ЭТИ переменные, нельзя... Если же речь об окнах графических (созданных с помощью процедур/функций модуля Graph), то там все зависит от реализации окон. Я в этом ничо не понимаю! Забыд дописать что надо еще ответить на вопрос пересекаются ли они! |
volvo |
24.05.2006 16:42
Сообщение
#4
|
Гость |
Вот сначала выясни, потом будешь спрашивать... А то устроили тут "принеси то, не знаю что"...
|
APAL |
24.05.2006 16:43
Сообщение
#5
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
"получающую информацию" - видимо от пользователя задаются координаты, а в результате нужно выдать пересекаются они или нет.
Так? -------------------- |
--==KliM==-- |
24.05.2006 17:32
Сообщение
#6
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
|
APAL |
24.05.2006 17:52
Сообщение
#7
|
Смотрю... Группа: Модераторы Сообщений: 1 055 Пол: Мужской Реальное имя: Пшеничный Алексей Анатольевич Репутация: 6 |
Вот тебе функция:
Function InWin(x0,y0,xW,yH,xi,yi : byte) : Boolean; А дальше попробуй додумать как ее использовать. -------------------- |
--==KliM==-- |
24.05.2006 20:12
Сообщение
#8
|
Группа: Пользователи Сообщений: 7 Пол: Мужской Репутация: 0 |
А полностью написать не можешь, а? Хотя и за это большое спасибо может как нибудь додумаюсь.
|
APAL |
25.05.2006 20:14
Сообщение
#9
|
Смотрю... Группа: Модераторы Сообщений: 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)); -------------------- |
Текстовая версия | 27.04.2024 3:20 |