Декларировать OpenPictureDialog1

@victor1963 · Регистрация: 23.01.2012

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

Здравствуйте, как декларировать OpenPictureDialog1? Заранее спасибо.

@AzAtom · 05.03.2026, 19:36

Сообщение от victor1963

А где это,инспекторе объектов?

Кто-то решил пошутить?

@victor1963 · 05.03.2026, 19:47 **[ТС]**

В объект инспектор, в событие OnClick поставил Button1OnClick, стало открываться фото, но останавливаеться
на Image1.Picture.Bitmap.Canvas.Pen.Color := clBlack;

Delphi
1
2
3
4
5
6
7
8
begin
   OperBegin:=DateTimeToTimeStamp(Now);
 
             
 
    Image1.Picture.Bitmap.Canvas.Pen.Color := clBlack;
    Image1.Picture.Bitmap.Canvas.Pen.Width :=1;
    Image1.Picture.Bitmap.Canvas.Brush.Style := bsClear;

@northener · 05.03.2026, 23:23

Сообщение от AzAtom

Сломал что-то в проекте, значит.

Да не. Просто скопировал код в пустой проект. Про дизайнер ничего не знает.

@victor1963 · 06.03.2026, 19:22 **[ТС]**

Спасибо, всё получилось.

Verevkin · 06.03.2026, 19:24

Сообщение от victor1963

Спасибо, всё получилось.

Ты уверен?

@victor1963 · 07.03.2026, 17:34 **[ТС]**

Да , капельница на месте, в палате, всё спокойно.

Verevkin · 07.03.2026, 17:41

Сообщение от victor1963

Да , капельница на месте, в палате, всё спокойно.

Как выпишут - отпишись, а то мы тут переживаем.

@victor1963 · 07.03.2026, 18:32 **[ТС]**

Хотел выслать Вам, мою прог., но форум не позволяет, слишком длинная, почти до 13 000 строк.

Verevkin · 07.03.2026, 18:36

Сообщение от victor1963

Хотел выслать Вам, мою прог., но форум не позволяет, слишком длинная, почти до 13 000 строк.

Про архиваторы слыхал? Нет? Хочешь, я тебе расскажу?

@victor1963 · 08.03.2026, 13:34 **[ТС]**

Хочу.

Verevkin · 08.03.2026, 13:42

Сообщение от victor1963

Хочу.

Есть такая прога, называется 7-zip. В неё можно сжать твой говнокод в 10 и более раз, штоп появилась возможность вывалить его на форумы в интырнетах.

@Cyborg Drone · 08.03.2026, 19:10

victor1963, кроме того, размер файлов архивов 7z, zip и rar могут быть до 25 мегабайт (то есть, Вы можете разместить на форуме где-то четверть гигабайта одним архивом (помните, архивов может быть несколько)).

@Alex1126 · 08.03.2026, 19:20

Извиняюсь за занудство, но четверть гигабайта это все же 250 мегабайт

@AzAtom · 08.03.2026, 21:08

victor1963, лишнего не нужно. Сам проект или демонстрационный проект без лишнего (без исполняемых и скомпилированных файлов) и пара картинок для теста и всё в архив. У тебя массив для картинки с разрешением максимум 336х446 пикселей, там не должно быть никаких мегабайтов.

Verevkin · 08.03.2026, 21:26

Сообщение от Alex1126

Извиняюсь за занудство, но четверть гигабайта это все же 250 мегабайт

256.

@victor1963 · 09.03.2026, 14:13 **[ТС]**

Загрузил в Z ип папку мою прог. стало 25 кбайт. В управление файлами дохожу до текущего положения, дальше не знаю как.

Verevkin · 09.03.2026, 15:06

Мужики! Кто ещё не смотрел ЭТО - не смотрите!

Развидеть будет невозможно!!

@Rayvenor · 09.03.2026, 18:13

Сообщение от Verevkin

Мужики! Кто ещё не смотрел ЭТО - не смотрите!

Я думал я крепкий. На строке 464 я сломался.
Показал код ГПТ:

Я посмотрел файл. Коротко: это очень характерный “интернет-код из 2000-х” — смесь эксперимента, прототипа и откровенного хаоса. Разберу по пунктам, что там происходит.
...
2. Катастрофическое количество переменных
...
4. Самая дикая часть — inline assembler
...
Зачем asm?
Ни одной причины.
Это можно было сделать в 2 строки Delphi.

5. Производительность ужасная
Самый тяжёлый момент — это:
Canvas.Pixels[ix,iy]
...
7. Архитектура отсутствует
Нет:
функций
классов
структур
модулей
...
Итоговая оценка
Честно?
| Критерий | Оценка |
| ------------------------- | ------ |
| Читаемость | 0/10 |
| Архитектура | 0/10 |
| Производительность | 3/10 |
| Инженерия | 1/10 |
| Исследовательский интерес | 7/10 |
...
Но есть интересная вещь
Судя по структуре, автор пытается реализовать примитивный face landmark detector. То есть что-то похожее на старые алгоритмы до нейросетей.
...
Самое смешное
Код выглядит как будто его писали так:
1. поставить точку
2. проверить
3. поправить координату
4. закомментировать
5. оставить старый вариант
Поэтому там километры закомментированных координат.
...
Если хочешь, могу ещё показать 3–4 реально безумных места в этом файле, где становится совсем смешно (там есть вещи, которые я почти никогда не видел даже в плохом Delphi-коде).

Это не мои слова, это ГПТ. Даже ему стало смешно.

@Alex1126 · 09.03.2026, 18:17

Зачем вы скормили это чатгпт? Он же на этом обучаться будет

)))))

@Rayvenor · 09.03.2026, 18:33

Сообщение от Alex1126

Зачем вы скормили это чатгпт? Он же на этом обучаться будет )))))

Даже он понимает, что так делать нельзя.

Самое безумное место
Однозначно это:
Label aa0, aa1, aa2 ... jjj20
Это сотни goto-меток.
Я такого давно не видел.

Код — сокровище археологии.
...
Там реально есть код уровня «Delphi-хоррор»

Новые блоги и статьи Все статьи Все блоги /
[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .	Нейросеть на алгоритме "эстафета хвоста" как перспектива. Hrethgir 06.05.2026 На десерт, когда запущу сервер. Статья тут https:/ / habr. com/ ru/ articles/ 1030914/ . Автор я сам, нейросеть только помогает в вопросах которые мне не известны - не знаю людей которые знали-бы. . .	Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .
попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .	Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .

@victor1963 2 / 2 / 0 Регистрация: 23.01.2012 Сообщений: 255

	Декларировать OpenPictureDialog1 02.03.2026, 20:54. Показов 2120. Ответов 47 Метки delphi (Все метки) Здравствуйте, как декларировать OpenPictureDialog1? Заранее спасибо. 0

@victor1963 2 / 2 / 0 Регистрация: 23.01.2012 Сообщений: 255
	06.03.2026, 19:22 [ТС]
	Спасибо, всё получилось. 0

@victor1963 2 / 2 / 0 Регистрация: 23.01.2012 Сообщений: 255
	07.03.2026, 17:34 [ТС]
	Да , капельница на месте, в палате, всё спокойно. 0

@victor1963 2 / 2 / 0 Регистрация: 23.01.2012 Сообщений: 255
	07.03.2026, 18:32 [ТС]
	Хотел выслать Вам, мою прог., но форум не позволяет, слишком длинная, почти до 13 000 строк. 0

@victor1963 2 / 2 / 0 Регистрация: 23.01.2012 Сообщений: 255
	08.03.2026, 13:34 [ТС]
	Хочу. 0

@Cyborg Drone Модератор 10451 / 5746 / 3409 Регистрация: 17.08.2012 Сообщений: 17,486
	08.03.2026, 19:10
	victor1963, кроме того, размер файлов архивов 7z, zip и rar могут быть до 25 мегабайт (то есть, Вы можете разместить на форуме где-то четверть гигабайта одним архивом (помните, архивов может быть несколько)). 0

@Alex1126 443 / 168 / 29 Регистрация: 12.12.2020 Сообщений: 1,342
	08.03.2026, 19:20
	Извиняюсь за занудство, но четверть гигабайта это все же 250 мегабайт 0

@AzAtom Модератор 4149 / 2360 / 812 Регистрация: 15.11.2015 Сообщений: 9,469
	08.03.2026, 21:08
	victor1963, лишнего не нужно. Сам проект или демонстрационный проект без лишнего (без исполняемых и скомпилированных файлов) и пара картинок для теста и всё в архив. У тебя массив для картинки с разрешением максимум 336х446 пикселей, там не должно быть никаких мегабайтов. 0

Verevkin Злостный нарушитель 10878 / 5817 / 1288 Регистрация: 12.03.2015 Сообщений: 26,855
	09.03.2026, 15:06
	Мужики! Кто ещё не смотрел ЭТО - не смотрите! Развидеть будет невозможно!! 0

@Alex1126 443 / 168 / 29 Регистрация: 12.12.2020 Сообщений: 1,342
	09.03.2026, 18:17
	Зачем вы скормили это чатгпт? Он же на этом обучаться будет ))))) 1