Class TfrmGradEditor (unit GradEditor)

Inherits from

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;

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


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