Now with reload of grid design when leaving preferences.

src/CHANGELOG

@@ -5,15 +5,17 @@ Legend:
 --------------------
 
 1.8.0
+  + Design of gridlists can be changed in Preferences/Fonts/Gridlist settings (Tom, DL7BJ) 
   + after click to "Upload all" qso to online logs, info about disabled services is not shown  
   + added new optimized MySQL configuration file (log should be faster and won't show error about missing tables)
-  + additional date formats for QSL label printing added (Tom, DL7JB)
+  + additional date formats for QSL label printing added (Tom, DL7BJ)
   + alert for for callsign on specific mode and band added
   - program crashed with error about Exceptions.tbl when started for the first time 
   - Shift+F12 didn't cancel the filtr - fixed
   - "Filter is USED!" info wasn't canceled after click to Sort button (filter was disabled)
   - reading signal strength from RBN spots fixed
   - RBN default port is 7000 not 7300 - fixed
+  - Correct a bug in DXCC statistics in mode 'Paper QSL only' (Tom, DL7BJ) 
 
 1.7.4
   + F keys to CW type window added
@@ -44,7 +46,7 @@ Legend:
   - DXCC entity window didn't show when compiled in Debian Sid and Ubuntu 13.10 - fixed
   - when CQRLOG was run for the first time, two mysqld proccesses opened the same database - fixed
   - upload to ClubLog didn't work after enter QSO and delete - fixed (big thanks to Pawel, SQ5LTL)
-  - TRX control window's layout was broken with some font sizes - fixed
+  -
 
 1.7.1
   + "When TRX control is not active, use frequency and mode from NewQSO window" option to Preferences->Band map added

src/cqrlog.lpi

@@ -31,11 +31,13 @@
     <RunParams>
       <local>
         <FormatVersion Value="1"/>
+        <CommandLineParams Value="--DEBUG=1"/>
         <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
       </local>
       <environment>
-        <UserOverrides Count="1">
+        <UserOverrides Count="2">
           <Variable0 Name="FIREBIRD" Value="/home/ok2cqr/projekty/cqrlog/testing"/>
+          <Variable1 Name="HEAPTRC" Value="1"/>
         </UserOverrides>
       </environment>
     </RunParams>
@@ -681,6 +683,11 @@
         <CStyleOperator Value="False"/>
       </SyntaxOptions>
     </Parsing>
+    <Linking>
+      <Debugging>
+        <UseHeaptrc Value="True"/>
+      </Debugging>
+    </Linking>
     <Other>
       <Verbosity>
         <ShowNotes Value="False"/>

src/fBandMap.pas

@@ -405,6 +405,7 @@ begin
     try
       When := now;
       EnterCriticalSection(frmBandMap.BandMapCrit);
+
       for i:=1 to MAX_ITEMS do
       begin
         if frmBandMap.BandMapItems[i].Freq = 0 then

src/fDXCCStat.pas

@@ -102,47 +102,19 @@ begin
   dmUtils.LoadFontSettings(self);
   LoadBandsSettings;
 
-  // Another grid style tom@dl7bj.de, 2014-06-20
-  if cqrini.ReadBool('Design','GridGreenBar',False) = True then
+  if cqrini.ReadBool('Fonts','GridGreenBar',False) = True then
   begin
     grdDXCCStat.AlternateColor:=$00E7FFEB;
     grdStat.AlternateColor:=$00E7FFEB;
     grdDXCCStat.Options:=[goRowSelect,goRangeSelect,goSmoothScroll,goVertLine,goFixedVertLine];
     grdStat.Options:=[goRowSelect,goRangeSelect,goSmoothScroll,goVertLine,goFixedVertLine];
-  end else begin
+  end
+  else begin
     grdDXCCStat.AlternateColor:=clWindow;
     grdStat.AlternateColor:=clWindow;
     grdDXCCStat.Options:=[goRangeSelect,goSmoothScroll,goVertLine,goFixedVertLine,goFixedHorzLine,goHorzline];
     grdStat.Options:=[goRangeSelect,goSmoothScroll,goVertLine,goFixedVertLine,goFixedHorzLine,goHorzline];
   end;
-  if cqrini.ReadBool('Design','GridSmallRows',false) = True then
-  begin
-    grdDXCCStat.DefaultRowHeight:=grdDXCCStat.Canvas.Font.Size+8;
-    grdStat.DefaultRowHeight:=grdStat.Canvas.Font.Size+8;
-  end else begin
-    grdDXCCStat.DefaultRowHeight:=25;
-    grdStat.DefaultRowHeight:=25;
-  end;
-  if cqrini.ReadBool('Design','GridBoldTitle',false) = True then
-  begin
-    grdDXCCStat.TitleFont.Style:=[fsBold];
-    grdStat.TitleFont.Style:=[fsBold];
-  end else begin
-    grdDXCCStat.TitleFont.Style:=[];
-    grdStat.TitleFont.Style:=[];
-  end;
-  if cqrini.ReadBool('Design','GridShowHint',false) = True then
-  begin
-    // ***TODO
-    // grdDXCCStat.ShowHint:=True;
-    // grdStat.ShowHint:=True;
-  end else begin
-    // ***TODO
-    // grdDXCCStat.ShowHint:=False;
-    // grdStat.ShowHint:=False;
-  end;
-
-
 
   grdDXCCStat.Cells[0,0] := 'DXCC';
   grdDXCCStat.Cells[1,0] := 'Country';
@@ -487,7 +459,7 @@ var
 begin
   space := ' ';
   // Dots instead spaces, tom@dl7bj.de, 2014-06-24
-  if cqrini.ReadBool('Design','GridDotsInsteadSpaces',False) = True then
+  if cqrini.ReadBool('Fonts','GridDotsInsteadSpaces',False) = True then
   begin
     space := '.';
   end;
@@ -748,7 +720,7 @@ begin
 
   space := '';
   // dots instead spaces, tom@dl7bj.de, 2014-06-24
-  if cqrini.ReadBool('Design','GridDotsInsteadSpaces', False) then
+  if cqrini.ReadBool('Fonts','GridDotsInsteadSpaces', False) then
   begin
     Space := '.';
   end;