スピードボタンによるツールの変更

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

各描画ツールには対応する OnClick イベントハンドラが必要です。アプリケーションに 4 つの描画ツール（線，四角形，楕円，および角丸四角形）にそれぞれ対応するツールバーボタンがあるとします。ツールバーの 4 つの描画ツールボタンの OnClick イベントに対して，次のイベントハンドラを記述し，各 DrawingTool に適切な値を設定します。

 procedure TForm1.LineButtonClick(Sender: TObject);{ LineButton }
 begin
 DrawingTool := dtLine;
 end;
 procedure TForm1.RectangleButtonClick(Sender: TObject);{ RectangleButton }
 begin
 DrawingTool := dtRectangle;
 end;
 procedure TForm1.EllipseButtonClick(Sender: TObject);{ EllipseButton }
 begin
 DrawingTool := dtEllipse;
 end;
 procedure TForm1.RoundedRectButtonClick(Sender: TObject);{ RoundRectButton }
 begin
 DrawingTool := dtRoundRect;
 end;

 void __fastcall TForm1::LineButtonClick(TObject *Sender)  // LineButton
 {
   DrawingTool = dtLine;
 }
 void __fastcall TForm1::RectangleButtonClick(TObject *Sender) // RectangleButton
 {
   DrawingTool = dtRectangle;
 }
 void __fastcall TForm1::EllipseButtonClick(TObject *Sender)  // EllipseButton
 {
   DrawingTool = dtEllipse;
 }
 void __fastcall TForm1::RoundedRectButtonClick(TObject *Sender) // RoundRectBtn
 {
   DrawingTool = dtRoundRect;
 }

関連項目

• 使用する描画ツールの追跡
• 描画ツールの利用