Delphiのツールボタン（TToolbutton）のストリップ効果

Question

Delphi XE2のバージョンがないようで、一部のアセンブリを使用しているように見えるので、Toolbar2000を通常のツールバーに切り替えることを試みています。私がする必要がなければ本当にそれに対処したい。 （と私は本当にDelphiのツールバーでフェードインの効果が好きです）

しかし、私は好きではないのは、ボタンの背景は、青いボタンの定期的な治療を取得することです。私は色を変更する方法を知っていますが、私はちょうど色の変更を行うことはできませんし、境界線をボタンの周りに塗っていない？

私は 'OnAdvancedCustomDrawButton'を実装しましたが、使用可能なフラグが正しく機能していないようで、グラデーションの色とホットトラックの色とどうやって相互作用するのか分かりません。奇妙な黒の背景。ここで

は、私はツールバー

ToolBar1 := TToolBar.Create(Self); 
ToolBar1.DoubleBuffered := true; 
ToolBar1.OnAdvancedCustomDrawButton := Toolbar1CustomDrawButton; 
ToolBar1.Transparent := false; 
ToolBar1.Parent := Self; 
ToolBar1.GradientEndColor := $7ca0c2; //RGB(194, 160, 124); 
ToolBar1.GradientStartColor := $edeeed; //RGB(237, 238, 124); 
ToolBar1.Indent := 5; 
ToolBar1.Images := Normal; 
ToolBar1.DrawingStyle := dsGradient; 
ToolBar1.HotImages := Over; 
ToolBar1.AutoSize := True; 
ToolBar1.Visible := False; 

を作成しています方法ですと、ここで私は（ループ内）ボタンを作成しています方法は次のとおりです。私のAdvancedCustomDrawButton機能をここ

ToolButton := TToolButton.Create(ToolBar1); 
ToolButton.Parent := ToolBar1; 
ToolButton.ImageIndex := ToolButtonImages[Index].ImageIndex; 
ToolButton.OnClick := ToolButtonClick; 

としています

procedure TMyForm.Toolbar1CustomDrawButton(Sender: TToolBar; Button: TToolButton; 
    State: TCustomDrawState; Stage: TCustomDrawStage; 
    var Flags: TTBCustomDrawFlags; var DefaultDraw: Boolean); 
begin 
    Flags := [tbNoEdges, tbNoOffset]; 
    DefaultDraw := True; 
end; 

Answer 1

ツールバーの描画スタイルをdsNormalに設定し、を設定します。から[drawNoEdges]をカスタム描画ハンドラに追加します。

更新：

2KとXP、Vistaと7のための上記の作品は、ボタンの背景が描かれていないときの境界線を描画しないように見えるものの。残念ながらVCLでTTBCustomDrawFlagsを入力してこれを実現することは不可能なので、カスタム描画ハンドラの枠線を取り除くことはできません。

ツールバーは、通知メッセージが親ウィンドウに送信されているので、我々はWM_NOTIFYのハンドラを置くことができ、フォーム自体にある場合は、次のツールバーが、その後、パネルのように、別のウィンドウで親とされている場合は

type 
    TForm1 = class(TForm) 
    .. 
    private 
    procedure WMNotify(var Msg: TWMNotify); message WM_NOTIFY; 
    .. 
    .. 

procedure TForm1.WMNotify(var Msg: TWMNotify); 
begin 
    inherited; 
    if (Msg.NMHdr.code = NM_CUSTOMDRAW) and 
     Assigned(Toolbar1) and (Toolbar1.HandleAllocated) and 
     (Msg.NMHdr.hwndFrom = ToolBar1.Handle) then 

    case PNMTBCustomDraw(Msg.NMHdr).nmcd.dwDrawStage of 
     CDDS_PREPAINT: Msg.Result := Msg.Result or CDRF_NOTIFYITEMDRAW; 
     CDDS_ITEMPREPAINT: Msg.Result := TBCDRF_NOEDGES or TBCDRF_NOBACKGROUND; 
          // NOEDGES for 2K, XP, // NOBACKGROUND for Vista 7 
    end; 
end; 

私たちは、ツールバーのサブクラスを作成する必要があります。

type 
    TForm1 = class(TForm) 
    .. 
    private 
    FSaveToolbarWndProc: TWndMethod; 
    procedure ToolbarWndProc(var Msg: TMessage); 
    .. 
.. 

uses 
    commctrl; 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    .. 
    FSaveToolbarWndProc := ToolBar1.WindowProc; 
    ToolBar1.WindowProc := ToolbarWndProc; 
end; 

procedure TForm1.ToolbarWndProc(var Msg: TMessage); 
begin 
    FSaveToolbarWndProc(Msg); 

    if (Msg.Msg = CN_NOTIFY) and 
     (TWMNotify(Msg).NMHdr.hwndFrom = ToolBar1.Handle) and 
     (TWMNotify(Msg).NMHdr.code = NM_CUSTOMDRAW) then begin 

    case PNMTBCustomDraw(TWmNotify(Msg).NMHdr)^.nmcd.dwDrawStage of 
     CDDS_PREPAINT: Msg.Result := CDRF_NOTIFYITEMDRAW; 
     CDDS_ITEMPREPAINT: Msg.Result := TBCDRF_NOEDGES or TBCDRF_NOBACKGROUND; 
    end; 
    end; 
end; 

（描画スタイルはまだdsNormalにする必要があることに注意してください）

このソリューションでは、カスタム図面のハンドラを配置する必要はありません。我々はWM_NOTIFYで扱うとき

CDDS_PREPAINT: Msg.Result := Msg.Result or CDRF_NOTIFYITEMDRAW; 
    CDDS_ITEMPREPAINT: Msg.Result := 
        Msg.Result or TBCDRF_NOEDGES or TBCDRF_NOBACKGROUND; 

同じことのために行く：あなたは/が必要な場合でも、とにかく、あなたがする必要があるかもしれませんし「または」「の場合」すなわち、1つのVCLのウィンドウプロシージャが返すとMsg.Resultは、次のようになりたいですフォーム。

同じことを実現する他の方法があるかもしれませんが、カスタム図面は広範なトピックです。あなたはそれを掘り下げたい場合、私はあなたが当面の問題については、以下のリンクから開始することをお勧め：

About Custom Draw
NM_CUSTOMDRAW (toolbar) notification code
NMCUSTOMDRAW structure
NMTBCUSTOMDRAW structure