| Class TShellCommandsDlg (unit DCADlg1) |
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);
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);| 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;| 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