Аналог IntersectRect

@CEO · Регистрация: 05.06.2011

Студворк — интернет-сервис помощи студентам

Помогите мне с одним вопросом. Есть ли в Delphi функция аналогичная IntersectRect? Только чтобы не пересечения прямоугольников проверяло, а чтобы проверяло, скажем, пересечение кнопок или картинок)
Заранее спасибо)

Добавлено через 49 минут
Ну что, никто не знает что ли??? Не верю!!! Если такой функции нет, то скажите хоть!!!Плиз, не томите меня тупым ожиданием)))

@IamPugalo · 05.06.2011, 23:26

procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect);
берет квадратик из любой канвы и вставляет в Canvas, а насчет пересечения, это все ручками писать нужно.

deathNC · 06.06.2011, 05:50

Можешь использовать функцию
GetWindowRect
Например:

Delphi
1
2
3
4
5
6
var
  button1_rect: TRect;
begin
  GetWindowRect(Button1.Handle, button1_rect);
  // Теперь тут в button1_rect хранится область кнопки.
end;

Аналогично определяется область для всего у чего есть Handle.

@CEO · 06.06.2011, 13:16 **[ТС]**

IamPugalo, а можно хотя бы маленький примерчик проверки пересечения 2 картинок?))Просто мне на примерах гораздо легче понять))Буду очень признателен)

@Mawrat · 06.06.2011, 13:21

Есть в Delphi такая функция. Она применима к прямоугольникам:

Delphi
1
function IntersectRect(out Rect: TRect; const R1, R2: TRect): Boolean;

Она объявлена в модуле Types.
True - прямоугольники имеют общие точки, иначе - False. Через параметр Rect возвращается результирующий прямоугольник представляющий собой область пересечения прямоугольников R1 и R2.
---
В справочной системе Delphi на закладке предметного указателя можно ввести фразу: "geometric routines" - будет показана ссылка на описание набора функции для работы с геометрией.
---
Через справочную систему можно изучить содержание самого модуля Types.

@CEO · 06.06.2011, 13:32 **[ТС]**

Mawrat, спасибо, но я это как раз и знаю)))Меня интересует как написать проверку пересечения 2-ух или более кнопок, картинок и тому подобного. Мне интересно, существуют ли такие функции или если кому не лень,описать сам код проверки пересечения 2-ух вышеперечисленных объектов

@Mawrat · 06.06.2011, 13:56

Так бери Rect с нужных объектов и проверяй через IntersectRect().

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
  Types;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  BtnRect, ImageRect, ResRect : TRect;
  Res : Boolean;
begin
  BtnRect := Button1.BoundsRect;
  ImageRect := Image1.BoundsRect;
  Res := IntersectRect(ResRect, BtnRect, ImageRect);
  if Res then begin
    ShowMessage('Пересекаются.');
    //...
    //...
    //...
  end else begin
    ShowMessage('Не пересекаются.');
  end;
end;

@CEO · 06.06.2011, 14:11 **[ТС]**

Mawrat, спасибо большое)))я сразу и не догнал)))просто я, наверное, сразу же сильно далеко запрыгнул, оттого и не сразу вас понял)))Ведь моя самая мощная программа - калькулятор))))Спасибо еще раз

Новые блоги и статьи Все статьи Все блоги /
Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .

@CEO 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 16

	Аналог IntersectRect 05.06.2011, 23:16. Показов 5839. Ответов 7 Метки нет (Все метки) Помогите мне с одним вопросом. Есть ли в Delphi функция аналогичная IntersectRect? Только чтобы не пересечения прямоугольников проверяло, а чтобы проверяло, скажем, пересечение кнопок или картинок) Заранее спасибо) Добавлено через 49 минут Ну что, никто не знает что ли??? Не верю!!! Если такой функции нет, то скажите хоть!!!Плиз, не томите меня тупым ожиданием))) 0

@IamPugalo 28 / 28 / 3 Регистрация: 14.04.2011 Сообщений: 101
	05.06.2011, 23:26
	procedure CopyRect(const Dest: TRect; Canvas: TCanvas; const Source: TRect); берет квадратик из любой канвы и вставляет в Canvas, а насчет пересечения, это все ручками писать нужно. 0

@CEO 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 16
	06.06.2011, 13:16 [ТС]
	IamPugalo, а можно хотя бы маленький примерчик проверки пересечения 2 картинок?))Просто мне на примерах гораздо легче понять))Буду очень признателен) 0

@CEO 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 16
	06.06.2011, 13:32 [ТС]
	Mawrat, спасибо, но я это как раз и знаю)))Меня интересует как написать проверку пересечения 2-ух или более кнопок, картинок и тому подобного. Мне интересно, существуют ли такие функции или если кому не лень,описать сам код проверки пересечения 2-ух вышеперечисленных объектов 0

@CEO 0 / 0 / 0 Регистрация: 05.06.2011 Сообщений: 16
	06.06.2011, 14:11 [ТС]
	Mawrat, спасибо большое)))я сразу и не догнал)))просто я, наверное, сразу же сильно далеко запрыгнул, оттого и не сразу вас понял)))Ведь моя самая мощная программа - калькулятор))))Спасибо еще раз 0