Re: AW: Adding a pane with a border and a title
Thanks David,
After taking your hint to the generic row/column and putting in:
:title "Title"
:title-position :frame
:internal-border 5
it works great!
Now I begin to understand the capi-conzept.
Question: In the Autodesk-DCL-Layout-tool is an object called "Spacer"
which is used to make some space in a row or column, like an invisibel
pane. I have simulated it by using a title-pane with white spaces.
Is there something similar to this?
Regards
Hans-Peter
-----Ursprüngliche Nachricht-----
Von: David Fox [mailto:davef@xanalys.com]
Gesendet: Dienstag, 17. Juni 2003 15:05
An: Wickern, Hans- Peter
Cc: divanov2@postman.ru; lisp-hug@xanalys.com
Betreff: Re: AW: Adding a pane with a border and a title
Now i added a title:
(row-of-buttons capi:row-layout
'(page-up page-down open-file)
:visible-border
:recessed
:title '"Test"
)
But it show's up above of the frame. Is there an option to get
a frame where it is inserted in the top frame-border like in
windows standard-frames?
Is this what you mean?
(capi:define-interface demodiax ()
()
(:panes
(row-of-buttons
capi:push-button-panel
:items '("Page Up" "Page Down" "Open File")
:title "Title"
:title-position :frame
:internal-border 5
:layout-args '(:x-gap 10)))
(:layouts
(main-layout capi:column-layout
'(row-of-buttons)
))
(:menu-bar file-menu page-menu)
(:menus
(file-menu "File"
("Open"))
(page-menu "Page"
("Page Up" "Page Down")))
(:default-initargs :title "Demo"))
And is it possible to make the row bigger and to adjust the buttons
inside?
As Dmitri said you can use :X-GAP to adjust the layout. If you group
the buttons in a CAPI:BUTTON-PANEL, pass the layout initargs via
:LAYOUT-ARGS like the above.
If you want larger buttons, I think you will need to construct them
explicitly, passing :VISIBLE-MIN-HEIGHT etc.
Dave Fox
Xanalys
Compass House
Vision Park
Chivers Way
Histon
Cambridge
CB4 9AD
England
Email: davef@xanalys.com
Tel: +44 1223 253793
Fax: +44 1223 257812
These opinions are not necessarily those of Xanalys.
Friedrich, thanks for your code-sample.
Regards
Hans-Peter
-----Ursprüngliche Nachricht-----
Von: Dmitri Ivanov [mailto:divanov2@postman.ru]
Gesendet: Dienstag, 17. Juni 2003 10:16
An: Wickern, Hans- Peter
Cc: lisp-hug@xanalys.com
Betreff: Re: Adding a pane with a border and a title
Hello,
| "Wickern, Hans- Peter" <hpwickern@interluebke.de> writes:
|
|> (main-layout capi:column-layout
|> '(row-of-buttons))
|> (row-of-buttons capi:row-layout
|> '(page-up page-down open-file)
| :visible-border t))
|
| add that to the interface and you got a border around the Buttons.
For me, this doesn't have any vissible effect on Windows. But
:visible-border :recessed
really does.
--
Sincerely,
Dmitri Ivanov
www.aha.ru/~divanov