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

fix, win, fetch package dialog, btn alignment

This commit is contained in:
Basile Burg 2016-04-14 20:46:07 +02:00
parent 0ec4452487
commit 767e990374
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
src/ce_libmaneditor.pas
View File

@ -194,7 +194,7 @@ begin
inherited; inherited;
width := 400; width := 400;
height := 36; height := 34;
BorderStyle:= bsToolWindow; BorderStyle:= bsToolWindow;
caption := 'Select or type the DUB package name'; caption := 'Select or type the DUB package name';
Position:= poMainFormCenter; Position:= poMainFormCenter;
@ -203,17 +203,19 @@ begin
cbb.Parent := self; cbb.Parent := self;
cbb.AutoComplete := true; cbb.AutoComplete := true;
cbb.Align := alClient; cbb.Align := alClient;
cbb.BorderSpacing.Around := 2; cbb.BorderSpacing.Around := 6;
cbb.Sorted:= true; cbb.Sorted:= true;
bww := TBitBtn.Create(self); bww := TBitBtn.Create(self);
bww.Parent := self; bww.Parent := self;
bww.Align := alRight; bww.Align := alRight;
bww.Width:= 28; bww.Width:= 28;
bww.BorderSpacing.Around := 2; bww.BorderSpacing.Around := 4;
bww.ShowHint := true; bww.ShowHint := true;
bww.Hint := 'get the package list'; bww.Hint := 'get the package list';
bww.OnClick:= @getList; bww.OnClick:= @getList;
bww.Layout:= blGlyphTop;
bww.Spacing:= 2;
AssignPng(bww, 'arrow_update'); AssignPng(bww, 'arrow_update');
bok := TBitBtn.Create(self); bok := TBitBtn.Create(self);
@ -221,9 +223,11 @@ begin
bok.ModalResult:= mrOk; bok.ModalResult:= mrOk;
bok.Align := alRight; bok.Align := alRight;
bok.Width := 28; bok.Width := 28;
bok.BorderSpacing.Around := 2; bok.BorderSpacing.Around := 4;
bok.Hint := 'try to fetch, compile and auto-register'; bok.Hint := 'try to fetch, compile and auto-register';
bok.ShowHint := true; bok.ShowHint := true;
bok.Layout:= blGlyphTop;
bok.Spacing:= 2;
AssignPng(bok, 'accept'); AssignPng(bok, 'accept');
bno := TBitBtn.Create(self); bno := TBitBtn.Create(self);
@ -231,9 +235,11 @@ begin
bno.ModalResult:= mrCancel; bno.ModalResult:= mrCancel;
bno.Align := alRight; bno.Align := alRight;
bno.Width:= 28; bno.Width:= 28;
bno.BorderSpacing.Around := 2; bno.BorderSpacing.Around := 4;
bno.Hint := 'cancel and do nothing'; bno.Hint := 'cancel and do nothing';
bno.ShowHint := true; bno.ShowHint := true;
bno.Layout:= blGlyphTop;
bno.Spacing:= 2;
AssignPng(bno, 'cancel'); AssignPng(bno, 'cancel');
end; end;