Screenshots erstellen. Canvas not allow to draw / Out of system resources

[himitsu]

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