PerformEraseBackground 擦除背景（ThemeServices）

【PerformEraseBackground 擦除背景（ThemeServices）】的更多相关文章

PerformEraseBackground 擦除背景（ThemeServices）

PerformEraseBackground 擦除背景的简单方法(外带ThemeServices例子) 在查这个函数的时候,顺便看到了有趣的代码. 怎么使用 Themes . unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ExtCtrls; type TForm2 = class(TForm) Image…

具有 Button 风格的 Panel（覆盖TCustomPanel的Paint函数，用到了ThemeServices）

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ExtCtrls; type TForm2 = class(TForm) ImageList1: TImageList; Panel1: TPanel; procedure FormCreate(Sender: TObject); private { Priv…

解决Winform应用程序中窗体背景闪烁的问题

本文转载:https://my.oschina.net/Tsybius2014/blog/659742 我的操作系统是Win7,使用的VS版本是VS2012,文中的代码都是C#代码. 这几天遇到一个问题,即我用一个嵌入图片的Panel作为Winform应用程序的背景,如下图所示: 这是一个Winform窗体,里面放置了一个Panel,Dock属性为Fill,BackgroundImage使用了<少年电世界>2003年第02期的封面图片,BackgroundImageLayout使用了Stret…

WM_ERASEBKGND官方解释（翻译），以及Delphi里所有的使用情况（就是绘制窗口控件背景色，并阻止进一步传递消息）

#define WM_ERASEBKGND 0x0014 Parameters wParam A handle to the device context. // 设备上下文的句柄 lParam This parameter is not used. Return value Type: LRESULT An application should return nonzero if it erases the background; otherwise, it…

具有 Button 风格的 Panel

unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ImgList, ExtCtrls; type TForm2 = class(TForm) ImageList1: TImageList; Panel1: TPanel; procedure FormCreate(Sender: TObject); private { Priv…

Delphi 完全时尚手册之 Visual Style 篇（界面不错）转自http://blog.csdn.net/iseekcode/article/details/4733229

这里先说说两个概念:Theme(主题)和 Visual Style .Theme 最早出现在 Microsoft Plus! for Windows 95 中,是 Windows 中 Wallpaper.Cursors.Fonts.Sounds .Icons 等的设置值集合.Visual Style 在 Windows XP 中才被引入,Visual Style 规定了 Contorls 的外观,另外还包括使用这些外观的一套 API .使用 Visual Style 必须要 ComCtl32.d…

Delphi 完全时尚手册之 Visual Style 篇

这里先说说两个概念:Theme(主题)和 Visual Style .Theme 最早出现在 Microsoft Plus! for Windows 95 中,是 Windows 中 Wallpaper.Cursors.Fonts.Sounds .Icons 等的设置值集合.Visual Style 在 Windows XP 中才被引入,Visual Style 规定了 Contorls 的外观,另外还包括使用这些外观的一套 API .使用 Visual Style 必须要 ComCtl32.d…

TForm的显示过程

新建一个空窗体项目,然后运行,此时首先运行: procedure TApplication.Run; begin FRunning := True; try AddExitProc(DoneApplication); if FMainForm <> nil then begin case CmdShow of SW_SHOWMINNOACTIVE: FMainForm.FWindowState := wsMinimized; SW_SHOWMAXIMIZED: MainForm.WindowS…

一行代码设置TForm颜色的前世今生（属性赋值引起函数调用，然后发消息实现改变显示效果），TForm的初始颜色在dfm中设置了clBtnFace色

来自万一的帖子:http://www.cnblogs.com/del/archive/2008/04/27/1173658.html的确做到了一行代码设置TForm控件的颜色(一点感想:Delphi程序员真幸福).但真实的情况是,VCL框架在这个过程中做了大量的工作,经过多次消息的发送和响应,才达到了目的,大致顺序如下: procedure TForm1.Button1Click(Sender: TObject); begin Self.Color := clRed; end; procedur…

研究一下TForm.WMPaint过程（也得研究WM_ERASEBKGND）——TForm虽然继承自TWinControl，但是自行模仿了TCustomControl的全部行为，一共三种自绘的覆盖方法，比TCustomControl还多一种

先擦除背景: procedure TCustomForm.WMEraseBkgnd(var Message: TWMEraseBkgnd); begin if not IsIconic(Handle) then inherited else begin Message.Msg := WM_ICONERASEBKGND; DefaultHandler(Message); end; end; procedure TWinControl.WMEraseBkgnd(var Message: TWMEra…

TButton.Repaint的执行过程

测试,在按钮事件里写上 Button1.Repaint;(包括TWinControl.Invalidate;和procedure TWinControl.Update;两个函数,会被TButton所继承),跟踪一下就什么都明白了. 1. 执行TWinControl.Invalidate;后,执行Perform函数,调用WndProc(比如TButton的WndProc),然后依次向上传递.如果程序员没有处理CM_INVALIDATE消息,则最后会在TControl.WndProc的末尾执行Dis…

Delphi 使用双缓冲解决图片切换时的闪烁问题 good

var TempCanvas: TCanvas; BufDC: HDC; BufBitmap: HBITMAP; begin // 创建一个与显示设备兼容的内存设备 BufDC := CreateCompatibleDC(Canvas.Handle); // 创建一个与显示设备兼容的位图 BufBitmap := CreateCompatibleBitmap(Canvas.Handle, ClientWidth, ClientHeight); // 将设备与位图关联 SelectObject(B…

在c#中使用bitblt显示图片

使用bitblt比DrawImage有更好的性能 using AForge.Video.DirectShow; using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Drawing.Imaging; using System.Linq; using System.Runtime.Intero…

java中的重绘

void java.awt.Container.validate()Validates this container and all of its subcomponents.这个函数更新容器及其全部子控件,更新容器意味着重新布置它的子控件.布局相关的更改(例如设置子控件的大小位置,向容器添加新控件)会invalidate这个容器.需要注意,当前容器invalidate会自动导致它的父容器进行invalidate(详见Component.invalidate).因此,要想恢复整个层次的有效性(v…

win32下的双缓冲绘图技术

一:双缓冲原理为了解决窗口刷新频率过快所带来的闪烁问题,利用双缓冲技术进行绘图.所谓双缓冲技术,就是将资源加载到内存,然后复制内存数据到设备DC(这个比较快),避免了直接在设备DC上绘图(这个比较慢).打个简单的比方:有个画家在街边办了一个即时画展,在同一块画布上根据观众的要求画不同的图像,每当有一位观众制定要看什么画时,画家先把之前画布上的东西全部擦干净,再重新绘画.显然有一些经典的画像是大家都想看的,按照以前的老办法,画家每次都要重新画这幅图像,但这种擦了画,画了擦的方式很费时.所以画家想…

mfc ui3

引用:http://www.cnblogs.com/rainbowzc/archive/2010/06/02/1749872.html 本文专题讨论VC中的界面美化,适用于具有中等VC水平的读者.读者最好具有以下VC基础: 1. 大致了解MFC框架的基本运作原理: 2. 熟悉Windows消息机制,熟悉MFC的消息映射和反射机制: 3. 熟悉OOP理论和技术: 本文根据笔者多年的开发经验,并结合简单的例子一一展开,希望对读者有所帮助. 1. 美化界面之开题篇相信使用过<金山毒霸>.<瑞…

Deep Learning 1_深度学习UFLDL教程：Sparse Autoencoder练习（斯坦福大学深度学习教程）

1前言本人写技术博客的目的,其实是感觉好多东西,很长一段时间不动就会忘记了,为了加深学习记忆以及方便以后可能忘记后能很快回忆起自己曾经学过的东西. 首先,在网上找了一些资料,看见介绍说UFLDL很不错,很适合从基础开始学习,Adrew Ng大牛写得一点都不装B,感觉非常好,另外对我们英语不好的人来说非常感谢,此教程的那些翻译者们!如余凯等.因为我先看了一些深度学习的文章,但是感觉理解得不够,一般要自己编程或者至少要看懂别人的程序才能理解深刻,所以我根据该教程的练习,一步一步做起,当然我也参考了…

Windows程序设计(第五版)学习：第四章文本输出

第四章文本输出 1,客户区:整个应用程序窗口中没有被标题栏.边框.菜单栏.工具栏.状态栏和滚动条占用的区域.简而言之,客户区就是窗口中程序可以在上面绘制并向用户传达可视化信息的区域. 2,大多数Windows程序在WinMain函数初始化过程中会在进入消息循环之前调用UpdateWindow函数,Windows利用这个机会向窗口过程发送最初的WM_PAINT消息,这个消息通知窗口过程绘制客户区. 以下任何一个事件发生时,窗口过程都会收到一条WM_PAINT消息用户移动窗口,导致原来被覆盖…

winform下重画ListBox

Windows Forms是由Win32 API封装的开发组件,最初是为了替代mfc,但却没有体现与Model View Controller架构对应的特色,进而在.net framework 3.0中推出了wpf,富控件数据显示方面,利用模板功能轻松实现. 在winform下要想自定义一些用户控件,就需要运用的2D绘画类.下图我们为ListBox重新排列了数据显示方式,并为每一个item加入了删除按钮. 首先我们设计一个承载数据的类ListBoxItem. public class ListB…