Class TOptionsDialog (unit OptnDlg)

Inherits from

TForm

Constructors



Functions

procedure btnListBoxFontClick(Sender: TObject);


procedure btnPieFontClick(Sender: TObject);

code for the OK button being clicked, decode the radio buttons into the enuerated type variables

procedure btnRevertClick(Sender: TObject);


procedure Button1Click(Sender: TObject);

on showing this dialog, ensure the buttons are set according to the options that the main program is currently using

procedure chkRightClickClick(Sender: TObject);


procedure chkShowFreeDiskClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure PieChart1DblClick(Sender: TObject);


Properties

Events

Variables

btnActual : TRadioButton;


btnAllocated : TRadioButton;


btnBytes : TRadioButton;


btnCompressed : TRadioButton;


btnCount : TRadioButton;


btnKB : TRadioButton;


btnListBoxFont : TButton;


btnMB : TRadioButton;


btnPieFont : TButton;


btnRevert : TButton;


btnSlack : TRadioButton;


btnUncompressed : TRadioButton;


Button1 : TButton;


Button2 : TButton;


chkRightClick : TCheckBox;


chkShowFreeDisk : TCheckBox;


ColorDialog1 : TColorDialog;


CompressionSheet : TTabSheet;


DisplaySheet : TTabSheet;


FontDialog1 : TFontDialog;


FreeDiskSheet : TTabSheet;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


ListBox1 : TListBox;


PageControl1 : TPageControl;


Panel1 : TPanel;


Panel2 : TPanel;


PieChart1 : TPieChart;


RadioGroup1 : TRadioGroup;


RadioGroup2 : TRadioGroup;


RadioGroup3 : TRadioGroup;


RadioGroup4 : TRadioGroup;


RadioGroup5 : TRadioGroup;


RightClickSheet : TTabSheet;


SpaceSheet : TTabSheet;


UnitsSheet : TTabSheet;


display_compressed : Tdisplay_compressed;

and recover any changes

display_free_disk_enabled : boolean;


display_mode : Tdisplay_mode;

Public declarations

display_units : Tdisplay_units;

variables to set initial options

folder_right_click_enabled : boolean;


listbox_font : TFont;


piechart_colours : string;


piechart_font : TFont;


pie_data_list : TStringList;



Constructors


Functions


procedure btnListBoxFontClick(Sender: TObject);


procedure btnPieFontClick(Sender: TObject);

code for the OK button being clicked, decode the radio buttons into the enuerated type variables


procedure btnRevertClick(Sender: TObject);


procedure Button1Click(Sender: TObject);

on showing this dialog, ensure the buttons are set according to the options that the main program is currently using


procedure chkRightClickClick(Sender: TObject);


procedure chkShowFreeDiskClick(Sender: TObject);


procedure FormCreate(Sender: TObject);


procedure FormDestroy(Sender: TObject);


procedure FormShow(Sender: TObject);


procedure PieChart1DblClick(Sender: TObject);


Properties


Events


Variables


btnActual : TRadioButton;


btnAllocated : TRadioButton;


btnBytes : TRadioButton;


btnCompressed : TRadioButton;


btnCount : TRadioButton;


btnKB : TRadioButton;


btnListBoxFont : TButton;


btnMB : TRadioButton;


btnPieFont : TButton;


btnRevert : TButton;


btnSlack : TRadioButton;


btnUncompressed : TRadioButton;


Button1 : TButton;


Button2 : TButton;


chkRightClick : TCheckBox;


chkShowFreeDisk : TCheckBox;


ColorDialog1 : TColorDialog;


CompressionSheet : TTabSheet;


DisplaySheet : TTabSheet;


FontDialog1 : TFontDialog;


FreeDiskSheet : TTabSheet;


Label1 : TLabel;


Label2 : TLabel;


Label3 : TLabel;


Label4 : TLabel;


Label5 : TLabel;


Label6 : TLabel;


Label7 : TLabel;


Label8 : TLabel;


ListBox1 : TListBox;


PageControl1 : TPageControl;


Panel1 : TPanel;


Panel2 : TPanel;


PieChart1 : TPieChart;


RadioGroup1 : TRadioGroup;


RadioGroup2 : TRadioGroup;


RadioGroup3 : TRadioGroup;


RadioGroup4 : TRadioGroup;


RadioGroup5 : TRadioGroup;


RightClickSheet : TTabSheet;


SpaceSheet : TTabSheet;


UnitsSheet : TTabSheet;


display_compressed : Tdisplay_compressed;

and recover any changes


display_free_disk_enabled : boolean;


display_mode : Tdisplay_mode;

Public declarations


display_units : Tdisplay_units;

variables to set initial options


folder_right_click_enabled : boolean;


listbox_font : TFont;


piechart_colours : string;


piechart_font : TFont;


pie_data_list : TStringList;