paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

LazMapViewer: flights example: Added `Follow tightly' check box. Marked missing segments in QFA28, QFA95.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9303 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alpine-a110 2024-03-30 18:13:54 +00:00
parent 30180acdfb
commit c02d8b5566
2 changed files with 34 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
components/lazmapviewer/examples/flights/main.lfm
View File

@ -19146,7 +19146,8 @@ object MainForm: TMainForm
item
Caption = 'QFA28'
LineWidth = -1
ConnectWidth = -1
ConnectColor = clSilver
ConnectWidth = 0.2
Points = <
item
Caption = '1'
@ -19896,6 +19897,7 @@ object MainForm: TMainForm
Latitude = -38.15333
Elevation = 10356
DateTime = 45377.743287037
Mark = smEnd
end
item
Caption = '108'
@ -21623,7 +21625,8 @@ object MainForm: TMainForm
item
Caption = 'QFA95'
LineWidth = -1
ConnectWidth = -1
ConnectColor = clSilver
ConnectWidth = 0.2
Points = <
item
Caption = '1'
@ -26083,6 +26086,7 @@ object MainForm: TMainForm
Latitude = -33.87716
Elevation = 10668
DateTime = 45377.5716319444
Mark = smEnd
end
item
Caption = '638'
@ -26405,6 +26409,7 @@ object MainForm: TMainForm
Latitude = -28.04628
Elevation = 10660
DateTime = 45377.6183912037
Mark = smEnd
end
item
Caption = '684'
@ -26853,6 +26858,7 @@ object MainForm: TMainForm
Latitude = -16.93375
Elevation = 10973
DateTime = 45377.7155555556
Mark = smEnd
end
item
Caption = '748'
@ -26993,6 +26999,7 @@ object MainForm: TMainForm
Latitude = -7.71584
Elevation = 11270
DateTime = 45377.7868402778
Mark = smEnd
end
item
Caption = '768'
@ -27000,6 +27007,7 @@ object MainForm: TMainForm
Latitude = -5
Elevation = 11278
DateTime = 45377.8060532407
Mark = smEnd
end
item
Caption = '769'
@ -28460,6 +28468,22 @@ object MainForm: TMainForm
ParentColor = False
WordWrap = True
end
object cbTightFollow: TCheckBox
AnchorSideLeft.Control = plInfo
AnchorSideBottom.Control = plInfo
AnchorSideBottom.Side = asrBottom
Left = 4
Height = 21
Top = 47
Width = 114
Anchors = [akLeft, akBottom]
BorderSpacing.Around = 3
Caption = 'Follow tightly'
Checked = True
OnChange = cbTightFollowChange
State = cbChecked
TabOrder = 0
end
end
end
end

9
components/lazmapviewer/examples/flights/main.pas
View File

@ -14,6 +14,7 @@ type
TMainForm = class(TForm)
btnWarp: TSpeedButton;
cbTightFollow: TCheckBox;
ilPOIs: TImageList;
ilJetSprites: TImageList;
gbMouse: TGroupBox;
@ -42,6 +43,7 @@ type
ZoomTrackBar: TTrackBar;
procedure btnPauseClick(Sender: TObject);
procedure btnWarpClick(Sender: TObject);
procedure cbTightFollowChange(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure MapViewMouseLeave(Sender: TObject);
@ -106,7 +108,7 @@ var
TimeWARP: Integer = 200; // Time multiplier
DoFollow: Boolean = True; // False not to follow selected
TightFollow: Boolean = False; // True to follow tight
TightFollow: Boolean = True; // True to follow tight
function MillisElapsed(AReset: Boolean = True): Int64;
begin
@ -275,6 +277,11 @@ begin
UpdateWarp;
end;
procedure TMainForm.cbTightFollowChange(Sender: TObject);
begin
TightFollow := cbTightFollow.Checked;
end;
procedure TMainForm.FormCreate(Sender: TObject);
var
I: Integer;