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

Merge pull request #1 from darekper/master

Browse Source 
SP2MKI all changes
This commit is contained in:
Petr Hlozek 2013-03-16 23:29:09 -07:00
commit d167a0ad31
11 changed files with 384 additions and 341 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/dData.pas
View File

@ -961,7 +961,8 @@ begin
Add('lat',ftString,10);
Add('long',ftString,10);
Add('id', ftAutoInc);
Add('bckcolor',ftLargeint)
Add('bckcolor',ftLargeint);
Add('splitstr',ftString,13);
end;
dbfBand.CreateTable;
dbfBand.Open;

17
src/fBandMap.pas
View File

@ -59,7 +59,7 @@ type
BandThread : TBandThread;
procedure AddFromNewQSO(pfx, call : String; vfoa : Double; band, mode,lat,long : String);
procedure AddFromDXCluster(call, mode, pfx,band, lat, long : String;vfo_a : double; colo,BckColor : LongInt);
procedure AddFromDXCluster(call, mode, pfx,band, lat, long : String;vfo_a : double; colo,BckColor : LongInt; splitstr : String);
procedure DeleteFromBandMap(call,band,mode : String);
procedure LoadFonts;
procedure SynBandMap;
@ -214,6 +214,7 @@ begin
dbf.Fields[4].AsInteger := StrToInt(p[6]);
dbf.Fields[8].AsString := 'F';
dbf.Fields[6].AsString := p[7];
dbf.Fields[14].AsString := p[9];
dbf.Post;
frmBandMap.ShowList.Delete(0);
Go := True;
@ -235,6 +236,7 @@ begin
dbf.Fields[8].AsString := 'F';
dbf.Fields[6].AsString := p[7]; //band
dbf.Fields[13].AsInteger := StrToInt(p[8]); //background color
dbf.Fields[14].AsString := p[9]; //split
dbf.Post;
frmBandMap.ShowList.Delete(0)
end;
@ -293,8 +295,8 @@ begin
frmBandMap.SyncList.Clear;
while not dbf.Eof do
begin
tmp := dmUtils.SetSizeLeft(FloatToStrF(dbf.Fields[0].AsFloat,ffFixed,10,3),10) +
dmUtils.SetSizeLeft(dbf.Fields[1].AsString,14);
tmp := dmUtils.SetSizeLeft(FloatToStrF(dbf.Fields[0].AsFloat,ffFixed,8,1),8) +
dmUtils.SetSizeLeft(dbf.Fields[1].AsString,14) + ' ' + dbf.Fields[14].AsString;
frmBandMap.SyncList.Add(tmp+'|'+IntToStr(dbf.Fields[4].AsLongint)+'|'+IntToStr(dbf.Fields[13].AsLongint));
if ToBandMap and (i <= iMax) then
begin
@ -476,13 +478,14 @@ begin
end
end;
procedure TfrmBandMap.AddFromDXCluster(call, mode, pfx,band, lat, long : String;vfo_a : double;Colo,BckColor : LongInt);
procedure TfrmBandMap.AddFromDXCluster(call, mode, pfx,band, lat, long : String;vfo_a : double;Colo,BckColor : LongInt; splitstr : String);
begin
Writeln('AddFromCluster *****');
Writeln('Call:',call);
Writeln('Band:',band);
Writeln('Mode:',mode);
Writeln('Split:',splitstr);
Writeln('********************');
EnterCriticalSection(AddCrit);
@ -490,7 +493,7 @@ begin
if (mode = 'SSB') or (mode = 'AM') or (mode = 'FM') then
mode := 'SSB';
AddList.Add(FloatToStr(vfo_a)+'|'+call+'|'+mode+'|'+pfx+'|'+lat+'|'+long+'|'+IntToStr(colo)+'|'+band+'|'+
IntToStr(BckColor));
IntToStr(BckColor)+'|'+splitstr+'|' );
if dmData.DebugLevel >=2 then
Writeln('AddList.Add:'+FloatToStr(vfo_a)+'|'+call+'|'+mode+'|'+pfx+'|'+lat+'|'+long+'|'+IntToStr(Colo)+'|'+band+'|'+
IntToStr(BckColor))
@ -512,9 +515,9 @@ begin
exit;
dbClick := True;
BandMap.cti_vetu(spot,tmp,tmp,tmp,where);
freq := copy(spot,1,10);
freq := copy(spot,1,8);
freq := trim(freq);
call := copy(spot,11,18);
call := copy(spot,9,14);
call := trim(call);
if not TryStrToFloat(freq,f) then
exit;

47
src/fDXCluster.pas
View File

@ -84,6 +84,7 @@ type
function ShowSpot(spot : String; var sColor : Integer; var Country : String) : Boolean;
function GetFreq(spot : String) : String;
function GetCall(spot : String; web : Boolean = False) : String;
function GetSplit(spot : String) :String;
public
ConWeb : Boolean;
ConTelnet : Boolean;
@ -559,6 +560,42 @@ begin
Result := trim(tmp)
end;
function TfrmDXCluster.GetSplit(spot : String) : String;
var
tmp : String;
spl : String;
spn : String;
l : Integer;
begin
tmp := copy(spot,34,Length(spot)-34);
//Writeln('tmp: ',tmp);
if Pos('UP',tmp)>0 then begin
spl:= copy(tmp,Pos('UP',tmp),13);
spn:='UP';
for l:=3 to Length(spl) do
if Pos(spl[l],' 0123456789.,-+')>0 then
spn:=spn+spl[l]
else break;
end;
if Pos('DOWN',tmp)>0 then begin
spl:= copy(tmp,Pos('DOWN',tmp),13);
spn:='DOWN';
for l:=5 to Length(spl) do
if Pos(spl[l],' 0123456789.,-+')>0 then
spn:=spn+spl[l]
else break;
end;
if Pos('QSX',tmp)>0 then begin
spl:= copy(tmp,Pos('QSX',tmp),13);
spn:='QSX';
for l:=4 to Length(spl) do
if Pos(spl[l],' 0123456789.,-+')>0 then
spn:=spn+spl[l]
else break;
end;
Result := trim(spn)
end;
function TfrmDXCluster.GetCall(spot : String; web : Boolean = False) : String;
var
tmp : String='';
@ -623,6 +660,7 @@ var
adif : Word = 0;
f : Currency;
kHz : String;
splitstr : String;
begin
sColor := 0; //cerna
@ -641,10 +679,13 @@ begin
call := GetCall(Spot, ConWeb)
end;
splitstr := GetSplit(Spot);
kHz := Freq;
Writeln('Freq:',freq);
Writeln('Call:',call);
Writeln('Split:',splitstr);
tmp := Pos('.',freq);
if tmp > 0 then
@ -715,7 +756,7 @@ begin
Result := True;
sColor := clBlack;
dmDXCluster.AddToMarkFile(prefix,call,clWhite,cqrini.ReadString('xplanet','LastSpots','20'),lat,long);
frmBandMap.AddFromDXCluster(call,mode,prefix,band,lat,long,kmitocet, clBlack,clWhite);
frmBandMap.AddFromDXCluster(call,mode,prefix,band,lat,long,kmitocet, clBlack,clWhite,splitstr);
exit
end;
cont := UpperCase(cont);
@ -863,10 +904,10 @@ begin
if ToBandMap and frmBandMap.Showing then
begin
if cqrini.ReadBool('BandMap','UseDXCColors',False) then
frmBandMap.AddFromDXCluster(call,mode,prefix,band,lat,long,kmitocet, sColor, ThBckColor)
frmBandMap.AddFromDXCluster(call,mode,prefix,band,lat,long,kmitocet, sColor, ThBckColor,splitstr)
else
frmBandMap.AddFromDXCluster(call,mode,prefix,band,lat,long,kmitocet,
cqrini.ReadInteger('BandMap','ClusterColor',clBlack),ThBckColor)
cqrini.ReadInteger('BandMap','ClusterColor',clBlack),ThBckColor,splitstr)
end;
if index > 0 then

17
src/fImportProgress.pas
View File

@ -609,6 +609,7 @@ end;
procedure TfrmImportProgress.ImportLoTWAdif;
var
num : Word = 1;
qsln : Word = 0;
size : Word;
sSize : String;
a : String;
@ -621,6 +622,7 @@ var
mode : String;
qsodate : String;
time_on : String;
time_onx : String;
qslr : String;
qslrdate : String;
cqz : String;
@ -687,6 +689,7 @@ begin
PosEOR := 0;
while not ((PosEOR > 0) or eof(f)) do
begin
qso_in_log := False;
Readln(f, a);
a := Trim(a);
orig := a;
@ -879,8 +882,10 @@ begin
if PosEOR > 0 then
begin
//inc(qsln);
if dmData.DebugLevel >= 1 then
begin
// Writeln('Number: ',IntToStr(qsln));
Writeln('Call: ',call);
Writeln('Band: ',band);
Writeln('Mode: ',mode);
@ -909,10 +914,13 @@ begin
if dmData.trQ.Active then dmData.trQ.Rollback;
dmData.trQ.StartTransaction;
dmData.Q.Open();
if dmData.Q.Eof then qso_in_log := False;
while not dmData.Q.Eof do
begin
qso_in_log := False;
if (copy(dmData.Q.Fields[0].AsString,1,2) = copy(time_on,1,2)) then
time_onx:= copy(time_on,1,2)+':'+copy(time_on,3,2);
if dmData.DebugLevel >=1 then Writeln(dmData.Q.Fields[0].AsString+' | '+ time_onx);
if copy(dmData.Q.Fields[0].AsString,1,5) = copy(time_onx,1,5) then
begin
if LoTWShowNew and (dmData.Q.Fields[1].AsString <> 'L') then //this qso is already confirmed
LoTWQSOList.Add(qsodate+ ' ' + call + ' ' + band + ' ' + mode);
@ -933,7 +941,8 @@ begin
if (county<>'') and (dmData.Q.Fields[7].AsString='') then
dmData.Q1.SQL.Add(',county = ' + QuotedStr(county));
dmData.Q1.SQL.Add(' where id_cqrlog_main = ' + dmData.Q.Fields[8].AsString);
if dmData.DebugLevel>=1 then Writeln(dmData.Q1.SQL.Text);
inc(qsln);
if dmData.DebugLevel>=1 then Writeln(dmData.Q1.SQL.Text+ ' qsl number:'+ IntToStr(qsln));
dmData.Q1.ExecSQL;
qso_in_log := True;
Break
@ -970,8 +979,8 @@ begin
dmData.trQ1.Commit;
if ErrorCount > 0 then
begin
l.SaveToFile(dmData.DataDir + 'lotw_error.txt');
ShowMessage('Some QSO(s) were not found in your log. '#13' QSO(s) are stored to '+dmData.HomeDir + 'lotw_error.txt')
l.SaveToFile(dmData.HomeDir + 'lotw_error.txt');
ShowMessage(IntToStr(ErrorCount)+' QSO(s) were not found in your log. '#13' QSO(s) are stored to '+dmData.HomeDir + 'lotw_error.txt')
end
end
else begin

254
src/fNewQSO.lfm
View File

@ -6,7 +6,7 @@ object frmNewQSO: TfrmNewQSO
HelpType = htKeyword
HelpKeyword = 'help/index.html'
Caption = 'New QSO ... (CQRLOG for Linux)'
ClientHeight = 631
ClientHeight = 628
ClientWidth = 807
Font.Height = 8
Icon.Data = {
@ -127,8 +127,8 @@ object frmNewQSO: TfrmNewQSO
LCLVersion = '0.9.30.2'
object sbNewQSO: TStatusBar
Left = 0
Height = 20
Top = 611
Height = 21
Top = 607
Width = 807
Panels = <
item
@ -148,7 +148,7 @@ object frmNewQSO: TfrmNewQSO
object Panel1: TPanel
Left = 0
Height = 499
Top = 112
Top = 108
Width = 807
Align = alBottom
Caption = 'Panel1'
@ -178,9 +178,9 @@ object frmNewQSO: TfrmNewQSO
TabOrder = 0
object Label11: TLabel
Left = 256
Height = 17
Height = 18
Top = 192
Width = 130
Width = 142
Caption = 'Comment to callsign:'
Font.Color = clBlue
ParentColor = False
@ -188,9 +188,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label10: TLabel
Left = 112
Height = 17
Height = 18
Top = 55
Width = 30
Width = 34
Caption = 'QTH:'
Font.Color = clBlue
ParentColor = False
@ -198,9 +198,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label9: TLabel
Left = 16
Height = 17
Height = 18
Top = 55
Width = 39
Width = 45
Caption = 'Name:'
Font.Color = clBlue
ParentColor = False
@ -208,9 +208,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label8: TLabel
Left = 448
Height = 17
Height = 18
Top = 8
Width = 46
Width = 52
Caption = 'My RST:'
Font.Color = clBlue
ParentColor = False
@ -218,9 +218,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label7: TLabel
Left = 343
Height = 17
Height = 18
Top = 8
Width = 46
Width = 53
Caption = 'His RST:'
Font.Color = clBlue
ParentColor = False
@ -228,9 +228,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblCall: TLabel
Left = 16
Height = 17
Height = 18
Top = 8
Width = 28
Width = 30
Caption = 'Call:'
Font.Color = clBlue
ParentColor = False
@ -238,9 +238,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label5: TLabel
Left = 136
Height = 17
Height = 18
Top = 8
Width = 68
Width = 74
Caption = 'Frequency:'
Font.Color = clBlue
ParentColor = False
@ -248,9 +248,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label4: TLabel
Left = 234
Height = 17
Height = 18
Top = 8
Width = 39
Width = 44
Caption = 'Mode:'
Font.Color = clBlue
ParentColor = False
@ -258,9 +258,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label3: TLabel
Left = 183
Height = 17
Height = 18
Top = 248
Width = 57
Width = 64
Caption = 'End time:'
Font.Color = clBlue
ParentColor = False
@ -268,9 +268,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label2: TLabel
Left = 108
Height = 17
Height = 18
Top = 248
Width = 66
Width = 73
Caption = 'Start time:'
Font.Color = clBlue
ParentColor = False
@ -278,9 +278,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label1: TLabel
Left = 16
Height = 17
Height = 18
Top = 248
Width = 34
Width = 37
Caption = 'Date:'
Font.Color = clBlue
ParentColor = False
@ -288,9 +288,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label15: TLabel
Left = 258
Height = 17
Height = 18
Top = 55
Width = 30
Width = 34
Caption = 'GRID'
Font.Color = clBlue
ParentColor = False
@ -298,9 +298,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label12: TLabel
Left = 338
Height = 17
Height = 18
Top = 55
Width = 28
Width = 33
Caption = 'PWR'
Font.Color = clBlue
ParentColor = False
@ -308,9 +308,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label18: TLabel
Left = 405
Height = 17
Height = 18
Top = 55
Width = 38
Width = 43
Caption = 'QSL_S'
Font.Color = clBlue
ParentColor = False
@ -318,9 +318,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label19: TLabel
Left = 468
Height = 17
Height = 18
Top = 55
Width = 39
Width = 44
Caption = 'QSL_R'
Font.Color = clBlue
ParentColor = False
@ -328,9 +328,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label13: TLabel
Left = 16
Height = 17
Height = 18
Top = 99
Width = 20
Width = 23
Caption = 'ITU'
Font.Color = clBlue
ParentColor = False
@ -338,9 +338,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label20: TLabel
Left = 414
Height = 17
Height = 18
Top = 99
Width = 39
Width = 45
Caption = 'Award'
Font.Color = clBlue
ParentColor = False
@ -348,9 +348,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label21: TLabel
Left = 12
Height = 17
Height = 18
Top = 147
Width = 58
Width = 64
Caption = 'DXCC ref.'
Font.Color = clBlue
ParentColor = False
@ -358,9 +358,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label22: TLabel
Left = 57
Height = 17
Height = 18
Top = 99
Width = 28
Width = 33
Caption = 'WAZ'
Font.Color = clBlue
ParentColor = False
@ -368,9 +368,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblIOTA: TLabel
Left = 127
Height = 17
Height = 18
Top = 99
Width = 29
Width = 33
Caption = 'IOTA'
Font.Color = clBlue
ParentColor = False
@ -378,9 +378,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label17: TLabel
Left = 224
Height = 17
Height = 18
Top = 99
Width = 45
Width = 48
Caption = 'County'
Font.Color = clBlue
ParentColor = False
@ -388,9 +388,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label23: TLabel
Left = 111
Height = 17
Height = 18
Top = 147
Width = 111
Width = 122
Caption = 'Comment to QSO:'
Font.Color = clBlue
ParentColor = False
@ -398,9 +398,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSLVia: TLabel
Left = 419
Height = 17
Height = 18
Top = 147
Width = 49
Width = 55
Caption = 'QSL VIA'
Font.Color = clBlue
ParentColor = False
@ -408,9 +408,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSOTakes: TLabel
Left = 12
Height = 17
Height = 18
Top = 303
Width = 68
Width = 74
Caption = 'QSO takes '
ParentColor = False
ParentFont = False
@ -418,9 +418,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSLMgr: TLabel
Left = 406
Height = 17
Height = 18
Top = 191
Width = 123
Width = 137
Caption = 'QSL manager found!'
Font.Color = clRed
ParentColor = False
@ -429,9 +429,9 @@ object frmNewQSO: TfrmNewQSO
end
object Label25: TLabel
Left = 344
Height = 17
Height = 18
Top = 99
Width = 35
Width = 37
Caption = 'State'
Font.Color = clBlue
ParentColor = False
@ -439,9 +439,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblCfmLoTW: TLabel
Left = 12
Height = 17
Height = 18
Top = 199
Width = 147
Width = 164
Caption = 'QSO confirmed by LoTW'
Font.Color = clRed
ParentColor = False
@ -450,9 +450,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblQSLRcvdDate: TLabel
Left = 95
Height = 17
Height = 18
Top = 226
Width = 76
Width = 83
Caption = 'QSL rcvd on '
Font.Color = clRed
ParentColor = False
@ -1011,9 +1011,9 @@ object frmNewQSO: TfrmNewQSO
TabOrder = 26
object cbOffline: TCheckBox
Left = -3
Height = 26
Height = 24
Top = 4
Width = 53
Width = 51
Caption = 'Offline'
OnChange = cbOfflineChange
TabOrder = 0
@ -1103,9 +1103,9 @@ object frmNewQSO: TfrmNewQSO
end
object chkAutoMode: TCheckBox
Left = 277
Height = 26
Height = 24
Top = 4
Width = 50
Width = 48
Caption = 'AUTO'
Checked = True
OnChange = chkAutoModeChange
@ -1213,19 +1213,19 @@ object frmNewQSO: TfrmNewQSO
Width = 548
Align = alBottom
Caption = 'DXCC stat.'
ClientHeight = 109
ClientHeight = 122
ClientWidth = 544
Font.Color = clBlue
ParentFont = False
TabOrder = 1
object sgrdStatistic: TStringGrid
Left = 0
Height = 109
Height = 122
Top = 0
Width = 544
Align = alClient
ColCount = 2
DefaultColWidth = 30
DefaultColWidth = 35
FixedCols = 0
FixedRows = 0
Font.Height = 8
@ -1255,7 +1255,7 @@ object frmNewQSO: TfrmNewQSO
Top = 255
Width = 240
Caption = ' Callbook (qrz.com) '
ClientHeight = 139
ClientHeight = 152
ClientWidth = 236
Font.Color = clBlue
ParentFont = False
@ -1276,151 +1276,151 @@ object frmNewQSO: TfrmNewQSO
Top = -3
Width = 240
Caption = 'DXCC info'
ClientHeight = 220
ClientHeight = 233
ClientWidth = 236
Font.Color = clBlue
ParentFont = False
TabOrder = 1
object Label26: TLabel
Left = 1
Height = 17
Height = 18
Top = 3
Width = 53
Width = 58
Caption = 'Country:'
ParentColor = False
end
object Label27: TLabel
Left = 124
Height = 17
Height = 18
Top = 89
Width = 38
Width = 42
Caption = 'DXCC:'
ParentColor = False
end
object Label28: TLabel
Left = 8
Height = 17
Height = 18
Top = 72
Width = 31
Width = 37
Caption = 'WAZ:'
ParentColor = False
end
object Label29: TLabel
Left = 17
Height = 17
Height = 18
Top = 89
Width = 23
Width = 27
Caption = 'ITU:'
ParentColor = False
end
object Label30: TLabel
Left = 129
Height = 17
Height = 18
Top = 73
Width = 34
Width = 37
Caption = 'Cont:'
ParentColor = False
end
object lblWAZ: TLabel
Left = 48
Height = 17
Height = 18
Top = 73
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblITU: TLabel
Left = 48
Height = 17
Height = 18
Top = 89
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblDXCC: TLabel
Left = 169
Height = 17
Height = 18
Top = 89
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblCont: TLabel
Left = 169
Height = 17
Height = 18
Top = 73
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object Label31: TLabel
Left = 16
Height = 17
Height = 18
Top = 105
Width = 25
Width = 29
Caption = 'LAT:'
ParentColor = False
end
object Label32: TLabel
Left = 122
Height = 17
Height = 18
Top = 105
Width = 38
Width = 44
Caption = 'LONG:'
ParentColor = False
end
object lblLat: TLabel
Left = 48
Height = 17
Height = 18
Top = 105
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object lblLong: TLabel
Left = 169
Height = 17
Height = 18
Top = 105
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object Label33: TLabel
Left = 6
Height = 17
Height = 18
Top = 122
Width = 32
Width = 38
Caption = 'DIST.:'
ParentColor = False
end
object lblQRA: TLabel
Left = 48
Height = 17
Height = 18
Top = 122
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
end
object Label34: TLabel
Left = 126
Height = 17
Height = 18
Top = 122
Width = 34
Width = 40
Caption = 'AZIM:'
ParentColor = False
end
object lblAzi: TLabel
Left = 169
Height = 17
Height = 18
Top = 122
Width = 28
Width = 31
Caption = 'AAA'
ParentColor = False
ParentFont = False
@ -1437,9 +1437,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblGreeting: TLabel
Left = 169
Height = 17
Height = 18
Top = 166
Width = 42
Width = 48
Caption = 'GE/GM'
Font.Color = clRed
ParentColor = False
@ -1604,45 +1604,45 @@ object frmNewQSO: TfrmNewQSO
end
object lblLocSunRise: TLabel
Left = 49
Height = 17
Height = 18
Top = 209
Width = 85
Width = 94
Caption = 'lblLocSunRise'
ParentColor = False
ParentFont = False
end
object lblLocSunSet: TLabel
Left = 169
Height = 17
Height = 18
Top = 209
Width = 81
Width = 88
Caption = 'lblLocSunSet'
ParentColor = False
ParentFont = False
end
object lblTarSunRise: TLabel
Left = 46
Height = 17
Height = 18
Top = 141
Width = 81
Width = 91
Caption = 'lblTarSunRise'
ParentColor = False
ParentFont = False
end
object lblTarSunSet: TLabel
Left = 167
Height = 17
Height = 18
Top = 141
Width = 77
Width = 85
Caption = 'lblTarSunSet'
ParentColor = False
ParentFont = False
end
object Label14: TLabel
Left = 8
Height = 17
Height = 18
Top = 185
Width = 37
Width = 41
Caption = 'Local:'
ParentColor = False
end
@ -1689,18 +1689,18 @@ object frmNewQSO: TfrmNewQSO
TabOrder = 2
object lblQSONr: TLabel
Left = 63
Height = 17
Height = 18
Top = 9
Width = 8
Width = 9
Caption = '0'
ParentColor = False
ParentFont = False
end
object Label24: TLabel
Left = 7
Height = 17
Height = 18
Top = 9
Width = 45
Width = 51
Caption = 'QSO nr.'
Font.Color = clBlue
ParentColor = False
@ -1708,9 +1708,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblCountryInfo: TLabel
Left = 567
Height = 17
Height = 18
Top = 8
Width = 22
Width = 25
Alignment = taRightJustify
Caption = 'aaa'
Font.Color = clRed
@ -1719,9 +1719,9 @@ object frmNewQSO: TfrmNewQSO
end
object lblAmbiguous: TLabel
Left = 701
Height = 17
Height = 18
Top = 8
Width = 107
Width = 120
Caption = 'Ambiguous prefix'
Font.Color = clRed
ParentColor = False
@ -1730,16 +1730,16 @@ object frmNewQSO: TfrmNewQSO
end
object Label6: TLabel
Left = 86
Height = 17
Height = 18
Top = 9
Width = 80
Width = 88
Caption = 'QTH profile: '
ParentColor = False
ParentFont = False
end
object cmbProfiles: TComboBox
Left = 175
Height = 22
Height = 29
Top = 3
Width = 325
ItemHeight = 0
@ -1752,7 +1752,7 @@ object frmNewQSO: TfrmNewQSO
end
object dbgrdQSOBefore: TDBGrid
Left = 0
Height = 112
Height = 108
Top = 0
Width = 807
Align = alClient

206
src/fNewQSO.lrs
View File

@ -1,10 +1,8 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmNewQSO','FORMDATA',[
'TPF0'#10'TfrmNewQSO'#9'frmNewQSO'#4'Left'#3#209#1#6'Height'#3#139#2#3'Top'#2
+'X'#5'Width'#3''''#3#8'HelpType'#7#9'htKeyword'#11'HelpKeyword'#6#15'help/in'
+'dex.html'#7'Caption'#6#30'New QSO ... (CQRLOG for Linux)'#12'ClientHeight'#3
+'w'#2#11'ClientWidth'#3''''#3#11'Font.Height'#2#8#9'Icon.Data'#10#194#12#0#0
+'t'#2#11'ClientWidth'#3''''#3#11'Font.Height'#2#8#9'Icon.Data'#10#194#12#0#0
+#190#12#0#0#0#0#1#0#1#0' '#0#0#1#0#24#0#168#12#0#0#22#0#0#0'('#0#0#0' '#0#0
+#0'@'#0#0#0#1#0#24#0#0#0#0#0#0#12#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255
+#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255#255
@ -165,9 +163,9 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+'Create'#7#10'FormCreate'#9'OnKeyDown'#7#11'FormKeyDown'#10'OnKeyPress'#7#12
+'FormKeyPress'#6'OnShow'#7#8'FormShow'#19'OnWindowStateChange'#7#21'FormWind'
+'owStateChange'#10'LCLVersion'#6#8'0.9.30.2'#0#10'TStatusBar'#8'sbNewQSO'#4
+'Left'#2#0#6'Height'#2#20#3'Top'#3'c'#2#5'Width'#3''''#3#6'Panels'#14#1#5'Wi'
+'Left'#2#0#6'Height'#2#21#3'Top'#3'_'#2#5'Width'#3''''#3#6'Panels'#14#1#5'Wi'
+'dth'#2'2'#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#1#5'Width'#2'2'#0#0#11'Simp'
+'lePanel'#8#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3#243#1#3'Top'#2'p'
+'lePanel'#8#0#0#6'TPanel'#6'Panel1'#4'Left'#2#0#6'Height'#3#243#1#3'Top'#2'l'
+#5'Width'#3''''#3#5'Align'#7#8'alBottom'#7'Caption'#6#6'Panel1'#12'ClientHei'
+'ght'#3#243#1#11'ClientWidth'#3''''#3#8'TabOrder'#2#0#0#6'TPanel'#6'Panel3'#4
+'Left'#2#1#6'Height'#3#210#1#3'Top'#2' '#5'Width'#3'$'#2#5'Align'#7#8'alClie'
@ -175,73 +173,73 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#1#11'ClientWidth'#3'$'#2#8'TabOrder'#2#0#0#6'TPanel'#6'Panel6'#4'Left'#2#0#6
+'Height'#3'E'#1#3'Top'#2#0#5'Width'#3'$'#2#5'Align'#7#8'alClient'#10'BevelOu'
+'ter'#7#6'bvNone'#12'ClientHeight'#3'E'#1#11'ClientWidth'#3'$'#2#8'TabOrder'
+#2#0#0#6'TLabel'#7'Label11'#4'Left'#3#0#1#6'Height'#2#17#3'Top'#3#192#0#5'Wi'
+'dth'#3#130#0#7'Caption'#6#20'Comment to callsign:'#10'Font.Color'#7#6'clBlu'
+#2#0#0#6'TLabel'#7'Label11'#4'Left'#3#0#1#6'Height'#2#18#3'Top'#3#192#0#5'Wi'
+'dth'#3#142#0#7'Caption'#6#20'Comment to callsign:'#10'Font.Color'#7#6'clBlu'
+'e'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label10'#4'Left'#2'p'
+#6'Height'#2#17#3'Top'#2'7'#5'Width'#2#30#7'Caption'#6#4'QTH:'#10'Font.Color'
+#6'Height'#2#18#3'Top'#2'7'#5'Width'#2'"'#7'Caption'#6#4'QTH:'#10'Font.Color'
+#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label9'#4'Le'
+'ft'#2#16#6'Height'#2#17#3'Top'#2'7'#5'Width'#2''''#7'Caption'#6#5'Name:'#10
+'ft'#2#16#6'Height'#2#18#3'Top'#2'7'#5'Width'#2'-'#7'Caption'#6#5'Name:'#10
+'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6
+'Label8'#4'Left'#3#192#1#6'Height'#2#17#3'Top'#2#8#5'Width'#2'.'#7'Caption'#6
+'Label8'#4'Left'#3#192#1#6'Height'#2#18#3'Top'#2#8#5'Width'#2'4'#7'Caption'#6
+#7'My RST:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0
+#6'TLabel'#6'Label7'#4'Left'#3'W'#1#6'Height'#2#17#3'Top'#2#8#5'Width'#2'.'#7
+#6'TLabel'#6'Label7'#4'Left'#3'W'#1#6'Height'#2#18#3'Top'#2#8#5'Width'#2'5'#7
+'Caption'#6#8'His RST:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'Pare'
+'ntFont'#8#0#0#6'TLabel'#7'lblCall'#4'Left'#2#16#6'Height'#2#17#3'Top'#2#8#5
+'Width'#2#28#7'Caption'#6#5'Call:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'
+#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3#136#0#6'Height'#2#17#3
+'Top'#2#8#5'Width'#2'D'#7'Caption'#6#10'Frequency:'#10'Font.Color'#7#6'clBlu'
+'ntFont'#8#0#0#6'TLabel'#7'lblCall'#4'Left'#2#16#6'Height'#2#18#3'Top'#2#8#5
+'Width'#2#30#7'Caption'#6#5'Call:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'
+#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label5'#4'Left'#3#136#0#6'Height'#2#18#3
+'Top'#2#8#5'Width'#2'J'#7'Caption'#6#10'Frequency:'#10'Font.Color'#7#6'clBlu'
+'e'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label4'#4'Left'#3#234
+#0#6'Height'#2#17#3'Top'#2#8#5'Width'#2''''#7'Caption'#6#5'Mode:'#10'Font.Co'
+'lor'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label3'
,#4'Left'#3#183#0#6'Height'#2#17#3'Top'#3#248#0#5'Width'#2'9'#7'Caption'#6#9
+'End time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0
+#6'TLabel'#6'Label2'#4'Left'#2'l'#6'Height'#2#17#3'Top'#3#248#0#5'Width'#2'B'
+#7'Caption'#6#11'Start time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10
+'ParentFont'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#17#3'Top'#3
+#248#0#5'Width'#2'"'#7'Caption'#6#5'Date:'#10'Font.Color'#7#6'clBlue'#11'Par'
+#0#6'Height'#2#18#3'Top'#2#8#5'Width'#2','#7'Caption'#6#5'Mode:'#10'Font.Col'
+'or'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#6'Label3'#4
,'Left'#3#183#0#6'Height'#2#18#3'Top'#3#248#0#5'Width'#2'@'#7'Caption'#6#9'En'
+'d time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#6'Label2'#4'Left'#2'l'#6'Height'#2#18#3'Top'#3#248#0#5'Width'#2'I'#7
+'Caption'#6#11'Start time:'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10
+'ParentFont'#8#0#0#6'TLabel'#6'Label1'#4'Left'#2#16#6'Height'#2#18#3'Top'#3
+#248#0#5'Width'#2'%'#7'Caption'#6#5'Date:'#10'Font.Color'#7#6'clBlue'#11'Par'
+'entColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label15'#4'Left'#3#2#1#6'Heigh'
+'t'#2#17#3'Top'#2'7'#5'Width'#2#30#7'Caption'#6#4'GRID'#10'Font.Color'#7#6'c'
+'t'#2#18#3'Top'#2'7'#5'Width'#2'"'#7'Caption'#6#4'GRID'#10'Font.Color'#7#6'c'
+'lBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label12'#4'Left'#3
+'R'#1#6'Height'#2#17#3'Top'#2'7'#5'Width'#2#28#7'Caption'#6#3'PWR'#10'Font.C'
+'R'#1#6'Height'#2#18#3'Top'#2'7'#5'Width'#2'!'#7'Caption'#6#3'PWR'#10'Font.C'
+'olor'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label1'
+'8'#4'Left'#3#149#1#6'Height'#2#17#3'Top'#2'7'#5'Width'#2'&'#7'Caption'#6#5
+'8'#4'Left'#3#149#1#6'Height'#2#18#3'Top'#2'7'#5'Width'#2'+'#7'Caption'#6#5
+'QSL_S'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label19'#4'Left'#3#212#1#6'Height'#2#17#3'Top'#2'7'#5'Width'#2''''
+'TLabel'#7'Label19'#4'Left'#3#212#1#6'Height'#2#18#3'Top'#2'7'#5'Width'#2','
+#7'Caption'#6#5'QSL_R'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'Paren'
+'tFont'#8#0#0#6'TLabel'#7'Label13'#4'Left'#2#16#6'Height'#2#17#3'Top'#2'c'#5
+'Width'#2#20#7'Caption'#6#3'ITU'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label20'#4'Left'#3#158#1#6'Height'#2#17#3
+'Top'#2'c'#5'Width'#2''''#7'Caption'#6#5'Award'#10'Font.Color'#7#6'clBlue'#11
+'tFont'#8#0#0#6'TLabel'#7'Label13'#4'Left'#2#16#6'Height'#2#18#3'Top'#2'c'#5
+'Width'#2#23#7'Caption'#6#3'ITU'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label20'#4'Left'#3#158#1#6'Height'#2#18#3
+'Top'#2'c'#5'Width'#2'-'#7'Caption'#6#5'Award'#10'Font.Color'#7#6'clBlue'#11
+'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label21'#4'Left'#2#12#6'Hei'
+'ght'#2#17#3'Top'#3#147#0#5'Width'#2':'#7'Caption'#6#9'DXCC ref.'#10'Font.Co'
+'ght'#2#18#3'Top'#3#147#0#5'Width'#2'@'#7'Caption'#6#9'DXCC ref.'#10'Font.Co'
+'lor'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label22'
+#4'Left'#2'9'#6'Height'#2#17#3'Top'#2'c'#5'Width'#2#28#7'Caption'#6#3'WAZ'#10
+#4'Left'#2'9'#6'Height'#2#18#3'Top'#2'c'#5'Width'#2'!'#7'Caption'#6#3'WAZ'#10
+'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7
+'lblIOTA'#4'Left'#2#127#6'Height'#2#17#3'Top'#2'c'#5'Width'#2#29#7'Caption'#6
+'lblIOTA'#4'Left'#2#127#6'Height'#2#18#3'Top'#2'c'#5'Width'#2'!'#7'Caption'#6
+#4'IOTA'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label17'#4'Left'#3#224#0#6'Height'#2#17#3'Top'#2'c'#5'Width'#2'-'
+'TLabel'#7'Label17'#4'Left'#3#224#0#6'Height'#2#18#3'Top'#2'c'#5'Width'#2'0'
+#7'Caption'#6#6'County'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'Pare'
+'ntFont'#8#0#0#6'TLabel'#7'Label23'#4'Left'#2'o'#6'Height'#2#17#3'Top'#3#147
+#0#5'Width'#2'o'#7'Caption'#6#15'Comment to QSO:'#10'Font.Color'#7#6'clBlue'
+'ntFont'#8#0#0#6'TLabel'#7'Label23'#4'Left'#2'o'#6'Height'#2#18#3'Top'#3#147
+#0#5'Width'#2'z'#7'Caption'#6#15'Comment to QSO:'#10'Font.Color'#7#6'clBlue'
+#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#9'lblQSLVia'#4'Left'#3#163
+#1#6'Height'#2#17#3'Top'#3#147#0#5'Width'#2'1'#7'Caption'#6#7'QSL VIA'#10'Fo'
+#1#6'Height'#2#18#3'Top'#3#147#0#5'Width'#2'7'#7'Caption'#6#7'QSL VIA'#10'Fo'
+'nt.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#11'l'
+'blQSOTakes'#4'Left'#2#12#6'Height'#2#17#3'Top'#3'/'#1#5'Width'#2'D'#7'Capti'
+'blQSOTakes'#4'Left'#2#12#6'Height'#2#18#3'Top'#3'/'#1#5'Width'#2'J'#7'Capti'
+'on'#6#10'QSO takes '#11'ParentColor'#8#10'ParentFont'#8#7'Visible'#8#0#0#6
+'TLabel'#9'lblQSLMgr'#4'Left'#3#150#1#6'Height'#2#17#3'Top'#3#191#0#5'Width'
+#2'{'#7'Caption'#6#18'QSL manager found!'#10'Font.Color'#7#5'clRed'#11'Paren'
+'tColor'#8#10'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#7'Label25'#4'Left'#3
+'X'#1#6'Height'#2#17#3'Top'#2'c'#5'Width'#2'#'#7'Caption'#6#5'State'#10'Font'
+'.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#10'lbl'
+'CfmLoTW'#4'Left'#2#12#6'Height'#2#17#3'Top'#3#199#0#5'Width'#3#147#0#7'Capt'
+'ion'#6#21'QSO confirmed by LoTW'#10'Font.Color'#7#5'clRed'#11'ParentColor'#8
+#10'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#14'lblQSLRcvdDate'#4'Left'#2'_'
+#6'Height'#2#17#3'Top'#3#226#0#5'Width'#2'L'#7'Caption'#6#12'QSL rcvd on '#10
+'Font.Color'#7#5'clRed'#11'ParentColor'#8#10'ParentFont'#8#7'Visible'#8#0#0
+#12'TSpeedButton'#10'sbtnAttach'#4'Left'#3#167#1#6'Height'#2#22#4'Hint'#6#22
+'Call has an attachment'#3'Top'#3'$'#1#5'Width'#2#23#10'Glyph.Data'#10#202#7
+#0#0#198#7#0#0'BM'#198#7#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#22#0#0#0#22#0#0#0#1#0
+' '#0#0#0#0#0#144#7#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255
+'TLabel'#9'lblQSLMgr'#4'Left'#3#150#1#6'Height'#2#18#3'Top'#3#191#0#5'Width'
+#3#137#0#7'Caption'#6#18'QSL manager found!'#10'Font.Color'#7#5'clRed'#11'Pa'
+'rentColor'#8#10'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#7'Label25'#4'Left'
+#3'X'#1#6'Height'#2#18#3'Top'#2'c'#5'Width'#2'%'#7'Caption'#6#5'State'#10'Fo'
+'nt.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#10'l'
+'blCfmLoTW'#4'Left'#2#12#6'Height'#2#18#3'Top'#3#199#0#5'Width'#3#164#0#7'Ca'
+'ption'#6#21'QSO confirmed by LoTW'#10'Font.Color'#7#5'clRed'#11'ParentColor'
+#8#10'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#14'lblQSLRcvdDate'#4'Left'#2
+'_'#6'Height'#2#18#3'Top'#3#226#0#5'Width'#2'S'#7'Caption'#6#12'QSL rcvd on '
+#10'Font.Color'#7#5'clRed'#11'ParentColor'#8#10'ParentFont'#8#7'Visible'#8#0
+#0#12'TSpeedButton'#10'sbtnAttach'#4'Left'#3#167#1#6'Height'#2#22#4'Hint'#6
+#22'Call has an attachment'#3'Top'#3'$'#1#5'Width'#2#23#10'Glyph.Data'#10#202
+#7#0#0#198#7#0#0'BM'#198#7#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#22#0#0#0#22#0#0#0#1
+#0' '#0#0#0#0#0#144#7#0#0'd'#0#0#0'd'#0#0#0#0#0#0#0#0#0#0#0#255#255#255#0#255
+#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255
+#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0
+#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255#255#255#0#255
@ -632,7 +630,7 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#18#0#0#6'TPanel'#10'pnlOffline'#4'Left'#2#16#6'Height'#2#24#3'Top'#3#220#0#5
+'Width'#2'P'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#24#11'ClientWidth'
+#2'P'#8'TabOrder'#2#26#0#9'TCheckBox'#9'cbOffline'#4'Left'#2#253#6'Height'#2
+#26#3'Top'#2#4#5'Width'#2'5'#7'Caption'#6#7'Offline'#8'OnChange'#7#15'cbOffl'
+#24#3'Top'#2#4#5'Width'#2'3'#7'Caption'#6#7'Offline'#8'OnChange'#7#15'cbOffl'
+'ineChange'#8'TabOrder'#2#0#0#0#0#7'TButton'#9'btnQSLMgr'#4'Left'#3#254#1#6
+'Height'#2#27#3'Top'#3#163#0#5'Width'#2#24#25'BorderSpacing.InnerBorder'#2#4
+#7'Caption'#6#3'...'#7'OnClick'#7#14'btnQSLMgrClick'#8'TabOrder'#2#21#0#0#5
@ -656,7 +654,7 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#3'Top'#2's'#5'Width'#2'&'#8'AutoSize'#8#8'CharCase'#7#11'ecUppercase'#7'OnE'
+'nter'#7#13'edtStateEnter'#6'OnExit'#7#12'edtStateExit'#9'OnKeyDown'#7#15'ed'
+'tStateKeyDown'#8'TabOrder'#2#15#0#0#9'TCheckBox'#11'chkAutoMode'#4'Left'#3
+#21#1#6'Height'#2#26#3'Top'#2#4#5'Width'#2'2'#7'Caption'#6#4'AUTO'#7'Checked'
+#21#1#6'Height'#2#24#3'Top'#2#4#5'Width'#2'0'#7'Caption'#6#4'AUTO'#7'Checked'
+#9#8'OnChange'#7#17'chkAutoModeChange'#5'State'#7#9'cbChecked'#8'TabOrder'#2
+#27#0#0#12'TSpeedButton'#10'sbtnHamQTH'#4'Left'#3#253#1#6'Height'#2#23#4'Hin'
+'t'#6'/Opens HamQTH.com callsing profile in webbrowser'#3'Top'#3'#'#1#5'Widt'
@ -768,10 +766,10 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#208#178#255#255#255#255#255#255#255#255#255#255#255#255#255#9'NumGlyphs'#2#0
+#8'ShowHint'#9#14'ParentShowHint'#8#0#0#0#9'TGroupBox'#9'GroupBox2'#4'Left'#2
+#0#6'Height'#3#141#0#3'Top'#3'E'#1#5'Width'#3'$'#2#5'Align'#7#8'alBottom'#7
+'Caption'#6#10'DXCC stat.'#12'ClientHeight'#2'm'#11'ClientWidth'#3' '#2#10'F'
+'Caption'#6#10'DXCC stat.'#12'ClientHeight'#2'z'#11'ClientWidth'#3' '#2#10'F'
,'ont.Color'#7#6'clBlue'#10'ParentFont'#8#8'TabOrder'#2#1#0#11'TStringGrid'#13
+'sgrdStatistic'#4'Left'#2#0#6'Height'#2'm'#3'Top'#2#0#5'Width'#3' '#2#5'Alig'
+'n'#7#8'alClient'#8'ColCount'#2#2#15'DefaultColWidth'#2#30#9'FixedCols'#2#0#9
+'sgrdStatistic'#4'Left'#2#0#6'Height'#2'z'#3'Top'#2#0#5'Width'#3' '#2#5'Alig'
+'n'#7#8'alClient'#8'ColCount'#2#2#15'DefaultColWidth'#2'#'#9'FixedCols'#2#0#9
+'FixedRows'#2#0#11'Font.Height'#2#8#10'ParentFont'#8#8'RowCount'#2#4#8'TabOr'
+'der'#2#0#15'TitleFont.Color'#7#6'clBlue'#16'TitleFont.Height'#2#8#10'TitleS'
+'tyle'#7#8'tsNative'#0#0#0#0#6'TPanel'#6'Panel2'#4'Left'#3'%'#2#6'Height'#3
@ -779,45 +777,45 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+'vNone'#28'ChildSizing.LeftRightSpacing'#3#228#1#12'ClientHeight'#3#210#1#11
+'ClientWidth'#3#1#1#8'TabOrder'#2#1#0#9'TGroupBox'#11'grbCallBook'#4'Left'#2
+#9#6'Height'#3#171#0#3'Top'#3#255#0#5'Width'#3#240#0#7'Caption'#6#20' Callbo'
+'ok (qrz.com) '#12'ClientHeight'#3#139#0#11'ClientWidth'#3#236#0#10'Font.Col'
+'ok (qrz.com) '#12'ClientHeight'#3#152#0#11'ClientWidth'#3#236#0#10'Font.Col'
+'or'#7#6'clBlue'#10'ParentFont'#8#8'TabOrder'#2#0#0#5'TMemo'#9'mCallBook'#4
+'Left'#2#1#6'Height'#3#150#0#3'Top'#2#0#5'Width'#3#233#0#10'ParentFont'#8#10
+'ScrollBars'#7#10'ssAutoBoth'#8'TabOrder'#2#0#0#0#0#9'TGroupBox'#9'GroupBox1'
+#4'Left'#2#9#6'Height'#3#252#0#3'Top'#2#253#5'Width'#3#240#0#7'Caption'#6#9
+'DXCC info'#12'ClientHeight'#3#220#0#11'ClientWidth'#3#236#0#10'Font.Color'#7
+'DXCC info'#12'ClientHeight'#3#233#0#11'ClientWidth'#3#236#0#10'Font.Color'#7
+#6'clBlue'#10'ParentFont'#8#8'TabOrder'#2#1#0#6'TLabel'#7'Label26'#4'Left'#2
+#1#6'Height'#2#17#3'Top'#2#3#5'Width'#2'5'#7'Caption'#6#8'Country:'#11'Paren'
+'tColor'#8#0#0#6'TLabel'#7'Label27'#4'Left'#2'|'#6'Height'#2#17#3'Top'#2'Y'#5
+'Width'#2'&'#7'Caption'#6#5'DXCC:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label28'
+#4'Left'#2#8#6'Height'#2#17#3'Top'#2'H'#5'Width'#2#31#7'Caption'#6#4'WAZ:'#11
+'ParentColor'#8#0#0#6'TLabel'#7'Label29'#4'Left'#2#17#6'Height'#2#17#3'Top'#2
+'Y'#5'Width'#2#23#7'Caption'#6#4'ITU:'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
+'el30'#4'Left'#3#129#0#6'Height'#2#17#3'Top'#2'I'#5'Width'#2'"'#7'Caption'#6
+#1#6'Height'#2#18#3'Top'#2#3#5'Width'#2':'#7'Caption'#6#8'Country:'#11'Paren'
+'tColor'#8#0#0#6'TLabel'#7'Label27'#4'Left'#2'|'#6'Height'#2#18#3'Top'#2'Y'#5
+'Width'#2'*'#7'Caption'#6#5'DXCC:'#11'ParentColor'#8#0#0#6'TLabel'#7'Label28'
+#4'Left'#2#8#6'Height'#2#18#3'Top'#2'H'#5'Width'#2'%'#7'Caption'#6#4'WAZ:'#11
+'ParentColor'#8#0#0#6'TLabel'#7'Label29'#4'Left'#2#17#6'Height'#2#18#3'Top'#2
+'Y'#5'Width'#2#27#7'Caption'#6#4'ITU:'#11'ParentColor'#8#0#0#6'TLabel'#7'Lab'
+'el30'#4'Left'#3#129#0#6'Height'#2#18#3'Top'#2'I'#5'Width'#2'%'#7'Caption'#6
+#5'Cont:'#11'ParentColor'#8#0#0#6'TLabel'#6'lblWAZ'#4'Left'#2'0'#6'Height'#2
+#17#3'Top'#2'I'#5'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'Paren'
+'tFont'#8#0#0#6'TLabel'#6'lblITU'#4'Left'#2'0'#6'Height'#2#17#3'Top'#2'Y'#5
+'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TL'
+'abel'#7'lblDXCC'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#2'Y'#5'Width'#2#28#7
+#18#3'Top'#2'I'#5'Width'#2#31#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'Paren'
+'tFont'#8#0#0#6'TLabel'#6'lblITU'#4'Left'#2'0'#6'Height'#2#18#3'Top'#2'Y'#5
+'Width'#2#31#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TL'
+'abel'#7'lblDXCC'#4'Left'#3#169#0#6'Height'#2#18#3'Top'#2'Y'#5'Width'#2#31#7
+'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'lblCon'
+'t'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#2'I'#5'Width'#2#28#7'Caption'#6#3
+'t'#4'Left'#3#169#0#6'Height'#2#18#3'Top'#2'I'#5'Width'#2#31#7'Caption'#6#3
+'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label31'#4'Left'#2
+#16#6'Height'#2#17#3'Top'#2'i'#5'Width'#2#25#7'Caption'#6#4'LAT:'#11'ParentC'
+'olor'#8#0#0#6'TLabel'#7'Label32'#4'Left'#2'z'#6'Height'#2#17#3'Top'#2'i'#5
+'Width'#2'&'#7'Caption'#6#5'LONG:'#11'ParentColor'#8#0#0#6'TLabel'#6'lblLat'
+#4'Left'#2'0'#6'Height'#2#17#3'Top'#2'i'#5'Width'#2#28#7'Caption'#6#3'AAA'#11
+#16#6'Height'#2#18#3'Top'#2'i'#5'Width'#2#29#7'Caption'#6#4'LAT:'#11'ParentC'
+'olor'#8#0#0#6'TLabel'#7'Label32'#4'Left'#2'z'#6'Height'#2#18#3'Top'#2'i'#5
+'Width'#2','#7'Caption'#6#5'LONG:'#11'ParentColor'#8#0#0#6'TLabel'#6'lblLat'
+#4'Left'#2'0'#6'Height'#2#18#3'Top'#2'i'#5'Width'#2#31#7'Caption'#6#3'AAA'#11
+'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'lblLong'#4'Left'#3#169#0#6
+'Height'#2#17#3'Top'#2'i'#5'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label33'#4'Left'#2#6#6'Height'#2#17#3'Top'
+#2'z'#5'Width'#2' '#7'Caption'#6#6'DIST.:'#11'ParentColor'#8#0#0#6'TLabel'#6
+'lblQRA'#4'Left'#2'0'#6'Height'#2#17#3'Top'#2'z'#5'Width'#2#28#7'Caption'#6#3
+'Height'#2#18#3'Top'#2'i'#5'Width'#2#31#7'Caption'#6#3'AAA'#11'ParentColor'#8
+#10'ParentFont'#8#0#0#6'TLabel'#7'Label33'#4'Left'#2#6#6'Height'#2#18#3'Top'
+#2'z'#5'Width'#2'&'#7'Caption'#6#6'DIST.:'#11'ParentColor'#8#0#0#6'TLabel'#6
+'lblQRA'#4'Left'#2'0'#6'Height'#2#18#3'Top'#2'z'#5'Width'#2#31#7'Caption'#6#3
+'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#7'Label34'#4'Left'#2
+'~'#6'Height'#2#17#3'Top'#2'z'#5'Width'#2'"'#7'Caption'#6#5'AZIM:'#11'Parent'
+'Color'#8#0#0#6'TLabel'#6'lblAzi'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#2'z'
+#5'Width'#2#28#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'~'#6'Height'#2#18#3'Top'#2'z'#5'Width'#2'('#7'Caption'#6#5'AZIM:'#11'Parent'
+'Color'#8#0#0#6'TLabel'#6'lblAzi'#4'Left'#3#169#0#6'Height'#2#18#3'Top'#2'z'
+#5'Width'#2#31#7'Caption'#6#3'AAA'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#10'lblHisTime'#4'Left'#2#8#6'Height'#2#20#3'Top'#3#166#0#5'Width'#3
+#162#0#8'AutoSize'#8#7'Caption'#6#14'AAAAAAAAAAAAAA'#11'ParentColor'#8#10'Pa'
+'rentFont'#8#0#0#6'TLabel'#11'lblGreeting'#4'Left'#3#169#0#6'Height'#2#17#3
+'Top'#3#166#0#5'Width'#2'*'#7'Caption'#6#5'GE/GM'#10'Font.Color'#7#5'clRed'
+'rentFont'#8#0#0#6'TLabel'#11'lblGreeting'#4'Left'#3#169#0#6'Height'#2#18#3
+'Top'#3#166#0#5'Width'#2'0'#7'Caption'#6#5'GE/GM'#10'Font.Color'#7#5'clRed'
+#11'ParentColor'#8#10'ParentFont'#8#0#0#12'TSpeedButton'#12'SpeedButton1'#4
+'Left'#2#19#6'Height'#2#22#3'Top'#3#139#0#5'Width'#2#23#4'Flat'#9#10'Glyph.D'
+'ata'#10#250#3#0#0#246#3#0#0'BM'#246#3#0#0#0#0#0#0'6'#0#0#0'('#0#0#0#16#0#0#0
@ -973,16 +971,16 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+#235#228#220#251#236#221#249#236#215#238#234#229#241#245#239#232#247#228#240
+#255#154#213#232#177#238#255#216#227#255#241#236#255#227#236#255#207#232#242
+#209#245#245#215#249#242#223#238#230#238#246#235#9'NumGlyphs'#2#0#0#0#6'TLab'
+'el'#13'lblLocSunRise'#4'Left'#2'1'#6'Height'#2#17#3'Top'#3#209#0#5'Width'#2
+'U'#7'Caption'#6#13'lblLocSunRise'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#12'lblLocSunSet'#4'Left'#3#169#0#6'Height'#2#17#3'Top'#3#209#0#5'Wi'
+'dth'#2'Q'#7'Caption'#6#12'lblLocSunSet'#11'ParentColor'#8#10'ParentFont'#8#0
+#0#6'TLabel'#13'lblTarSunRise'#4'Left'#2'.'#6'Height'#2#17#3'Top'#3#141#0#5
+'Width'#2'Q'#7'Caption'#6#13'lblTarSunRise'#11'ParentColor'#8#10'ParentFont'
+#8#0#0#6'TLabel'#12'lblTarSunSet'#4'Left'#3#167#0#6'Height'#2#17#3'Top'#3#141
+#0#5'Width'#2'M'#7'Caption'#6#12'lblTarSunSet'#11'ParentColor'#8#10'ParentFo'
+'nt'#8#0#0#6'TLabel'#7'Label14'#4'Left'#2#8#6'Height'#2#17#3'Top'#3#185#0#5
+'Width'#2'%'#7'Caption'#6#6'Local:'#11'ParentColor'#8#0#0#5'TMemo'#8'mCountr'
+'el'#13'lblLocSunRise'#4'Left'#2'1'#6'Height'#2#18#3'Top'#3#209#0#5'Width'#2
+'^'#7'Caption'#6#13'lblLocSunRise'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#12'lblLocSunSet'#4'Left'#3#169#0#6'Height'#2#18#3'Top'#3#209#0#5'Wi'
+'dth'#2'X'#7'Caption'#6#12'lblLocSunSet'#11'ParentColor'#8#10'ParentFont'#8#0
+#0#6'TLabel'#13'lblTarSunRise'#4'Left'#2'.'#6'Height'#2#18#3'Top'#3#141#0#5
+'Width'#2'['#7'Caption'#6#13'lblTarSunRise'#11'ParentColor'#8#10'ParentFont'
+#8#0#0#6'TLabel'#12'lblTarSunSet'#4'Left'#3#167#0#6'Height'#2#18#3'Top'#3#141
+#0#5'Width'#2'U'#7'Caption'#6#12'lblTarSunSet'#11'ParentColor'#8#10'ParentFo'
+'nt'#8#0#0#6'TLabel'#7'Label14'#4'Left'#2#8#6'Height'#2#18#3'Top'#3#185#0#5
+'Width'#2')'#7'Caption'#6#6'Local:'#11'ParentColor'#8#0#0#5'TMemo'#8'mCountr'
+'y'#4'Left'#2'9'#6'Height'#2'J'#3'Top'#2#253#5'Width'#3#171#0#10'ParentFont'
+#8#8'TabOrder'#2#0#0#0#0#7'TButton'#7'btnSave'#4'Left'#2#11#6'Height'#2#25#3
+'Top'#3#176#1#5'Width'#2'}'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#16
@ -992,21 +990,21 @@ LazarusResources.Add('TfrmNewQSO','FORMDATA',[
+'ult'#2#2#7'OnClick'#7#14'btnCancelClick'#8'TabOrder'#2#3#0#0#0#6'TPanel'#6
+'Panel4'#4'Left'#2#1#6'Height'#2#31#3'Top'#2#1#5'Width'#3'%'#3#5'Align'#7#5
+'alTop'#10'BevelOuter'#7#6'bvNone'#12'ClientHeight'#2#31#11'ClientWidth'#3'%'
+#3#8'TabOrder'#2#2#0#6'TLabel'#8'lblQSONr'#4'Left'#2'?'#6'Height'#2#17#3'Top'
+#2#9#5'Width'#2#8#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label24'#4'Left'#2#7#6'Height'#2#17#3'Top'#2#9#5'Width'#2'-'#7'Ca'
+#3#8'TabOrder'#2#2#0#6'TLabel'#8'lblQSONr'#4'Left'#2'?'#6'Height'#2#18#3'Top'
+#2#9#5'Width'#2#9#7'Caption'#6#1'0'#11'ParentColor'#8#10'ParentFont'#8#0#0#6
+'TLabel'#7'Label24'#4'Left'#2#7#6'Height'#2#18#3'Top'#2#9#5'Width'#2'3'#7'Ca'
+'ption'#6#7'QSO nr.'#10'Font.Color'#7#6'clBlue'#11'ParentColor'#8#10'ParentF'
+'ont'#8#0#0#6'TLabel'#14'lblCountryInfo'#4'Left'#3'7'#2#6'Height'#2#17#3'Top'
+#2#8#5'Width'#2#22#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#3'aaa'#10
+'ont'#8#0#0#6'TLabel'#14'lblCountryInfo'#4'Left'#3'7'#2#6'Height'#2#18#3'Top'
+#2#8#5'Width'#2#25#9'Alignment'#7#14'taRightJustify'#7'Caption'#6#3'aaa'#10
+'Font.Color'#7#5'clRed'#11'ParentColor'#8#10'ParentFont'#8#0#0#6'TLabel'#12
+'lblAmbiguous'#4'Left'#3#189#2#6'Height'#2#17#3'Top'#2#8#5'Width'#2'k'#7'Cap'
+'lblAmbiguous'#4'Left'#3#189#2#6'Height'#2#18#3'Top'#2#8#5'Width'#2'x'#7'Cap'
+'tion'#6#16'Ambiguous prefix'#10'Font.Color'#7#5'clRed'#11'ParentColor'#8#10
+'ParentFont'#8#7'Visible'#8#0#0#6'TLabel'#6'Label6'#4'Left'#2'V'#6'Height'#2
+#17#3'Top'#2#9#5'Width'#2'P'#7'Caption'#6#14'QTH profile: '#11'ParentColor'
+#18#3'Top'#2#9#5'Width'#2'X'#7'Caption'#6#14'QTH profile: '#11'ParentColor'
+#8#10'ParentFont'#8#0#0#9'TComboBox'#11'cmbProfiles'#4'Left'#3#175#0#6'Heigh'
+'t'#2#22#3'Top'#2#3#5'Width'#3'E'#1#10'ItemHeight'#2#0#8'OnChange'#7#17'cmbP'
+'t'#2#29#3'Top'#2#3#5'Width'#3'E'#1#10'ItemHeight'#2#0#8'OnChange'#7#17'cmbP'
+'rofilesChange'#10'ParentFont'#8#8'TabOrder'#2#0#4'Text'#6#11'cmbProfiles'#0
+#0#0#0#7'TDBGrid'#14'dbgrdQSOBefore'#4'Left'#2#0#6'Height'#2'p'#3'Top'#2#0#5
+#0#0#0#7'TDBGrid'#14'dbgrdQSOBefore'#4'Left'#2#0#6'Height'#2'l'#3'Top'#2#0#5
+'Width'#3''''#3#5'Align'#7#8'alClient'#5'Color'#7#8'clWindow'#7'Columns'#14#0
+#7'Options'#11#8'dgTitles'#11'dgIndicator'#14'dgColumnResize'#12'dgColumnMov'
+'e'#10'dgColLines'#10'dgRowLines'#6'dgTabs'#11'dgRowSelect'#21'dgAlwaysShowS'

165
src/fNewQSO.pas
View File

@ -487,6 +487,7 @@ type
procedure SaveSettings;
procedure ChangeCallBookCaption;
procedure SendSpot;
procedure RunVK(key_pressed: String);
public
QTHfromCb : Boolean;
FromDXC : Boolean;
@ -696,7 +697,7 @@ var
begin
for i:= 0 to sgrdStatistic.ColCount-1 do
for y := 0 to sgrdStatistic.RowCount-1 do
sgrdStatistic.Cells[i,y] := '';
sgrdStatistic.Cells[i,y] := ' ';
with sgrdStatistic do
begin
Cells[0, 1] := 'SSB';
@ -3686,51 +3687,61 @@ begin
if (key = VK_F1) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F1',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F1');
key := 0
end;
if (key = VK_F2) and (Shift = []) then
if (key = VK_F2) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F2',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F2');
key := 0
end;
if (key = VK_F3) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F3',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F3');
key := 0
end;
if (key = VK_F4) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F4',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F4');
key := 0
end;
if (key = VK_F5) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F5',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F5');
key := 0
end;
if (key = VK_F6) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F6',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F6');
key := 0
end;
if (key = VK_F7) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F7',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F7');
key := 0
end;
if (key = VK_F8) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F8',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F8');
key := 0
end;
if (key = VK_F9) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F9',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F9');
key := 0
end;
if (key = VK_F10) and (Shift = []) then
begin
CWint.SendText(dmUtils.GetCWMessage('F10',edtCall.Text,edtHisRST.Text,edtName.Text,''));
if (cmbMode.Text='SSB') then RunVK('F10');
key := 0
end;
@ -4229,6 +4240,7 @@ var
ShowLoTW : Boolean = False;
mode : String;
QSLR,LoTW,eQSL : String;
tmps : String;
begin
if old_stat_adif = ref_adif then
exit;
@ -4244,31 +4256,11 @@ begin
break
end;
sgrdStatistic.Cells[i+1,0] := dmUtils.MyBands[i][1];
sgrdStatistic.Cells[i+1,1] := ' ';
sgrdStatistic.Cells[i+1,2] := ' ';
sgrdStatistic.Cells[i+1,3] := ' ';
end;
dmData.Q.Close;
if dmData.trQ.Active then
dmData.trQ.Rollback;
dmData.Q.SQL.Text := 'select band,mode from cqrlog_main where adif='+
IntToStr(ref_adif) + ' group by band,mode';
dmData.trQ.StartTransaction;
dmData.Q.Open;
while not dmData.Q.Eof do
begin
i := dmUtils.GetBandPos(dmData.Q.Fields[0].AsString)+1;
mode := dmData.Q.Fields[1].AsString;
if i > 0 then
begin
if ((mode = 'SSB') or (mode = 'FM') or (mode = 'AM')) then
sgrdStatistic.Cells[i,1] := 'X'
else if (mode = 'CW') or (mode = 'CWR') then
sgrdStatistic.Cells[i,2] := 'X'
else
sgrdStatistic.Cells[i,3] := 'X'
end;
dmData.Q.Next
end;
dmData.Q.Close;
ShowLoTW := cqrini.ReadBool('LoTW','NewQSOLoTW',False);
@ -4295,80 +4287,67 @@ begin
begin
if (Mode = 'SSB') or (Mode='FM') or (Mode='AM') then
begin
tmps := sgrdStatistic.Cells[i,1] ;
if QSLR = 'Q' then
sgrdStatistic.Cells[i,1] := 'Q'
else if (LoTW = 'L') then
sgrdStatistic.Cells[i,1] := 'L'
else if (eQSL = 'E') then
sgrdStatistic.Cells[i,1] := 'E'
else if (sgrdStatistic.Cells[i,1] = '') then
sgrdStatistic.Cells[i,1] := 'X'
tmps[1] := 'Q';
if (LoTW = 'L') then
tmps[2] := 'L';
if (eQSL = 'E') then
tmps[3] := 'E';
sgrdStatistic.Cells[i,1] := tmps
end
else begin
if (Mode='CW') or (Mode='CWQ') then
begin
tmps := sgrdStatistic.Cells[i,2] ;
if QSLR = 'Q' then
sgrdStatistic.Cells[i,2] := 'Q'
else if (LoTW='L') then
sgrdStatistic.Cells[i,2] := 'L'
else if (eQSL='E') then
sgrdStatistic.Cells[i,2] := 'E'
else if sgrdStatistic.Cells[i,2] = '' then
sgrdStatistic.Cells[i,2] := 'X'
tmps[1] := 'Q';
if (LoTW = 'L') then
tmps[2] := 'L';
if (eQSL = 'E') then
tmps[3] := 'E';
sgrdStatistic.Cells[i,2] := tmps
end
else begin
tmps := sgrdStatistic.Cells[i,3] ;
if QSLR = 'Q' then
sgrdStatistic.Cells[i,3] := 'Q'
else if (LoTW='L') then
sgrdStatistic.Cells[i,3] := 'L'
else if (eQSL='E') then
sgrdStatistic.Cells[i,3] := 'E'
else if sgrdStatistic.Cells[i,3] = '' then
sgrdStatistic.Cells[i,3] := 'X'
tmps[1] := 'Q';
if (LoTW = 'L') then
tmps[2] := 'L';
if (eQSL = 'E') then
tmps[3] := 'E';
sgrdStatistic.Cells[i,3] := tmps
end
end
{
if (mode = 'SSB') or (mode = 'FM') or (mode = 'AM') then
begin
if sgrdStatistic.Cells[i,1] <> 'Q' then
begin
if (dmData.Q.Fields[2].AsString <> 'Q') and ShowLoTW and (dmData.Q.Fields[3].AsString = 'L') then
sgrdStatistic.Cells[i,1] := 'L'
else begin
if dmData.Q.Fields[2].AsString = 'Q' then
sgrdStatistic.Cells[i,1] := 'Q'
end
end
end
else if (mode = 'CW') or (mode = 'CWR') then
begin
if sgrdStatistic.Cells[i,2] <> 'Q' then
begin
if (dmData.Q.Fields[2].AsString <> 'Q') and ShowLoTW and (dmData.Q.Fields[3].AsString = 'L') then
sgrdStatistic.Cells[i,2] := 'L'
else begin
if dmData.Q.Fields[2].AsString = 'Q' then
sgrdStatistic.Cells[i,2] := 'Q'
end
end
end
else begin
if sgrdStatistic.Cells[i,3] <> 'Q' then
begin
if (dmData.Q.Fields[2].AsString <> 'Q') and ShowLoTW and (dmData.Q.Fields[3].AsString = 'L') then
sgrdStatistic.Cells[i,3] := 'L'
else begin
if dmData.Q.Fields[2].AsString = 'Q' then
sgrdStatistic.Cells[i,3] := 'Q'
end
end
end}
end;
end;
dmData.Q.Next
end;
dmData.trQ.Rollback
dmData.trQ.Rollback;
dmData.Q.Close;
if dmData.trQ.Active then
dmData.trQ.Rollback;
dmData.Q.SQL.Text := 'select band,mode from cqrlog_main where adif='+
IntToStr(ref_adif) + ' group by band,mode';
dmData.trQ.StartTransaction;
dmData.Q.Open;
while not dmData.Q.Eof do
begin
i := dmUtils.GetBandPos(dmData.Q.Fields[0].AsString)+1;
mode := dmData.Q.Fields[1].AsString;
if i > 0 then
begin
if ((mode = 'SSB') or (mode = 'FM') or (mode = 'AM')) then
if(sgrdStatistic.Cells[i,1] = ' ') then sgrdStatistic.Cells[i,1] := ' X ';
if ((mode = 'CW') or (mode = 'CWR')) then
if (sgrdStatistic.Cells[i,2] = ' ') then sgrdStatistic.Cells[i,2] := ' X ';
if ((mode <> 'SSB') and (mode <>'FM') and (mode <> 'AM') and (mode <> 'CW') and (mode <> 'CWR')) then
if (sgrdStatistic.Cells[i,3] = ' ') then sgrdStatistic.Cells[i,3] := ' X '
end;
dmData.Q.Next;
end;
dmData.Q.Close;
end;
procedure TfrmNewQSO.CalculateDistanceEtc;
@ -5109,6 +5088,20 @@ begin
end
end;
procedure TfrmNewQSO.RunVK(key_pressed: String);
var
AProcess: TProcess;
begin
AProcess := TProcess.Create(nil);
try
AProcess.CommandLine := dmData.HomeDir +'voice_keyer/voice_keyer.sh '+key_pressed ;
Writeln('Command line: ',AProcess.CommandLine);
AProcess.Execute
finally
AProcess.Free
end
end;
initialization
{$I fNewQSO.lrs}

4
src/fTRXControl.lfm
View File

@ -318,7 +318,7 @@ object frmTRXControl: TfrmTRXControl
object btn6m: TButton
Left = 178
Height = 25
Top = 54
Top = 30
Width = 56
BorderSpacing.InnerBorder = 4
Caption = '6m'
@ -338,7 +338,7 @@ object frmTRXControl: TfrmTRXControl
object btn2m: TButton
Left = 178
Height = 25
Top = 30
Top = 54
Width = 56
BorderSpacing.InnerBorder = 4
Caption = '2m'

6
src/fTRXControl.lrs
View File

@ -1,5 +1,3 @@
{ This is an automatically generated lazarus resource file }
LazarusResources.Add('TfrmTRXControl','FORMDATA',[
'TPF0'#14'TfrmTRXControl'#13'frmTRXControl'#4'Left'#3'z'#2#6'Height'#3#232#0#3
+'Top'#3'^'#1#5'Width'#3'S'#1#13'ActiveControl'#7#7'btnVFOA'#11'BorderIcons'
@ -239,12 +237,12 @@ LazarusResources.Add('TfrmTRXControl','FORMDATA',[
+#0#7'TButton'#6'btn10m'#4'Left'#3#178#0#6'Height'#2#25#3'Top'#2#6#5'Width'#2
+'8'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#3'10m'#7'OnClick'#7#11'bt'
+'n10mClick'#8'TabOrder'#2#8#0#0#7'TButton'#5'btn6m'#4'Left'#3#178#0#6'Height'
+#2#25#3'Top'#2'6'#5'Width'#2'8'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#2#25#3'Top'#2#30#5'Width'#2'8'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'
+#6#2'6m'#7'OnClick'#7#10'btn6mClick'#8'TabOrder'#2#9#0#0#7'TButton'#7'btn70c'
+'m'#4'Left'#3#178#0#6'Height'#2#25#3'Top'#2'N'#5'Width'#2'8'#25'BorderSpacin'
+'g.InnerBorder'#2#4#7'Caption'#6#4'70cm'#7'OnClick'#7#12'btn70cmClick'#8'Tab'
+'Order'#2#10#0#0#7'TButton'#5'btn2m'#4'Left'#3#178#0#6'Height'#2#25#3'Top'#2
+#30#5'Width'#2'8'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'2m'#7'OnC'
+'6'#5'Width'#2'8'#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#2'2m'#7'OnC'
+'lick'#7#10'btn2mClick'#8'TabOrder'#2#11#0#0#0#9'TGroupBox'#9'GroupBox2'#4'L'
+'eft'#3#8#1#6'Height'#3#200#0#3'Top'#2#0#5'Width'#2'H'#7'Caption'#6#6' Mode '
+#12'ClientHeight'#3#181#0#11'ClientWidth'#2'D'#8'TabOrder'#2#4#0#7'TButton'#5

4
src/uCWKeying.pas
View File

@ -521,13 +521,13 @@ end;
procedure TCWKeying.cw_tune_on;
begin
if fActive then
udp.SendMessage(Chr(27)+'C10')
udp.SendMessage(Chr(27)+'c10')
end;
procedure TCWKeying.cw_tune_off;
begin
if fActive then
udp.SendMessage(Chr(27)+'C0')
udp.SendMessage(Chr(27)+'c0')
end;
end.

2
src/uVersion.pas
View File

@ -4,7 +4,7 @@ unit uVersion;
interface
const
cVERSION = '1.5.4';
cVERSION = '1.5.4dpvk';
cMAJOR = 1;
cMINOR = 5;
cRELEAS = 4;