We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 450f73f commit b590d70Copy full SHA for b590d70
tomboy-ng/mainunit.pas
@@ -175,6 +175,7 @@ procedure TMainForm.CheckStatus();
175
ButtonDismiss.Enabled := AllowDismiss;
176
if UseTrayMenu then
177
TrayIcon.Show;
178
+
179
end;
180
181
@@ -256,7 +257,9 @@ procedure TMainForm.ButtonConfigClick(Sender: TObject);
256
257
258
procedure TMainForm.MMNewNoteClick(Sender: TObject);
259
begin
- SearchForm.OpenNote();
260
+ if (Sett.NoteDirectory = '') then
261
+ ShowMessage('Please setup a notes directory first')
262
+ else SearchForm.OpenNote();
263
264
265
procedure TMainForm.MMSettingsClick(Sender: TObject);
0 commit comments