Wie groß sind die Bilder?
Nicht sehr klein.
Zitat:
Delphi-Quellcode:
if aBitmap.With <> Breit then
aBitmap.With:= Breit;
if aBitmap.Height <> Hoch then
aBitmap.Height:= Hoch;
Statt Width und Height einzeln, kommt SetSize oft besser, da die Beiden das intern sowieso aufrufen, also 2 Mal.
Delphi-Quellcode:
if (aBitmap.With <> Breit) or (aBitmap.Height <> Hoch) then
aBitmap.SetSize(Breit, Hoch);
und da
Zitat:
Delphi-Quellcode:
procedure TBitmap.SetSize(AWidth, AHeight: Integer);
var
DIB: TDIBSection;
begin
HandleNeeded;
with FImage do
if (FDIB.dsbm.bmWidth <> AWidth) or (FDIB.dsbm.bmHeight <> AHeight) then
...
procedure TBitmap.SetWidth(Value: Integer);
begin
SetSize(Value, FImage.FDIB.dsbm.bmHeight);
end;
nur noch einmal
aBitmap.SetSize(Breit, Hoch);
