实现StatusBar的Flat风格

原创 2004年10月03日 16:19:00
具有Flat风格的StatusBar  效果见右图,OfficeXP里就是这样的风格,其实实现很简单,不必专门在网上找别人控件。
  把StatusBar的SimplePanel设为False,点击Panels添加StatusPanel,把所有StatusPanel的Bevel设为pbNone、Style设为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;

  效果还不错吧

//文章出自:http://blog.csdn.net/nhconch,转载请作者联系,并注明文章出处、保留作者信息,谢谢支持!

Qt--风格化statusBar

//使用label在statusbar显示提示信息 msgLabel = new QLabel; msgLabel->setMinimumSize(msgLabel->sizeHi...
  • abby_sheen
  • abby_sheen
  • 2012年03月16日 11:23
  • 2439

FlatUI风格的qml控件

参考FlatUI设计的一套qml控件,纯qml实现
  • qyvlik
  • qyvlik
  • 2015年04月11日 11:02
  • 3543

编写Flat风格的Button

Normal 0 7.8 pt 0 2 false false false EN-US ZH-CN X-NONE ...
  • SmallHand
  • SmallHand
  • 2008年12月09日 14:54
  • 2295

android 状态栏(StatusBar)

一、SystemUI 概述         自 android2.2 开始 , 原本存在与 framework-res.apk 中的状态栏和下拉通知栏界面控制被分割出一个单独的 apk文件 , ...
  • jdsjlzx
  • jdsjlzx
  • 2014年03月29日 11:39
  • 21445

什么是Flat File

"Flat"which means it has no structure for indexing and there are usually no structural relationships...
  • OnlyQi
  • OnlyQi
  • 2016年03月15日 18:50
  • 840

OPENGL的FLAT与SMOOTH绘制的区别

    利用OPENGL可以绘制三维模型,在指定绘制模式的时候要通过指定光照,以及材质才能使物体看上去有三维的效果,否则,物体看上去就像是一张二维的图片一样。但是除了指定光照跟材质,还需要有一个非常重...
  • zxj1988
  • zxj1988
  • 2011年03月21日 18:55
  • 4043

flat network 原理与配置 - 每天5分钟玩转 OpenStack(86)

本节讨论 falt network 原理以及如何在 ml2 中配置 flat network。
  • CloudMan6
  • CloudMan6
  • 2016年09月13日 21:42
  • 2728

QPushButton的default样式和flat样式

QPushButton控件可以设置其样式,
  • davidsu33
  • davidsu33
  • 2014年05月28日 15:53
  • 1790

numpy.ndarray.flat/flatten 与 Spark 下的 flatMap

numpy.ndarray.flat/flattenflat:使平坦,在编程上就对应着二维变一维。 (1)numpy.ndarray.flat 和 numpy,ndarray.T 一样不是函数调用,因...
  • lanchunhui
  • lanchunhui
  • 2016年04月01日 10:03
  • 1974

亚人中的flat(flood)现象

是在精神极度激动情况下,一次性制造多个IBM的现象,比如中村慎也事件,亚人第二季中的第13集中永井圭在对战佐藤的最后也同时出现了很多的IBM,致使佐藤暂时被捕...
  • hsj1213522415
  • hsj1213522415
  • 2016年12月24日 15:52
  • 13610
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:实现StatusBar的Flat风格
举报原因:
原因补充:

(最多只允许输入30个字)