实现StatusBar的Flat风格

时间:2010-01-30 12:18:39  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:el设为False,点击Panels添加StatusPanel,把所有StatusPanel的Bevel设为pbNone、 Style设为psOwnerDraw因为我们要自己绘制Flat风格。下面是StutasBar的OnDrawPanel事件代码:procedure TForm1.StatusBar1Dra...
  正文:效果见右图,office/ target=_blank class=infotextkey>OfficeXP里就是这样的风格,其实实现很简单,不必专门在网上找别人控件。
  把StatusBar的 SimplePanel设为False,点击Panels添加StatusPanel,把所有StatusPanel的Bevel设为pbNone、 Style设为photoshop/ target=_blank class=infotextkey>psOwnerDraw因为我们要自己绘制Flat风格。下面是StutasBar的OnDrawPanel事件代码


procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
var
uAlign: UINT;
R: TRect;
begin
  case Panel.Alignment of
  taLeftJustify  : uAlign := DT_LEFT;
  taCenter       : uAlign := DT_CENTER;
  taRightJustify : uAlign := DT_RIGHT;
end;
uAlign := uAlign or DT_VCENTER;
with StatusBar.Canvas do begin
    Pen.Color := $E1E1E1;
    Brush.Color := StatusBar.Color;
    Rectangle(Rect);
    Brush.Style := bsClear;
    R.Left := Rect.Left + 1;
    R.Right := Rect.Right - 1;
    R.Top := Rect.Top + 1;
    R.Bottom := Rect.Bottom - 1;
    DrawText(StatusBar.Canvas.Handle, PChar(Panel.Text), -1, R, uAlign);
  end;
end;


  右图的界面中,第一StatusPanel应该是自动调整大小的,所以还得处理StatusBar.OnResize事件,代码如下:

procedure TForm1.StatusBar1Resize(Sender: TObject);
var
i, w: integer;
begin
  w := StatusBar1.Width;
  for i:=1 to StatusBar1.Panels.Count-1 do
  w := w - StatusBar1.Panels[i].Width;
  StatusBar1.Panels[0].Width := w;
end;

  效果还不错吧
"实现StatusBar的Flat风格"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12649.html


关键字:

关于《实现StatusBar的Flat风格》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td