Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.184 Beiträge
 
Delphi 12 Athens
 
#25

AW: Screenshot erstellen und speichern

  Alt 10. Okt 2022, 20:56
Kennst du Strg+Linksklick auf "dein" TBitmap?

Zitat:
Delphi-Quellcode:
//unit Winapi.Windows;

{ Bitmap Header Definition }
  PBitmap = ^TBitmap;
  {$EXTERNALSYM tagBITMAP}
  tagBITMAP = record
    bmType: Longint;
    bmWidth: Longint;
    bmHeight: Longint;
    bmWidthBytes: Longint;
    bmPlanes: Word;
    bmBitsPixel: Word;
    bmBits: Pointer;
  end;
  TBitmap = tagBITMAP;
  {$EXTERNALSYM TBitmap}
  BITMAP = tagBITMAP;
  {$EXTERNALSYM BITMAP}
Wer/wann ist, um Himmels Willen, da denn auf diese saudämliche strunzdoofe Idee gekommen?

Warum ausgerechnet HIER dieser "Pascalname", in der WinAPI,
und wenn, warum dann nicht TBitmapHeader.


Ist ja fast so ein Schwachsinn, wie das mit den beiden TMonitor.


Lösung 1:
Delphi-Quellcode:
uses
  Winapi.Windows;
  System.SysUtils,
  Vcl.Graphics, // Windows vor Graphics
Lösung 2:
procedure DesktopScreenShot(DestBitmap: Vcl.Graphics.TBitmap; SourceRect: TRect);
$2B or not $2B

Geändert von himitsu (10. Okt 2022 um 21:19 Uhr)
  Mit Zitat antworten Zitat