HBITMAP ---> TBitmap?

[TheXception]

Wie kann ich aus HBITMAP ein TBitmap machen?

[SirThornberry]

in dem du ein TBitmap creirst und das Handle zuweist

Delphi-Quellcode:

var LBitmap: TBitmap;
begin
  LBitmap := TBitmap.Create;
  LBitmap.Handle := YourHBitmap;
  //do anything with LBitmap
  LBitmap.Free;

[turboPASCAL]

Zitat:

Zitat von Die Hilfe (F1)

...Der Wert der Eigenschaft Handle bezeichnet die HBITMAP-Struktur, das vom Bitmap-Objekt gekapselt wird. Ein direkter Zugriff auf das Handle sollte vermieden werden, weil das HBITMAP-Objekt sonst kopiert wird, falls das Handle von mehreren TBitmap-Objekten verwendet wird. ...

-> HBITMAP = TBitmap

Delphi-Quellcode:

procedure FormX.DiesUndDas...

var TheBitmap: TBitmap { => HBITMAP }
begin
  TheBitmap.Width  := 320;
  TheBitmap.Height := 240;
  TheBitmap.PixelFormat := pf24Bit;

  // in das Bitmap Zeichnen
  TheBitmap.Canvas.Rectangle(10, 10, 20,20);
  ...
  ...
end;

[TheXception]

Danke werd ich glei mal ausprobieren

[SirThornberry]

@turboPASCAL: HBitmap ist nicht gleich TBitmap. HBitmap ist einfach ein HandleTyp der eben für das WindowsBitmap steht. Wäre HBitmap = TBitmap dann wäre TBitmap ja rekursiv verschaltet, denn TBitmap hat das Property Handle was vom Typ HBitmap ist. Und wenn das nur ein TBitmap wäre, könnte man es ja zu TBitmap casten und dann wieder auf Handle zugreifen und so weiter.

[turboPASCAL]

@SirThornberry
So war es auch nicht gemeint, etwas blöde Darstellung, sorry.

[SirThornberry]

@turboPASCAL: ok, dann hab ich's falsch verstanden...

[Olli]

Bei TBitmap kommt es immer darauf an in welchem Scope du es betrachtest. Wenn du also den Scope-Operator nimmst und Windows.TBitmap angibst, ist das kein Objekt mehr, sondern ein record:

Delphi-Quellcode:

{ Bitmap Header Definition }
  PBitmap = ^TBitmap;
  {$EXTERNALSYM tagBITMAP}
  tagBITMAP = packed record
    bmType: Longint;
    bmWidth: Longint;
    bmHeight: Longint;
    bmWidthBytes: Longint;
    bmPlanes: Word;
    bmBitsPixel: Word;
    bmBits: Pointer;
  end;
  TBitmap = tagBITMAP;
  {$EXTERNALSYM BITMAP}
  BITMAP = tagBITMAP;

Ein Record ist zwar kein Handle, aber es ist auch keine Klasse ;)

Von was sprechen wir hier also, wenn wir von TBitmap sprechen?