【delphi开源代码栏目提醒】:网学会员,鉴于大家对delphi开源代码十分关注,论文会员在此为大家搜集整理了“DrawToolBar.pas”一文,供大家参考学习!
unit DrawToolBar;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, ToolWin, Buttons, StdCtrls;
type
TForm1 = class(TForm)
TBRbmp: TToolBar;
ToolButton1: TToolButton;
Memo1: TMemo;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure TBRbmpAdvancedCustomDraw(Sender: TToolBar;
const ARect: TRect; Stage: TCustomDrawStage;
var DefaultDraw: Boolean);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Bmp:TBitmap;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp:=TBitmap.Create;
bmp.LoadFromFile('mingrisoft.com.bmp');
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
bmp.Free;
end;
procedure TForm1.TBRbmpAdvancedCustomDraw(Sender: TToolBar;
const ARect: TRect; Stage: TCustomDrawStage; var DefaultDraw: Boolean);
begin
Sender.Canvas.StretchDraw(arect,Bmp);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
TBRbmp.Repaint;
end;
end.
上一篇:
DrawGuage.pas
下一篇:
网络教育