@@ -17,7 +17,7 @@ uses
ULoading, UImage, UTool, uconfig, IniFiles, uresourcestrings, uscripting;
const
- MaxToolPopupShowCount = 2;
+ MaxToolPopupShowCount = 3;
type
TImageListList = specialize TFPGObjectList<TImageList>;
@@ -3144,9 +3144,13 @@ begin
end;
procedure TFMain.ForgetDialogAnswersExecute(Sender: TObject);
+var
+ m: TToolPopupMessage;
begin
Config.SetDefaultTransformSelectionAnswer(0);
Config.SetDefaultRetrieveSelectionAnswer(0);
+ for m := low(TToolPopupMessage) to high(TToolPopupMessage) do
+ Config.SetToolPopupMessageShownCount(ord(m), 0);
procedure TFMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);