Maße eines Bitmaps in der Zwischenablage |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
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;
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;