gui: adjust styles for query frame
This commit is contained in:
parent
d3ebcb4666
commit
493ab846b9
6
main.go
6
main.go
@ -216,8 +216,9 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
|
||||
queryButtonBar.SetAlign(types.AlTop)
|
||||
queryButtonBar.BorderSpacing().SetLeft(MY_SPACING)
|
||||
queryButtonBar.BorderSpacing().SetTop(MY_SPACING)
|
||||
queryButtonBar.BorderSpacing().SetBottom(0)
|
||||
//queryButtonBar.BorderSpacing().SetBottom(1)
|
||||
queryButtonBar.BorderSpacing().SetRight(MY_SPACING)
|
||||
queryButtonBar.SetEdgeBorders(0)
|
||||
queryButtonBar.SetImages(f.ImageList)
|
||||
queryButtonBar.SetShowCaptions(true)
|
||||
|
||||
@ -234,8 +235,9 @@ func (f *TMainForm) OnFormCreate(sender vcl.IObject) {
|
||||
f.queryInput.SetTop(1)
|
||||
f.queryInput.Font().SetName("monospace")
|
||||
f.queryInput.BorderSpacing().SetLeft(MY_SPACING)
|
||||
f.queryInput.BorderSpacing().SetTop(0)
|
||||
//f.queryInput.BorderSpacing().SetTop(1)
|
||||
f.queryInput.BorderSpacing().SetRight(MY_SPACING)
|
||||
f.queryInput.SetBorderStyle(types.BsFrame)
|
||||
|
||||
vsplit := vcl.NewSplitter(queryTab)
|
||||
vsplit.SetParent(queryTab)
|
||||
|
Loading…
Reference in New Issue
Block a user