掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
コンポーネントのTImageの使い方 (ID：13408)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんにちは コンポーネントを作っています． 派生元を TPanel にして TPanelEx を作成しています。 その上に TImage を貼り付けています。 コンストラクタは inherited Create(Owner); BorderWidth := 4; Image := TImage.Create(Self); Image.Parent := Self; Image.Align := alClient; ここまで設定して、アプリフォーム上に貼り付けると、 Image の点線が TPanelEx の内側最大に広がっています。 ここまでは、ＯＫです。 次に、メソッドで Clear ( procedure Clear; )を public に追加しました。 中身は以下です。 Image.Canvas.Brush.Color := clWhite; Image.Canvas.FillRect( Rect( 0, 0, Image.Width, Image.Height ) ); しかし、Image.Width, Image.Height の値は 105 です。 どうすれば、Image 内全てを真っ白なキャンバスに できるのでしょうか？ TBoard = class(TPanel)
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.