Einzelnen Beitrag anzeigen

Benutzerbild von himitsu
himitsu

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

AW: Screenshot erstellen und speichern

  Alt 10. Okt 2022, 19: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);
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

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