Kategorie: Programmierung

Programmierung

Print TImage

[code lang=”delphi”]procedure TForm1.PrintBitmap(TheImage : TImage); var SourceRect, PrintRect: TRect; Info: PBitmapInfo; InfoSize: Integer; Image: Pointer; ImageSize: LongInt; Bits: HBitmap; DIBWidth, DIBHeight: LongInt; PrintWidth,…