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;