Pārlūkot izejas kodu

show popup 3 times, reset counter on "forget dialogs" query

circular17 6 gadi atpakaļ
vecāks
revīzija
b4c409e95e
2 mainītis faili ar 5 papildinājumiem un 1 dzēšanām
  1. 1 1
      lazpaint/lazpaintinstance.pas
  2. 4 0
      lazpaint/lazpaintmainform.pas

+ 1 - 1
lazpaint/lazpaintinstance.pas

@@ -17,7 +17,7 @@ uses
   ULoading, UImage, UTool, uconfig, IniFiles, uresourcestrings, uscripting;
 
 const
-  MaxToolPopupShowCount = 2;
+  MaxToolPopupShowCount = 3;
 
 type
   TImageListList = specialize TFPGObjectList<TImageList>;

+ 4 - 0
lazpaint/lazpaintmainform.pas

@@ -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);
 end;
 
 procedure TFMain.FormClose(Sender: TObject; var CloseAction: TCloseAction);