ペン幅の変更

提供: RAD Studio
移動先: 案内検索

グラフィックとマルチメディアの処理:インデックス への移動

ペン幅はペンで描画する線の太さをピクセル単位で指定します。

メモ:  線幅が 1 より大きい場合,Windows はペンの Style プロパティの値に関係なく,常に実線を描きます。

ペン幅を変更するには,ペンの Width プロパティに値を代入します。

ペンのツールバーにペン幅を表すためのスクロールバーがあるとします。また,ユーザーにフィードバックを返すために,スクロールバーの横にあるラベルを更新するものとします。スクロールバーの位置を使ってペン幅を決めるには,位置が変わるたびにペン幅を更新します。

スクロールバーの OnChange イベントの扱い方を次に示します。



 procedure TForm1.PenWidthChange(Sender: TObject);
 begin
 Canvas.Pen.Width := PenWidth.Position;{ ペン幅を直接設定する }
 PenSize.Caption := IntToStr(PenWidth.Position);{ キャプションに表示するため,文字列に変換 }
 end;



 void __fastcall TForm1::PenWidthChange(TObject *Sender)
 {
   Canvas->Pen->Width = PenWidth->Position;         // ペン幅を直接設定する
   PenSize->Caption = IntToStr(PenWidth->Position); // 文字列への変換
 }



関連項目