Menu i toolbar taki jak w Office 2003

Przy funkcji toolbara AdvancedCustomDrawButton jest coś takiego jak State, więc najlepiej sprawdzić jaki jest ten State (czyli czy przycisk wciśnięty, normalny, lub czy użytkownik najechał naniego myszą). Pokombinuj trochę a na pewno się uda ;)

MoD

2005-03-10 19:39

MoD2005-03-10 19:39

Rejestracja:ponad 20 lat
Ostatnio:prawie 16 lat
Postów:24

Ja na razie doszedłem do takiego kodu:

Kopiuj

procedure TForm1.ToolBar1AdvancedCustomDrawButton(Sender: TToolBar;
  Button: TToolButton; State: TCustomDrawState; Stage: TCustomDrawStage;
  var Flags: TTBCustomDrawFlags; var DefaultDraw: Boolean);
var
  c: TControlCanvas;
  ob: TBitmap;
begin
  if State = [cdsHot] then
  begin
    c := TControlCanvas.Create;
    c.Control := Button;
    ob := TBitmap.Create;
    ob.LoadFromFile('images/button.bmp');
    c.Brush.Bitmap := ob;
    c.Rectangle(0,0,23,22);
  end;
  if State = [cdsSelected] then
  begin
    c := TControlCanvas.Create;
    c.Control := Button;
    ob := TBitmap.Create;
    ob.LoadFromFile('images/button_down.bmp');
    c.Brush.Bitmap := ob;
    c.Rectangle(0,0,23,22);
  end;  
  if State = [cdsHot,cdsSelected] then
  begin
    c := TControlCanvas.Create;
    c.Control := Button;
    ob := TBitmap.Create;
    ob.LoadFromFile('images/button_down_focus.bmp');
    c.Brush.Bitmap := ob;
    c.Rectangle(0,0,23,22);
  end;
end;

procedure TForm1.ToolBar1CustomDraw(Sender: TToolBar; const ARect: TRect;
  var DefaultDraw: Boolean);
var
  ob: TBitmap;
begin
  ob := TBitmap.Create;
  ob.LoadFromFile('images/gradient.bmp');
  ToolBar1.Canvas.Brush.Bitmap := ob;
  ToolBar1.Canvas.FillRect(ARect);
end;