Задать сразу оба параметра BitMap

[Kronos913]

Для объектов есть процедура SetBounds, которая сразу задаёт все четыре параметра
А есть ли для BitMap возможность одной процедурой задать и высоту и ширину?

[BDA]

procedure SetSize(AWidth, AHeight: Integer); override;

Но этого метода, похоже, нет в Дельфи 7.

[Kronos913]

Не даёт такого. То есть, нужно только самому делать процедуру?

[Kronos913]

Присвоение размера даже ссылается на непонятно что...

[Kronos913]

В оригинальных ресурсах я нашел вот это:

unit Graphics;

procedure TBitmap.SetHeight(Value: Integer);
var
  DIB: TDIBSection;
begin
  with FImage do
    if FDIB.dsbm.bmHeight <> Value then
    begin
      HandleNeeded;
      DIB := FDIB;
      DIB.dsbm.bmHeight := Value;
      DIB.dsbmih.biHeight := Value;
      CopyImage(FHandle, FPalette, DIB);
      Changed(Self);
    end;
end;

procedure TBitmap.SetWidth(Value: Integer);
var
  DIB: TDIBSection;
begin
  with FImage do
    if FDIB.dsbm.bmWidth <> Value then
    begin
      HandleNeeded;
      DIB := FDIB;
      DIB.dsbm.bmWidth := Value;
      DIB.dsbmih.biWidth := Value;
      CopyImage(FHandle, FPalette, DIB);
      Changed(Self);
    end;
end;

И вот вопрос - если я попробую на основе этого собрать процедуру - насколько велик риск того, что что-то пойдёт не так?

[Arigato]

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

И вот вопрос - если я попробую на основе этого собрать процедуру - насколько велик риск того, что что-то пойдёт не так?

Вы бы лучше сформулировали ответ на вопрос: зачем это вам нужно? Опять попытка сделать оптимизацию там, где ею в принципе и не пахнет? Для решения ваших задач надо отказаться от VCL и GDI для начала...

[Vapaamies]

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

Присвоение размера даже ссылается на непонятно что...

Это вызовы виртуальных методов через VMT.

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

Опять попытка сделать оптимизацию там, где ею в принципе и не пахнет?

По всей видимости, это попытка последовать моему совету о минимизации обращения к процедурным свойствам.

[Kronos913]

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

Вы бы лучше сформулировали ответ на вопрос: зачем это вам нужно?

Ок, объясню с самого начала. Вообще я работаю в совершенно другой сфере. Но знания по программированию определенные у меня есть. И я сделал себе программу, которая ощутимо упростила процесс работы. То на что раньше уходило часов 10, сейчас делаю за 2.

Подобным образом знания по программированию я и ранее в другой деятельности применял.

В свободное время между проектами я где-то дорабатываю программу. Все вопросы которые я задаю в целом сводятся к таким вещам

1. Добавление новых функций в программу.

2. Исправление ошибок, которые внезапно выскакивают в процессе работы

3. Ускорение программы. После некоторых сеансов оптимизации программа действительно ускорялась, когда находился более прямой способ что-то сделать.

4. Создание наработок, которые могут понадобиться для других программ. Большую часть процедур я вынес в отдельный юнит.

5. Расширение знаний Delphi. Потому что мало ли как сложится жизнь и возможно со временем я и подрабатывать буду в этой сфере. Сильно на это не надеюсь, но не скидываю со счетов такой вариант.

6. Периодически я занимаюсь оптимизаций просто для некоего полезное развлечение.

7. Чтобы перед всеми понтоваться "у меня моя полноценная рабочая программа занимает меньше мегайта" (текущий размер - 990 208 байт)

К слову говоря, как-то раз был случай, когда моя 900килобайтная программа перегрузила оперативку, когда внутрь было загружено 40 больших фотографий. Пришлось переделывать процедуру загрузки - если загружаемая графика больше размеров экрана - то сжимать картинку перед загрузкой в TImage

[Arigato]

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

Чтобы перед всеми понтоваться "у меня моя полноценная рабочая программа занимает меньше мегайта" (текущий размер - 990 208 байт)

Это совершенно неважный параметр. Или у вас место на диске заканчивается? Оптимизировать в первую очередь надо алгоритмы и используемые библиотеки.

GDI для отрисовки годится лишь частично, так как он очень медленный. И что-то оптимизировать в его рамках смысла не имеет. В зависимости от конкретного применения, можно подобрать более подходящую библиотеку.

Аналогично VCL, он прекрасно справляется со своими задачами, но заниматься поиском способов сэкономить пару байт в рамках данной библиотеки совершенно лишено смысла. Есть альтернатива - библиотека KOL, она лишена особенности VCL резко раздувать размеры EXE. Уверен, то с KOL у вас было бы не 1 Мб, а раза в два меньше. Только остается вопрос: зачем? Нет никакой проблемы, если ЕХЕ весит хоть 10 Мб...

[Kronos913]

Я пытался загуглить что такое GDI и VCL но ничего относящегося к теме не нашел.
По запросу GDI вообще выпали статьи про автомобильные двигатели