forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

update indet patcher dialog

This commit is contained in:
Basile Burg 2018-04-08 21:35:50 +02:00
parent bd29a5708a
commit d0ef3a9130
1 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
src/ce_synmemo.pas
View File

@ -572,6 +572,8 @@ end;
{$REGION TMixedIndetationDialog} {$REGION TMixedIndetationDialog}
constructor TMixedIndetationDialog.construct(); constructor TMixedIndetationDialog.construct();
var
pn: TPanel;
begin begin
inherited create(nil); inherited create(nil);
BorderStyle:= bsToolWindow; BorderStyle:= bsToolWindow;
@ -587,19 +589,35 @@ begin
ModalResult:= 1; ModalResult:= 1;
BorderSpacing.Around:=4; BorderSpacing.Around:=4;
end; end;
pn := TPanel.Create(self);
pn.Align:= alTop;
pn.parent := self;
pn.Caption:='';
pn.AutoSize:=true;
pn.BevelInner:= bvNone;
pn.BevelOuter:= bvNone;
pn.BorderSpacing.Around:=4;
pn.ParentColor:=true;
with TSpinEdit.Create(self) do with TSpinEdit.Create(self) do
begin begin
value := fSpacesPerTab; value := fSpacesPerTab;
Align:= alTop; Align:= alLeft;
parent := self; parent := pn;
Caption := 'Spaces per TAB';
MinValue:= 1; MinValue:= 1;
MaxValue:= 8; MaxValue:= 8;
BorderSpacing.Around:=4;
OnChange:= @spinSpacesPerTabChange; OnChange:= @spinSpacesPerTabChange;
hint := 'defines how many spaces per TAB will be used'; hint := 'defines how many spaces per TAB will be used';
ShowHint:=true; ShowHint:=true;
end; end;
with TLabel.Create(self) do
begin
parent := pn;
AutoSize:=true;
Caption:= 'Spaces per TAB';
Align:= alClient;
Layout:= TTextLayout.tlCenter;
BorderSpacing.Left:= 4;
end;
with TButton.Create(self) do with TButton.Create(self) do
begin begin
Align:= alTop; Align:= alTop;