finish.dfm.miaf

来自「source code for Marco Cantu s book Delph」· MIAF 代码 · 共 22 行

IF (checkSuccess.Caption = COMPLETE)  THEN  textComplete.Visible := True;
IF (checkSuccess.Caption = REBOOT)  THEN  textReboot.Visible := True;
IF (checkSuccess.Caption = CANCEL)  THEN  textCancelled.Visible := True;
IF (checkSuccess.Caption = ERROR)  THEN  textError.Visible := True;
IF (checkSuccess.Caption = COMPLETE)  THEN  RunNow.Visible := True;
IF (checkRemove.Caption = TRUE)  THEN  textRemove.Visible := True;
IF (checkSuccess.Caption = REBOOT)  THEN  RebootNow.Visible := True;
IF (checkSuccess.Caption <> COMPLETE)  THEN  textComplete.Visible := False;
IF (checkSuccess.Caption <> REBOOT)  THEN  textReboot.Visible := False;
IF (checkSuccess.Caption <> CANCEL)  THEN  textCancelled.Visible := False;
IF (checkSuccess.Caption <> ERROR)  THEN  textError.Visible := False;
IF (checkSuccess.Caption <> COMPLETE)  THEN  RunNow.Visible := False;
IF (checkRemove.Caption <> TRUE)  THEN  textRemove.Visible := False;
IF (checkRemove.Caption = TRUE)  THEN  textComplete.Visible := False;
IF (checkRemove.Caption = TRUE)  THEN  RunNow.Visible := False;
IF (checkSuccess.Caption = CANCEL)  THEN  textRemove.Visible := False;
IF (checkSuccess.Caption <> REBOOT)  THEN  RebootNow.Visible := False;
IF (textReboot.Visible = True)  THEN  textRemove.Visible := false;
IF (textComplete.Visible = True)  THEN  textRemove.Visible := false;
IF (textError.Visible = True)  THEN  textRemove.Visible := false;
IF (textCancelled.Visible = True)  THEN  textRemove.Visible := false;
IF (checkSuccess.Caption = ERROR)  THEN  textRemove.Visible := False;