suppress a lot of unnecessary warnings

tomboy-notes · Aug 3, 2018 · 9d3aa05 · 9d3aa05
1 parent 683e036
commit 9d3aa05
Show file tree

Hide file tree

Showing 6 changed files with 9 additions and 29 deletions.
diff --git a/tomboy-ng/Tomboy_NG.lpi b/tomboy-ng/Tomboy_NG.lpi
@@ -57,6 +57,11 @@
               </Win32>
             </Options>
           </Linking>
+          <Other>
+            <CompilerMessages>
+              <IgnoredMessages idx5024="True"/>
+            </CompilerMessages>
+          </Other>
         </CompilerOptions>
       </Item2>
       <Item3 Name="Release">

diff --git a/tomboy-ng/backupview.pas b/tomboy-ng/backupview.pas
@@ -139,8 +139,7 @@ procedure TFormBackupView.ButtonRecoverClick(Sender: TObject);
     end;
 end;
 
-procedure TFormBackupView.FormClose(Sender: TObject;
-    var CloseAction: TCloseAction);
+procedure TFormBackupView.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
     if NeedUpDate then begin
         SearchForm.RecentMenu();

diff --git a/tomboy-ng/hunspell.pas b/tomboy-ng/hunspell.pas
@@ -191,6 +191,7 @@ function THunspell.FindLibrary(out FullName : ANSIString):boolean;
 begin
     Result := False;
     {$IFDEF LINUX}
+    Mask := '';         // just suppress some warning
     // Assumes ldconfig always returns same format, better than searching several dirs
     if RunCommand('/bin/bash',['-c','ldconfig -p | grep hunspell'], FullName) then begin
         while UTF8Pos(' ', FullName, I) <> 0 do inc(I);

diff --git a/tomboy-ng/mainunit.pas b/tomboy-ng/mainunit.pas
@@ -185,7 +185,7 @@ procedure TMainForm.SingleNoteMode(FullFileName : string; CloseOnFinish : boolea
 procedure TMainForm.FormShow(Sender: TObject);
 // WARNING - the options here MUST match the options list in CommandLineError()
 var
-    I: Integer;
+    //I: Integer;
     Params : TStringList;   { TODO : Document this in http://wiki.freepascal.org/Command_line_parameters_and_environment_variables }
     LongOpts : array [1..5] of string = ('gnome3','debug-sync', 'debug-index', 'config-dir:','open-note:');
 begin

diff --git a/tomboy-ng/savenote.pas b/tomboy-ng/savenote.pas
@@ -619,32 +619,6 @@ procedure TBSaveNote.Save(FileName : ANSIString; KM1 : TKMemo);
     end;
 end;
 
-{  moved to settings, aug 18
-function TBSaveNote.GetLocalTime: ANSIstring;
-var
-   ThisMoment : TDateTime;
-   Res : ANSIString;
-   Off : longint;
-begin
-   // Note this function is duplicated in TB_Sync.
-    {$ifdef LINUX}
-    ReReadLocalTime();    // in case we are near daylight saving time changeover
-    {$endif}
-    ThisMoment:=Now;
-    Result := FormatDateTime('YYYY-MM-DD',ThisMoment) + 'T'
-                   + FormatDateTime('hh:mm:ss.zzz"0000"',ThisMoment);
-    Off := GetLocalTimeOffset();
-    if (Off div -60) >= 0 then Res := '+'
-	else Res := '-';
-	if abs(Off div -60) < 10 then Res := Res + '0';
-	Res := Res + inttostr(abs(Off div -60)) + ':';
-       	if (Off mod 60) = 0 then
-		Res := res + '00'
-	else Res := Res + inttostr(abs(Off mod 60));
-    Result := Result + res;
-end;
-}
-
 function TBSaveNote.NoteBookTags: ANSIString;
 var
         SL : TStringList;

diff --git a/tomboy-ng/settings.pas b/tomboy-ng/settings.pas
@@ -187,6 +187,7 @@     TSett = class(TForm)
         // Saves all current settings to disk. Call when any change is made.
         procedure SettingsChanged();
 		procedure SyncSettings;
+
     public
         // Indicates SettingsChanged should not write out a new file cos we are loading from one.
         MaskSettingsChanged : boolean;