| Class TfrmGradEditor (unit GradEditor) |
TForm
| Constructors |
| Functions |
procedure btnAddClick(Sender: TObject);
procedure btnUpdateClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Color1DblClick(Sender: TObject);
procedure diComboChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lstGallaryDblClick(Sender: TObject);
procedure lstGallaryDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure PaintBox1Paint(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure txtLinesizeChange(Sender: TObject);
function Execute(Grad: TGradient): Boolean;
function GetGradient: TGradient;
procedure LoadIni;
procedure SaveIni;
procedure SetGradient(Grad: TGradient);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
btnAdd : TButton;
btnUpdate : TButton;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Color1 : TEdit;
Color2 : TEdit;
Color3 : TEdit;
Color4 : TEdit;
Color5 : TEdit;
ColorDlg : TColorDialog;
diCombo : TComboBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
lstGallary : TListBox;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
txtColors : TEdit;
txtLinesize : TEdit;
UpDown1 : TUpDown;
UpDown2 : TUpDown;
fGradient : TGradient;| Constructors |
| Functions |
procedure btnAddClick(Sender: TObject);
procedure btnUpdateClick(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Color1DblClick(Sender: TObject);
procedure diComboChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure lstGallaryDblClick(Sender: TObject);
procedure lstGallaryDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure PaintBox1Paint(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure txtLinesizeChange(Sender: TObject);
function Execute(Grad: TGradient): Boolean;Public declarations
function GetGradient: TGradient;
procedure LoadIni;
procedure SaveIni;
procedure SetGradient(Grad: TGradient);| Properties |
| Events |
| Variables |
Bevel1 : TBevel;
btnAdd : TButton;
btnUpdate : TButton;
Button1 : TButton;
Button2 : TButton;
Button3 : TButton;
Color1 : TEdit;
Color2 : TEdit;
Color3 : TEdit;
Color4 : TEdit;
Color5 : TEdit;
ColorDlg : TColorDialog;
diCombo : TComboBox;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label4 : TLabel;
Label5 : TLabel;
lstGallary : TListBox;
PaintBox1 : TPaintBox;
Panel1 : TPanel;
SpeedButton1 : TSpeedButton;
SpeedButton2 : TSpeedButton;
SpeedButton3 : TSpeedButton;
txtColors : TEdit;
txtLinesize : TEdit;
UpDown1 : TUpDown;
UpDown2 : TUpDown;
fGradient : TGradient;Private declarations