Class TATDemoForm (unit DemoForm)

Inherits from

TForm

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 ".

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.

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;



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;