home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2000 March / pcp161a.iso / handson / files / copydelp.exe / Calendar / configform.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1999-11-12  |  3.4 KB  |  141 lines
  1. unit configform;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, ExtCtrls, ComCtrls; // ComCtrls needed for TDateTimePicker
  8.  
  9. type
  10.   TConfigurationForm = class(TForm)
  11.     CloseBtn: TButton;
  12.     ApplyBtn: TButton;
  13.     AlignmentRGrp: TRadioGroup;
  14.     DateFormatRGrp: TRadioGroup;
  15.     GroupBox1: TGroupBox;
  16.     PickColourBtn: TButton;
  17.     ComboBox1: TComboBox;
  18.     ColorDialog1: TColorDialog;
  19.     DateModeCD: TCheckBox;
  20.     CancelBtn: TButton;
  21.     procedure CloseBtnClick(Sender: TObject);
  22.     procedure ApplyBtnClick(Sender: TObject);
  23.     procedure PickColourBtnClick(Sender: TObject);
  24.     procedure CancelBtnClick(Sender: TObject);
  25.     procedure FormShow(Sender: TObject);
  26.   private
  27.     { Private declarations }
  28.     procedure SetConfig;
  29.     procedure GetConfig;
  30.   public
  31.     { Public declarations }
  32.      mbackcol, textcol, titlebackcol, titletextcol, trailcol : TColor;
  33.   end;
  34.  
  35. var
  36.   ConfigurationForm: TConfigurationForm;
  37.  
  38. implementation
  39.  
  40. uses calend;
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TConfigurationForm.CloseBtnClick(Sender: TObject);
  45. begin
  46.    SetConfig;
  47.    Close;
  48. end;
  49.  
  50. procedure TConfigurationForm.SetConfig;
  51. var
  52.    dt : TDateTimePicker;
  53. begin
  54.   dt := Form1.DateTimePicker1;
  55.   if AlignmentRGrp.ItemIndex = 0 then
  56.      dt.calAlignment := dtaLeft
  57.   else dt.calAlignment := dtaRight;
  58.   if DateFormatRGrp.ItemIndex = 0 then
  59.      dt.DateFormat := dfShort
  60.   else dt.DateFormat := dfLong;
  61.   // Date Mode
  62.   if DateModeCD.checked then
  63.      dt.DateMode := dmComboBox
  64.   else
  65.      dt.DateMode := dmUpDown;
  66.   // Colours
  67.   with dt.CalColors do
  68.   begin
  69.      MonthBackColor := mbackcol;
  70.      TextColor := textcol;
  71.      TitleBackColor := titlebackcol;
  72.      TitleTextColor := titletextcol;
  73.      TrailingTextColor := trailcol;
  74.   end;
  75. end;
  76.  
  77.  
  78. procedure TConfigurationForm.GetConfig;
  79. var
  80.    dt : TDateTimePicker;
  81. begin
  82.   dt := Form1.DateTimePicker1;
  83.   if dt.calAlignment = dtaLeft then
  84.      AlignmentRGrp.ItemIndex := 0
  85.   else AlignmentRGrp.ItemIndex := 1;
  86.   if dt.DateFormat = dfShort then
  87.      DateFormatRGrp.ItemIndex := 0
  88.   else DateFormatRGrp.ItemIndex := 1;
  89. // Date Mode
  90.   if dt.DateMode = dmComboBox then
  91.      DateModeCD.checked := true
  92.   else
  93.      DateModeCD.checked := false;
  94.   // Colours
  95.   with dt.CalColors do
  96.   begin
  97.      mbackcol := MonthBackColor;
  98.      textcol := TextColor;
  99.      titlebackcol := TitleBackColor;
  100.      titletextcol := TitleTextColor;
  101.      trailcol := TrailingTextColor;
  102.   end;
  103. end;
  104.  
  105. procedure TConfigurationForm.ApplyBtnClick(Sender: TObject);
  106. begin
  107.   SetConfig;
  108. end;
  109.  
  110. procedure TConfigurationForm.PickColourBtnClick(Sender: TObject);
  111. begin
  112.   if ColorDialog1.Execute then
  113.   begin
  114.      if ComboBox1.Text = 'MonthBackColor' then
  115.         mbackcol := ColorDialog1.Color
  116.      else if ComboBox1.Text = 'TextColor' then
  117.         textcol := ColorDialog1.Color
  118.     else if ComboBox1.Text = 'TitleBackColor' then
  119.         titlebackcol := ColorDialog1.Color
  120.     else if ComboBox1.Text = 'TitleTextColor' then
  121.         titletextcol := ColorDialog1.Color
  122.     else if ComboBox1.Text = 'TrailingTextColor' then
  123.         trailcol := ColorDialog1.Color
  124.     else ShowMessage( 'The Combo Box does not contain a valid constant name!' );
  125.   end;
  126. end;
  127.  
  128. procedure TConfigurationForm.CancelBtnClick(Sender: TObject);
  129. begin
  130.    Close;
  131. end;
  132.  
  133. procedure TConfigurationForm.FormShow(Sender: TObject);
  134. begin
  135.    GetConfig;
  136. end;
  137.  
  138. end.
  139.  
  140.  
  141.