Andere wichtige Algorithmen für das Delphi-Programm

• Abbrechen-Knopf
• Standart-Knopf
• Größe des Ausgabefensters ändern

Abbrechen-Knopf

Jedes ordentliche Programm braucht einen Abbrechen-Knopf. Dieser muss nichts weiter tun, als das Programm zu beenden. Das wird durch folgenden Code verwirklicht:

procedure TfrmCreateMagSquar.btnCancelClick(Sender: TObject);
begin
  close;
end;

Standart-Knopf

Um das Magische Standartquadrat zu erhalten, darf es nicht gedreht oder gespiegelt werden, es darf nichts hinzuaddiert werden und es darf mit nichts multipliziert werden. Deswegen ist für den Standart-Knopf folgender Code nötig:

procedure TfrmCreateMagSquar.btnStandardClick(Sender: TObject);
begin
  edtAdd.text:='0';
  edtmult.text:='1';
  cbMirror.checked:=false;
  rgdirection.itemindex:=0;
  rgrotate.itemindex:=0;
end;

Größe des Ausgabefensters ändern

Damit sich die Größe des Textfeldes im Ausgabefenster genauso ändert, wie die Größe des Fensters, muss das Programm folgenden Code beim Resize-Ereignis ausführen:

procedure TfrmOutput.FormResize(Sender: TObject);
begin
  memmagsquar.height:=frmoutput.Height-51;
  memmagsquar.width:=frmoutput.width-24;
end;