unit Checkm_u; { Projekt CHECKM * Herwig Reidlinger }

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls, Menus;

type
  TFormCheckM = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    CheckBoxSystem: TCheckBox;
    CheckBoxMin: TCheckBox;
    CheckBoxMax: TCheckBox;
    RadioButtonDialog: TRadioButton;
    RadioButtonNone: TRadioButton;
    RadioButtonSingle: TRadioButton;
    RadioButtonSizeable: TRadioButton;
    MainMenu1: TMainMenu;
    Menu_Bordericon: TMenuItem;
    MenuSystem: TMenuItem;
    MenuMin: TMenuItem;
    MenuMax: TMenuItem;
    Menu_Borderstyle: TMenuItem;
    MenuDialog: TMenuItem;
    MenuNone: TMenuItem;
    MenuSingle: TMenuItem;
    MenuSizeable: TMenuItem;
    procedure CheckBoxClick(Sender: TObject);
    procedure RadioButtonClick(Sender: TObject);
    procedure MenuSystemClick(Sender: TObject);
    procedure MenuMinClick(Sender: TObject);
    procedure MenuMaxClick(Sender: TObject);
    procedure MenuStyleClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  FormCheckM: TFormCheckM;

implementation

{$R *.DFM}

procedure TFormCheckM.CheckBoxClick(Sender: TObject);
begin
   IF CheckBoxSystem.Checked
      THEN FormCheckM.BorderIcons := FormCheckM.BorderIcons + [biSystemMenu]
      ELSE FormCheckM.BorderIcons := FormCheckM.BorderIcons - [biSystemMenu];
   IF CheckBoxMin.Checked
      THEN FormCheckM.BorderIcons := FormCheckM.BorderIcons + [biMinimize]
      ELSE FormCheckM.BorderIcons := FormCheckM.BorderIcons - [biMinimize];
   IF CheckBoxMax.Checked
      THEN FormCheckM.BorderIcons := FormCheckM.BorderIcons + [biMaximize]
      ELSE FormCheckM.BorderIcons := FormCheckM.BorderIcons - [biMaximize];
   MenuSystem.Checked := CheckBoxSystem.Checked;
   MenuMin.Checked := CheckBoxMin.Checked;
   MenuMax.Checked := CheckBoxMax.Checked;
end;

procedure TFormCheckM.RadioButtonClick(Sender: TObject);
begin
   IF Sender = RadioButtonDialog   THEN FormCheckM.BorderStyle := bsDialog;
   IF Sender = RadioButtonNone     THEN FormCheckM.BorderStyle := bsNone;
   IF Sender = RadioButtonSingle   THEN FormCheckM.BorderStyle := bsSingle;
   IF Sender = RadioButtonSizeable THEN FormCheckM.BorderStyle := bsSizeable;
   MenuDialog.Checked := RadioButtonDialog.Checked;
   MenuNone.Checked := RadioButtonNone.Checked;
   MenuSingle.Checked := RadioButtonSingle.Checked;
   MenuSizeable.Checked := RadioButtonSizeable.Checked;
end;

procedure TFormCheckM.MenuSystemClick(Sender: TObject);
begin
   CheckBoxSystem.Checked := NOT CheckboxSystem.Checked;
end;

procedure TFormCheckM.MenuMinClick(Sender: TObject);
begin
   CheckBoxMin.Checked := NOT CheckboxMin.Checked;
end;

procedure TFormCheckM.MenuMaxClick(Sender: TObject);
begin
   CheckBoxMax.Checked := NOT CheckboxMax.Checked;
end;

procedure TFormCheckM.MenuStyleClick(Sender: TObject);
begin
   IF Sender = MenuDialog   THEN RadioButtonDialog.Checked := TRUE;
   IF Sender = MenuNone     THEN RadioButtonNone.Checked := TRUE;
   IF Sender = MenuSingle   THEN RadioButtonSingle.Checked := TRUE;
   IF Sender = MenuSizeable THEN RadioButtonSizeable.Checked := TRUE;
end;

end.