16番会議室「玉石混淆みんなで作るSample蔵」に寄せられたサンプル
"RE:画像を範囲選択してClipBoardへ"
この発言は #00257 凛 さんの画像を範囲選択してClipBoardへ に対するコメントです
記述ミス修正 及び注記追加
>procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
(中略)
> drawMode:=dmNone;
> clipBmp:=TBitmap.create;
> clipBmp.PixelFormat:=Pf32bit; <<<ver3以上のみ記述可能
> clipBmp.p <<<<<<<<<この行は不要です
PixelFormatの指定を上記のようにすると環境によらず、
画像データを32bitでコピーできます。
98/01/09(金) 23:19 凛(MXB01744)
Original document by 凛 氏 ID:(MXB01744)
ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。
Copyright 1996-2002 Delphi Users' Forum
|