Skip to content

Commit 4272a88

Browse files
vincentparrettvincentparrett
committed
Added splitter on template page
1 parent dae2192 commit 4272a88

2 files changed

Lines changed: 69 additions & 64 deletions

File tree

‎Source/DSpecCreator/DPM.Creator.MainForm.dfm‎

Lines changed: 68 additions & 64 deletions
Original file line numberDiff line numberDiff line change
@@ -375,29 +375,33 @@ object DSpecCreatorForm: TDSpecCreatorForm
375375
object tsTemplates: TTabSheet
376376
Caption = 'Templates'
377377
ImageIndex = 2
378-
DesignSize = (
379-
863
380-
476)
378+
object Splitter1: TSplitter
379+
Left = 330
380+
Top = 0
381+
Width = 4
382+
Height = 476
383+
ResizeStyle = rsUpdate
384+
end
381385
object CardPanel: TCardPanel
382-
Left = 336
383-
Top = 3
384-
Width = 496
385-
Height = 470
386-
Anchors = [akLeft, akTop, akRight, akBottom]
386+
Left = 334
387+
Top = 0
388+
Width = 529
389+
Height = 476
390+
Align = alClient
387391
ActiveCard = crdSearchPathItem
388392
Caption = 'CardPanel'
389393
TabOrder = 0
390394
object crdSource: TCard
391395
Left = 1
392396
Top = 1
393-
Width = 494
394-
Height = 468
397+
Width = 527
398+
Height = 474
395399
Caption = 'Source/Lib/File'
396400
CardIndex = 0
397401
TabOrder = 0
398402
DesignSize = (
399-
494
400-
468)
403+
527
404+
474)
401405
object lblSrc: TLabel
402406
Left = 16
403407
Top = 40
@@ -429,7 +433,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
429433
object edtFileEntrySource: TEdit
430434
Left = 16
431435
Top = 61
432-
Width = 332
436+
Width = 365
433437
Height = 23
434438
CustomHint = BalloonHint1
435439
Anchors = [akLeft, akTop, akRight]
@@ -449,7 +453,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
449453
object edtFileEntryDest: TEdit
450454
Left = 16
451455
Top = 134
452-
Width = 332
456+
Width = 365
453457
Height = 23
454458
Anchors = [akLeft, akTop, akRight]
455459
ParentShowHint = False
@@ -460,7 +464,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
460464
object lbFileEntryExclude: TListBox
461465
Left = 16
462466
Top = 182
463-
Width = 332
467+
Width = 365
464468
Height = 97
465469
Anchors = [akLeft, akTop, akRight]
466470
ItemHeight = 15
@@ -488,8 +492,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
488492
object crdSearchPathItem: TCard
489493
Left = 1
490494
Top = 1
491-
Width = 494
492-
Height = 468
495+
Width = 527
496+
Height = 474
493497
Caption = 'SearchPath Item'
494498
CardIndex = 1
495499
TabOrder = 1
@@ -519,14 +523,14 @@ object DSpecCreatorForm: TDSpecCreatorForm
519523
object crdBuild: TCard
520524
Left = 1
521525
Top = 1
522-
Width = 494
523-
Height = 468
526+
Width = 527
527+
Height = 474
524528
Caption = 'Build Item'
525529
CardIndex = 2
526530
TabOrder = 2
527531
DesignSize = (
528-
494
529-
468)
532+
527
533+
474)
530534
object lblBuild: TLabel
531535
Left = 8
532536
Top = 8
@@ -558,7 +562,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
558562
object edtBuildId: TEdit
559563
Left = 24
560564
Top = 56
561-
Width = 381
565+
Width = 414
562566
Height = 23
563567
Anchors = [akLeft, akTop, akRight]
564568
TabOrder = 0
@@ -567,7 +571,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
567571
object edtProject: TEdit
568572
Left = 24
569573
Top = 106
570-
Width = 381
574+
Width = 414
571575
Height = 23
572576
Anchors = [akLeft, akTop, akRight]
573577
ParentShowHint = False
@@ -578,7 +582,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
578582
object edtConfiguration: TEdit
579583
Left = 24
580584
Top = 156
581-
Width = 381
585+
Width = 414
582586
Height = 23
583587
Anchors = [akLeft, akTop, akRight]
584588
ParentShowHint = False
@@ -609,14 +613,14 @@ object DSpecCreatorForm: TDSpecCreatorForm
609613
AlignWithMargins = True
610614
Left = 4
611615
Top = 4
612-
Width = 488
613-
Height = 462
616+
Width = 521
617+
Height = 468
614618
Caption = 'Runtime Or DesignTime'
615619
CardIndex = 3
616620
TabOrder = 3
617621
DesignSize = (
618-
488
619-
462)
622+
521
623+
468)
620624
object lblRuntime: TLabel
621625
Left = 8
622626
Top = 8
@@ -643,7 +647,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
643647
object edtBPLEntryBuildId: TEdit
644648
Left = 62
645649
Top = 112
646-
Width = 383
650+
Width = 416
647651
Height = 23
648652
Anchors = [akLeft, akTop, akRight]
649653
TabOrder = 3
@@ -652,7 +656,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
652656
object edtBPLEntrySrc: TEdit
653657
Left = 62
654658
Top = 37
655-
Width = 383
659+
Width = 416
656660
Height = 23
657661
Anchors = [akLeft, akTop, akRight]
658662
ParentShowHint = False
@@ -682,14 +686,14 @@ object DSpecCreatorForm: TDSpecCreatorForm
682686
object crdDependency: TCard
683687
Left = 1
684688
Top = 1
685-
Width = 494
686-
Height = 468
689+
Width = 527
690+
Height = 474
687691
Caption = 'Dependency'
688692
CardIndex = 4
689693
TabOrder = 4
690694
DesignSize = (
691-
494
692-
468)
695+
527
696+
474)
693697
object Label1: TLabel
694698
Left = 16
695699
Top = 95
@@ -714,7 +718,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
714718
object edtDependencyId: TEdit
715719
Left = 16
716720
Top = 61
717-
Width = 372
721+
Width = 405
718722
Height = 23
719723
Anchors = [akLeft, akTop, akRight]
720724
TabOrder = 0
@@ -723,7 +727,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
723727
object edtDependencyVersion: TEdit
724728
Left = 16
725729
Top = 116
726-
Width = 372
730+
Width = 405
727731
Height = 23
728732
Anchors = [akLeft, akTop, akRight]
729733
ParentShowHint = False
@@ -735,8 +739,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
735739
object crdTemplate: TCard
736740
Left = 1
737741
Top = 1
738-
Width = 494
739-
Height = 468
742+
Width = 527
743+
Height = 474
740744
Caption = 'Templates'
741745
CardIndex = 5
742746
TabOrder = 5
@@ -766,8 +770,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
766770
object crdBuildHeading: TCard
767771
Left = 1
768772
Top = 1
769-
Width = 494
770-
Height = 468
773+
Width = 527
774+
Height = 474
771775
Caption = 'Build Items Heading'
772776
CardIndex = 6
773777
TabOrder = 6
@@ -794,8 +798,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
794798
object crdSearchPathHeading: TCard
795799
Left = 1
796800
Top = 1
797-
Width = 494
798-
Height = 468
801+
Width = 527
802+
Height = 474
799803
Caption = 'SearchPath Heading'
800804
CardIndex = 7
801805
TabOrder = 7
@@ -822,8 +826,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
822826
object crdSourceHeading: TCard
823827
Left = 1
824828
Top = 1
825-
Width = 494
826-
Height = 468
829+
Width = 527
830+
Height = 474
827831
Caption = 'Source Items Heading'
828832
CardIndex = 8
829833
TabOrder = 8
@@ -848,8 +852,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
848852
object crdDependenciesHeading: TCard
849853
Left = 1
850854
Top = 1
851-
Width = 494
852-
Height = 468
855+
Width = 527
856+
Height = 474
853857
Caption = 'Dependencies '
854858
CardIndex = 9
855859
TabOrder = 9
@@ -876,8 +880,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
876880
object crdLibEntriesHeading: TCard
877881
Left = 1
878882
Top = 1
879-
Width = 494
880-
Height = 468
883+
Width = 527
884+
Height = 474
881885
Caption = 'Lib Entries Heading'
882886
CardIndex = 10
883887
TabOrder = 10
@@ -902,8 +906,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
902906
object crdFileEntriesHeading: TCard
903907
Left = 1
904908
Top = 1
905-
Width = 494
906-
Height = 468
909+
Width = 527
910+
Height = 474
907911
Caption = 'File Entries Heading'
908912
CardIndex = 11
909913
TabOrder = 11
@@ -930,8 +934,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
930934
object crdDesignHeading: TCard
931935
Left = 1
932936
Top = 1
933-
Width = 494
934-
Height = 468
937+
Width = 527
938+
Height = 474
935939
Caption = 'Design Heading'
936940
CardIndex = 12
937941
TabOrder = 12
@@ -958,8 +962,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
958962
object crdRuntimeHeading: TCard
959963
Left = 1
960964
Top = 1
961-
Width = 494
962-
Height = 468
965+
Width = 527
966+
Height = 474
963967
Caption = 'Runtime Heading'
964968
CardIndex = 13
965969
TabOrder = 13
@@ -984,16 +988,16 @@ object DSpecCreatorForm: TDSpecCreatorForm
984988
end
985989
object Panel2: TPanel
986990
Left = 0
987-
Top = 3
991+
Top = 0
988992
Width = 330
989-
Height = 470
990-
Anchors = [akLeft, akTop, akBottom]
993+
Height = 476
994+
Align = alLeft
991995
Caption = 'Panel2'
992996
ShowCaption = False
993997
TabOrder = 1
994998
DesignSize = (
995999
330
996-
470)
1000+
476)
9971001
object lblTemplateView: TLabel
9981002
Left = 3
9991003
Top = 3
@@ -1003,7 +1007,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
10031007
end
10041008
object Label3: TLabel
10051009
Left = 3
1006-
Top = 411
1010+
Top = 417
10071011
Width = 161
10081012
Height = 15
10091013
Anchors = [akLeft, akBottom]
@@ -1014,8 +1018,8 @@ object DSpecCreatorForm: TDSpecCreatorForm
10141018
Left = 3
10151019
Top = 24
10161020
Width = 319
1017-
Height = 381
1018-
Anchors = [akLeft, akTop, akBottom]
1021+
Height = 387
1022+
Anchors = [akLeft, akTop, akRight, akBottom]
10191023
AutoExpand = True
10201024
DoubleBuffered = True
10211025
HideSelection = False
@@ -1036,7 +1040,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
10361040
end
10371041
object btnAddTemplate: TButton
10381042
Left = 3
1039-
Top = 432
1043+
Top = 438
10401044
Width = 86
10411045
Height = 25
10421046
Anchors = [akLeft, akBottom]
@@ -1046,7 +1050,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
10461050
end
10471051
object btnDeleteTemplate: TButton
10481052
Left = 95
1049-
Top = 432
1053+
Top = 438
10501054
Width = 98
10511055
Height = 25
10521056
Action = actDeleteTemplate
@@ -1055,7 +1059,7 @@ object DSpecCreatorForm: TDSpecCreatorForm
10551059
end
10561060
object btnDuplicateTemplate: TButton
10571061
Left = 200
1058-
Top = 432
1062+
Top = 438
10591063
Width = 122
10601064
Height = 25
10611065
Action = actDuplicateTemplate

‎Source/DSpecCreator/DPM.Creator.MainForm.pas‎

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -215,6 +215,7 @@ TDSpecCreatorForm = class(TForm, IMRUSource)
215215
btnAddTemplate : TButton;
216216
btnDeleteTemplate : TButton;
217217
btnDuplicateTemplate : TButton;
218+
Splitter1: TSplitter;
218219
procedure FormDestroy(Sender : TObject);
219220
procedure btnAddExcludeClick(Sender : TObject);
220221
procedure btnAddTemplateClick(Sender : TObject);

0 commit comments

Comments
 (0)