Bildgröße verändern

[DeddyH]

Du hast die Objekte nicht instanziiert.

Delphi-Quellcode:

program Bmp_resize;

uses
  Windows, Graphics;

{$R *.res}

var
  SourceBitmap : TBitmap;
  TargetBitmap : TBitmap;

begin
  SourceBitmap := TBitmap.Create;
  TargetBitmap := TBitmap.Create;
  try
    SourceBitmap.LoadFromFile('ausweis.bmp');
    TargetBitmap.Width := SourceBitmap.Width - 50;
    TargetBitmap.Height := SourceBitmap.Height;

    BitBlt(TargetBitmap.Canvas.Handle, 0, 0, 50, 0, SourceBitmap.Canvas.Handle, 0, 0, SRCCOPY);
    TargetBitmap.SaveToFile('ausweis.bmp');
  finally
    SourceBitmap.Free;
    TargetBitmap.Free;
  end;
end.

[edit] Vertipper korrigiert [/edit]