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

changed again eqso/lotw status memo scrolling. It just does not always go to last line...Why,why

Browse Source
This commit is contained in:
OH1KH 2020-04-01 10:54:29 +03:00
parent 9d19c02be7
commit 35efb36dbb
6 changed files with 41 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/fImportLoTWWeb.pas
View File

@ -64,15 +64,14 @@ procedure TfrmImportLoTWWeb.mStatChange(Sender: TObject);
begin
with mStat do
begin
VertScrollBar.Position:=1000000;
{ //this does not always scroll to end (why?)
//this does not always scroll to end (why?)
SelStart := GetTextLen;
SelLength := 0;
ScrollBy(0, Lines.Count);
Refresh;
}
end;
//added
VertScrollBar.Position:=100000;
end;
end;
procedure TfrmImportLoTWWeb.btnDownloadClick(Sender: TObject);

6
src/fLoTWExport.pas
View File

@ -201,13 +201,13 @@ procedure TfrmLoTWExport.mStatChange(Sender: TObject);
begin
with mStat do
begin
VertScrollBar.Position:=1000000;
{ //this does not always scroll to end (why?)
//this does not always scroll to end (why?)
SelStart := GetTextLen;
SelLength := 0;
ScrollBy(0, Lines.Count);
Refresh;
}
//added
VertScrollBar.Position:=100000;
end;
end;

5
src/feQSLDownload.lfm
View File

@ -31,6 +31,7 @@ object frmeQSLDownload: TfrmeQSLDownload
Top = 0
Width = 479
Align = alClient
OnChange = mStatChange
ScrollBars = ssAutoBoth
TabOrder = 0
end
@ -54,10 +55,10 @@ object frmeQSLDownload: TfrmeQSLDownload
AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = GroupBox5
AnchorSideTop.Side = asrBottom
Left = 71
Left = 72
Height = 25
Top = 126
Width = 338
Width = 337
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 6
Caption = 'Download data from eQSL website'

15
src/feQSLDownload.pas
View File

@ -30,6 +30,7 @@ type
procedure btnPreferencesClick(Sender : TObject);
procedure FormClose(Sender : TObject; var CloseAction : TCloseAction);
procedure FormShow(Sender : TObject);
procedure mStatChange(Sender: TObject);
private
Done : Boolean;
FileSize : Int64;
@ -56,6 +57,20 @@ begin
chkShowNew.Checked := cqrini.ReadBool('eQSLImp','ShowNewQSOs',True)
end;
procedure TfrmeQSLDownload.mStatChange(Sender: TObject);
begin
with mStat do
begin
//this does not always scroll to end (why?)
SelStart := GetTextLen;
SelLength := 0;
ScrollBy(0, Lines.Count);
Refresh;
//added
VertScrollBar.Position:=100000;
end;
end;
procedure TfrmeQSLDownload.FormClose(Sender : TObject;
var CloseAction : TCloseAction);
begin

1
src/feQSLUpload.lfm
View File

@ -241,6 +241,7 @@ object frmeQSLUpload: TfrmeQSLUpload
Lines.Strings = (
''
)
OnChange = mStatChange
ReadOnly = True
ScrollBars = ssAutoBoth
TabOrder = 0

15
src/feQSLUpload.pas
View File

@ -30,6 +30,7 @@ type
procedure btnUploadClick(Sender : TObject);
procedure FormClose(Sender : TObject; var CloseAction : TCloseAction);
procedure FormShow(Sender : TObject);
procedure mStatChange(Sender: TObject);
private
FileSize : Int64;
QSOCount : Integer;
@ -229,6 +230,20 @@ begin
end;
procedure TfrmeQSLUpload.mStatChange(Sender: TObject);
begin
with mStat do
begin
//this does not always scroll to end (why?)
SelStart := GetTextLen;
SelLength := 0;
ScrollBy(0, Lines.Count);
Refresh;
//added
VertScrollBar.Position:=100000;
end;
end;
procedure TfrmeQSLUpload.FormClose(Sender : TObject;
var CloseAction : TCloseAction);
begin