Trackbarについて (ID:9377)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

TrackBarについて質問があります。
TrackBarの背景に画像を使って見栄えを良くいしたいのですが
コンポーネントが見つからず、過去ログを検索し探したのですが見つからなかったので
この際、自分で作ってみようと思い勉強しつつチャレンジしています。
コンポーネントを作るのは初めてで、悪戦苦闘しています。

プロパティでbitmapを読み込みするところまでは出来たのですが、読み込んだ画像の表示の部分が出来ません。
paintはオーバーライド出来ないので、表示する為にどのような処理が必要なのでしょうか？
また、上位クラスのTTrackBarを他のクラスにしたほうがいいのでしょうか？
よろしくお願い致します。

unit PictureTrackBar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls;

type
  TPictureTrackBar = class(TTrackBar)
  private
    { Private 宣言 }
    FBitmap:Tbitmap;
    procedure setbitmap(value:Tbitmap);
  protected
    { Protected 宣言 }
  public
    { Public 宣言 }
    constructor create(aowner:Tcomponent);override;
    destructor  destroy;override;
  published
    { Published 宣言 }
    property bitmap:Tbitmap read Fbitmap write setbitmap;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComp', [TPictureTrackBar]);
end;

{ TPictureTrackBar }

constructor TPictureTrackBar.create(aowner: Tcomponent);
begin
  inherited create(aowner);
  Fbitmap:=Tbitmap.Create;
end;

destructor TPictureTrackBar.destroy;
begin
  Fbitmap.Free;
  inherited destroy;

end;

procedure TPictureTrackBar.setbitmap(value: Tbitmap);
begin
    Fbitmap.Assign(value);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る