mirror of
https://github.com/ok2cqr/cqrlog.git
synced 2024-09-21 10:27:17 +00:00
fix: showing directions on grayline
This commit is contained in:
parent
ae331ba2fe
commit
7d30da63a3
@ -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>
|
||||
|
@ -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
|
||||
|
@ -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
3182
src/fPreferences.lfm
File diff suppressed because it is too large
Load Diff
@ -1693,6 +1693,7 @@ begin
|
||||
dmData.SaveConfigFile;
|
||||
frmDXCluster.ReloadSettings;
|
||||
ModalResult := mrOk;
|
||||
frmGrayline.LoadSettings();
|
||||
dmUtils.LoadBandLabelSettins;
|
||||
dmUtils.LoadBandsSettings;
|
||||
dmData.LoadClubsSettings;
|
||||
|
Loading…
Reference in New Issue
Block a user