hamradio/cqrlog
1
0
Fork 0
mirror of https://github.com/ok2cqr/cqrlog.git synced 2024-09-21 02:17:19 +00:00
Code Issues Packages Projects Releases Wiki Activity

fix: showing directions on grayline

Browse Source
This commit is contained in:
Petr Hlozek 2024-05-26 20:08:56 +02:00
parent ae331ba2fe
commit 7d30da63a3
5 changed files with 1614 additions and 1605 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/cqrlog.lpi
View File

@ -924,7 +924,7 @@
<CompilerOptions>
<Version Value="11"/>
<SearchPaths>
<Libraries Value="$(LazarusDir)/lcl"/>
<Libraries Value="$(LazarusDir)/lcl;../../../.lazarus/lib/LCLBase/units/x86_64-linux"/>
<OtherUnitFiles Value="lnet/lib;synapse"/>
</SearchPaths>
<Parsing>

6
src/fGrayline.lfm
View File

@ -121,7 +121,7 @@ object frmGrayline: TfrmGrayline
OnPaint = FormPaint
OnShow = FormShow
ShowHint = True
LCLVersion = '2.2.6.0'
LCLVersion = '3.0.0.3'
object sbtnGrayLine: TSpeedButton
Left = 400
Height = 16
@ -168,8 +168,8 @@ object frmGrayline: TfrmGrayline
end
object sbGrayLine: TStatusBar
Left = 0
Height = 19
Top = 229
Height = 20
Top = 228
Width = 419
Panels = <>
end

28
src/fGrayline.pas
View File

@ -100,6 +100,7 @@ type
function SpotterExists(spotter : String) : Word;
procedure RemoveOldSpots(RemoveAfter:integer);
procedure AddSpotToList(spot : String);
procedure LoadSettings();
end;
var
@ -312,17 +313,13 @@ end;
procedure TfrmGrayline.FormShow(Sender: TObject);
begin
dmUtils.LoadWindowPos(frmGrayline);
sbGrayLine.Visible := cqrini.ReadBool('Grayline','Statusbar',True);
pumShowShortPath.Checked := cqrini.ReadBool('Grayline','ShortPath',False);
pumShowLongPath.Checked := cqrini.ReadBool('Grayline','LongPath',False);
pumShowBeamPath.Checked := cqrini.ReadBool('Grayline','BeamPath',False);
LoadSettings();
acShowStatusBar.Checked := sbGrayLine.Visible;
rbn_status :='Disconnected';
sbGrayLine.SimpleText := rbn_status;
tmrGrayLine.Enabled := True;
tmrGrayLineTimer(nil);
tmrAutoConnect.Enabled := True;
delAfter := cqrini.ReadInteger('RBN','deleteAfter',60);
tmrSpotDots.Interval :=1000; //remove Spots(DOts) timer will always run 1 sec period.
tmrSpotDots.Enabled :=true;
ob^.GC_line_clear;
@ -618,11 +615,7 @@ while GC_lock do
GC_lock:=true;
BaseStep := cqrini.ReadFloat('Program', 'GraylineGCstep',15E-001) * pi/180;
PolarStep := Basestep/cqrini.ReadInteger('Program', 'GraylineGCstep',10);
ob^.GC_LWidth := cqrini.ReadInteger('Program', 'GraylineGCLineWidth',2);
ob^.GB_LWidth := cqrini.ReadInteger('Program', 'GraylineGBeamLineWidth',2);
ob^.GC_SP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineSPColor', 'clYellow' ));
ob^.GC_LP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineLPColor', 'clFuchsia' ));
ob^.GC_BE_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineBEColor', 'clRed' ));
LoadSettings();
if LocalDbg then
begin
@ -912,5 +905,20 @@ begin
end;
end;
procedure TfrmGrayline.LoadSettings();
begin
sbGrayLine.Visible := cqrini.ReadBool('Grayline','Statusbar',True);
pumShowShortPath.Checked := cqrini.ReadBool('Grayline','ShortPath',False);
pumShowLongPath.Checked := cqrini.ReadBool('Grayline','LongPath',False);
pumShowBeamPath.Checked := cqrini.ReadBool('Grayline','BeamPath',False);
delAfter := cqrini.ReadInteger('RBN','deleteAfter',60);
ob^.GC_LWidth := cqrini.ReadInteger('Program', 'GraylineGCLineWidth',2);
ob^.GB_LWidth := cqrini.ReadInteger('Program', 'GraylineGBeamLineWidth',2);
ob^.GC_SP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineSPColor', 'clYellow' ));
ob^.GC_LP_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineLPColor', 'clFuchsia' ));
ob^.GC_BE_Color:=StringToColor(cqrini.ReadString('Program', 'GraylineGCLineBEColor', 'clRed' ));
end;
end.

3182
src/fPreferences.lfm
View File

File diff suppressed because it is too large Load Diff

1
src/fPreferences.pas
View File

@ -1693,6 +1693,7 @@ begin
dmData.SaveConfigFile;
frmDXCluster.ReloadSettings;
ModalResult := mrOk;
frmGrayline.LoadSettings();
dmUtils.LoadBandLabelSettins;
dmUtils.LoadBandsSettings;
dmData.LoadClubsSettings;