TQProgressBarのような背景

ｄｅｌ初 2013-02-01 09:21:23 No: 43714

質問ですが、以下にあるプログレスバーの矩形の
塗りつぶしを描画するにはどうすればいいでしょうか？

ソースをみて試しましたが、初心者のため理解できないのですが
コンポーントではなく、functionの形で同様なサンプルがないでしょうか？
よろしくお願いします。

ax 2013-02-01 09:48:42 No: 43715

そこらにあるProgressBarと何が違うか分かりませんが、
単純に色を変えるとかのサンプルなら転がってます。

最低限の要件、それと環境も書かれてない状況では、
誰も答えようがないかと。

del初 2013-02-01 16:10:02 No: 43716

ax様
始めてでしたのですみません。
環境は、WinXp Delphi7です。
XPでテーマがONの場合の中央から
両端に向かい、色が薄くなるような
グラディエーションとかメタリック調の
色合を実現したいのですが？
よろしくお願いします。

KHE00221 2013-02-02 20:39:52 No: 43717

GraphUtil.pas の

procedure GradientFillCanvas(const ACanvas: TCanvas;
const AStartColor, AEndColor: TColor; const ARect: TRect;
const Direction: TGradientDirection);