Изменение стандартных модулей Delphi

[Hottabych]

Всем доброго времени суток!

Вопрос: Как можно изменить модуль Delphi, допустим Graphics?
Мне нужно чуть подправить процедуру TBitmap.LoadFromStream.
Модуль .pas изменяется, а как его скомпилить в .dcu?

[Stilet]

а как его скомпилить в .dcu?

Жмакай F9 само скомпилит

Как можно изменить модуль Delphi, допустим Graphics?

Знаешь за что Саддам руки отрубал?
Скомпилируй - перенеси проект на другую Делфи - узнаешь

[GunSmoker]

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

Модуль .pas изменяется, а как его скомпилить в .dcu?

Правильный ответ на этот вопрос - не делать этого вообще. Наследование не просто так придумано.

[Hottabych]

Да не компилит. Я добавил в Graphics.pas, в TBitmap метод LoadFromStreamCount(Stream: TStream; const Count: integer), сохранил...

imgScreen.Picture.Bitmap.LoadFromStreamCount(CMStream, fr_sz);

Пишет Undeclared identifier "LoadFromStreamCount"
Кстати, IDE - RAD 2007, и я щас на win7

Правильный ответ на этот вопрос - не делать этого вообще.

И что, теперь из-за одного параметра компонент создавать?

Ну, давайте думать... Как изменить Graphics.dcu в директории lib?
При удалении этого файла делфи пишет "не найден этот файл"

[Stilet]

компонент создавать?

Не создавать, а переопределить. Иначе потом наткнешся на очень нехорошие грабли.
Или поменять стратегию проекта. Подумай хорошенько нужно ли оно тебе такой ценой.
И ответь себе на один вопрос "Почему люди пишут сторонние компоненты вместо того чтоб генофонд доправлять"

[GunSmoker]

И что, теперь из-за одного параметра компонент создавать?

Да.

Ну, давайте думать... Как изменить Graphics.dcu в директории lib?

Не НАДО этого делать. Иначе потом вам кто-нибудь за это зонтик в одно место вставит и раскроет.

Есть лимит способов это сделать. Самый простой - процедура:

procedure LoadFromStreamCount(ABitmap: TBitmap; AStream: TStream; ASize: Integer);

D2007? Юзаем класс-хэлпер (я НЕ рекомендую этот способ, но упоминаю его как возможный).

type
  TBitmapHelper = class helper for TBitmap
     procedure LoadFromStreamCount(AStream: TStream; ASize: Integer);
  end;

Правильный метод - написание наследника от TImage с нужными методами. Если вы используете TImage, плюхнутый как компонент на форму, то вы можете использовать метод Geo.

P.S. Если вы не поняли: здесь знают ответ на вопрос "как перекомпилировать Graphic.pas", но специально его вам не говорят. Во избежание.

[Hottabych]

А можно переделать Tmod_Bitmap, описать у себя модуле и скормить процедуре imgScreen.Picture.Bitmap.Assign(mod _Bitmap)?

[mutabor]

И что, теперь из-за одного параметра компонент создавать?

А в чем проблема? Унаследовался и переопределил нужный метод.

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

А можно переделать Tmod_Bitmap, описать у себя модуле и скормить процедуре imgScreen.Picture.Bitmap.Assign(mod _Bitmap)?

Можно, но в этом случае сильно не коверкай его, только добавляй функционал. Если не будет принимать, то передавай его как (MyBitmap as TBitmap).

[GunSmoker]

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

А можно переделать Tmod_Bitmap

Можно, если Tmod_Bitmap - это наследник от TBitmap.

[vovk]

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

...
И что, теперь из-за одного параметра компонент создавать?
....

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