layout of controls inside TDialog

[msilewicz]

Hello !

I've created simple TDialog that has control derived from TListViewer on the left side and this control present sam tabular data.
I've created code to intercept focused item event in this TListViewer and as result I display some detailed data of this item
in the TMemo control that is located on the right side of TListViewer. growMode of TListViewer is set up in a way
that expand TListViewer horizontally - how can i achieve situation that TMemo will preseve constant distance from TListViewer.
Now in some moment (when TListViewer gorw "too much") TListViever visually overlaps TMemo.

[msilewicz]

Just to clarify : TDialog has wfGrow property set.
This process of overlapping TListViewer over TMemo happens when I drag right lower or left lower corner of TDialog.
I've overwritten handleEvent just to print what kind of events are intercepted - however only evMouseDown is printed;
TListViewer has bigger or smaller width however no events are printed...

[magiblot]

Hi @msilewicz!

After creating the TMemo instance, you have to change its growMode field, which is a combination of the following flags:

tvision/include/tvision/views.h

Lines 91 to 99 in 4c75d1f

	// TView GrowMode masks
	gfGrowLoX = 0x01,
	gfGrowLoY = 0x02,
	gfGrowHiX = 0x04,
	gfGrowHiY = 0x08,
	gfGrowAll = 0x0f,
	gfGrowRel = 0x10,
	gfFixed = 0x20,

The following schema illustrates which side of a view gets adjusted when the respective flag is set:

              gfGrowLoY
          ┌───────────────┐
          │               │
          │               │
gfGrowLoX │               │ gfGrowHiX
          │               │
          │               │
          └───────────────┘
              gfGrowHiY

So, if I understood correctly, in addition to the TMemo being to the right of the TListViewer, you want it to grow vertically but to always be the same width. To achieve this behaviour, you need to set growMode = gfGrowLoX | gfGrowHiX | gfGrowHiY. If you don't want it to grow vertically, it would be growMode = gfGrowLoX | gfGrowHiX (to keep it aligned with the dialog's top side) or growMode = gfGrowAll (to keep it aligned with the dialog's bottom side). Note that gfGrowAll is the same as gfGrowLoX | gfGrowHiX | gfGrowLoY | gfGrowHiY.

[msilewicz]

Thank You for Your kind reply.

I wanted TMemo to behave in a configurable way, as it comes to its size (width, height) but one aspect must be constant - I mean TMemo is not meant to overlap TListViewer or be overlapped (by TListViewer) - It must preserve constant distance from TListViewer. As it comes to this configuration (which I mentioned earlier) TMemo can be configured to grow horizontally, vertically, both or none. grow mode flags You mentioned I think are not enough for me.
growMode of control is based "only" on of its parent edges (low,bottom,right,left) - when dialog becomes smaller
and smaller - TMemo can overlap on TListViewer - because according to nature of growMode flags Tmemo is
keeping constant distance for example from left side of parent dialog but completely ignoring presence of some other controls (located between left edge of Tmemo and left edge of parent dialog).

I've managed to reach out an solution :
I've derived TAdvMemo class based on TMemo and I "connect" this class with pointer to TListViewer * located somewhere in TDialog (in scrollable area - You have helped me earlier - Thank You again !) - in this TAdvMemo
I've overwritten draw method and in this method I'm computing new bounds of TMemo based on configuration
(I've called this layout_hint - string for example "grow_dir=XY#adj_control=list_viewer:RIGHT" <- this for
example means that Tmemo can grow X and Y (width, height), adj_control that Tmemo is being aligned is named
list_viewer and TMemo is always located by the right side of list_viewer.
growMode of TAdvMemo is gfFixed - its size changing is accomplished in draw method.

Thank Your for give of second life for turbo vision library. I used to program with this library in late 90's but in Turbo Pascal. It is great to see it works in 2025 !

I'm working now on a solution to create text user interfaces using this library and additionally be scriptable using js (v8 library)

Best regards.