掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Imageのサイズ変更について (ID:2297)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
多分こうしたいのではないですか？ procedure TForm1.Button1Click(Sender: TObject); var Image_A : TBitMap ; begin Image_A := TBitMap.Create ; Image_A.Height := Image1.Height ; Image_A.Width := Image1.Width ; Image_A.Canvas.Brush.Color:=clWhite; Image_A.Canvas.FillRect(Rect(0,0,Image_A.Width,Image_A.Height)); Image1.Picture.BitMap := Image_A; Image1.Width:= Image1.Width*2; Image1.Height:= Image1.height*2; Image_A.Free; end; これで、縦横二倍ずつ大きくなる白地を作れました
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.