[Delphi] Modyfikacja TBitmap (Graphics.pas)

Witam.

Chciałbym dokonać modyfikacji metody CopyImage(AHandle: HBITMAP; APalette: HPALETTE; DIB: TDIBSection) klasy TBitmap (z unitu Graphics.pas).

procedure TBitmap.CopyImage(AHandle: HBITMAP; APalette: HPALETTE; DIB: TDIBSection);
var
  NewHandle, NewPalette: THandle;
begin
  FreeContext;
  NewHandle := 0;
  NewPalette := 0;
  try
    if APalette = SystemPalette16 then
      NewPalette := APalette
    else
      NewPalette := CopyPalette(APalette);
    NewHandle := CopyBitmap(AHandle, APalette, NewPalette, DIB, FCanvas);
    NewImage(NewHandle, NewPalette, DIB, FImage.FOS2Format);
  except
    InternalDeletePalette(NewPalette);
    if NewHandle <> 0 then DeleteObject(NewHandle);
    raise;
  end;
end;

Czy muszę tą modyfikację zrobić w oryginalnym pliku Delphi 2007 czy też mogę to zrobić w inny sposób? Metoda jest prywatna (i nie jest wirtualna ani dynamiczna) i nie mogę jej przedefiniować (override).

że tak zapytam - po co?

http://tnij.org/j56z - chce zrobić taką modyfikację.

ale CopyImage z tej strony jest dokładnie takie samo jak w Twoim poście

Nie do końca.

chodzi o linie:

 except    //попробуйте заменить на finally

i

 raise;  //а эту строку закомментируйте

Proszę zwrócić uwagę na komentarze. Nalezy slowo except zamienić na finally i zakomentować raise

Witam ponownie.

Czy jednak ktoś zdecydował by się odpowiedzieć na moje pytanie?

Odpowiedzieć jak? To zależy co chcesz osiągnąć. Stworzyć własne TBitmap ze zmienioną metodą — wtedy musiałbyś skopiować kod i zmienić. Zmodyfikować oryginalne TBitmap aby zawsze i wszędzie twoja zmiana miała miejsce — edytuj graphics.pas i przekompiluj VCL.