?? ucreatesolidbrush.pas
字號:
unit UCreateSolidBrush;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
NewBrush: HBrush; // the handle of the brush
OldBrush: HBrush; // the handle of the device context's original brush
FormDC: HDC; // the handle of the form device context
begin
{create the brush}
NewBrush := CreateSolidBrush(clGreen);
{Get the form's device context}
FormDC := GetDC(Form1.Handle);
{Select the brush handle into the form's device context}
OldBrush := SelectObject(FormDC, NewBrush);
{fill a rectangle with the brush}
FillRect(FormDC, Rect(10, 10, 170, 110), NewBrush);
{clean up the memory}
SelectObject(FormDC, OldBrush);
DeleteObject(NewBrush);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -