Win32API質問箱 Build52 - 暇つぶし2ch

Win32API質問箱 Build52 at TECH

332:316
07/04/26 11:26:43
ﾗｼﾞｬｰ>>329

やってみます。あ、でもプリンタ使えるの昼から。

ｺﾞﾒﾝﾅｻｲ>>330

実体はこれです。
　↓
procedure TBitmapPrinter.StretchDrawDIB(Canvas: TCanvas; r: TRect);
var
OldMode: Integer; // StretchMode のセーブ
begin
OldMode := SetStretchBltMode(Canvas.Handle, COLORONCOLOR);
StretchDIBits(Canvas.Handle,
r.Left, r.Top,
r.Right - r.Left, r.Bottom - r.Top,
0, 0, BitmapInfo^.bmiHeader.biWidth,
BitmapInfo^.bmiHeader.biHeight,
ImagePtr, BitmapInfo^, DIB_RGB_COLORS, SRCCOPY);
SetStretchBltMode(Canvas.Handle, OldMode);
end;

次ページ

続きを表示

1を表示