Class TShellCommandsDlg (unit DCADlg1)

Inherits from

TForm

Constructors



Functions

procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure ListBox1Click(Sender: TObject);

(R.

procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton2Click(Sender: TObject);


procedure SetShellCommandList(aValue:string);

of while

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Header1 : THeader;


Label1 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


ListBox1 : TListBox;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


ShellCommandList : string;

Public declarations


Constructors


Functions


procedure Button3Click(Sender: TObject);


procedure Button4Click(Sender: TObject);


procedure Button5Click(Sender: TObject);


procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);


procedure ListBox1Click(Sender: TObject);

(R.Right - R.Left) - Canvas.TextWidth(Str) -2


procedure ListBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);


procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer; var Height: Integer);


procedure SpeedButton1Click(Sender: TObject);


procedure SpeedButton2Click(Sender: TObject);


procedure SetShellCommandList(aValue:string);

of while


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


Button4 : TButton;


Button5 : TButton;


Header1 : THeader;


Label1 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


ListBox1 : TListBox;


SpeedButton1 : TSpeedButton;


SpeedButton2 : TSpeedButton;


ShellCommandList : string;

Public declarations