{ OnTimer event handler - timer event handler - set gauge values }

procedure TForm1.GuageTimer(Sender: TObject);

begin

    { if the gauges are at max (100), reset to (0) }

    if Gauge1.Progress >= Gauge1.MaxValue then

    begin

       Gauge1.Progress := gauge1.MinValue;

       progressbar1.Position := progressbar1.Min;

    end

  else

begin

    { the gauge are not at max, so add 5 }

      gauge1.Progress := gauge1.Progress + 5;

      progressbar1.StepBy(5);

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

    timer1.Enabled := not timer1.Enabled;

    if timer1.Enabled then

     button1.Caption := 'Stop'

    else

     button1.Caption := 'Start';

end;

procedure TForm1.EditChanges(Sender: TObject);

begin

   timer1.Interval := StrToInt(edit1.Text);

end;

{ setup the default values for some variables or properties before exection }

procedure TForm1.FormCreate(Sender: TObject);

begin

    updown1.Min := 500;

    updown1.Max := 1000;

    updown1.Increment := 5;

    label4.Caption := '';

    Medit1.Text := '';

    button2.Caption := '&Check';

    label5.Caption := 'File Selected ?';

    listbox1.items.add('3/21/2000');

    listbox1.Items.Add('3/21/2001');

    listbox1.Items.Add('3/21/2002');

    ListBox1.Items.Add('3/21/2003');

    listbox1.items.add('3/21/2004');

    ListBox1.items.Add('4/21/2004');

end;

{ list box OnClick event handler }

procedure TForm1.ListBox1Click(Sender: TObject);

begin

   { Items property, stores the values in the list, it is an object of type TString, so the list can be managed using the methods discussed in the Sorter example }

   { ItemIndex property, is the ordinal number of the selected item in the list }

    DisplayDayOfWeek(ListBox1.Items[ListBox1.ItemIndex]);

end;

{ translates the input date to a DOW }

procedure TForm1.DisplayDayOfWeek(DOWText : string);

var

   DayValue : Integer;

   DTValue : TDateTime;

   DayName : String;

begin

{ cast the string to a datetime - if this doesn't work, an exception will be raised and caught below }

try

   DTValue := StrToDate(DOWText);

   { get the integer dow and translate to a string }

   DayValue := DayOfWeek(DTValue);

    case DayValue of

    1: DayName := 'Sunday';

    2: DayName := 'Monday';

    3: DayName := 'Tueday';

    4: DayName := 'Wednesday';

    5: DayName := 'Thursday';

    6: DayName := 'Friday';

    7: DayName := 'Saturday';

    else

        DayName := 'Error'

    end;

{ set the label caption with the date and dow }

Label4.caption := DOWText+ ' is a ' + DayName;

except

   { on date conversion error, display message }

   on EConvertError do

       Label4.Caption := 'Invalid date';

   end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

    DisplayDayOfWeek(MEdit1.Text);

end;

procedure TForm1.FileListBox1Change(Sender: TObject);

begin

  { this procedure will display the current selected file name on a Label }

  if FileListBox1.FileName = '' then

      label5.Caption := 'No file selected'

   else

    label5.Caption := Filelistbox1.FileName;

    { components used are all under the Win 3.1 control tab }

    {  DirectoryListBox = FileList := FileListBox

       DriveComboBox = DirList := DirectoryListBox

       FilterComboBox := FileListBox

       FileListBox

    }

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

     { will call the Printer Setup Dialog under the Dialogs control tab }

    printersetupdialog1.Execute;

end;

{ print button OnClick event handler }

procedure TForm1.Button4Click(Sender: TObject);

var

    LineCounter : integer;

    PrintText : system.text;

    FileString : TStringList;

begin

{ display print dialog - if the user cancels, get out }

{ not using any dialog settings - it just for show     }

    if not printdialog1.Execute then

     exit;

    { create a TStringList }

    FileString := TStringList.create;

  try

     { load the current text file }

     filestring.LoadFromFile(Filelistbox1.Name);

    { assign the standard text file to the printer }

    AssignPrn(PrintText);

    { open the std. file for printing }

    Rewrite(PrintText);

   { loop thru lines and write each one }

   { TStringList is an array, you will need and index counter Count property determines the total size or the total number of line(s) in the current TStringList }

   for LineCounter := 0 to FileString.Count - 1 do

       writeln(PrintText, FileString.Strings[LineCounter]);

  finally

  { close the std. text file and free the TStringList variable from the memory and will be executed regardless if the result of this TRY.....Finally.....End statement

    is OK or not }

        system.Close(PrintText);

        FileString.free;

  end;

end;

{ This code prints a line of text on the printer when the user clicks the button on the form: }

procedure TForm1.Button1Click(Sender: TObject);

var

   MyFile: TextFile;

begin

    AssignPrn(MyFile);

    Rewrite(MyFile);

    Writeln(MyFile, 'Print this text');

    System.CloseFile(MyFile);

end;