main.pas.bak

unit Main;

{$mode objfpc}{$H+}

interface

uses
  windows, Classes, SysUtils, FileUtil, DateTimePicker, Forms, Controls, Graphics,
  Dialogs, StdCtrls, registry;

type

  { TMainForm }

  TMainForm = class(TForm)
    BtnBerechnen: TButton;
    Button2: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    DTVeranstaltungsbeginn: TDateTimePicker;
    DTVeranstaltungsende: TDateTimePicker;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    DateTimePicker3: TDateTimePicker;
    DateTimePicker4: TDateTimePicker;
    GBSemesterzeiten: TGroupBox;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label10: TLabel;
    Label13: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label9: TLabel;
    Memo1: TMemo;
    procedure BtnBerechnenClick(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Change(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
    procedure DateTimePicker1Change(Sender: TObject);
    procedure DateTimePicker3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure GBSemesterzeitenClick(Sender: TObject);
    procedure Label2Click(Sender: TObject);
    procedure SetTabs(const ACustomMemo: TCustomMemo; const aTabWidth: Integer);
  private
    { private declarations }
    inifile:TRegistryinifile;
    procedure Eintrag_addieren(var s:String;var Date:TDate);
    function FerienOK(sender:TObject):boolean;
  public
    { public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.lfm}

{ TMainForm }

uses dateutils, kalender, typen;

function TMainForm.FerienOK(sender:TObject):boolean;
begin
  //Ferien werden nur berücksichtigt, wenn ein gültiger Zeitraum angegeben wurde
  if sender=checkbox1 then
  begin
    result:=Datetimepicker2.date>=Datetimepicker1.date
  end
  else
  begin
    result:=DateTimePicker4.date>=DateTimePicker3.date
  end;
end;

procedure TMainForm.Eintrag_addieren(var s:String;var Date:TDate);
begin
  s:=s+FormatDateTime('dd.mm.yyyy',Date)+#9;
end;


procedure TMainForm.GBSemesterzeitenClick(Sender: TObject);
begin

end;

procedure TMainForm.CheckBox1Change(Sender: TObject);
begin

end;

procedure TMainForm.BtnBerechnenClick(Sender: TObject);
var s:String;
    ok:boolean;
    aDate:TDate;
begin
  Memo1.Lines.Clear;
  aDate:=DTVeranstaltungsbeginn.Date;
  s:='';
  while ((aDate>=DTVeranstaltungsbeginn.Date)
      and (aDate<=DTVeranstaltungsende.date)) do
  begin
    ok:=true;
    //Prüfen, ob in Ferien
    if FerienOK(checkbox1) then
    if checkbox1.Checked then
    begin
      ok:=not ((aDate>=DateTimePicker1.Date) and (ADate<=DateTimePicker2.Date))
    end;
  //Prüfen, ob in Ferien 2
    if checkbox2.Checked then
    if FerienOK(checkbox2) then
    begin
      ok:=ok and (not ((aDate>=DateTimePicker3.Date) and (ADate<=DateTimePicker4.Date)))
    end;

  //Prüfen, ob Feiertag
    if ok then ok:=not isFeiertag(adate);
  //Wenn bis hier ok:
    if ok then
    begin
      //Prüfen, ob Wochentag 1
      ok:=dayOfTheWeek(adate)=combobox1.ItemIndex;
      if ok then
      begin
        Eintrag_addieren(s,aDate);
        //Wenn Wochentag 2 = Wochentag 1 dann nochmal:
        if combobox1.ItemIndex=combobox2.ItemIndex then
          Eintrag_addieren(s,aDate);
      end
      else
      begin
        //Prüfen, ob Wochentag 2
        ok:=dayOfTheWeek(adate)=combobox2.ItemIndex;
        if ok then  Eintrag_addieren(s,aDate);
      end;
    end;
  aDate:=aDate+1;
  end;
  Memo1.Lines.Add(s);
  Memo1.SelectAll;
  Memo1.CopyToClipboard;
  Memo1.SelLength:=0;
end;

procedure TMainForm.Button2Click(Sender: TObject);
begin
  Close;
end;

procedure TMainForm.CheckBox1Click(Sender: TObject);
begin
    if sender=checkbox1 then
  begin
    Groupbox1.Enabled:=checkbox1.checked;
    if Groupbox1.enabled then Groupbox1.Font.Color:=clwindowtext
    else
    begin
    Groupbox1.Font.Color:=clgraytext;
    end;
    datetimepicker1.visible:=checkbox1.checked;
    datetimepicker2.visible:=checkbox1.checked;
  end
  else
  begin
    GroupBox2.Enabled:=checkbox2.checked;
    if GroupBox2.enabled then GroupBox2.Font.Color:=clwindowtext
    else
    begin
      GroupBox2.Font.Color:=clgraytext;
    end;
    DateTimePicker3.visible:=checkbox2.checked;
    DateTimePicker4.visible:=checkbox2.checked;
  end;
  BtnBerechnenClick(sender);
end;

procedure TMainForm.ComboBox1Change(Sender: TObject);
var vis:boolean;
begin
  vis:=(combobox2.ItemIndex<combobox1.Itemindex);
  if (combobox1.ItemIndex=0) or (combobox2.ItemIndex=0) then vis:=false;
  label9.Visible:=vis;
  BtnBerechnenClick(nil)
end;

procedure TMainForm.DateTimePicker1Change(Sender: TObject);
begin
  Label11.Visible:=not FerienOK(checkbox1);
  BtnBerechnenClick(nil)
end;

procedure TMainForm.DateTimePicker3Change(Sender: TObject);
begin
    Label12.Visible:=not FerienOK(checkbox2);

  //***********************************************************
  //Wenn das einkommentiert ist, wird bei jeder Aktualisierung
  //der Felder neu berechnet und damit auch die Zwischenablage
  //überschrieben

  //BtnBerechnenClick(nil)
end;

procedure TMainForm.FormCreate(Sender: TObject);
begin
    // Setzt die Tabulatorweite im Memo
    SetTabs(Memo1, 15);
    inifile:=tregistryinifile.create(inipath);
    DTVeranstaltungsbeginn.DateTime:=inifile.ReadDate('Daten','Veranstaltungsbeginn',now);
    DTVeranstaltungsende.DateTime:=inifile.ReadDate('Daten','Veranstaltungsende',now);
    Datetimepicker1.DateTime:=inifile.ReadDate('Daten','Ferienbeginn',now);
    Datetimepicker2.DateTime:=inifile.ReadDate('Daten','Ferienende',now);
    DateTimePicker3.DateTime:=inifile.ReadDate('Daten','FreiAnfang',now);
    DateTimePicker4.DateTime:=inifile.ReadDate('Daten','FreiEnde',now);
    checkbox1.checked:=inifile.ReadBool('Daten','Ferien',false);
    GBSemesterzeiten.Enabled:=checkbox1.Enabled;
    checkbox2.checked:=inifile.ReadBool('Daten','Ferien2',false);
    GroupBox1.Enabled:=checkbox2.Enabled;
    CheckBox1Click(checkbox1);
    CheckBox1Click(checkbox2);
    Combobox1.ItemIndex:=inifile.ReadInteger('Daten','Wochentag1',0);
    Combobox2.ItemIndex:=inifile.ReadInteger('Daten','Wochentag2',0);
    DateTimePicker1Change(nil);
    DateTimePicker3Change(nil);
    combobox1change(nil);
    btnBerechnenclick(nil);
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  inifile.WriteDate('Daten','Veranstaltungsbeginn',DTVeranstaltungsbeginn.DateTime);
  inifile.WriteDate('Daten','Veranstaltungsende',DTVeranstaltungsende.DateTime);
  inifile.WriteDate('Daten','Ferienbeginn',Datetimepicker1.DateTime);
  inifile.WriteDate('Daten','Ferienende',Datetimepicker2.DateTime);
  inifile.WriteDate('Daten','FreiAnfang',DateTimePicker3.DateTime);
  inifile.WriteDate('Daten','FreiEnde',DateTimePicker4.DateTime);
  inifile.WriteBool('Daten','Ferien',checkbox1.checked);
  inifile.WriteBool('Daten','Ferien2',checkbox2.checked);
  inifile.WriteInteger('Daten','Wochentag1',Combobox1.ItemIndex);
  inifile.WriteInteger('Daten','Wochentag2',Combobox2.ItemIndex);
  inifile.Free
end;

procedure TMainForm.Label2Click(Sender: TObject);
begin

end;

// Setzt die Tabulatorweite in einem Memo
procedure TMainForm.SetTabs(const ACustomMemo: TCustomMemo; const aTabWidth: Integer);
begin
  if aTabWidth>0 then
    SendMessage(ACustomMemo.Handle, EM_SETTABSTOPS, 1, Longint(@ATabWidth));
end;

end.