掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
描画ツールでの縮小を実装するには？ (ID：20879)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Mr.XRAYさん、いつもお世話になっています。 私もDelphi6ヘルプを見てみました。 SetClipはなくて、SetClipRectというメソッドがありますね。 ClipRectもあって、次の例がありました。 時間がなくて確認できずに申し訳ないですが、手がかりが含まれている感じがするので紹介いたします。 がんばってくださいね。 ----- Canvas ClipRect 例 この例では，領域を作成し，その領域を Image コンポーネントのキャンバスのクリッピング範囲として選択します。次に，キャンバスのブラシの色を赤に設定し，ClipRect を塗りつぶし領域として使って FillRect を呼び出します。最後に，nil を使って SelectClipRect を呼び出すことで ClipRect を元の値に再設定し，領域を削除します。 procedure Form1.Button1Click(Sender: TObject); var MyRgn: HRGN ; begin MyRgn := CreateRectRgn(100,100,200,200); SelectClipRgn(Image1.Canvas.Handle,MyRgn); Image1.Canvas.Brush.Color := clRed; Image1.Canvas.FillRect(Image1.Canvas.ClipRect); Image1.Invalidate; SelectClipRgn(Image1.Canvas.Handle,nil); DeleteObject(MyRgn); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.