Home » Tipps & Tricks » Grafik » Grafikeigenschaften » Maße eines Bitmaps in der Zwischenablage

Maße eines Bitmaps in der Zwischenablage

Die folgende Procedure zeigt, wie man die Maße eines Bitmpas in der Zwischenablage auslesen kann:

procedure TForm1.Button1Click(Sender: TObject);
var
  DIB: PBitmapInfoHeader;
begin
  if Clipboard.HasFormat(CF_DIB) then begin
    DIB := Pointer(Clipboard.GetAsHandle(CF_DIB));
    if (DIB  nil) then
      ShowMessageFmt('%d x %d Pixel', [DIB^.biWidth, DIB^.biHeight]);
  end;
end;