ubgradient.pas
上传用户:hbszzs
上传日期:2008-08-20
资源大小:628k
文件大小:2k
- unit ubgradient;
- interface
- uses
- Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
- StdCtrls, ExtCtrls, ComCtrls, VrTypes, VrClasses, VrControls, VrSysUtils,
- VrGradient, VrHyperLink, VrBlotter, VrLcd;
- type
- TForm1 = class(TForm)
- VrGradient1: TVrGradient;
- ColorDialog1: TColorDialog;
- VrBlotter1: TVrBlotter;
- VrHyperLink1: TVrHyperLink;
- VrHyperLink2: TVrHyperLink;
- VrHyperLink3: TVrHyperLink;
- VrNum1: TVrNum;
- VrHyperLink4: TVrHyperLink;
- UpDown2: TUpDown;
- procedure FormCreate(Sender: TObject);
- procedure Button1Click(Sender: TObject);
- procedure Button2Click(Sender: TObject);
- procedure VrHyperLink3Click(Sender: TObject);
- procedure UpDown2Click(Sender: TObject; Button: TUDBtnType);
- private
- procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
- public
- { Public declarations }
- end;
- var
- Form1: TForm1;
- implementation
- {$R *.DFM}
- procedure TForm1.FormCreate(Sender: TObject);
- begin
- Caption := Application.Title;
- end;
- procedure TForm1.WMEraseBkgnd(var Message: TWMEraseBkgnd);
- begin
- Message.Result := 1;
- end;
- procedure TForm1.Button1Click(Sender: TObject);
- begin
- ColorDialog1.Color := VrGradient1.StartColor;
- if ColorDialog1.Execute then
- VrGradient1.StartColor := ColorDialog1.Color;
- end;
- procedure TForm1.Button2Click(Sender: TObject);
- begin
- ColorDialog1.Color := VrGradient1.EndColor;
- if ColorDialog1.Execute then
- VrGradient1.EndColor := ColorDialog1.Color;
- end;
- procedure TForm1.VrHyperLink3Click(Sender: TObject);
- begin
- if VrGradient1.Direction = High(TVrGradDirection) then
- VrGradient1.Direction := Low(TVrGradDirection)
- else VrGradient1.Direction := TVrGradDirection(ord(VrGradient1.Direction)+1);
- end;
- procedure TForm1.UpDown2Click(Sender: TObject; Button: TUDBtnType);
- begin
- VrNum1.Value := UpDown2.Position;
- VrGradient1.ColorWidth := VrNum1.Value;
- end;
- end.