TBottunに色をつけるにするには？

解決

どさん子 2007-11-16 22:54:54 No: 28440

失礼します。初投稿です。
TButtonに色をつける方法についてで、過去ログ参照したところできないことが分かったのですがこちらのHP
http://rakasaka.fc2web.com/delphi/odbtn.html
で、やり方が書いてあったので、試そうと思っているんですが、初心者なのでやり方に困っています。どうかご指導のほうよろしくお願いできないでしょうかm_ _m
使っているDelphiのバージョンはTurbo Delphiの無償版です。

ちょっと待て 2007-11-16 23:06:41 No: 28441

上記の懇丁寧なサイトを見て出来ないと言っているのか？
・・・全くトライしてないだろ？

Syake 2007-11-16 23:07:59 No: 28442

って言うか。
TurboDelphiの無償版ってオリジナルコンポーネント作成できたっけ？

んがんん 2007-11-16 23:16:16 No: 28443

> TurboDelphiの無償版ってオリジナルコンポーネント作成できたっけ？
初期バージョンには、 dclusr.dpkを使用することでコンポーネントの
インストールができてしまうという不具合が・・・
・・・環境によっては・・・ん、ん・・・
ごほごほ。

どさん子 2007-11-16 23:18:19 No: 28444

初心者で何も分からないですみません。
オリジナルコンポーネントはPro版じゃないとインストールできないみたいなので、無償版だとできないです。

Syake 2007-11-16 23:18:58 No: 28445

いけませんね。
不具合と言えどもライセンス違反です。

Ｄｅｌ 2007-11-16 23:35:35 No: 28446

Ｓｙａｋｅおまえは何様だ！！

Manbon 2007-11-16 23:50:06 No: 28447

無償版はコンポのインストールはできませんが、
コード上でCreateすれば使用できます。
OwnerDrawButton1: TOwnerDrawButton;
OwnerDrawButton1 := TOwnerDrawButton.Create;
な感じで。

Syeke 2007-11-17 00:38:11 No: 28448

Delお前こそ何様だ！！！

ライセンス違反じゃないアル 2007-11-17 00:41:19 No: 28449

アナタ、またこれ繰り返すアルか？
https://www.petitmonte.com/bbs/answers?question_id=4213

気分はクラシック 2007-11-17 00:41:51 No: 28450

>で、やり方が書いてあったので、試そうと思っているんですが
試すだけなら、動的な生成でイケルけど、その「色をつけるTButtonコンポ」は
クラシックスタイルの描画なので、XP以降では見栄えが良くないよ。

Syake 2007-11-17 00:45:45 No: 28451

理解しました。
申し訳ありませんm(__)m

…の上塗り 2007-11-17 01:46:04 No: 28452

XPスタイルであってもＯＫ。
クリック時、フォーカス時の描画は省略してるけど。

type
  TButtonEx = class(TButton)
  private
   procedure WmPaint(var Msg: TWmPaint); Message WM_PAINT;
  published
   property Color;
  end;

procedure TButtonEx.WmPaint(var Msg: TWmPaint);
var
  Rect: TRect;
begin
  inherited;
  with TCanvas.Create do try
   Handle := GetWindowDC(Self.Handle);
   Brush.Color := Color;
   Rect := ClientRect;
   InflateRect(Rect, -3, -3);
   FillRect(Rect);
   DrawText(Handle, PChar(Caption), -1, Rect,
    DT_SINGLELINE or DT_CENTER or DT_VCENTER);
  finally
   ReleaseDC(Handle, Self.Handle);
   Free;
  end;
end;

HOta 2007-11-17 02:48:12 No: 28453

TBitBtnは使えないのですか？

どさん子 2007-11-17 04:35:08 No: 28454

みなさんありがとうございます。