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).