You've already forked lazarus-ccr
d794bb55c2
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7117 8e941d3f-bd1b-0410-a28a-d453659cc2b4
117 lines
2.7 KiB
ObjectPascal
117 lines
2.7 KiB
ObjectPascal
unit tfSettings;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ButtonPanel, StdCtrls,
|
|
ExtCtrls, EditBtn, JvTFUtils, JvTFDays;
|
|
|
|
type
|
|
TGlobalSettings = record
|
|
Hr2400: Boolean; // 24 hour or 12 hour AM/PM format
|
|
FirstDayOfWeek: TTFDayOfWeek;
|
|
PrimeTimeStart: TTime;
|
|
PrimeTimeEnd: TTime;
|
|
PrimeTimeColor: TColor;
|
|
end;
|
|
|
|
var
|
|
GlobalSettings: TGlobalSettings = (
|
|
Hr2400: false;
|
|
FirstDayOfWeek: dowSunday;
|
|
PrimeTimeStart: 8 * ONE_HOUR;
|
|
PrimeTimeEnd: 17 * ONE_HOUR;
|
|
PrimeTimeColor: $00C4FFFF;
|
|
);
|
|
|
|
type
|
|
{ TSettingsForm }
|
|
|
|
TSettingsForm = class(TForm)
|
|
Bevel1: TBevel;
|
|
ButtonPanel1: TButtonPanel;
|
|
cbTimeFormat: TComboBox;
|
|
cbFirstDayOfWeek: TComboBox;
|
|
clbPrimeTimeColor: TColorButton;
|
|
lblPrimeTimeStart: TLabel;
|
|
lblPrimeTimeEnd: TLabel;
|
|
lblFirstDayOfWeek: TLabel;
|
|
lblTimeFormat: TLabel;
|
|
Panel1: TPanel;
|
|
edPrimeTimeStart: TTimeEdit;
|
|
edPrimeTimeEnd: TTimeEdit;
|
|
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure OKButtonClick(Sender: TObject);
|
|
private
|
|
FOKPressed: Boolean;
|
|
procedure ControlsToSettings;
|
|
procedure SettingsToControls;
|
|
|
|
end;
|
|
|
|
var
|
|
SettingsForm: TSettingsForm;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
procedure TSettingsForm.ControlsToSettings;
|
|
begin
|
|
GlobalSettings.Hr2400 := cbTimeFormat.ItemIndex = 0;
|
|
GlobalSettings.FirstDayOfWeek := TTFDayOfWeek(cbFirstDayOfWeek.ItemIndex);
|
|
GlobalSettings.PrimeTimeStart := frac(edPrimeTimeStart.Time);
|
|
GlobalSettings.PrimeTimeEnd := frac(edPrimeTimeEnd.Time);
|
|
GlobalSettings.PrimeTimeColor := clbPrimeTimeColor.ButtonColor;
|
|
end;
|
|
|
|
procedure TSettingsForm.SettingsToControls;
|
|
begin
|
|
cbTimeFormat.ItemIndex := ord(not GlobalSettings.Hr2400);
|
|
|
|
cbFirstDayOfWeek.ItemIndex := ord(GlobalSettings.FirstDayOfWeek);
|
|
edPrimeTimeStart.Time := GlobalSettings.PrimeTimeStart;
|
|
edPrimeTimeEnd.Time := GlobalSettings.PrimeTimeEnd;
|
|
clbPrimeTimeColor.ButtonColor := GlobalSettings.PrimeTimeColor;
|
|
end;
|
|
|
|
procedure TSettingsForm.FormClose(Sender: TObject;
|
|
var CloseAction: TCloseAction);
|
|
begin
|
|
if FOKPressed then
|
|
ControlsToSettings;
|
|
end;
|
|
|
|
procedure TSettingsForm.FormCreate(Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
begin
|
|
cbFirstDayOfWeek.Items.BeginUpdate;
|
|
try
|
|
cbFirstDayOfWeek.Clear;
|
|
for i:=1 to 7 do
|
|
cbFirstDayOfWeek.Items.Add(DefaultFormatSettings.LongDayNames[i]);
|
|
finally
|
|
cbFirstDayOfWeek.Items.EndUpdate;
|
|
end;
|
|
end;
|
|
|
|
procedure TSettingsForm.FormShow(Sender: TObject);
|
|
begin
|
|
FOKPressed := false;
|
|
SettingsToControls;
|
|
end;
|
|
|
|
procedure TSettingsForm.OKButtonClick(Sender: TObject);
|
|
begin
|
|
FOKPressed := true;
|
|
end;
|
|
|
|
|
|
end.
|
|
|