Skip to content

Commit 9fa4fcf

Browse files
carloBarazzettacarloBarazzetta
committed
21 Aug 2023 - Version 1.5.0
- Changed Packages: separated Run-Time and Design-Time Packages - Added "Show Print UI" Panel command - Added support for Delphi 12
1 parent 37523d3 commit 9fa4fcf

22 files changed

+593
-1555
lines changed

‎Demo/GoogleMaps/GoogleMapsTest.dpr

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -11,6 +11,7 @@ uses
1111

1212
begin
1313
Application.Initialize;
14+
Application.Title := 'Delphi with Edge Google Maps Viewer Component Demo';
1415
Application.MainFormOnTaskbar := True;
1516
Application.CreateForm(TformMain, formMain);
1617
Application.Run;

‎Demo/GoogleMaps/GoogleMapsTest.dproj

Lines changed: 0 additions & 728 deletions
Large diffs are not rendered by default.

‎Demo/GoogleMaps/MainForm.dfm

Lines changed: 54 additions & 52 deletions
Original file line numberDiff line numberDiff line change
@@ -5,7 +5,7 @@ object formMain: TformMain
55
'Delphi with Edge Google Maps Viewer Component Demo - Copyright (' +
66
'c) Ethea S.r.l.'
77
ClientHeight = 729
8-
ClientWidth = 1479
8+
ClientWidth = 1190
99
Color = clBtnFace
1010
Constraints.MinHeight = 550
1111
Constraints.MinWidth = 890
@@ -24,17 +24,15 @@ object formMain: TformMain
2424
object Splitter1: TSplitter
2525
Left = 0
2626
Top = 579
27-
Width = 1479
27+
Width = 1190
2828
Height = 3
2929
Cursor = crVSplit
3030
Align = alBottom
31-
ExplicitTop = 151
32-
ExplicitWidth = 231
3331
end
3432
object PanelHeader: TPanel
3533
Left = 0
3634
Top = 0
37-
Width = 1479
35+
Width = 1190
3836
Height = 185
3937
Align = alTop
4038
TabOrder = 0
@@ -381,15 +379,15 @@ object formMain: TformMain
381379
object GroupBoxMarker: TGroupBox
382380
Left = 935
383381
Top = 1
384-
Width = 543
382+
Width = 254
385383
Height = 183
386384
Align = alClient
387385
Caption = 'Markers'
388386
TabOrder = 3
389387
object PageControlMarker: TPageControl
390388
Left = 2
391389
Top = 15
392-
Width = 539
390+
Width = 250
393391
Height = 128
394392
ActivePage = LatLongMarkerTabSheet
395393
Align = alClient
@@ -399,7 +397,7 @@ object formMain: TformMain
399397
object GridPanel1: TGridPanel
400398
Left = 0
401399
Top = 0
402-
Width = 531
400+
Width = 242
403401
Height = 100
404402
Align = alClient
405403
BevelOuter = bvNone
@@ -429,7 +427,7 @@ object formMain: TformMain
429427
object GridPanel2: TGridPanel
430428
Left = 0
431429
Top = 0
432-
Width = 531
430+
Width = 242
433431
Height = 50
434432
Align = alClient
435433
BevelOuter = bvNone
@@ -459,7 +457,7 @@ object formMain: TformMain
459457
object Panel2: TPanel
460458
Left = 0
461459
Top = 0
462-
Width = 266
460+
Width = 121
463461
Height = 50
464462
Align = alClient
465463
BevelOuter = bvNone
@@ -468,26 +466,25 @@ object formMain: TformMain
468466
AlignWithMargins = True
469467
Left = 3
470468
Top = 3
471-
Width = 260
469+
Width = 115
472470
Height = 13
473471
Align = alTop
474472
Caption = 'Latitude'
475-
ExplicitWidth = 39
476473
end
477474
object editMarkerLat: TEdit
478475
AlignWithMargins = True
479476
Left = 3
480477
Top = 22
481-
Width = 260
478+
Width = 115
482479
Height = 21
483480
Align = alTop
484481
TabOrder = 0
485482
end
486483
end
487484
object Panel3: TPanel
488-
Left = 266
485+
Left = 121
489486
Top = 0
490-
Width = 265
487+
Width = 121
491488
Height = 50
492489
Align = alClient
493490
BevelOuter = bvNone
@@ -496,17 +493,16 @@ object formMain: TformMain
496493
AlignWithMargins = True
497494
Left = 3
498495
Top = 3
499-
Width = 259
496+
Width = 115
500497
Height = 13
501498
Align = alTop
502499
Caption = 'Longitude'
503-
ExplicitWidth = 47
504500
end
505501
object editMarkerLng: TEdit
506502
AlignWithMargins = True
507503
Left = 3
508504
Top = 22
509-
Width = 259
505+
Width = 115
510506
Height = 21
511507
Align = alTop
512508
TabOrder = 0
@@ -516,7 +512,7 @@ object formMain: TformMain
516512
object Panel5: TPanel
517513
Left = 0
518514
Top = 50
519-
Width = 531
515+
Width = 242
520516
Height = 50
521517
Align = alClient
522518
BevelOuter = bvNone
@@ -525,17 +521,16 @@ object formMain: TformMain
525521
AlignWithMargins = True
526522
Left = 3
527523
Top = 3
528-
Width = 525
524+
Width = 236
529525
Height = 13
530526
Align = alTop
531527
Caption = 'Description'
532-
ExplicitWidth = 53
533528
end
534529
object editMarkerDescription: TEdit
535530
AlignWithMargins = True
536531
Left = 3
537532
Top = 22
538-
Width = 525
533+
Width = 236
539534
Height = 21
540535
Align = alTop
541536
TabOrder = 0
@@ -549,7 +544,7 @@ object formMain: TformMain
549544
object Panel6: TPanel
550545
Left = 0
551546
Top = 0
552-
Width = 531
547+
Width = 242
553548
Height = 54
554549
Align = alTop
555550
BevelOuter = bvNone
@@ -558,17 +553,16 @@ object formMain: TformMain
558553
AlignWithMargins = True
559554
Left = 3
560555
Top = 3
561-
Width = 525
556+
Width = 236
562557
Height = 13
563558
Align = alTop
564559
Caption = 'Label'
565-
ExplicitWidth = 25
566560
end
567561
object editMarkerLabel: TEdit
568562
AlignWithMargins = True
569563
Left = 3
570564
Top = 22
571-
Width = 525
565+
Width = 236
572566
Height = 21
573567
Align = alTop
574568
TabOrder = 0
@@ -577,7 +571,7 @@ object formMain: TformMain
577571
object Panel7: TPanel
578572
Left = 0
579573
Top = 54
580-
Width = 531
574+
Width = 242
581575
Height = 54
582576
Align = alTop
583577
BevelOuter = bvNone
@@ -586,17 +580,16 @@ object formMain: TformMain
586580
AlignWithMargins = True
587581
Left = 3
588582
Top = 3
589-
Width = 525
583+
Width = 236
590584
Height = 13
591585
Align = alTop
592586
Caption = 'Animation'
593-
ExplicitWidth = 47
594587
end
595588
object comboMarkerAnimation: TComboBox
596589
AlignWithMargins = True
597590
Left = 3
598591
Top = 22
599-
Width = 525
592+
Width = 236
600593
Height = 22
601594
Align = alTop
602595
Style = csOwnerDrawFixed
@@ -618,17 +611,16 @@ object formMain: TformMain
618611
AlignWithMargins = True
619612
Left = 3
620613
Top = 3
621-
Width = 525
614+
Width = 236
622615
Height = 13
623616
Align = alTop
624617
Caption = 'Information'
625-
ExplicitWidth = 56
626618
end
627619
object memoMarkerInformation: TMemo
628620
AlignWithMargins = True
629621
Left = 3
630622
Top = 22
631-
Width = 525
623+
Width = 236
632624
Height = 75
633625
Align = alClient
634626
Lines.Strings = (
@@ -657,7 +649,7 @@ object formMain: TformMain
657649
AlignWithMargins = True
658650
Left = 3
659651
Top = 3
660-
Width = 525
652+
Width = 236
661653
Height = 17
662654
Align = alTop
663655
Caption = 'Custom'
@@ -667,7 +659,7 @@ object formMain: TformMain
667659
AlignWithMargins = True
668660
Left = 3
669661
Top = 26
670-
Width = 525
662+
Width = 236
671663
Height = 71
672664
Align = alClient
673665
Lines.Strings = (
@@ -680,7 +672,7 @@ object formMain: TformMain
680672
AlignWithMargins = True
681673
Left = 5
682674
Top = 146
683-
Width = 533
675+
Width = 244
684676
Height = 32
685677
Align = alBottom
686678
Caption = 'Add Marker'
@@ -692,7 +684,7 @@ object formMain: TformMain
692684
object EdgeGoogleMapViewer: TEdgeGoogleMapViewer
693685
Left = 0
694686
Top = 185
695-
Width = 1479
687+
Width = 1190
696688
Height = 394
697689
Align = alClient
698690
TabOrder = 1
@@ -705,7 +697,7 @@ object formMain: TformMain
705697
object DBGrid: TDBGrid
706698
Left = 0
707699
Top = 582
708-
Width = 1479
700+
Width = 1190
709701
Height = 100
710702
Align = alBottom
711703
DataSource = dsCustomers
@@ -785,15 +777,26 @@ object formMain: TformMain
785777
object BottomPanel: TPanel
786778
Left = 0
787779
Top = 682
788-
Width = 1479
780+
Width = 1190
789781
Height = 47
790782
Align = alBottom
791783
TabOrder = 3
784+
object ShowPrintUIButton: TButton
785+
AlignWithMargins = True
786+
Left = 90
787+
Top = 4
788+
Width = 80
789+
Height = 39
790+
Align = alLeft
791+
Caption = 'Show Print UI'
792+
TabOrder = 7
793+
OnClick = ShowPrintUIButtonClick
794+
end
792795
object ShowMapButton: TButton
793796
AlignWithMargins = True
794-
Left = 109
797+
Left = 176
795798
Top = 4
796-
Width = 99
799+
Width = 80
797800
Height = 39
798801
Align = alLeft
799802
Caption = 'Show Map'
@@ -802,9 +805,9 @@ object formMain: TformMain
802805
end
803806
object HideMapButton: TButton
804807
AlignWithMargins = True
805-
Left = 214
808+
Left = 262
806809
Top = 4
807-
Width = 99
810+
Width = 80
808811
Height = 39
809812
Align = alLeft
810813
Caption = 'Hide map'
@@ -813,7 +816,7 @@ object formMain: TformMain
813816
end
814817
object ButtonClearMarkers: TButton
815818
AlignWithMargins = True
816-
Left = 1240
819+
Left = 951
817820
Top = 4
818821
Width = 101
819822
Height = 39
@@ -824,7 +827,7 @@ object formMain: TformMain
824827
end
825828
object DBNavigator: TDBNavigator
826829
AlignWithMargins = True
827-
Left = 1347
830+
Left = 1058
828831
Top = 4
829832
Width = 128
830833
Height = 39
@@ -835,7 +838,7 @@ object formMain: TformMain
835838
end
836839
object LoadTableButton: TButton
837840
AlignWithMargins = True
838-
Left = 1135
841+
Left = 846
839842
Top = 4
840843
Width = 99
841844
Height = 39
@@ -848,7 +851,7 @@ object formMain: TformMain
848851
AlignWithMargins = True
849852
Left = 4
850853
Top = 4
851-
Width = 99
854+
Width = 80
852855
Height = 39
853856
Align = alLeft
854857
Caption = 'Show another form...'
@@ -857,27 +860,26 @@ object formMain: TformMain
857860
OnClick = Button1Click
858861
end
859862
object Panel1: TPanel
860-
Left = 316
863+
Left = 345
861864
Top = 1
862-
Width = 816
865+
Width = 498
863866
Height = 45
864867
Align = alClient
865868
BevelOuter = bvNone
866869
TabOrder = 6
867870
object Label7: TLabel
868871
Left = 0
869872
Top = 0
870-
Width = 816
873+
Width = 498
871874
Height = 13
872875
Align = alTop
873876
Caption = 'File'
874-
ExplicitWidth = 16
875877
end
876878
object FileEdit: TEdit
877879
AlignWithMargins = True
878880
Left = 3
879881
Top = 16
880-
Width = 810
882+
Width = 492
881883
Height = 21
882884
Align = alTop
883885
TabOrder = 0

0 commit comments

Comments
 (0)