Class TOptionsDialog (unit OptnDlg) |
Inherits from
TForm
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);
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;
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);
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;