| Class TATDemoForm (unit DemoForm) |
TForm
| Constructors |
| Functions |
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);
function ExtensionParams:boolean;
procedure UpdateDemo;if not ExtensionParams then exit;
| Properties |
| Events |
| Variables |
ATShell1 : TATShell;
Bevel1 : TBevel;
Button1 : TButton;
Button10 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
CheckBoxQuickView : TCheckBox;
CheckBoxShowInNew : TCheckBox;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
exit1 : TMenuItem;
File1 : TMenuItem;
Header1 : THeader;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
ListBox1 : TListBox;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
OpenDialog1 : TOpenDialog;
RadioGroup1 : TRadioGroup;
SaveDialog1 : TSaveDialog;
Select1 : TMenuItem;| Constructors |
| Functions |
procedure Button10Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);of try
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);change this extension to a bogus extension if ".asd" is already associated
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure exit1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);of try
procedure ListBox1MeasureItem(Control: TWinControl; Index: Integer;
var Height: Integer);(R.Right - R.Left) - Canvas.TextWidth(Str) -2
function ExtensionParams:boolean;
procedure UpdateDemo;Private declarations
if not ExtensionParams then exit;
| Properties |
| Events |
| Variables |
ATShell1 : TATShell;
Bevel1 : TBevel;
Button1 : TButton;
Button10 : TButton;
Button2 : TButton;
Button3 : TButton;
Button4 : TButton;
Button5 : TButton;
Button6 : TButton;
Button7 : TButton;
Button8 : TButton;
Button9 : TButton;
CheckBoxQuickView : TCheckBox;
CheckBoxShowInNew : TCheckBox;
Edit1 : TEdit;
Edit2 : TEdit;
Edit3 : TEdit;
Edit4 : TEdit;
Edit5 : TEdit;
exit1 : TMenuItem;
File1 : TMenuItem;
Header1 : THeader;
Label1 : TLabel;
Label2 : TLabel;
Label3 : TLabel;
Label5 : TLabel;
Label6 : TLabel;
Label7 : TLabel;
Label8 : TLabel;
Label9 : TLabel;
ListBox1 : TListBox;
MainMenu1 : TMainMenu;
N1 : TMenuItem;
OpenDialog1 : TOpenDialog;
RadioGroup1 : TRadioGroup;
SaveDialog1 : TSaveDialog;
Select1 : TMenuItem;