D菜单栏改颜色测试
来源:互联网 发布:gkz cloud sql 编辑:程序博客网 时间:2024/05/01 08:34
unit main;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
procedure DrawCaptButton;
procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPaint;
procedure WMSetText(var Msg : TWMSetText); message WM_SETTEXT;
procedure WMNCActivate(var Msg : TWMNCActivate); message WM_NCACTIVATE;
procedure WMNCHitTest(var Msg : TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCLButtonDown(var Msg : TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DrawCaptButton;
var
xFrame,yFrame,xSize,ySize : Integer;
R : TRect;
X : TBITMAP;
begin
xFrame := GetSystemMetrics(SM_CXFRAME);
yFrame := GetSystemMetrics(SM_CYFRAME);
xSize := GetSystemMetrics(SM_CXSIZE);
ySize := GetSystemMetrics(SM_CYSIZE);
Canvas.Handle := GetWindowDC(Self.Handle);
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 11;
Canvas.Pen.Color := clYellow;
Canvas.Brush.Color := clPurple;
try
R := Bounds(xFrame,yFrame,width-2*xFrame,ySize);
Canvas.FillRect(r);
Canvas.TextRect(R,2*xFrame,xFrame+2, 'CAPTION');
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;
procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMSetText(var Msg : TWMSetText);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMNCHitTest(var Msg : TWMNCHitTest);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMNCActivate(var Msg : TWMNCActivate);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMNCLButtonDown(var Msg : TWMNCLButtonDown);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Perform(WM_NCACTIVATE, Word(Active), 0);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Perform(WM_NCACTIVATE, Word(Active), 0);
end;
end.
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
procedure FormActivate(Sender: TObject);
procedure FormResize(Sender: TObject);
private
procedure DrawCaptButton;
procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPaint;
procedure WMSetText(var Msg : TWMSetText); message WM_SETTEXT;
procedure WMNCActivate(var Msg : TWMNCActivate); message WM_NCACTIVATE;
procedure WMNCHitTest(var Msg : TWMNCHitTest); message WM_NCHITTEST;
procedure WMNCLButtonDown(var Msg : TWMNCLButtonDown); message WM_NCLBUTTONDOWN;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.DrawCaptButton;
var
xFrame,yFrame,xSize,ySize : Integer;
R : TRect;
X : TBITMAP;
begin
xFrame := GetSystemMetrics(SM_CXFRAME);
yFrame := GetSystemMetrics(SM_CYFRAME);
xSize := GetSystemMetrics(SM_CXSIZE);
ySize := GetSystemMetrics(SM_CYSIZE);
Canvas.Handle := GetWindowDC(Self.Handle);
Canvas.Font.Name := '宋体';
Canvas.Font.Size := 11;
Canvas.Pen.Color := clYellow;
Canvas.Brush.Color := clPurple;
try
R := Bounds(xFrame,yFrame,width-2*xFrame,ySize);
Canvas.FillRect(r);
Canvas.TextRect(R,2*xFrame,xFrame+2, 'CAPTION');
finally
ReleaseDC(Self.Handle, Canvas.Handle);
Canvas.Handle := 0;
end;
end;
procedure TForm1.WMNCPaint(var Msg : TWMNCPaint);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMSetText(var Msg : TWMSetText);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMNCHitTest(var Msg : TWMNCHitTest);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMNCActivate(var Msg : TWMNCActivate);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.WMNCLButtonDown(var Msg : TWMNCLButtonDown);
begin
inherited;
DrawCaptButton;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
Perform(WM_NCACTIVATE, Word(Active), 0);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
Perform(WM_NCACTIVATE, Word(Active), 0);
end;
end.
阅读全文
0 0
- D菜单栏改颜色测试
- qt 设置菜单栏颜色
- 改颜色
- 后台改textBox颜色
- vim 改注释颜色
- 改ls颜色
- 改Eclipse颜色主题
- eclipse 改颜色
- Codeblocks改文本颜色
- UITabBarController图标改颜色
- vc 对话框修改菜单栏的背景颜色
- vc 对话框修改菜单栏的背景颜色
- 测试颜色
- C语言改字体颜色
- C语言改字体颜色
- 改vim的注释颜色
- iOS开发 改状态栏颜色
- 菜单栏
- 数据分析与运维智能化学习总结
- Unsupported major.minor version
- Qt软件开发文档19---无边框窗体的自定义移动
- Vijos 1025题:小飞侠的游园方案
- suse使用vi编辑文件提示E437: terminal capability "cm" required
- D菜单栏改颜色测试
- 如何用地区性流量活动,实现无限裂变吸粉?
- 解决ubuntu16.04下的sublime text3不能使用中文输入法的问题
- 如何将同一云服务下的虚拟机从经典部署模型迁移到 Azure Resource Manager
- 第一章 Qt入门
- tyvj-忠诚
- 自绘菜单Menu字体改变大小
- 流程图中图形的含义
- 核稀疏表示公式推导